Tùy chọn
Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
- Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
-
Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
Noname > 15-08-10, 01:37 PM
Hỏi: Tôi làm chương trình qlý SV, vô ý lúc nhập tên toàn nhập chữ thường, tôi muốn tạo một hàm có thể in hoa tất cả mẫu tự đầu của từng từ trong trường văn bản thì phải làm như thế nào?
Trả lời: Hàm của bạn làm như sau:
Lúc các bạn sử dụng thì thay đổi trường Control Source thànhMã:Function Inhoachucaidau (Word as Variant) as String
Dim temp as string, C as string, OldC as String, X as integer
If IsNull(Word) then
Exit Function
Else
temp = CStr(LCase(Word))
OldC = " "
For X = 1 to Len(temp)
C= Mid(temp, X, 1)
If C >= "a" and C <= "z" and (OldC < "a" or OldC > "z") then
Mid(temp, X, 1) = UCase(C)
End If
OldC = C
Next X
Inhoachucaidau = temp
End If
End Function
= Inhoachucaidau([text field_của bạn])
=================================================================
Chuyển toàn bộ chữ Hoa==>thường, hoặc từ thường thành Hoa
Nếu chữ thường thành chữ Hoa bạn dùng UCase(chuỗi)
Chữ Hoa thành chữ thường: dùng LCase(chuỗi)
Chữ thường/Hoa thành chữ chỉ in hoa chữ đầu tiên dùng: inhoachucaidau(chuỗi)
Với hàm Inhoachucaidau() đã trình bày ở trên!
=============================================================== -
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
haquocquan > 31-12-10, 01:00 AM
Có một số bạn hỏi: cách sử dụng như thế nào, đặt hàm ở đâu,....
Xin mời xem file DEMO: module1, tblDanhsach, qryDanhsach
http://www.mediafire.com/?2sm41fcxdmudfmq -
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
kamikaze-2005 > 13-05-11, 10:25 AM
Best solution for this problem:
Use Function:
Trích dẫn: StrConv ( text, conversion, LCID )
text is the string that you wish to convert.
conversion is the type of conversion to perform. The following is a list of valid parameters for conversion.
Parameter Value Description
vbUpperCase 1 Converts the string to all uppercase.
vbLowerCase 2 Converts the string to all lowercase.
vbProperCase 3 Converts the first letter to every word to uppercase. All other characters are left as lowercase. This option is similar to the InitCap function in Oracle.
vbUnicode 64 Converts the string to Unicode.
vbFromUnicode 128 Converts the string from Unicode to the default code page of the system.
Note: If you are using the StrConv function in VBA code, you can use the vb parameter listed in the table above. If you are using this function in a query, you will have to use the numeric value.
LCID is optional. If this parameter is omitted, the StrConv function assumes the system LocaleID.
For example:
Trích dẫn: StrConv ("tech on the net", 1) would return "TECH ON THE NET"
StrConv ("TECH ON THE NET", 2) would return "tech on the net"
StrConv ("TECH ON THE NET", 3) would return "Tech On The Net"
Source document: http://www.techonthenet.com/access/funct...trconv.php
-
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
quanghoasla > 14-05-11, 11:41 AM
mình có một cách hay hơn không phải dung code vba. bạn có thể định dạng chuyển chữ thường thành chữ hoa như sau.
Sau khi ban tao trường name với định dạng( format: >= biến chữ thường thành chữ hoa: ví dụ:tôi là hoa= HOA, và dùng format:<= biến chữ hoa tành chữ thường: KẾT QUẢ = Kết quả.
---------------- Các bạn thử nhé. đây là ví dụ mình làm: http://www.mediafire.com/?bt1n4cod58gr1q4 -
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
Noname > 14-05-11, 01:09 PM
(14-05-11, 11:41 AM)quanghoasla Đã viết: mình có một cách hay hơn không phải dung code vba. bạn có thể định dạng chuyển chữ thường thành chữ hoa như sau.
Sau khi ban tao trường name với định dạng( format
= biến chữ thường thành chữ hoa: ví dụ:tôi là hoa= HOA, và dùng format:<= biến chữ hoa tành chữ thường: KẾT QUẢ = Kết quả.
---------------- Các bạn thử nhé. đây là ví dụ mình làm: http://www.mediafire.com/?bt1n4cod58gr1q4
Cách của bạn hay quá, đúng là khi ta đặt ở ô format dấu: > hoặc < thì nó biến thường thành hoa, hoa thành thường thật.
Tuy nhiên hình như không áp dụng được với Tiếng Việt có dấu
-
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
nhattiensinh > 16-12-11, 06:08 PM
Mình có một hàm chuẩn hóa sau: Mấy bác cho ý kiến:Mã:Public Function chuanchuoi(st As String) As String
Dim s1 As String
s1 = Trim(st)
Do While InStr(1, s1, " ")
s1 = Replace(s1, " ", " ")
Loop
Dim Chuoi() As String
Chuoi = Split(s1, " ")
Dim i As Byte
Dim s As String
For i = 0 To UBound(Chuoi)
s = s & UCase(Left(Chuoi(i), 1)) & Right(Chuoi(i), Len(Chuoi(i)) - 1) & " "
Next
chuanchuoi = s
End Function -
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
vtdcomputer > 02-05-12, 04:45 PM
(14-05-11, 01:09 PM)Noname Đã viết:
(14-05-11, 11:41 AM)quanghoasla Đã viết: mình có một cách hay hơn không phải dung code vba. bạn có thể định dạng chuyển chữ thường thành chữ hoa như sau.
Sau khi ban tao trường name với định dạng( format: >= biến chữ thường thành chữ hoa: ví dụ:tôi là hoa= HOA, và dùng format:<= biến chữ hoa tành chữ thường: KẾT QUẢ = Kết quả.
---------------- Các bạn thử nhé. đây là ví dụ mình làm: http://www.mediafire.com/?bt1n4cod58gr1q4
Cách của bạn hay quá, đúng là khi ta đặt ở ô format dấu: > hoặc < thì nó biến thường thành hoa, hoa thành thường thật.
Tuy nhiên hình như không áp dụng được với Tiếng Việt có dấu.
Vậy theo bác phải làm thế nào? -
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
danhxetnghiem > 30-09-13, 02:29 PM
(16-12-11, 06:08 PM)nhattiensinh Đã viết: Mình có một hàm chuẩn hóa sau: Mấy bác cho ý kiến:
Mã:Public Function chuanchuoi(st As String) As String
Dim s1 As String
s1 = Trim(st)
Do While InStr(1, s1, " ")
s1 = Replace(s1, " ", " ")
Loop
Dim Chuoi() As String
Chuoi = Split(s1, " ")
Dim i As Byte
Dim s As String
For i = 0 To UBound(Chuoi)
s = s & UCase(Left(Chuoi(i), 1)) & Right(Chuoi(i), Len(Chuoi(i)) - 1) & " "
Next
chuanchuoi = s
End Function
Cái này làm thế nào, gắn vào đâu, Bạn cho biết với?
(31-12-10, 01:00 AM)haquocquan Đã viết: Có một số bạn hỏi: cách sử dụng như thế nào, đặt hàm ở đâu,....
Xin mời xem file DEMO: module1, tblDanhsach, qryDanhsach
http://www.mediafire.com/?2sm41fcxdmudfmq
Cảm ơn chia sẽ của bạn. Nhưng nếu mình muốn: trong fomrs/ khi bấm xong tên/ nhấn enter/ thì lập tức nó chuyển thành chử In hoa đầu từ, hay in hoa toàn bộ trong ô name/
(14-05-11, 11:41 AM)quanghoasla Đã viết: mình có một cách hay hơn không phải dung code vba. bạn có thể định dạng chuyển chữ thường thành chữ hoa như sau.
Sau khi ban tao trường name với định dạng( format: >= biến chữ thường thành chữ hoa: ví dụ:tôi là hoa= HOA, và dùng format:<= biến chữ hoa tành chữ thường: KẾT QUẢ = Kết quả.
---------------- Các bạn thử nhé. đây là ví dụ mình làm: http://www.mediafire.com/?bt1n4cod58gr1q4
Cảm ơn chia sẽ rất có ích của bạn. Nhưng nó chỉ đúng khi dùng tiếng anh, chứ tiếng việt có dấu thì chịu bạn ơi, Bạn có cách nào khác không? -
RE: Hàm Chuyển chữ Hoa thành chữ thường và ngược lại
MTNQ > 30-09-13, 03:50 PM
sử dụng hàm Inhoachucaidau của bác Noname hay chuanchuoi của nhattiensinh đều được
-hàm Inhoachucaidau
+ có một lỗi nho nhỏ là thiếu móc ")" ở dòng temp = CStr(LCase(Word) sửa lại là: temp = CStr(LCase(Word))
+ Nên dùng Unicode dựng sẵn vì nếu dùng Unicode tổng hợp thì chữ "n" luôn được chuyển thành "N" (Bác Noname xem sửa giúp ACE với nghen)
-VD: Muốn chuyển txtTEN sang in hoa chử cái đầu sau khi nhập bạn làm như sau:
Mã:Private Sub txtTEN_AfterUpdate()
Me.txtTEN = Inhoachucaidau(txtTEN)
End Sub
mình làm trên file DEMO LOCK RECOR:
Download File DEMO (388KB)
->Bổ sung thêm chút:
-Nếu muốn chuyển hết sang in hoa thì dùng hàm Ucase(chuỗi ký tự) (như bác Noname đã nói ở trên )
VD: Me.txtDIACHI = UCase(txtDIACHI)