|
皆様 こんばんわ またお世話になります
今回は、ユーザーフォームを使用して A列の値で検索をしてその行の
D列以降に数字を入力すると言うことをしています
ユーザーフォーム上には テキストボックスが2個 コマンドボタンが1個です
ここでテキストボックス3を追加してテキストボックス2の値を入力する列の指定が出るとそのつどマクロの書き換えやユーザーフォームをたくさん作ら無くてもいいのですがこのようなことは可能でしょうか
A B C D E F
1 コード 取引先 形態 取引額 対象発注 実績
2 1001 A 社 EOS 0 0 0
3 1003 B 社 FAX 0 0 0
4 1005 C 社 EOS 0 0 0
5 1012 D 社 WEB 0 0 0
現在のコードは以下です
Private Sub CommandButton1_Click()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = TextBox1 Then
Cells(i, 4) = TextBox2.Value
’この4をテキストボックス3で指定したいのですが
End If
Next i
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
End Sub
よろしくお願いいたします。
|
|