Excel VBA質問箱 IV

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

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


29271 / 76732 ←次へ | 前へ→

【52744】Re:カラーパレットの使用方法
発言  ichinose  - 07/11/30(金) 8:00 -

引用なし
パスワード
   おはようございます。

>コードを見させていただき便利なコードだと思い少し発展させる中…
>疑問点が出てきました。時間がありましたら、コメントください。

>自分なりに分かったことは、同じシート上では
>show(2)にしないとtest1のコードと絡んでしまうということです。
↑ここの意味が私にはわかりません。


>しかし、この下のコードをWith構文で出来ないかと、作成しましたが
>xlDialogPatternsには反映されず、
>Range("A15:B15").Selectのコードを入れないと同じセルを選択しません。
>With構文を生かした作成が間違っているのでしょうか。

Dialogs(xlDialogPatterns)は、選択されたセル範囲の色の設定等を行う
という機能ですよ!!そういう仕様なのですから、仕様に沿った使い方をするしか
ありません。

xlDialogPatternsに限らず、Dialogsオブジェクトの仕様には、私も少なからず
不満があります。一言で言えば、汎用性がない!!とまでは言いませんが、
汎用的ではないですね!!

以前にも、

www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=16412;id=excel

同じDialogsオブジェクトで↑この辺りでちょっと不満を漏らしています。

ともかく、これを踏まえると下記のコードは至極 自然なコードだと思いますよけど・・。


>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
'    Patternプロパティと.Show(1)の1とは何の脈絡もありませんよ
'    .Interior.Pattern = 1は、網掛けなしの指定ですよね
>End If
>End With
>End Sub


疑問に思われたのですから、記述することは良いことです。
が、
この場合、コード提示して、

>↑のコードは希望するものが得られます
>
>↓のコードでは
>With構文…これはxlDialogPatternsが反映されません。

では、不十分です。
Daialogs().showメソッドでオペレータの入力を促されます。
ここで、何をするかも具体例として提示してください。
それとその操作による結果も記述してください。
これは、ふたつのプロシジャーの両方です。
(私とMikiさんで同期をとる記述を出来る限り多くする必要があります)

ここまで記述されると、何を疑問に思われているのか
具体的にわかってくると思うのですがいかがですか?
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 お礼

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