![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
とりあえず作成してみました。
アクティブシートに対してのみ有効で、対象はオートシェープのみです。
検索にヒットしたものが選択された状態になります。
適当にアレンジしてご利用ください。
Sub test()
Dim se As Shapes, sh() As Variant, key As String
Dim i As Integer, n As Integer, total As Integer
key = Application.InputBox(prompt:="検索する文字を入力してください。", Type:=2)
If (key = "False") Or (key = "") Then Exit Sub
Set se = ActiveSheet.Shapes
ReDim sh(0 To se.Count)
total = 0
n = 0
For i = 1 To se.Count
If se.Item(i).Type = msoAutoShape Then
total = total + 1
se.Item(i).Select
If Not IsError(Selection.Characters.text) Then
If InStr(Selection.Characters.text, key) > 0 Then
sh(n) = se.Item(i).Name
n = n + 1
End If
End If
End If
Next i
If n > 0 Then
ReDim Preserve sh(0 To n - 1)
se.Range(sh).Select
key = Str(n) & "個が該当しました。"
Else
key = "該当するものはありませんでした。"
End If
MsgBox (Str(total) & "個のAutoShapeのうち" & key)
End Sub
No.1
- 回答日時:
slashppppさん、こんにちは。
私もこのような機能のマクロプログラムがあったら前々から欲しいと思っていました。
しかし、残念ながら解決はかなり難しいらしです。
「文字列を検索してヒットすると当該..にジャンプするような」という要求事項にピッタリなのがエクセルが持っている検索機能です。
そこで、私はオートシェイプに直接テキストを書き込むのではなくて、セルに書き込んだテキストをソートシェイプに表示させる方法を使ってこの問題をクリアしています。
書式は、細かいことは出来ませんがオートシェイプ単位での変更は可能です。
方法は、ヘルプで「オートシェイプまたはテキスト ボックス内にセルの内容を表示する」を検索して下さい。冴子先生が丁寧に教えてくれます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- HTML・CSS 【html】検索ボックスを作りたい 4 2022/04/02 17:25
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのテキストボックス内は検索できないのでしょうか?
その他(Microsoft Office)
-
Excelで、テキストボックスに書かれた文字を検索したい
Excel(エクセル)
-
エクセルでテキストボックス内の文字を検索したい
Excel(エクセル)
-
-
4
Excelの吹き出し等の文字を検索する方法はありますか?
Excel(エクセル)
-
5
Excel : テキストボックス中のテキストの検索・置換
Excel(エクセル)
-
6
Excelで、図形内の文字をセルに抽出したいです
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ツナピコの「ピコ」って?
-
クライアントに出すメールで、...
-
「データ」のスペルはdataとdat...
-
30歳代まで とは何歳までで...
-
成人知能検査の結果を教えてく...
-
独身男性はどうやって性欲をお...
-
仕様書の表記について
-
学術書と一般書の簡単な見分け...
-
「折り込む」と「織り込む」の...
-
ご講義ありがとうございました...
-
Yahooで質問しようとしたら、 ...
-
エクセル対数近似曲線のX値を代...
-
「ありますか」と聞く場合、Is...
-
知識を深めるを熟語にすると?
-
一般常識が無さすぎて自信をな...
-
ハードウェア、サーバ、プラッ...
-
チェーンソーの耐用年数
-
本当に下らないのですが、オ、...
-
会計用語で"Plug"とは?
-
丁寧語の「ご質問」「お問い合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報