Excel VBA質問箱 IV

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

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


5052 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【52789】教えてください。
質問  迷える子羊  - 07/12/4(火) 10:17 -

引用なし
パスワード
   A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
その位置にカーソルを移動させたいんです。
 例えば会社名(B1)が”○○”名前(A2)が”××”だとすると、
テキストボックスに"○○”と"××”打ち込むと表の(B2)にカーソルを移動できるようにしたいのですがどのようにすればよいでしょうか?
よろしくお願いします。

【52790】Re:教えてください。
発言  お願い  - 07/12/4(火) 10:49 -

引用なし
パスワード
   ▼迷える子羊 さん:
>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>その位置にカーソルを移動させたいんです。
> 例えば会社名(B1)が”○○”名前(A2)が”××”だとすると、
>テキストボックスに"○○”と"××”打ち込むと表の(B2)にカーソルを移動できるようにしたいのですがどのようにすればよいでしょうか?
>よろしくお願いします。
回答ではありませんが、

記事番号:38721、45712
は解決済みでしょうか?

【52791】Re:教えてください。
発言  迷える子羊  - 07/12/4(火) 11:07 -

引用なし
パスワード
   ▼お願い さん:
>▼迷える子羊 さん:
>>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>>その位置にカーソルを移動させたいんです。
>> 例えば会社名(B1)が”○○”名前(A2)が”××”だとすると、
>>テキストボックスに"○○”と"××”打ち込むと表の(B2)にカーソルを移動できるようにしたいのですがどのようにすればよいでしょうか?
>>よろしくお願いします。
>回答ではありませんが、
>
>記事番号:38721、45712
>は解決済みでしょうか?

返信ありがとうございます。

38721、45712を拝見させていただいたのですが、
このどちらかで検索された位置にアクティブセルが移動するようにできるのですか?

【52792】Re:教えてください。
発言  お願い  - 07/12/4(火) 11:32 -

引用なし
パスワード
   ▼迷える子羊 さん:
>▼お願い さん:
>>▼迷える子羊 さん:
>>>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>>>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>>>その位置にカーソルを移動させたいんです。
>>> 例えば会社名(B1)が”○○”名前(A2)が”××”だとすると、
>>>テキストボックスに"○○”と"××”打ち込むと表の(B2)にカーソルを移動できるようにしたいのですがどのようにすればよいでしょうか?
>>>よろしくお願いします。
>>回答ではありませんが、
>>
>>記事番号:38721、45712
>>は解決済みでしょうか?
>
>返信ありがとうございます。
>
>38721、45712を拝見させていただいたのですが、
>このどちらかで検索された位置にアクティブセルが移動するようにできるのですか?

問題が解決できたのかどうか、不明なので聞いてみただけです。
回答して下さった方に対して、返事・お礼・報告をする事は大事だと思います。

それともHNが同じだけで、別の方でしょうか?
それであれば謝罪致します。

【52793】Re:教えてください。
お礼  [名前なし]  - 07/12/4(火) 11:56 -

引用なし
パスワード
   ▼お願い さん:
>▼迷える子羊 さん:
>>▼お願い さん:
>>>▼迷える子羊 さん:
>>>>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>>>>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>>>>その位置にカーソルを移動させたいんです。
>>>> 例えば会社名(B1)が”○○”名前(A2)が”××”だとすると、
>>>>テキストボックスに"○○”と"××”打ち込むと表の(B2)にカーソルを移動できるようにしたいのですがどのようにすればよいでしょうか?
>>>>よろしくお願いします。
>>>回答ではありませんが、
>>>
>>>記事番号:38721、45712
>>>は解決済みでしょうか?
>>
>>返信ありがとうございます。
>>
>>38721、45712を拝見させていただいたのですが、
>>このどちらかで検索された位置にアクティブセルが移動するようにできるのですか?
>
>問題が解決できたのかどうか、不明なので聞いてみただけです。
>回答して下さった方に対して、返事・お礼・報告をする事は大事だと思います。
>
>それともHNが同じだけで、別の方でしょうか?
>それであれば謝罪致します。

前に質問した方と私はべつです。
紛らわしい名前にして申し訳ありませんでした。

【52796】Re:教えてください。
発言  お願い  - 07/12/4(火) 13:25 -

引用なし
パスワード
   ▼[名前なし] さん:
>▼お願い さん:
>>▼迷える子羊 さん:
>>>▼お願い さん:
>>>>▼迷える子羊 さん:
>>それともHNが同じだけで、別の方でしょうか?
>>それであれば謝罪致します。
>
>前に質問した方と私はべつです。
>紛らわしい名前にして申し訳ありませんでした。

別の方でしたか。
これは、完全に私の思い違いでした。
すみません。

【52799】Re:教えてください。
質問  迷える子羊 さん  - 07/12/4(火) 14:22 -

引用なし
パスワード
   ▼お願い さん:
>▼[名前なし] さん:
>>▼お願い さん:
>>>▼迷える子羊 さん:
>>>>▼お願い さん:
>>>>>▼迷える子羊 さん:
>>>それともHNが同じだけで、別の方でしょうか?
>>>それであれば謝罪致します。
>>
>>前に質問した方と私はべつです。
>>紛らわしい名前にして申し訳ありませんでした。
>
>別の方でしたか。
>これは、完全に私の思い違いでした。
>すみません。

いえいえ。理解頂けて嬉しい限りです。他の方もいらっしゃいますので間違われることもしばしあるかと思われます。
では、本題に移りたいのですが、Active Cellの移動について聞きたいのですがどうすれば自動で目的の場所に移動できるのでしょうか?

【52806】Re:教えてください。
発言  お願い  - 07/12/4(火) 16:57 -

引用なし
パスワード
   >いえいえ。理解頂けて嬉しい限りです。他の方もいらっしゃいますので間違われることもしばしあるかと思われます。
ありがとうございます。

>では、本題に移りたいのですが、Active Cellの移動について聞きたいのですがどうすれば自動で目的の場所に移動できるのでしょうか?

>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
1点はセルA1には会社名か名前か?

あと、VBAのテキストボックスとは?
ユーザーフォーム上のテキストボックス?
シート上のテキストボックス?

検索を実行するタイミングは、単にマクロの実行でいいのでしょうか?

【52818】Re:教えてください。
発言  迷える子羊  - 07/12/5(水) 1:28 -

引用なし
パスワード
   ▼お願い さん:
>>いえいえ。理解頂けて嬉しい限りです。他の方もいらっしゃいますので間違われることもしばしあるかと思われます。
>ありがとうございます。
>
>>では、本題に移りたいのですが、Active Cellの移動について聞きたいのですがどうすれば自動で目的の場所に移動できるのでしょうか?
>
>>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>1点はセルA1には会社名か名前か?
>
>あと、VBAのテキストボックスとは?
>ユーザーフォーム上のテキストボックス?
>シート上のテキストボックス?
>
>検索を実行するタイミングは、単にマクロの実行でいいのでしょうか?

返答遅れて申し訳ないです。

・セルA1→セルA1には「\」の斜線が引いてあり、何も書けないようにしています。

・テキストボックス→VBAのテキストボックスとは、そもそもボタンを押すor右クリックなり何かイベントが発生した時にフォームを表示したいんです。因みにVBAで作成できるフォームなんですが、その中に「テキストボックス」のコントロールを埋め込んで
その中に入った文字列をシートの中から検索したいと考えています。

・実行するタイミング→前述、テキストボックスを入れた同じフォームの中に「ボタン」のコントロールを埋め込んで、そのボタンがクリックされた時に検索を開始したいと考えています。

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

引用なし
パスワード
   ▼迷える子羊 さん:
>▼お願い さん:
>>>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>>>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>>1点はセルA1には会社名か名前か?
>>
>>あと、VBAのテキストボックスとは?
>>ユーザーフォーム上のテキストボックス?
>>シート上のテキストボックス?
>>
>>検索を実行するタイミングは、単にマクロの実行でいいのでしょうか?
>
>返答遅れて申し訳ないです。
>
>・セルA1→セルA1には「\」の斜線が引いてあり、何も書けないようにしています。
>
>・テキストボックス→VBAのテキストボックスとは、そもそもボタンを押すor右クリックなり何かイベントが発生した時にフォームを表示したいんです。因みにVBAで作成できるフォームなんですが、その中に「テキストボックス」のコントロールを埋め込んで
>その中に入った文字列をシートの中から検索したいと考えています。
>
>・実行するタイミング→前述、テキストボックスを入れた同じフォームの中に「ボタン」のコントロールを埋め込んで、そのボタンがクリックされた時に検索を開始したいと考えています。

そもそも、カーソルの移動のためにユーザーフォームを表示し、テキストボックス等の
使用を考えていらっしゃるのでしょうか?

まず、ユーザーフォームの作成方法はご存じですか?

【52827】Re:教えてください。
発言  迷える子羊  - 07/12/5(水) 13:28 -

引用なし
パスワード
   ▼お願い さん:
>▼迷える子羊 さん:
>>▼お願い さん:
>>>>A1からG1に会社名を打ち込み、A1からA7に名前を打ち込みます。
>>>>そしてVBAのテキストボックスに会社名と名前を打ち込み表を検索し、
>>>1点はセルA1には会社名か名前か?
>>>
>>>あと、VBAのテキストボックスとは?
>>>ユーザーフォーム上のテキストボックス?
>>>シート上のテキストボックス?
>>>
>>>検索を実行するタイミングは、単にマクロの実行でいいのでしょうか?
>>
>>返答遅れて申し訳ないです。
>>
>>・セルA1→セルA1には「\」の斜線が引いてあり、何も書けないようにしています。
>>
>>・テキストボックス→VBAのテキストボックスとは、そもそもボタンを押すor右クリックなり何かイベントが発生した時にフォームを表示したいんです。因みにVBAで作成できるフォームなんですが、その中に「テキストボックス」のコントロールを埋め込んで
>>その中に入った文字列をシートの中から検索したいと考えています。
>>
>>・実行するタイミング→前述、テキストボックスを入れた同じフォームの中に「ボタン」のコントロールを埋め込んで、そのボタンがクリックされた時に検索を開始したいと考えています。
>
>そもそも、カーソルの移動のためにユーザーフォームを表示し、テキストボックス等の
>使用を考えていらっしゃるのでしょうか?
>
>まず、ユーザーフォームの作成方法はご存じですか?

作成方法やコードの記述の方法は知ってます。用はフォームに記述するコードについて聞きたいのですが。

【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。

と言ったところですか?

【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。
>
>と言ったところですか?


返信遅れてすみません。

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

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