業務効率化を目指し、エクセルでよく使用する文章、単語をサジェスト機能のようなもので、簡単に入力できるようにしようとしています。
VBA、マクロを使用して解決を試みておりますが、無知なもので、以下のふたつのサイト様を参考に作成させていただきました。
1.Google 検索の「サジェスト機能」を, Excel のシート上にVBAで作る (セルの内容に応じて入力規則を動的に変える方法)
http://language-and-engineering.hatenablog.jp/en …
2.エクセルでグーグルサジェストっぽい入力をする
http://suugleblog.blogspot.jp/2012/02/blog-post_ …
2.のサイト様のStep4を、以下のように変更しました。
「Private Sub Worksheet_Change(ByVal target As Range)
'辞書(住所の候補)を設定する:郵便番号データから候補表示
'DicSheetNameは辞書のシート名、
'DicRangeAddressは辞書の範囲を指定する
'
Const DicSheetName = "注釈リスト" ' ="郵便番号データ"を"注釈リスト"へ変更した
Const DicRangeAddress = "B4:B600" '="A:A"を"B4:B600"へ変更した
If target.Count > 1 Then
'選択セルが2つ以上は無効
Set target = Nothing
Exit Sub
ElseIf Application.Intersect(target, Range("B21:P21,B22:P22,B23:P23,B24:P24,B25:P25,B26:P26,B27:P27,B28:P28,B29:P29,B30:P30,B31:P31,B32:P32,B33:P33,B34:P34,B35:P35,B36:P36,B37:P37,B38:P38,B39:P39")) Is Nothing Then '("A4")を("B21:P21~B39:P39")へ変更
'※入力セル以外の変更では無効(targetと共有するセル範囲がない)
Exit Sub
Else
'入力されたアドレスが住所入力のアドレスの場合に候補を表示
Call 入力候補表示(DicSheetName, DicRangeAddress, target)
End If
End Sub」
添付画像B22:P22に「重」と打つと、サジェスト機能の様に、入力候補が出てくるようにすることができました。
この操作を行いたい行がB21:P21からB39:P39まではこの機能が適用されるようにすることができましたが、範囲をB79:P79まで増やすと、反映されなくなってしまいました。
フォーマットは変更することができないため(行数を減らすなど)、VBA、マクロでどうにか解決したく、試行錯誤を繰り返しておりますが、私の知識、力ではどうにもうまくいきません。
どのようにすれば解決できるでしょうか。
皆様お力をお貸しいただきたいです。宜しくお願いいたします。反
No.1ベストアンサー
- 回答日時:
試したわけではないのですが、範囲をダラダラ書き込んだため命令文が文字数オーバーしたのでは?
「ElseIf Application.Intersect(Target, Range("B21:P79")) Is Nothing Then」のようにすればよいのでは?
お礼が遅くなり申し訳ございません。
アドバイス頂いたように ("B21:P79") と入力し直すと、解決できました。
複数のセルを結合したものが何行もあるので、この方法はできないと勝手に思い込み、
試しておりませんでした。
助かりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
プルダウン 項目が多いので先頭文字とかで検索したい
JavaScript
-
エクセル ドロップダウンリストに検索機能を追加したい
Excel(エクセル)
-
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
-
4
ドロップダウンリスト 自動表示したい
Excel(エクセル)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
7
エクセルのドロップダウンリストを自動で出すには?
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルのコメントが消...
-
エクセルでセルにポインタする...
-
エクセルVBA ブックを閉じる前...
-
シートを保護しても入力規則を...
-
Excelで同じセルに入力し エン...
-
フォーム入力で入力規則を設定...
-
【Excel】ドロップダウンリスト...
-
エクセルVBA ユーザーフォーム...
-
エクセルで、入力制限(プルダ...
-
エクセルで。
-
カンマで区切った数値をCOU...
-
エクセルで電話番号から市内局...
-
入力規則の入力時メッセージの...
-
エクセルで負数の最大値を求めたい
-
エクセルのプルダウンボタンの...
-
エクセルでセルに入力しないと...
-
エクセル逆三角マークで選択項...
-
エクセルで、入力できる箇所を...
-
EXCELの入力規則を相対指定でコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルにポインタする...
-
エクセルVBA ブックを閉じる前...
-
エクセルでセルのコメントが消...
-
エクセル逆三角マークで選択項...
-
シートを保護しても入力規則を...
-
カンマで区切った数値をCOU...
-
エクセルで、入力できる箇所を...
-
エクセルVBA ユーザーフォーム...
-
【Excel】ドロップダウンリスト...
-
入力規則の入力時メッセージの...
-
エクセルで電話番号から市内局...
-
エクセルで。
-
エクセル 入力規則のリストボ...
-
エクセルで、入力制限(プルダ...
-
Excelでセルに名前を定義したい...
-
エクセルで負数の最大値を求めたい
-
入力規則をブック全体にかける...
-
エクセルの入力規則で作ったリ...
-
ドロップダウンリスト(INDIREC...
おすすめ情報