| |
皆様 こんばんわ またお世話になります
今回は、ユーザーフォームを使用して A列の値で検索をしてその行の
D列以降に数字を入力すると言うことをしています
ユーザーフォーム上には テキストボックスが２個 コマンドボタンが１個です
ここでテキストボックス３を追加してテキストボックス２の値を入力する列の指定が出るとそのつどマクロの書き換えやユーザーフォームをたくさん作ら無くてもいいのですがこのようなことは可能でしょうか
A B C D E F
１ コード 取引先 形態 取引額 対象発注 実績
２ 1001 A 社 EOS 0 0 0
３ 1003 B 社 FAX 0 0 0
４ 1005 C 社 EOS 0 0 0
５ 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
’この４をテキストボックス３で指定したいのですが
End If
Next i
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
End Sub
よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/7/24(月) 17:05 -
