お勉強コミュの自作VBA

ネットワーク上で複数の人数が同時に入力可能なはず。(笑)

Private Sub CommandButton1_Click()

Dim R As Long
Dim c As Integer
Dim LastRow As Long
Dim LastClm As Integer
Dim Moji As String
Workbooks("フォーム.xls").Activate

LastRow = Range("D65536").End(xlUp).Row
LastClm = Range("IV2").End(xlToLeft).Column

For R = 2 To LastRow
If Cells(R, "D").Value = Val(TextBox1.Value) Then
For c = 2 To LastClm
If Cells(R, c).Value <> "" Then
Moji = Moji & Cells(2, c).Value & ","
End If
Next c
Exit For
End If
Next R

If Moji <> "" Then
TextBox2.Value = Left(Moji, Len(Moji) - 1)
Else
MsgBox TextBox1.Value & " は無し", vbCritical + vbOKOnly, "確認"
TextBox2.Value = ""
End If

End Sub
--------------------------------------------------------
Private Sub CommandButton2_Click()

'入力フォームボタン
Dim 行 As Long
Dim 列 As Long

Workbooks.Open Filename:=ThisWorkbook.Path & "\データシート.xls"

'Windows("データシート.xls").Active

Range("A65536").End(xlUp).Offset(1).Select
行 = ActiveCell.Row
列 = ActiveCell.Column
Cells(行, 列) = UserForm1.TextBox1.Value
Cells(行, 列 + 1) = UserForm1.TextBox2.Value

UserForm1.TextBox1.SetFocus
TextBox1.Value = ""
TextBox2.Value = ""
Workbooks("データシート.XLS").Close SaveChanges:=True

End Sub