Excel VBA質問箱 IV

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

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


29262 / 76732 ←次へ | 前へ→

【52753】Re:カラーパレットの使用方法
質問  Miki  - 07/12/1(土) 11:52 -

引用なし
パスワード
   ▼ichinose さん:
おはようございます。
最後まで読ませていただき大分判ってきました。

欲張った内容を一度に書きすぎたことや
説明が不十分で、また説明しきれない?ので、
ご迷惑をかけてしまいました。

今回は色指定のみに絞って、もう一度書かせていただきます。
先ず
Sub test1()
If Application.Dialogs(xlDialogEditColor).Show(1) Then
  Range("a6:a7,c6:c7").Interior.ColorIndex = 1
  End If
End Sub
test1で「色の設定」ユーザ設定タブ画面でR120,G240,B120を設定して
動作させるとtest1のセル指定範囲に「明るいグリーン」の色が指定されます。
しかし、更にtest2の指定範囲にもこの色が付きます。

次にtest2から
「色の設定」ユーザ設定タブ画面でR240,G120,B120に設定して 
動作させるとtest2の指定範囲に「明るい赤」の色が付きますが、
test1の指定範囲にも同じ色が付きます。

前回の質問のこの部分です↓
>show(2)にしないとtest1のコードと絡んでしまうということです。
↑ここの意味が私にはわかりません。(ichinoseさんからのご質問)
現在のコードを利用してtest1と2の色が同じ色にならない方法があるのでしょうか。


Sub test2()
With Range("A15:B15").Interior
If Application.Dialogs(xlDialogEditColor).Show(1) Then
    .ColorIndex = 1
End If
End Sub

'・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・


しかしながら
Sub test2()
With Range("A15:B15").Interior
If Application.Dialogs(xlDialogEditColor).Show(2) Then
    .ColorIndex = 2           '~~~~
End If       '~~~~
End Sub

~~~~の部分を1から2に変更するとtest1に影響を及ぼさない(絡まない)
単独の動作=つまりA15:B15に色指定が出来ます。ですから
このコードの中のColorIndex=2は色指定の意味では無いと
判断したらよいのでしょうか。あるいは「白」と理解すれば
良いのでしょうか?2を→3にすると黒になってこのコードが
生かされません。

ちなみに
Sub test10()
With Range("D6")
   .Interior.ColorIndex = 2
End With
End Sub
とすると普通だったら「白」ですが、test2で実行した色が反映されます。
これはそのようなものだと理解すればよいのでしょうか
Application.Dialogs(xlDialogEditColor).Show()はそのようなものだ
と理解すればよいのでしょうか。

どこかで誤解していると思います。もしお時間がありましたらアドバイス
お願いします。

.Interior.Pattern = 1の件はよく理解できました。
有難うございました。

3 hits

【52681】カラーパレットの使用方法 美貴 07/11/26(月) 11:45 質問
【52683】Re:カラーパレットの使用方法 じゅんじゅん 07/11/26(月) 12:46 発言
【52684】Re:カラーパレットの使用方法 美貴 07/11/26(月) 13:06 発言
【52685】Re:カラーパレットの使用方法 じゅんじゅん 07/11/26(月) 13:38 発言
【52686】Re:カラーパレットの使用方法 美貴 07/11/26(月) 13:42 発言
【52699】Re:カラーパレットの使用方法 ichinose 07/11/26(月) 21:34 発言
【52740】Re:カラーパレットの使用方法 Miki 07/11/29(木) 21:53 質問
【52744】Re:カラーパレットの使用方法 ichinose 07/11/30(金) 8:00 発言
【52753】Re:カラーパレットの使用方法 Miki 07/12/1(土) 11:52 質問
【52754】Re:カラーパレットの使用方法 横入り 07/12/1(土) 14:40 回答
【52758】Re:カラーパレットの使用方法 ichinose 07/12/1(土) 17:54 発言
【52701】Re:カラーパレットの使用方法 Mariko 07/11/26(月) 21:52 発言
【52710】Re:カラーパレットの使用方法 美貴 07/11/27(火) 11:25 お礼

29262 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free