In ấn với số lượng lớn, chuyển đổi giữa Text và Number trong VBA

[thienthanvuive]

Nội dung trong file gửi kèm, các bác giúp em!

 

[nguyennb]

Không hiểu lắm yêu cầu của bạn. Bạn thử hai hàm "Val" (chuyển text thành số) và "Cstr" (chuyển số thành text) xem thế nào . Lưu ý hai hàm này dùng trong VBE, ví dụ

Dim slhd as long
slhd=val(range("A1"))
Msgbox slhd

Trong do A1 chứa một string nào đó như một số có dấu (') ở đầu

 

[sealand]

Bạn phải có hóa đơn và dữ liệu mẫu thì mọi người mới có cơ sở giúp bạn. Bạn tham khảo bài này xem sao?
http://www.giaiphapexcel.com/forum/showthread.php?p=94128#post94128

 

[thienthanvuive]

Cảm ơn bạn nguyennb, mình đã làm được, các bạn góp ý để đoạn Code của mình chạy nhanh hơn được không? Dữ liệu của mình rất lớn, khoảng 10000 vòng lặp For - Next

Sub in_bg()
Dim tu, den, j, tong As Long
Dim ok As String

    Worksheets("Format").Range("D16:F60000").ClearContents
    ok = Worksheets("Format").Cells(2, 2).Value 'Doc gia tri dang text
    tu = Val(ok) 'Lay gia tri dang so cua Text
    den = Worksheets("Format").Cells(2, 10).Value
    tong = tu + den
    j = 16
    For i = tu To tong - 1
        If i <= 9 And i >= 1 Then
          m = CStr("000000") & CStr(i)
        End If
        If i <= 99 And i >= 10 Then
          m = CStr("00000") & CStr(i)
        End If
        If i <= 999 And i >= 100 Then
          m = CStr("0000") & CStr(i)
        End If
        If i <= 9999 And i >= 1000 Then
          m = CStr("000") & CStr(i)
        End If
        If i <= 99999 And i >= 10000 Then
          m = CStr("00") & CStr(i)
        End If
        If i <= 999999 And i >= 100000 Then
          m = CStr("0") & CStr(i)
        End If
        Worksheets("Format").Cells(j, 6).Value = m
        Worksheets("Format").Cells(j, 5).Value = i
        j = j + 1
    Next i

End Sub

 

[cadafi]

Như vầy sẽ nhanh và gọn hơn đây bạn, yêu cầu định dạng ô B2 là Text, không cần đánh dấu ' trước số hóa đơn, và quy ước hóa đơn có 7 ký tự:

Sub AuToPrint()
Dim Zi As Integer
Sheets("Format").Select
For Zi = 1 To [J2].Value   ''Ô J2 là ô chứa số lượng hóa đơn cần in
[B2] = Right("0000000" & ([B2] + 1), 7)   'Ô B2 chứa số hóa đơn
ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Next Zi
End Sub

Bạn xem thêm file đính kèm nhé.