Marco cho openoffice (1 người xem)

[thanhtv_79]

Gửi các anh chị
anh chị nào có code chuyển từ số sang chữ trong openoffice, xin vui lòng chia sẽ cho em nha
địa chì mail của em là: xi_trum_79@yahoo.com
em xin cảm ơn

 

[huuthang_bd]

Gửi các anh chị
anh chị nào có code chuyển từ số sang chữ trong openoffice, xin vui lòng chia sẽ cho em nha
địa chì mail của em là: xi_trum_79@yahoo.com
em xin cảm ơn

Bạn dùng thử cái này:

Function DocSo(Number , Optional Font as Long) As String
Dim MyArray
Dim Str as String
Str = Format(Abs(Number), "000000000000000000")
If Ismissing(Font) then Font = 1
Select Case Font
Case 1
    MyArray = Array("không ", "một ", "hai ", "ba ", "bốn ", "năm ", "sáu ", "bảy ", "tám ", "chín ", "triệu, ", "ngàn, ", "tỷ, ", "triệu, ", "ngàn, ", "", "trăm ", "mươi ", "không mươi không ", "không mươi", "lẻ", "mươi không", "mươi", "mươi năm", "mươi lăm", "một mươi", "mười", "mươi một", "mươi mốt", "Âm ")
Case 2
    MyArray = Array("khoâng ", "moät ", "hai ", "ba ", "boán ", "naêm ", "saùu ", "baûy ", "taùm ", "chín ", "trieäu, ", "ngaøn, ", "tyû, ", "trieäu, ", "ngaøn, ", "", "traêm ", "möôi ", "khoâng möôi khoâng ", "khoâng möôi", "leû", "möôi khoâng", "möôi", "möôi naêm", "möôi laêm", "moät möôi", "möôøi", "möôi moät", "möôi moát", "AÂm ")
Case 3
    MyArray = Array("kh«ng ", "mét ", "hai ", "ba ", "bèn ", "n¨m ", "s¸u ", "b¶y ", "t¸m ", "chÝn ", "triÖu, ", "ngµn, ", "tû, ", "triÖu, ", "ngµn, ", "", "tr¨m ", "m­¬i ", "kh«ng m­¬i kh«ng ", "kh«ng m­¬i", "lÎ", "m­¬i kh«ng", "m­¬i", "m­¬i nšm", "m­¬i lšm", "mét m­¬i", "m­êi", "m­¬i mét", "m­¬i mèt", "©m ")
End Select
If Str = "000000000000000000" Then
    DocSo = Trim(MyArray(0))
    Goto Zero
Else
    DocSo = ""
End If
For i = 1 To Len(Str)
    If Csng(Left(Str, i)) <> 0 And Csng(Mid(Str, (Int((i + 2) / 3) - 1) * 3 + 1, 3)) <> 0 Then
        DocSo = DocSo & MyArray(Csng(Mid(Str, i, 1))) & MyArray(-(9 + i / 3) * (i Mod 3 = 0) - (15 + i Mod 3) * (i Mod 3 <> 0))
    ElseIf i = 9 And Csng(Mid(Str, 7, 3)) = 0 And Csng(Left(Str, 6)) <> 0 Then
        DocSo = DocSo & MyArray(12)
    End If
Next
DocSo = Trim(Replace(Replace(Replace(Replace(Replace(Replace(DocSo, MyArray(18), MyArray(15)), MyArray(19), MyArray(20)), MyArray(21), MyArray(22)), MyArray(23), MyArray(24)), MyArray(25), MyArray(26)), MyArray(27), MyArray(28)))
If Number < 0 Then
    DocSo = MyArray(29) & DocSo
End If
    Zero:
    DocSo = Replace(UCase(Left(DocSo, 1)) & Mid(DocSo, 2) & ".", ",.", ".")
End Function

Code này có thể dùng cho 3 bảng mã là Unicode, VNI Windows và TCVN3
Cú pháp:
=DOCSO([Số cần đọc],[Bảng mã])
Bảng mã = 1: Unicode
Bảng mã = 2: VNI Windows
Bảng mã = 3: TCVN3

 

[thanhtv_79]

Chào bạn Hữu Thắng
mình làm rồi nhưng mà nó chỉ đọc số thôi, mình muốn nó đọc thêm có chữ Dola được ko?

 

[huuthang_bd]

Chào bạn Hữu Thắng
mình làm rồi nhưng mà nó chỉ đọc số thôi, mình muốn nó đọc thêm có chữ Dola được ko?

Thì bạn dùng thêm công thức, nối chữ Dola vào đằng sau.

 

[thanhtv_79]

thanks ban
mình đã làm rồi
cảm ơn nhiểu nhé

 

[thanhtv_79]

Dear All
các bạn có biết cách nào export macro ra ngoài không?
ví dụ: mình có đoạn macro chuyển số sang chữ, mình muốn chép macro đó sang máy khác thì mình copy bằng cách nào dễ nhất
thanks

 

[tvxdgt]

Dear All
các bạn có biết cách nào export macro ra ngoài không?
ví dụ: mình có đoạn macro chuyển số sang chữ, mình muốn chép macro đó sang máy khác thì mình copy bằng cách nào dễ nhất
thanks

Bạn Add In a. Bạn copy đoạn code trên rồi mở một file exel mới, mở cửa sổ soạn thảo code rồi insert module, dán đoạn code trên vào. Save as file exel đó sang đuôi aad in (*. xla) là ok. Sau đó copy đoạn add in trên vào các máy khác là sử dụng được.

 

[thanhtv_79]

nhưng mình đang sử dụng openoffice mà
bạn chỉ la ms ofice đúng không?

 

[tvxdgt]

nhưng mình đang sử dụng openoffice mà
bạn chỉ la ms ofice đúng không?

thành thật xin lỗi, đúng rồi mình đang chỉ cách trên Ms ofice

 

[anconancon]

Open office nó thường chạy trên linux là phổ biến nhất, mà Linux nó không thích chơi với phông chữ VNI và TCVN. Cái macro này đem vào Ubuntu không biết có chạy được không nhỉ?