Excel VBA質問箱 IV

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

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


29165 / 76732 ←次へ | 前へ→

【52852】Re:教えてください。
お礼  迷える子羊  - 07/12/6(木) 10:02 -

引用なし
パスワード
   ▼お願い さん:
>テキストボックス1に氏名 (A2:A7)
>テキストボックス2に会社名 (B1:G1)
>コマンドボタン1を押すと双方が交差するセルにカーソルが移動。
>
>Private Sub CommandButton1_Click()
> Dim row_count As String, column_count As String
>
> On Error Resume Next
>  row_count = Application.Match(TextBox1.Text, Range("A2:A7"), 0)
>  column_count = Application.Match(TextBox2.Text, Range("B1:G1"), 0)
> On Error GoTo 0
> If row_count = "" Or column_count = "" Then MsgBox "NG": Exit Sub
>
> Range("A1").Offset(row_count, column_count).Select
>End Sub
>
>標準モジュールに
>Sub test()
> Unload UserForm1
> UserForm1.Show 0
>End Sub
>
>該当シートに”フォーム”の”ボタン”配置。
>右クリック−マクロの登録で、testを選択、OK。
>
>と言ったところですか?


返信遅れてすみません。

教えていただいたコードを試した結果、問題が解決しました。
とても丁寧にご指導いただきありがとうございました。
またいろいろと聞きにくると思うのでそのときはよろしくお願いします。
1 hits

【52789】教えてください。 迷える子羊 07/12/4(火) 10:17 質問
【52790】Re:教えてください。 お願い 07/12/4(火) 10:49 発言
【52791】Re:教えてください。 迷える子羊 07/12/4(火) 11:07 発言
【52792】Re:教えてください。 お願い 07/12/4(火) 11:32 発言
【52793】Re:教えてください。 [名前なし] 07/12/4(火) 11:56 お礼
【52796】Re:教えてください。 お願い 07/12/4(火) 13:25 発言
【52799】Re:教えてください。 迷える子羊 さん 07/12/4(火) 14:22 質問
【52806】Re:教えてください。 お願い 07/12/4(火) 16:57 発言
【52818】Re:教えてください。 迷える子羊 07/12/5(水) 1:28 発言
【52822】Re:教えてください。 お願い 07/12/5(水) 9:23 発言
【52827】Re:教えてください。 迷える子羊 07/12/5(水) 13:28 発言
【52833】Re:教えてください。 お願い 07/12/5(水) 15:10 発言
【52852】Re:教えてください。 迷える子羊 07/12/6(木) 10:02 お礼

29165 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free