- ベストアンサー
Excel 二つの範囲をクリアする方法 VBA
A3～E34とN3～P34の二つの範囲を同時にクリアするVBAを教えてください。宜しくお願いします。
- nkmyr
- お礼率67% (403/600)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- Excel 関数を残したままクリアしたい VBA
セルA３からP34の範囲をクリアしたいのですが、関数までクリアしてしまっています。 Sub CellClear() Range("A3:P34").ClearContents End Sub 関数を残したまま数値だけクリアしたいのです。
- ベストアンサー
- Visual Basic
- Excel VBAで保護されていないセルのクリアー
こんにちは。 Excel2002を使用しております。 例えば、A1:D20の範囲にいくつか保護されて いないセルがあるのですが、保護されていな いセルの値のみをクリアーすることは可能で しょうか？ ExcelのVBAは素人ですが、よろしくお願い いたします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡでクリアボタンを作ったのですが・・・
エクセルＶＢＡでクリアボタンを作ったのですが、ひとつのシートは表紙でクリアさせず、その他すべてのシートは同じセル範囲をクリアするというボタンを作成したいのですが 「表紙というシートを除いたほかのシート」と宣言したいのですが表現がわかりません。ご回答よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 検索クリア
こんにちは！ なかなか思うようには行かず… ご教示頂けませんでしょうか？ エクセルのSheet内の様々なセルに文字や数値が混在しているものがあります。 Ａ Ｂ Ｃ Ｄ Ｅ 1 35 〇 0 3名 30 2 20 0 0名 25 3 25 〇 3 名 5 4 13 〇 1 10名 10 5 20 × 0 名 6 このような表の中のＢ5の"×"だけクリアする Ｃ1、Ｃ2、Ｃ5の"0"だけクリアする Ｄ3、Ｄ5の"名"だけクリアする というように該当文字or数字を完全一致したもののみクリア Sheet内を検索し、終了したら次の条件を検索というように、 複数の条件で行いたいのですが、どのようにすれば良いかがわかりません… 関数でもできるような気がしますが、他にも沢山のファイルがあり、毎回同じように整理をしなければならないので、VBAでできればと考えております。 どなたかお分かりの方、お教え下さいm(__)m よろしくお願いします！
- ベストアンサー
- オフィス系ソフト
- Excel VBAの範囲の取得について
Excel VBAを使い、ある範囲に含まれるセル番号を取得しようとしています。 まず、ある範囲、の指定方法から悩んでいます。 ある範囲を、A1：C5とした場合、 １．A1:C5に同じ文字列を入力し、それを判別して同じ範囲内だと判断させる。 ２．A1:C5の範囲に名前を付ける。 ３．A1:C5のセルを結合する。 などの方法を思いつきました。 それ以降の処理はA1:C5の範囲だと、『左上はA1,右下はC5』という風に、範囲を作っている左上と右下のセル番号を参照するようにしたいと思っています。 分からなくなってしまっているのは、他に範囲として扱いたい数個のセルが別にも幾つかあって、それを最初に認識した範囲とは別物だと扱いたいと思っています。 たとえば、先ほどA1:C5という範囲を決めましたが、D2:E4という別の範囲があるとします。 A1から順に調べて行って、C5までが同じ範囲と判断されたら、また次のひと塊の範囲はないか調べ、D2:E4が見つかったら処理をする、という感じなのですが、一度調べた範囲はもう調べないとする方法が思いつきません。 ひとくくりにしたい範囲は、毎度変わりますし、範囲に含まれるセルの数もまちまちです。 上記の、範囲を決める３つの方法それぞれによって、その後の方法も変わってきそうな感じがするのですが、どれが一番適当な方法かも決めかねています。 範囲指定しようとしているセルが一つのみだった場合、結合している範囲かどうかを調べる方法は使えない気もします。 分かりづらい質問で申し訳ありません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBAのセルのClearについて
VBA超初心者で、困っていることがあります；； たとえば、プログラムを実行したら、セルの「A1～D3」の範囲をクリアするという物があったとして、 その他の条件が以下のようになっています。 (1)クリアしても、セル内の数式を保持 (2)クリア対象のセルの罫線は残す 私は、以下のように記述したのですが、数式は残るのですが罫線が残りませんでした。 Sheets("シート名").Range("A1:D3").ClearFormats 数式を保持し、罫線を残すようにするには、どのような記述をすれば良いのでしょうか。 以上、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA 選択方法を教えてください。
Excel2002でリスト作成してデータを入力します。A列の最下行を選択して、例えば（A12）から、（H2）まで選択したいのですが、VBAでどのように記述したらよいのでしょうか。 Range("A65536").End(xlUp).Offset(0).Select を使用したVBAを使用したいと思っています。 この選択範囲をコピーして、異なったシートに貼り付けたいのですが、 下から選択して、貼り付けた場合、何か注意することはありますでしょうか。 宜しくお願い致します。 それと、値のみをクリアにして、計算式を残した削除方法ってVBAであるのでしょうか。 あわせて宜しくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- VBA 数式を残して値をクリアについて
VBA初心者です。 数式の入った表で、数式を消さずに値のみクリアしたいのですが、、、 Sub 指定のセル範囲の値だけをクリアする() Range("A1:C5").SpecialCells(xlConstants, 23).ClearContents Sheets("Sheet1").Range("A1:C5").SpecialCells(xlConstants, 23).ClearContents End Sub とやってもうまくいきません。 どこか間違っていますか？
- 締切済み
- オフィス系ソフト
- VBA: UsedRange.Clearでクリア？
こんにちは。 VBAでシート上のデータを完全にクリアする方法について質問です。 VBAで様々な処理をした結果を「results」というシートに書き出しているとします。 上記の処理をする前に、一旦書き出し用シートをまっさらにするために、以下のコードを実行しています。 ThisWorkbook.Worksheets(resultSheetName).UsedRange.Clear 私の理解している範囲では、これで「results」シートのデータは、完全に消去されている筈なのですが、VBAの処理を実行するたびにブックのファイルサイズが増えていってしまうという不思議な現象に悩まされています。 例えば、処理の実行前は、ファイルサイズが約45KBだとします。 これが実行後は、1300KB程度まで増えます。 ここで、上記の「UsedRange.Clear」の処理を実行すると、250KB程度までファイルサイズが落ちますが、2回目の処理をするとサイズが1500KB程度になります。 以降、前回の結果を「クリア => 処理 => 書き出し」という処理を繰り返すたびに、ファイルサイズが200～300KBずつ増えていってしまうのです。 不思議なのは、上記の「UsedRange.Clear」のかわりに、通常のEXCEL操作で、ワークシート左上（「A」と「1」の間にある）の三角形をクリックして、すべてのセルを選択した上で、「クリア => すべてをクリア」を実行すると、ファイルサイズが45KBに戻るのです。 「UsedRange.Clear」と、手作業の「クリア => すべてをクリア」は、同じことではないのでしょうか？ 以下のようなことも試みてみましたが、処理が遅い上に、ファイルサイズ的にはもっとひどいことになってしまいました。 ThisWorkbook.Worksheets(resultSheetName).Range("A1").Resize(65536, 256).Clear このままでは、処理を実行するたびにファイルが重くなってしまって、ツールとしてつかいものになりません。 通常のEXCEL操作（手作業）で「すべてのセルを選択（左上三角クリック）」した上で「クリア => すべてをクリア」と同じ結果を得るには、どのようにしたらよりでしょうか。
- ベストアンサー
- その他（プログラミング・開発）
- ExcelのVBAで複数の範囲を指定したいのですが
ExcelのＶＢＡの全くの初心者です。(ＰＣ全般については、多少はわかるつもりですが) R1C1参照という形式を使って、複数のセル範囲を色付けするため指定するにはどのようにすれば良いのでしょうか？ 例えば、アクティブセルにA25が指定されていて、A4～C7とE4～F10とI4～I8までを色付けしたいなどという場合。 色付けなどは、わかるのですが、複数の範囲指定がわからないのです。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
今回もありがとうございます。 最初に答えてくださったので、ベストアンサーにします。