Viết bởi: daihoangtu 10-10-11, 03:30 PM Chuyên mục: Report - Bài trả lời (7) |
Viết bởi: buratino 09-10-11, 06:51 PM Chuyên mục: Table - Không có hồi đáp |
Viết bởi: hueqlhc 07-10-11, 10:33 AM Chuyên mục: Forms - Bài trả lời (9) |
Viết bởi: Noname 06-10-11, 04:30 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (24) |
Function VbaUni(chuoi As String) As String
If chuoi = "" Then
VbaUni = """"""
Else
chuoi = chuoi & " "
If AscW(Left(chuoi, 1)) < 256 Then VbaUni = """"
For n = 1 To Len(chuoi) - 1
uni1 = Mid(chuoi, n, 1)
uni2 = AscW(Mid(chuoi, n + 1, 1))
If AscW(uni1) > 255 And uni2 > 255 Then
VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & "
ElseIf AscW(uni1) > 255 And uni2 < 256 Then
VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & """
ElseIf AscW(uni1) < 256 And uni2 > 255 Then
VbaUni = VbaUni & uni1 & """ & "
Else
VbaUni = VbaUni & uni1
End If
Next
If Right(VbaUni, 4) = " & """ Then
VbaUni = Mid(VbaUni, 1, Len(VbaUni) - 4)
Else
VbaUni = VbaUni & """"
End If
End If
End Function
Viết bởi: Noname 06-10-11, 12:06 PM Chuyên mục: Ms Excel - Không có hồi đáp |
Chủ đề Mới nhất |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-23 Phút trước- » Bài trả lời: 31- » Lượt xem: 20,529 |
[Hỏi] Kết nối dữ liệu bằn... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: Seo-Ul-Vah-54 Phút trước- » Bài trả lời: 53- » Lượt xem: 33,532 |
tradingview -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertFut-2 Giờ trước- » Bài trả lời: 0- » Lượt xem: 5 |
kraken сайт зеркала -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertNer-8 Giờ trước- » Bài trả lời: 0- » Lượt xem: 5 |
postegro -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-Hôm nay, 02:16 AM- » Bài trả lời: 0- » Lượt xem: 6 |
Làm Video hướng dẫn lập t... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: bazabkaki-Hôm qua, 10:26 AM- » Bài trả lời: 4- » Lượt xem: 2,671 |
Biến 50GB từ Box.net thàn... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Seo-Ul-Vah-Hôm qua, 03:38 AM- » Bài trả lời: 1- » Lượt xem: 2,100 |
Windows 10 ISO Full Direc... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SuperMan2543a-26-03-24, 11:55 PM- » Bài trả lời: 0- » Lượt xem: 8 |
Утепление фасадов в москв... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ppu-pr_dier-26-03-24, 11:35 PM- » Bài trả lời: 0- » Lượt xem: 3 |
Advertising offer to the ... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Noname-26-03-24, 08:26 AM- » Bài trả lời: 1- » Lượt xem: 24 |
Diễn đàn Thống kê |
» Thành viên: 4,343 » Thành viên mới nhất: RobertFut » Các chủ đề diễn đàn: 9,858 » Các bài viết diễn: 48,398 Thống kê đầy đủ |