Định dạng như thế nào để có được font unicode?

[vanphuc1701]

Post lại. Ai làm ơn giúp UNICODE với!!!!Cảm ơn rất nhiều!! ai làm ơn giúp giùm với

Định DẠNG THẾ NÀO ĐỂ CÓ ĐƯỢC FONT UNICODE
Sub thu()
Range("K2").Value = "BAÛNG THOÁNG KEÂ COÁT THEÙP"
Range("K3").Value = "COÂNG TRÌNH: " + Range("F3").Value
Range("K4").Value = "HAÏNG MUÏC : " + Range("F4").Value
Range("A6").Value = "TEÂN " & Chr(10) & "CAÁU " & Chr(10) & "KIEÄN"
Range("B6").Value = "Soá" & Chr(10) & "CK"
Range("C6").Value = "Kí" & Chr(10) & "hieäu" & Chr(10) & "thanh"
Range("D6").Formula = "Soá" & Chr(10) & "Thanh" & Chr(10) & "1 C.K"
Range("E6").Formula = "Þ"
Range("F6").Value = "QUY CAÙCH (m)"
Range("F7").Value = "a"
Range("G7").Value = "b"
Range("H7").Value = "c"
Range("I6").Value = "HÌNH DAÏNG - KÍCH THÖÔÙC" & Chr(10) & "(Ñôn vò : m)"
Range("J6").Value = "Toång" & Chr(10) & "soá " & Chr(10) & "thanh"
Range("K6").Value = "Chieàu daøi (m)"
Range("K7").Value = "1 Thanh"
Range("L7").Value = "Toaøn boä"
Range("M6").Value = "TROÏNG LÖÔÏNG (kG)"
Range("M7").Value = "Rieâng"
Range("N7").Value = "Þ<=10"
Range("O7").Value = "Þ<=18"
Range("P7").Value = "Þ>18"
Range("Q6").Value = "(STT)"
Range("A6:A7").Merge
Range("B6:B7").Merge
Range("C6:C7").Merge
Range("D67").Merge
Range("E6:E7").Merge
Range("F6:H6").Merge
Range("I6:I7").Merge
Range("J6:J7").Merge
Range("K6:L6").Merge
Range("M66").Merge
Range("Q6:Q7").Merge
Range("k2").Font.Name = "VNI-Gallera"
Range("k3:k4").Font.Name = "VNI-Algerian"
Range("k2").Font.Size = 22
Range("k3:k4").Font.Size = 14

Range("A8:Q1000").UnMerge
' With Selection
'
' .HorizontalAlignment = xlCenter
' .VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .ShrinkToFit = False
' End With

Range("A9:Q1000").Select
Selection.Validation.Delete
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A10<>"""""
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("A6:Q7").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("A6:Q7").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("A6:Q7").Borders(xlInsideVertical).LineStyle = xlContinuous
Range("A6:Q7").Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("A6:Q7").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("A6:Q7").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("A6:Q7").Borders(xlEdgeTop).Weight = xlThin

Range("k2:k4").HorizontalAlignment = xlCenter
Range("A6:Q1000").HorizontalAlignment = xlCenter
Range("A6:Q7").VerticalAlignment = xlCenter

Range("A8:Q1000").Font.Name = "VNI-Helve-Condense"
Range("A6:Q7").Font.Name = "VNI-Helve-Condense"
Range("A6:Q7").Font.Size = 12
Range("A8:h1000,j8:Q1000").Font.Size = 11
Range("d6:d7").Font.Size = 11
Range("k66").Font.Size = 14

Range("a8:Q1000").Rows.AutoFit
Range("i8:i1000").Font.ColorIndex = 2

Range("F8:H1000,K81000").Style = "Comma"

Range("I8").ColumnWidth = 28

Range("A8").Select

With Range("E8:E1000").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"6,8,10,12,14,16,18,20,22,24,25,26,28,30,32,34,36,38,40,42"
.IgnoreBlank = False
.InCellDropdown = True
.ErrorTitle = "Thong bao loi"
.ErrorMessage = _
"Hay nhap phi sat dung chung loai:" & Chr(10) & "6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 25, 26, " & Chr(10) & "28, 30, 32, 34, 36, 38, 40, 42"
.ShowInput = True
.ShowError = True
End With
With Range("b8:b1000").Validation ', "d8:d1000"
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=MOD(B8,1)=0"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = "THONG BAO LOI"
.ErrorMessage = "Hay nhap so nguyen vao"
.ShowInput = True
.ShowError = True
End With
With Range("d8:d1000").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=MOD(D8,1)=0"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = "THONG BAO LOI"
.ErrorMessage = "Hay nhap so nguyen vao"
.ShowInput = True
.ShowError = True
End With
End Sub

 

[phamduylong]

Bạn có thể lập trình trong Excel bằng font Unicode được nhưng bạn phải biết mã của ký tự Unicode vì trong Module soạn thảo, không thể hiện được ký tự có mã >255. Mà đa số các ký tự có dấu đều có mã > 255. Ví dụ ả=7843, ố=7889, ê=234, … Tuy nhiên, bạn dùng hàm ChrW(mã) cho các ký tự có mã >255 thì vẫn sử dụng được, có điều bạn phải kiên nhẫn nhập từng ký tự.
Ví dụ: bạn muốn nhập vào ô A2 câu “Bảng thống kê”, bạn phải tách các ký tự có mã >255 như sau: “B” +i (ả) + “ng th” + (ố) + “ng kê” vì các ký tự (á) và (ố) có mã >255
(ả) và (ố) thay bằng ChrW(7843) và ChrW(7889

Viết như sau: Range("A2").Value = "B" & ChrW(7843) & "ng th" & ChrW(7889) & "ng kê"

Làm sao biết ký tự Unicode có mã là bao nhiêu ? Bạn viết hàm CodeUni vào bảng tính Excel, bên cột A bạn nhập các ký tự riêng của VN (chữ thường và chữ hoa) như á, Á, à, À, Đ, đ .. (ngoài 26 chữ cái ABC) trong các ô A1, A2, … Bên ô B1 bạn nhậop công thức =CodeUni(A1), điền công thức xuống dưới tương ứng với các ô bên cột A. Kết quả là mã Unicode của các ký tự bên cột A.


‘============
Function MaUni(text)
MaUni = AscW(text)
End Function

‘============

Chúc bạn thành công !

 

[phamduylong]

Định DẠNG THẾ NÀO ĐỂ CÓ ĐƯỢC FONT UNICODE

Tôi đã sửa Sub Thu của bạn chuyển qua Unicode. Nhưng lưu ý bạn, nếu chấp nhận Unicode thì bạn nên sử dụng Unicode cho toàn bộ bảng tính. Tôi chuyển bảng tính bạn sử dụng font Arial. Bạn tải Ma Uni.xls về xem.

 

[digita]

Bạn Long mến,

Cho mình hõi thêm 1 chút về vấn đề này. Nếu muốn mã chữ unicode hiển thị ra ra chữ Việt trong hộp thoại VBA msgbox thì làm sao? Thí dụ như cho chữ ấ trong MsgBox ChrW(7845).

Cám ơn bạn

 

[phamduylong]

Chỉ hiện tiếng Việt Unicode trong Lable, Textbox trong form. TrongMsgBox tôi chưa biết cáchhiện tiếng Việt.

 

[vanphuc1701]

Ai ơi! Các Cao Thủ ơi! Help! Unicode???

CÁC BẠN ƠI LÀM ƠN GIÚP MÌNH SỬA UNICODE VỚI!!!
Sub thu()
Range("K2").Value = "BAÛNG THOÁNG KEÂ COÁT THEÙP"
Range("K3").Value = "COÂNG TRÌNH: " + Range("F3").Value
Range("K4").Value = "HAÏNG MUÏC : " + Range("F4").Value
Range("A6").Value = "TEÂN " & Chr(10) & "CAÁU " & Chr(10) & "KIEÄN"
Range("B6").Value = "Soá" & Chr(10) & "CK"
Range("C6").Value = "Kí" & Chr(10) & "hieäu" & Chr(10) & "thanh"
Range("D6").Formula = "Soá" & Chr(10) & "Thanh" & Chr(10) & "1 C.K"
Range("E6").Formula = "Þ"
Range("F6").Value = "QUY CAÙCH (m)"
Range("F7").Value = "a"
Range("G7").Value = "b"
Range("H7").Value = "c"
Range("I6").Value = "HÌNH DAÏNG - KÍCH THÖÔÙC" & Chr(10) & "(Ñôn vò : m)"
Range("J6").Value = "Toång" & Chr(10) & "soá " & Chr(10) & "thanh"
Range("K6").Value = "Chieàu daøi (m)"
Range("K7").Value = "1 Thanh"
Range("L7").Value = "Toaøn boä"
Range("M6").Value = "TROÏNG LÖÔÏNG (kG)"
Range("M7").Value = "Rieâng"
Range("N7").Value = "Þ<=10"
Range("O7").Value = "Þ<=18"
Range("P7").Value = "Þ>18"
Range("Q6").Value = "(STT)"
Range("A6:A7").Merge
Range("B6:B7").Merge
Range("C6:C7").Merge
Range("D67").Merge
Range("E6:E7").Merge
Range("F6:H6").Merge
Range("I6:I7").Merge
Range("J6:J7").Merge
Range("K6:L6").Merge
Range("M66").Merge
Range("Q6:Q7").Merge
Range("k2").Font.Name = "VNI-TIMES"
Range("k3:k4").Font.Name = "VNI-TIMES"
Range("k2").Font.Size = 22
Range("k3:k4").Font.Size = 14

Range("A8:Q1000").UnMerge
End Sub

 

[chibi]

Giải pháp thế này có được không?
Nhập: A1="bảng thống kê cốt thép", B1="công trình", C1="hạng mục" (Với định dạng font VNI-TIMES).

Sub thu()
Range("K2").Value = Range("A1").Value
Range("K3").Value = Range("B1").Value
Range("K4").Value = Range("C1").Value
Range("k2").Font.Name = "VNI-TIMES"
Range("k3:k4").Font.Name = "VNI-TIMES"
Range("k2").Font.Size = 22
Range("k3:k4").Font.Size = 14
Range("A8:Q1000").UnMerge
End Sub

 

[voda]

Nguyên văn bởi chibi
Nhập: A1="bảng thống kê cốt thép", B1="công trình", C1="hạng mục" (Với định dạng font VNI-TIMES).

Theo mình nghĩ, code của bạn vanphuc 1701 đã định dạng bằng font VNI-times rồi. Không cần phải làm lại nữa.

 

[vanphuc1701]

Tôi đã sửa Sub Thu của bạn chuyển qua Unicode. Nhưng lưu ý bạn, nếu chấp nhận Unicode thì bạn nên sử dụng Unicode cho toàn bộ bảng tính. Tôi chuyển bảng tính bạn sử dụng font Arial. Bạn tải Ma Uni.xls về xem.

GỞI TỚI BẠN LỜI CẢM ƠN CHÂN THÀNH! CẢM ƠN RẤT NHIỀU.