Trang 1 của 2 12 CuốiCuối
Kết quả 1 đến 10 của 14

Chủ đề: Không biết cách sử dụng Add-in hàm đọc số thành chữ

  1. #1
    bichphuong Guest

    Không biết cách sử dụng Add-in hàm đọc số thành chữ

    Các bạn hướng dẫn mình khúc mắc này nha!
    Mình có down về hàm đọc số ra chữ rồi. Mình cũng làm theo hướng dẫn của các bạn trên diễn đàn nhưng khong thành công.
    Các bạn giúp mình cái này nha!
    - Mình không hiểu chạy Vntools.exe ra sao nủa.
    - Khi add xong thì áp dụng hàm này làm sao cũng không biết nửa. Nhờ các bạn giúp mình nha!

  2. #2
    sonbutterbee Guest
    mình cũng đang cài đặt phần mềm đọc số và không biết làm thế nào để có thể sử dụng nó'
    các bạn ai biết chỉ cho mình với

  3. #3
    hienpq Guest
    các bạn thử cái này coi được ko nhe!

  4. #4
    thethitotiu Guest
    Trích dẫn Gửi bởi hien8220
    Các bạn hướng dẫn mình khúc mắc này nha!
    Mình có down về hàm đọc số ra chữ rồi. Mình cũng làm theo hướng dẫn của các bạn trên diễn đàn nhưng khong thành công.
    Các bạn giúp mình cái này nha!
    - Mình không hiểu chạy Vntools.exe ra sao nủa.
    - Khi add xong thì áp dụng hàm này làm sao cũng không biết nửa. Nhờ các bạn giúp mình nha!
    Mình có cái này làm việc bạn đang cần làm nè dễ lắm.

    Bước 1:
    Tải tập tin đổi số này về máy của bạn.

    Bước 2:

    Bạn làm như sau :

    - bạn mở một file excel bất kỳ rồi làm như đường dẫn ở dưới là ok

    - Tool -> Add-in -> Browse -> chọn đường dẫn đến file "doi so" mà bạn đã lưu add-in đổi số là Ok

    Bước 3:

    ban chú ý nha:

    khi muốn đổi số thành chữ thì ban gõ " = VND(địa chỉ ô, hoặc số vào là Ok)

    chúc các bạn thành công

    nếu không hiểu thì liên lạc theo địa chỉ mail nay nha: phamhien_ketoan@yahoo.com.vn

  5. #5
    mr.cận Guest
    mình đã sử dụng rùi , xài ok
    thank bạn nhiều vì đã share Add -in nhỏ mà hay như vậy
    sử dung Add in thi trong file excel nào cũng sử dụng dc

  6. #6
    putadesign Guest
    Trích dẫn Gửi bởi hien8220
    Các bạn hướng dẫn mình khúc mắc này nha!
    Mình có down về hàm đọc số ra chữ rồi. Mình cũng làm theo hướng dẫn của các bạn trên diễn đàn nhưng khong thành công.
    Các bạn giúp mình cái này nha!
    - Mình không hiểu chạy Vntools.exe ra sao nủa.
    - Khi add xong thì áp dụng hàm này làm sao cũng không biết nửa. Nhờ các bạn giúp mình nha!
    Vào Excel – Tool – Macro – Visual basic – Insert – module
    (copy phần dưới này dán vô)
    Xong vào File – Save – save add type – microsoft offcice excel add-in (phan file name : đặt gì cũng duoc. Của mình dat là : VND) rồi OK.
    Thoát ra khỏi visual basic. Vào tool (của excel) – add-ins – chọn VND là OK.
    ----nếu kg hiểu nữa thì “call to me”: 0902666769


    Mã:
    Public Function VND(Baonhieu) 
    Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String 
    Dim I, J, Vitri As Byte, S As Double 
    Dim Hang, Doc, Dem 
    If Baonhieu = 0 Then 
    Ketqua = "Khoâng ñoàng " 
    Else 
    If Abs(Baonhieu) >= 1E+15 Then '1E+15 töùc 1.000.000.000.000.000 töùc 1 trieäu tyû 
    Ketqua = " Soá Quaù lôùn" 
    Else 
    If Baonhieu < 0 Then 
    Ketqua = " tröø " & Space(1) 
    Else 
    Ketqua = Space(0) 
    End If 
    Sotien = Format(Abs(Baonhieu), " 0.00") '18 digits Mith 2 decimal
    Sotien = Right(Space(15) & Sotien, 18) 
    Hang = Array("None", " traêm", "möôi", "gì ñoù") 
    Doc = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng ", "chaún ") 
    Dem = Array("None", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
    For I = 1 To 6 
    Nhom = Mid(SoTien, I * 3 - 2, 3) 
    If Nhom <> Space(3) Then 
    Select Case Nhom 
    Case "000" 
    If I = 5 Then 
    Chu = "ñoàng" & Space(1) 
    Else 
    Chu = Space(0) 
    End If 
    Case ".00" 
    Chu = "" 
    Case Else 
    S1 = Left(Nhom, 1) 
    S2 = Mid(Nhom, 2, 1) 
    S3 = Right(Nhom, 1) 
    Chu = Space(0) 
    Hang(3) = Doc(I) 
    For J = 1 To 3 
    Dich = Space(0) 
    S = Val(Mid(Nhom, J, 1)) 
    If S > 0 Then 
    Dich = Dem(S) & Space(1) & Hang(J) & Space(1) 
    End If 
    Select Case J 
    Case 2 And S = 1 
    Dich = "möôøi" & Space(1) 
    Case 3 And S = 0 And Nhom <> Space(2) & "0" 
    Dich = Hang(J) & Space(1) 
    Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0" 
    Dich = "l" & Mid(Dich, 2) ' kyù töï en lôø 
    Case 2 And S = 0 And S3 <> "0" 
    If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And 1 = 4) Then 
    Dich = "leû" & Space(1) 
    End If 
    End Select 
    Chu = Chu & Dich 
    Next J 
    End Select 
    Vitri = InStr(1, Chu, " möôi moát ", 1) 
    If Vitri > 0 Then Mid(Chu, Vitri, 9) = " möôi moát " 
    Ketqua = Ketqua & Chu 
    End If 
    Next I 
    End If 
    End If 
    VND = UCase(Left(Ketqua, 1)) & Mid(Ketqua, 2) 
    End Function

  7. #7
    totinhte Guest
    Cảm ơn bạn rất nhiều!!!!
    Nhưng bạn cho mình hỏi với .... font chữ này là gì? Mình dùng Unicode, TCVN3,... vẫn không đúng font
    Chỉ mình với... thanks!!!!

  8. #8
    thoroti Guest
    bạn ơi cho mình hỏi, mình đã làm như hướng dẫn và thành công, nhưng chữ đổi ra lại bị lỗi font không đọc được [IMG]images/smilies/cry.gif[/IMG] bạn chỉ mình cách khắc phục nhé [IMG]images/smilies/a41.gif[/IMG] thank bạn [IMG]images/smilies/a12.gif[/IMG]

  9. #9
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi oanhvietcanhn
    bạn ơi cho mình hỏi, mình đã làm như hướng dẫn và thành công, nhưng chữ đổi ra lại bị lỗi font không đọc được [IMG]images/smilies/cry.gif[/IMG] bạn chỉ mình cách khắc phục nhé [IMG]images/smilies/a41.gif[/IMG] thank bạn [IMG]images/smilies/a12.gif[/IMG]
    Bạn thử chọn các loại font chữ cho ô chứa kết quả.
    Tôi nghĩ chắc chỉ có 1 trong 2 loại font là Vntime hoặc Times New Roman thôi.

  10. #10
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    bạn ơi, mình dùng hàm này với Unicode, nhưng chữ lại bị lỗi font, mình phải khắc phục như thế nào hả bạn?

Trang 1 của 2 12 CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •