Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41004 / 76732

←次へ　｜　前へ→


	【40815】テキストボックスでオフセット値の選択

勉強中です

- 06/7/24(月) 17:05 -


	引用なし

	パスワード

皆様　こんばんわ　またお世話になります
今回は、ユーザーフォームを使用して　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

よろしくお願いいたします。

0 hits

▼

【40815】テキストボックスでオフセット値の選択 勉強中です 06/7/24(月) 17:05

≪