Excel VBA質問箱 IV

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

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


29184 / 76732 ←次へ | 前へ→

【52833】Re:教えてください。
発言  お願い  - 07/12/5(水) 15:10 -

引用なし
パスワード
   テキストボックス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。

と言ったところですか?

0 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 お礼

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