|
▼ichinose さん:
コードを見させていただき便利なコードだと思い少し発展させる中…
疑問点が出てきました。時間がありましたら、コメントください。
先ずtest1(ichinose様のご提示されたコード)
Sub test1()
If Application.Dialogs(xlDialogEditColor).Show(1) Then
Range("a6:a7,c6:c7").Interior.ColorIndex = 1
End If
End Sub
これにパターンを付け加えました。
自分なりに分かったことは、同じシート上では
show(2)にしないとtest1のコードと絡んでしまうということです。
しかし、この下のコードをWith構文で出来ないかと、作成しましたが
xlDialogPatternsには反映されず、
Range("A15:B15").Selectのコードを入れないと同じセルを選択しません。
With構文を生かした作成が間違っているのでしょうか。
Sub test2()
With Range("A15:B15").Interior
If Application.Dialogs(xlDialogEditColor).Show(2) Then
.ColorIndex = 2
End If
Range("A15:B15").Select
If Application.Dialogs(xlDialogPatterns).Show(1) Then
End If
End With
End Sub
↑のコードは希望するものが得られます
↓のコードでは
With構文…これはxlDialogPatternsが反映されません。
Sub test2()
With Range("A15:B15").Interior
If Application.Dialogs(xlDialogEditColor).Show(2) Then
.ColorIndex = 2
End If
End With
With Range("A15:B15")
Range("A15:B15").Select
If Application.Dialogs(xlDialogPatterns).Show(1) Then
.Interior.Pattern = 1
End If
End With
End Sub
|
|