私のユーザーフォームが列Bのデータを入力した後、列Aの自動シリアル番号へのVBAコード

Question

ユーザーがデータを挿入でき、データがB列のMに挿入されるユーザーフォームがあります。ワークシートまたはdataformが入力するたびに列Aを記入する「RD 00001」で始まるシリアル番号を自動的に記入するためのuserform。誰かに私にアイデアを与えてください。

Answer 1

このコードの背後にあるコードは、非常にシンプルで、ヘッダー行であるRow 1という空白のシートから開始するように設計されています。ダイナミックなので、基本的にプラグアンドプレイです。あなたが他のデータに入力するために持っているコードを使って、サブを呼び出してください。

Sub SerialCode() 
    Dim ws As Worksheet 
    Dim lastSerial, digits, i As Integer 
    Dim nextRow, lastRow As Long 
    Dim newSerial As String 

    Set ws = ThisWorkbook.Sheets(1) 
    nextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 'Finds the last row in A 
    lastRow = nextRow - 1 
    newSerial = "" 'set value of our string blank 

    If (nextRow - 1) < 2 Then 'If statement to catch if there's only a header 
     lastSerial = 0 
    Else: lastSerial = CInt(Replace(ws.Range("A" & lastRow).Value, "RD ", "")) 
    End If 

    lastSerial = lastSerial + 1 
    digits = 6 - Len(lastSerial) 'how many 0's are there 

    For i = 1 To digits 
     newSerial = newSerial & "0" 'start building the string with 0's 
    Next i 

    newSerial = "RD " & newSerial & lastSerial 'concatenate the serial code 
    ws.Range("A" & nextRow).Value = newSerial 
End Sub 

注：あなたが入力した他のデータを、あなたの最後の行を見つけるために持っているものは何でも、あなたの最後の行とこのサブの最後の行が同じであることを確認してください。