|
お陰さまでここまで書けました。
だた、止まってしまいます。
すみません、どうすればいいかご教示ください。
Option Explicit
Public m As Long
Public n As Long
Public ws1 As Worksheet
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = Worksheets("Sheet1").Range("b5:b31").Address(external:=True)
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub CommandButton1_Click()
m = ComboBox1.ListIndex + 5
n = Cells(ComboBox1.ListIndex + 5, Columns.Count).End(xlToLeft).Column
If n < 7 Then
n = 7
Else
n = n + 1
End If
With ActiveCell
ws1.Cells(m, n).Value = Me.TextBox1.Value '<=with ブロック変数なしと出てここで止まってしまいます
End With
End Sub
Private Sub CommandButton2_Click()
Me.ComboBox1.Value = False
Me.TextBox1.Value = False
End Sub
|
|