Tạo mã

[quynhnamimex]

Nhờ các anh chị giúp dùm có yêu cầu trong file đính kèm
Cám ơn anh chị nhiều

 

[hhoang_56]

Nhờ các anh chị giúp dùm có yêu cầu trong file đính kèm
Cám ơn anh chị nhiều

Post 1 chỗ thôi. Post tùm lum

Tạo mã

Nhờ các anh chị giúp dùm có yêu cầu trong file đính kèm Cám ơn anh chị nhiều

www.giaiphapexcel.com

 

[SA_DQ]

Option Explicit
Sub TaoMaMoi()
Dim Ma As String, MyAdd As String, Tmp As String
Dim J As Long, W As Integer, Tam As Integer
Dim Rng As Range, sRng As Range

Set Rng = Range([B1], [B1].End(xlDown))
Tmp = "/" & [j2].Value & "/" & [I2].Value
MyAdd = InputBox("Ban Cân Mã Giua (G) Hay Mã Cuôi (C)", "GPE.COM Xin Cho Biêt", "G")
If MyAdd = "G" Then
    For J = 1 To 1000
        Ma = Right("00" & CStr(J), 3) & Tmp
        Set sRng = Rng.Find(Ma, , xlFormulas, xlWhole)
        If sRng Is Nothing Then
            MsgBox "Mã Ban Dang Cân: " & Ma:                 Exit For
        End If
    Next J
ElseIf MyAdd = "C" Then
    For J = 1000 To 1 Step -1
        Ma = Right("00" & CStr(J), 3) & Tmp
        Set sRng = Rng.Find(Ma, , xlFormulas, xlWhole)
        If Not sRng Is Nothing Then
            Tam = CInt(Left(Ma, 3)) + 1
            Ma = Right("00" & CStr(Tam), 3) & Mid(Ma, 4, 9)
            MsgBox "Mã Ban Dang Cân: " & Ma:                 Exit For
        End If
    Next J
Else
    MsgBox "Xéo Ngay!":                                        Exit Sub
End If
MsgBox "Chào & Sóm Gap Lai!", , Ma
End Sub

 

[VetMini]

Post 1 chỗ thôi. Post tùm lum
...

Hễ có hy vọng cá cắn câu thì tôi cứ việc cắm chục cái cần.
Mất mát gì mà sợ?