Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52413 / 76737

←次へ　｜　前へ→


	【29163】シートに記録されているマクロをブックに記録されているマクロとするには？

Orangbagsar - 05/9/27(火) 0:10 -


	引用なし

	パスワード

シート１の２行目から１１行目までのＤ列にチェックボックスを１～１０を配置し、各行のＡＢＣ列にはテキストが入力されています。各チェックボックスをＴｒｕｅにすると、その行のＡ～Ｃ列の文字が赤字・取り消し線で表現されるよう、マクロが設定されています。このマクロはシート１のマクロとして記録されています。
シート１での作業が完了したら、シート１をコピーしてシート２とし、シート２に対して作業を行います。以降、シート３、４と作業を繰り返します。この時、シート１に記録されているマクロはシート２にもコピーされますが、シートが増えるに従って、ファイルがものすごく重たくなってしまいます。
マクロをブックに記録すればこの問題は解決すると推測していますが、シート１の作業が完了し、シート２が作成された後は、チェックボックスに設定されているマクロはシート１には働かないようにする必要があります。以降、シートが増えるに従って、マクロは直近の(ACTIVEな)シートのみに作用し、古いシートには作用しないようにするにはどのようにしたらよろしいでしょうか。

因みに、シートに記録されているチェックボックスのマクロは以下のとおりです。
（チェックボックス１の例。チェックボックス２以降は行が一つずつ繰り下がる）

Private Sub CheckBox1_Click()
　　If CheckBox1 = True Then
　　　　Range("A2:C2").Select
　　　　　　With Selection.Font
　　　　　　　　.FontStyle = "標準"
　　　　　　　　.Size = 12
　　　　　　　　.Strikethrough = True
　　　　　　　　.Superscript = False
　　　　　　　　.Subscript = False
　　　　　　　　.OutlineFont = False
　　　　　　　　.Shadow = False
　　　　　　　　.Underline = xlUnderlineStyleNone
　　　　　　　　.ColorIndex = 3
　　　　　　End With
　　Else
　　　　Range("A2:C2").Select
　　　　　　With Selection.Font
　　　　　　　　.FontStyle = "標準"
　　　　　　　　.Size = 12
　　　　　　　　.Strikethrough = False
　　　　　　　　.Superscript = False
　　　　　　　　.Subscript = False
　　　　　　　　.OutlineFont = False
　　　　　　　　.Shadow = False
　　　　　　　　.Underline = xlUnderlineStyleNone
　　　　　　　　.ColorIndex = 1
　　　　　　End With
　　End If
End Sub

解決方法をご教示いただけると幸甚です。

0 hits

▼

【29163】シートに記録されているマクロをブックに記録されているマクロとするには？ Orangbagsar 05/9/27(火) 0:10

≪