|
miuraさん、こんにちは
>Q1 本を参考に作ったのですが、緑(エラー)になってます。
緑はエラーでなく、コメントでしょう。
先頭のアポストロフィ外してみてください。
WorkSheets("Sheet1").Range("C6:C14").ClearContents
WorkSheets("Sheet1").Range("G6:G14").ClearContents
>Sub ClearContents()
> ActiveWindow.RangeSelection = Empty
>シート1のC6:C14とG6:G14のセルをクリアする。
だけなら、この行は不要じゃないですか?
> 'WorkSheets("Sheet1").Range("C6:C14").ClearContents
> 'WorkSheets("Sheet1").Range("G6:G14").ClearContents
>End Sub ↑ココの下2行が緑(エラー)です。
>Q2 上の2つのVBを一つの指示で実行する方法を教えてください。
1)2つのプロシージャを連続してCallする別のプロシージャを作り、そのプロシージャを実行する。
Sub Test()
Call CopyWorkSheets
Call ClearContents
End Sub
2)1つのプロシージャにまとめる
Sub CopyWorkSheetsAndClearContents()
Worksheets("Sheet1").Copy After:=Worksheets("Sheet1")
WorkSheets("Sheet1").Range("C6:C14").ClearContents
WorkSheets("Sheet1").Range("G6:G14").ClearContents
End Sub ↑ココの下2行が緑(エラー)です。
#ClearContentsというプロシージャ名は予約語と一緒ですからお使いにならないほうがいいと思いますよ。
|
|