
No.4ベストアンサー
- 回答日時:
こんにちは。
>登録するマクロの作り方が分かりません。よろしくお願いします。
>ヒント
B列と特定でき、重複がない場合は、こんな風に作ります。
まず、コントロールツールバーを出して、コマンドボタンを貼り付けます。フォームは、取り付け方がちょっと面倒ですから、コントロールツールにしてください。
貼り付けたら、ダブルクリックします。そうすると画面が変わって、
'------------------------------------
Private Sub CommandButton1_Click()
End Sub
'------------------------------------
のような表示になるはずです。ならない場合は、コントロールツールバーの三角定規のところが「オフ」になっているのではないか、とおもいますから、「オン」にしてください。
次に、テキストボックス(コントロールツール上)を設けてもよいのですが、ここでは、セルを代わりにします。(テキストボックスのほうが便利です)
それで、以下のように中身を入れてあげます。
Private Sub CommandButton1_Click()
'----------以下貼り付け--------------
'設定場所
Const INPUTCELL As String = "E1"
Dim i As Long
If Range(INPUTCELL).Value = "" Then MsgBox INPUTCELL & " に値が入っていません。": Exit Sub
On Error Resume Next
i = 0
i = WorksheetFunction.Match(Range(INPUTCELL), Columns("B"), 0)
On Error GoTo 0
If i > 0 Then
Application.Goto Cells(i, 2), False
Beep
Else
MsgBox Range(INPUTCELL).Value & " は、見つかりません。", vbInformation
End If
'----------以上貼り付け終わり---------
End Sub
貼り付けたら、Alt + Q で、Visual Basic Editor 画面を閉じます。
後は、コントロールツールバーの青い三角定規が、「オン」になっていたら、「オフ」にして戻し、コントロールツールバーを、非表示にしてあげます。
これは、本格的なマクロとは違いますが、簡易型なのに、とても、検索スピードが速いのです。
この回答への補足
みなさまありがとうございました。
おかげさまで、仕事上で1つの作業がようやく峠を越えてホっとしてます。教えていただいたものの中には上手く活かせないものもあり、せっかく教えていただいたのに申し訳ない気持ちもありますが、別の機会に活かせるようなりたいと思います。
このIDでは仕事用なので質問ばかりしてますが、私も別のジャンルで誰かに役立ててもらえる回答をしたいとあらためて思いました。
また、よろしくお願いします。(笑)
No.3
- 回答日時:
#1が、あらら、です。
> =ADDRESS(MATCH(B1,B3:B2000,3)+2,2)
どうして ,3 なんて記述してしまったのでしょう。
=ADDRESS(MATCH(B1,B3:B2000,0)+2,2)
に訂正してください。
No.2
- 回答日時:
こんにちは。
例えば、こんなカンジでいかがでしょう?
Sub 検索()
Dim TargetStr, LastR, r As Integer
Dim TargetArea As Range, FoundCell As Range
TargetStr = Cells(1, "B").Value '検索値
If TargetStr = "" Then '検索値入力なしの場合
MsgBox "検索値を入力してください" 'メッセージ表示
Exit Sub
End If '検索値入力ありの場合、検索へ
LastR = Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
Set TargetArea = Range(Cells(2, "B"), Cells(LastR, "B")) '範囲を設定
Set FoundCell = TargetArea.Find(what:=TargetStr, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False) '検索設定
If Not FoundCell Is Nothing Then '検索が見つかった場合
r = FoundCell.Row
Cells(r, "B").Activate 'セルを選択
Else
MsgBox "見つかりません" 'メッセージ表示
End If
End Sub
私もVBを勉強中なので、この程度しかできないのですが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- その他(プログラミング・Web制作) vbaで座標を指定してコマンドプロンプト画面を表示させる。 1 2023/01/09 16:06
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセル ブックを開いたときに検索ウインドを表示させたい
Excel(エクセル)
-
エクセルのvbaで検索ボタンを作る
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
空白でないセルの値を返す方法...
-
IF関数で0より大きい数値が入力...
-
エクセルで既に入力してある文...
-
yyyy/mm/ddからyyyy/mmへの変換
-
Excelでセルに入力されたカラー...
-
参照先セルに値が入っていない...
-
エクセルの数式がかぶって、選...
-
入力したところまでを自動的に...
-
エクセルで、特定のセルの内容...
-
エクセルで、数値を月として認...
-
Excel 大小比較演算子による「...
-
【Excel】セル内の時間帯が特定...
-
エクセル:コメントのようなも...
-
excel 関数にて文字を0として認...
-
バーコードが読み取れない原因...
-
Excel:文字と数字の組合せ、次...
-
値を入力後、自動的にアクティ...
-
エクセルで入力時間を更新させ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
IF関数で0より大きい数値が入力...
-
エクセルで既に入力してある文...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
yyyy/mm/ddからyyyy/mmへの変換
-
入力したところまでを自動的に...
-
Excel:文字と数字の組合せ、次...
-
参照先セルに値が入っていない...
-
【Excel】セル内の時間帯が特定...
-
excel 関数にて文字を0として認...
-
Excel 大小比較演算子による「...
-
値を入力後、自動的にアクティ...
-
エクセルで複数の条件で掛け算...
-
バーコードが読み取れない原因...
-
エクセル:コメントのようなも...
-
エクセルで、数値を月として認...
-
Excel で空欄にも単位 \\や円 ...
-
エクセルで時間の判定をしてい...
おすすめ情報