WINDOWS XP EXCELL 2003です。
「値のクリァー」のマクロはすでに、
ここで御指導いただいたマクロは下記です。
http://oshiete.goo.ne.jp/qa/6663748.html
Sub Clear()
On Error Resume Next
range("H2,G4,C10,C15,F15,G15").SpecialCells(xlCellTypeConstants).ClearContents
End Sub
上記マクロは「納請書3」にそうにして「シート追加」で「納請書4」作成したところ下記のマクロを実行すると「納請書3」のシートの値がクリアーになります。
御指導いただきたいのは既に「納請書3」値が有りこれはクリアーしたくありません。
新たにシートを追加してゆくと前のシートの値か残り追加シートの値をクリアーするにはクリアーは可能でしょうか。
もし可能ならば「値のクリアー」のマクロをどう変更すればいいのかご教授いただけないでしょうか。
よろしく御願いします。
※ 参考で既に「納請書3」のシートには下記マクロの2点が登録しています。
1 「シートの追加」のマクロが下記です。
Sub シートの追加()
Dim NewNo As Integer
NewNo = Sheets("月請求書").Index
Sheets("納請書3").Copy Before:=Sheets("月請求書")
ActiveSheet.Name = "納請書" & NewNo
ActiveSheet.Range("G4").Value = ""
End Sub
2 日付とシート表示の色付け
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Target.Offset(-6, 2).Value = Date
End If
If Target.Address = "$G$15" Then
ActiveSheet.Tab.ColorIndex = 49
End If
End Sub
No.1ベストアンサー
- 回答日時:
【暫定的な対応】
変更前:
range("H2,G4,C10,C15,F15,G15").Specia…
変更後:
activesheet.range("H2,G4,C10,C15,F15,G15").Specia…
#使い方:
追加した新しいシート(削除したいセルが実際に載っているシート)を表に出した状態でマクロを動かすこと
#ご注意
ご相談投稿時には「寄せられた回答をコピーして掲示する」のではなく,実際にあなたがブックに登録したそのマクロをコピーして,今はこれで動かしていますと掲示してください。あなたが実際に合わせて直した部分が,不具合の原因になっている場合もままあります。
【抜本的な間違いの修正】
>上記マクロは「納請書3」にそうにして…
>既に「納請書3」のシートには下記マクロの2点が登録しています。
納品書3に登録済みの「日付とシート表示の色付け」についてはそれで間違いありませんが,今回の「値のクリァー」と「シートの追加」の2つのマクロについては,納品書3のシートに登録するものではありません。今回ご相談の不具合も,本質的にはこの点の間違いが原因です。
正しい手順:
ALT+F11でVBE画面を出します
挿入メニューから標準モジュールを挿入して作業中のブックのVBAProjectに追加します
現れたシートに「値のクリァー」と「シートの追加」を記載します
納品書3に登録した「値のクリァー」と「シートの追加」は消しておきます
何度無く御世話かけます。
御指導いただいた、
【抜本的な間違いの修正】と正しい手順:
については忠実に履行してテストしました結果、うまくできました。
本当にありがとう御座いました。
今後ともよろしく御願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
会社PCのメールが更新されない
-
英数字のみ全角から半角に変換
-
【Microsoft Forms】回答を削除...
-
VLOOKUP関数について
-
Microsoft Formsの「個人情報や...
-
【スプレッドシート】指定の日...
-
outlookのメールが固まってしま...
-
vb.net オブジェクト指向につい...
-
Outlook で宛先が複数の場合の人数
-
【スプレッドシート】白色のセ...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルでXLOOKUP関数...
-
Microsoft Formsで「応答」から...
-
Office 2021 Professional Plus...
-
エクセルのシフト表を簡単にGoo...
-
Microsoft Edgeの「ニュースと...
-
Microsoft Officeに似たキング...
-
Excel VBA 日程表からスケジュ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
英数字のみ全角から半角に変換
-
Office2021を別のPCにインスト...
-
Microsoft Formsの「個人情報や...
-
officeビジネス型のワードやエ...
-
会社PCのメールが更新されない
-
【スプレッドシート】指定の日...
-
Microsoft Officeを2台目のPCに...
-
何このステータスバー
-
2つのシートの一致する行のセ...
-
会社のTeamsのことで相談です。...
-
エクセルにリンクされるのをし...
-
Windows 11で、IME言語バー(IM...
-
office2010とoffice365の共存で...
-
Microsoftのパソコンです。 エ...
-
エクセルでXLOOKUP関数...
-
Excel関数について質問ですm(__)m
-
VBA
-
自分の専門分野の仕事。初見で...
おすすめ情報