私に聞いて！
質問する
詳細検索

解決済みの質問

質問No.6725219
▼
suzupen
困ってます
困ってます
お気に入り投稿に追加する (0人が追加しました)
回答数3
閲覧数2928
Excel VBA　長い構文を折り返したい
いつもお世話になっています。
タイトル通りの質問です。
下記のような複数のセルを選択して削除という構文ですが、セルの途中で構文を区切って
見やすくしたいと思います。

Range（"E4,G4,F6:G6,T8,S10,S12,S15,S18,S20,S22,G25,K25,O25,H28,L28,H29,L29,L31,H32,L32,H33,L33,L34,H40,L41,L42,H43,L44").Select
Selection.ClearContents

そこで、
Range("E4,G4,…H28 _　　※半角スペース&アンダーバー
L28…").Select

Range("E4,G4,…H28" _　　※ダブルクォーテーション&半角スペース&アンダーバー
"L28…").Select

と試してみましたが、エラーもしくは実行エラーになります。
区切らずそのままか、構文を二つにわけるのであれば動くのでそれでもいいのですが、
もっとすっきりした方法があるのではないかと気になります。
ご存じの方教えてください。
投稿日時 - 2011-05-09 14:25:55
通報する
ブックマーク▼
メールで紹介

質問者が選んだベストアンサー

回答No.3
▼
keithin
方法1：
Range("E4,G4,F6:G6,T8,S10,S12,S15,S18,S20," _
& "S22,G25,K25,O25,H28,L28,H29,L29,L31,H32," _
& "L32,H33,L33,L34,H40,L41,L42,H43,L44").Select
Selection.ClearContents

あるいは
Range("E4,G4,F6:G6,T8,S10,S12,S15,S18,S20," _
& "S22,G25,K25,O25,H28,L28,H29,L29,L31,H32," _
& "L32,H33,L33,L34,H40,L41,L42,H43,L44").ClearContents

などのように。



方法２：
Range（"E4,G4,F6:G6,T8,S10,S12,S15,S18,S20,S22,G25,K25,O25,H28,L28,H29,L29,L31,H32,L32,H33,L33,L34,H40,L41,L42,H43,L44").Select
を行い，要するに目的のセル範囲をとりあず選択した状態でワークシート画面に戻ります．

名前ボックスに　TargetRng　のように名前を記入し，Enterしてセル範囲に名前を付けます
または挿入メニュー（数式タブ）の名前の定義で名前を付けます

＃名前を付ける範囲を間違えた/修正/編集したい時は，挿入メニュー（数式タブ）の名前の定義(名前の管理）で修正します


マクロは
range("TargetRng").clearcontents
のように，範囲に定義した名前によって操作します。


＃この方法は無尽蔵に沢山の飛び飛び領域に対して出来るワケではありませんが，ご相談に書かれた程度であれば対応できます。
投稿日時 - 2011-05-09 14:57:17
通報する
この回答を支持する
(現在0人が支持しています)
お礼
このたびも早々に丁寧な回答いただきありがとうございます。
スマートで期待していたとおりの解決方法で大変感謝しています。
また機会がありましたらよろしくお願いいたします。
投稿日時 - 2011-05-09 16:20:13

ベストアンサー以外の回答 (2)

回答No.2
▼
mu2011
一例です。
前半 = "E4,G4,F6:G6,T8,S10,S12,S15,S18,S20,S22,G25,K25,O25,H28"
後半 = "L28,H29,L29,L31,H32,L32,H33,L33,L34,H40,L41,L42,H43,L44"
Range(前半 & ", " & 後半).ClearContents
投稿日時 - 2011-05-09 14:56:17
通報する
この回答を支持する
(現在0人が支持しています)
お礼
早々に回答いただきありがとうございます。
さっそく試してみましたところ、結合セルが含まれている場合はエラーとなりました。
今回は&を入れる方法を教えていただきこちらで解決いたしましたが
方法として是非活用させていただきます。
また機会がありましたらよろしくお願いいたします。
投稿日時 - 2011-05-09 16:18:56
回答No.1
▼
KURUMITO
カンマを付けてから半角スペース＆アンダーバーとしてみてはいかがでしょう。

Range("E4,G4,…H28,_　　※半角スペース&アンダーバー
L28…").Select
投稿日時 - 2011-05-09 14:54:01
通報する
この回答を支持する
(現在0人が支持しています)
お礼
早々に回答いただきありがとうございます。
実は試作のところに記述していなかったのですが、カンマを付けてから半角スペース＆アンダーバーでも
エラーが表示されます。
&を入れる方法を教えていただきこちらで解決いたしました。
また機会がありましたらよろしくお願いいたします。
投稿日時 - 2011-05-09 16:17:02
この質問は役に立ちましたか？
0人が「このQ&Aが役に立った」と投票しています
もっと聞いてみる
質問する

関連するQ&A

この他の関連するQ&Aをキーワードで探す

別のキーワードで再検索する
詳細検索

同じカテゴリの人気Q&Aランキング

総合人気Q&Aランキング >>

カテゴリ
その他MS Office

rss

ソフトウェアのサブカテゴリ

-PR-
-PR-
-PR-

特集

[一覧]

試写会に30組60名様をご招待！

お城、ボート、ツリーハウス、ユニークな物件満載！

親同士が気軽に情報交換できるコミュニティです。

同じカテゴリの人気Q&Aランキング

カテゴリ
その他MS Office

rss

総合人気Q&Aランキング >>

-PR-

ピックアップ

おすすめリンク

別のキーワードで再検索する

詳細検索
-PR-

質問数は約33万件、回答は約100万件！
医療・健康カテゴリ特化型コミュニティ⇒

理想の部屋に一歩近づく！
収納も模様替えも、欲しい！が見つかる。

-PR-
カテゴリ別にQ&Aを見る
このカテゴリからキーワードで別のQ&Aを検索
詳細検索
コンテンツ
コンタクト
関連サービス
Copyright © 2014 OKWave All Rights Reserved.