エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
Excelでオートシェイプのテキストボックス内の文字列を検索するマクロ
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Excelでオートシェイプのテキストボックス内の文字列を検索するマクロ
とりあえず作成してみました。 アクティブシートに対してのみ有効で、対象はオートシェープのみです。 ... とりあえず作成してみました。 アクティブシートに対してのみ有効で、対象はオートシェープのみです。 検索にヒットしたものが選択された状態になります。 適当にアレンジしてご利用ください。 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.Coun