No.1
- 回答日時:
で、そのソースは?
シートが何枚あって、
セルの範囲がどこで、
クリアするアクションがなんであって、
何も分からないまま、すべて仮説で回答を出すのは苦痛です。
この場では恥ずかしがらずに公開しましょう。
どこが間違っているか、そのソースを元に回答できます。
そのほうがtotoro4726さんにとって「すんごく」勉強になりますよ。
この回答への補足
シートは7枚
セル範囲 1枚目 F8:P12
2枚目 I4:S17
3枚目 H6:S12
4枚目 J6:T11
5枚目以降 H7:S12
数式と値をクリアしたいと考えています。
このような補足でよろしいでしょうか??
申し訳ないです・・・・・
No.2
- 回答日時:
Sheet1からSheet3までセル範囲A1からA10までをクリアします。
Sheets("Sheet1").Range("a1:a10").Clear
Sheets("Sheet2").Range("a1:a10").Clear
Sheets("Sheet3").Range("a1:a10").Clear
適宜必要な箇所を変更してご使用ください。
No.3
- 回答日時:
↓のような感じでいかがでしょうか?
Sub test()
Dim Sh As Worksheet
Dim Rng As Range
For Each Sh In Worksheets
Select Case Sh.Index
Case 1
Set Rng = Sh.Range("F8:P12")
Case 2
Set Rng = Sh.Range("I4:S17")
Case 3
Set Rng = Sh.Range("H6:S12")
Case 4
Set Rng = Sh.Range("J6:T11")
Case Is >= 5
Set Rng = Sh.Range("H7:S12")
End Select
Rng.ClearContents
Next
End Sub
参考URL:http://www2.odn.ne.jp/excel/waza/macro.html
こちらも私が作成していたのとは違っていましたが、これでもできました!
いろいろな方法があるのですね・・・
大変勉強になりました。ありがとうございました(≧▽≦)
No.4ベストアンサー
- 回答日時:
ぜひマクロの記録を使用してみてください
使用方法はツールバーの[ツール]-[マクロ]-[新しいマクロの記録]-[OK]で
希望の操作をしてみてください
例えば、シートを選択、セル範囲を選択、DELキー・・・などなど
操作が終了したら、先ほどの[新しいマクロの記録]が[記録終了]に換わっていますので、選択して記録を終了します
後はマクロの実行するだけ、簡単でしょ
時間のあるときにVBAを開いて、コマンドをヘルプで引いたり、値を変更したり勉強すればいいのです
参考までに、質問者さんの希望の操作をマクロ記録してみました
--------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/6/15 ユーザー名 : test
'
'
Sheets("Sheet1").Select
Range("F8:P12").Select
Selection.ClearContents
Sheets("Sheet2").Select
Range("I4:S7").Select
Selection.ClearContents
Sheets("Sheet3").Select
Range("H6:S12").Select
Selection.ClearContents
Sheets("Sheet4").Select
Range("J6:T11").Select
Selection.ClearContents
Sheets("Sheet5").Select
Range("H7:S12").Select
Selection.ClearContents
Sheets("Sheet6").Select
Range("H7:S12").Select
Selection.ClearContents
Sheets("Sheet7").Select
Range("H7:S12").Select
Selection.ClearContents
End Sub
---------------------------------------------
このようになりました
勉強する時に解りにくければ
-----------------------------------------------
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2008/6/15 ユーザー名 : test
'
'
Sheets("Sheet1").Select
Range("F8:P12").Select
Selection.ClearContents
End Sub
---------------------------------------------------
のように、操作を区切って記録するとわかりやすいと思います
因みに上記は、シート1を選択、セルF8からP12の範囲を選択、DELキーで選択セル範囲を削除までのマクロ記録です
長々と済みませんでした
頑張って下さい
「マクロの記録」というものを知りませんでした!
教えていただいたものでモチロンできたのですが、「マクロの記録」を使って、自分でも少しアレンジして作成してみたら簡単にできました!!
ビックリしちゃいました。
とても勉強になり、参考になり、助かりました。
ありがとうございました(≧▽≦)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) 【VBAで、On Error が効かない】 3 2022/06/09 10:08
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Excel(エクセル) 【エクセル】文中に別シートのセルの内容を自動入力したい 6 2022/11/17 11:30
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
-
4
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
8
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
11
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
EXCELで1ヶ月分の連続した日付をシート名+セルに表示させたい
Excel(エクセル)
-
15
VBAで指定シート以外の選択
Visual Basic(VBA)
-
16
別シートのマクロボタンをマクロで実行させることができるかどうか
Excel(エクセル)
-
17
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
18
基準日以前のデータを範囲を指定して削除するVBA
Excel(エクセル)
-
19
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
20
エクセルでエラーが出て困っています。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelのシート上のShapeにイベ...
-
フォルダ内にある全ファイルの...
-
Excelで数字を入れたら対応する...
-
エクセルのチェックボックス誤作動
-
エクセル シート内の一番下のセ...
-
自分の専門分野の仕事。初見で...
-
セルの一部分だけを太字にする方法
-
Excelでセル内の文字をファイル...
-
【エクセル】「実行時エラー’10...
-
エクセルで○をつけるマクロ設定
-
任意のセルでマクロを実行させたい
-
エクセルファイルを開いた回数...
-
エクセルのマクロ実行後にカー...
-
エクセルで複数のシートのクリ...
-
エクセルのワークシート(テン...
-
前月分を次月シートに繰越でき...
-
エクセルで検索バーのような表示
-
エクセル初心者です 日報(Excel...
-
エクセルで特定の行だけ行削除...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセルで複数のシートのクリ...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
エクセルで特定の行だけ行削除...
-
長い時間かかるマクロが実行中...
-
エクセル シート内の一番下のセ...
-
【エクセル】フリーワード検索...
-
Excelでセル内の文字をファイル...
-
【エクセル】「実行時エラー’10...
-
シートではなくBOOK間で重複し...
-
フォルダ内にある全ファイルの...
-
EXCELのダイアログシートって、...
-
エクセル:セル内の文字列の最...
-
自分の専門分野の仕事。初見で...
-
セルの一部分だけを太字にする方法
-
エクセルで○をつけるマクロ設定
-
エクセル マクロ 一定時間おき...
-
Excelにて、同じ画像を複数のセ...
おすすめ情報