Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
752 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78537】階層ごとにキーワード例えばifの色を変えたい 北海 16/11/2(水) 11:09 質問[未読]
【78538】Re:階層ごとにキーワード例えばifの色を変... β 16/11/2(水) 12:44 発言[未読]
【78539】Re:階層ごとにキーワード例えばifの色を変... 独覚 16/11/2(水) 14:59 発言[未読]
【78540】Re:階層ごとにキーワード例えばifの色を変... β 16/11/2(水) 16:13 発言[未読]
【78545】Re:階層ごとにキーワード例えばifの色を変... sy 16/11/2(水) 22:32 発言[未読]
【78546】Re:階層ごとにキーワード例えばifの色を変... β 16/11/2(水) 23:10 発言[未読]
【78547】Re:階層ごとにキーワード例えばifの色を変... β 16/11/2(水) 23:44 発言[未読]
【78548】Re:階層ごとにキーワード例えばifの色を変... β 16/11/2(水) 23:47 発言[未読]
【78549】Re:階層ごとにキーワード例えばifの色を変... γ 16/11/3(木) 11:39 回答[未読]
【78537】階層ごとにキーワード例えばifの色を変え...
質問  北海  - 16/11/2(水) 11:09 -
引用なし
パスワード
   階層ごとにキーワード例えばifの色を変えたいのですが、方法はありますか？
テキストエディターを使うのでなく、VBA上で設定できないのでしょうか？
【78538】Re:階層ごとにキーワード例えばifの色を...
発言  β  - 16/11/2(水) 12:44 -
引用なし
パスワード
   ▼北海 さん：

>階層ごとにキーワード例えばifの色を変えたいのですが、方法はありますか？

はい。なんとでもなると思います。
でも、質問文が、なぞなぞ　のような感じです。

階層って？
if の色を変える？

具体的な例を、言葉で説明できませんか？

たとえば、マクロを忘れて、小学生に、方眼紙に色を塗ってください。
このような条件で塗ってくださいね　と、そう指示して、ちゃんと、
その小学生が色を塗れるように。
【78539】Re:階層ごとにキーワード例えばifの色を...
発言  独覚  - 16/11/2(水) 14:59 -
引用なし
パスワード
   ▼β さん：
If 〜 Then
　　〜
　　If 〜 Then
　　　　〜
　　End If
End If

のような場合に対応がわかりやすいように外側のIfと内側のIfで色を変えたいのでは？
【78540】Re:階層ごとにキーワード例えばifの色を...
発言  β  - 16/11/2(水) 16:13 -
引用なし
パスワード
   ▼独覚 さん：

なるほどです。

▼北海さん

独覚さんから回答がありますが、具体例でサンプルです。

Sub Sample1()
　　If Range("A1").Value = 1 Then
　　
　　　　Range("F1").Interior.Color = vbRed
　　　　
　　　　If Range("A2").Value = 1 Then
　　　　　　Range("F2").Interior.Color = vbRed
　　　　ElseIf Range("A2").Value = 2 Then
　　　　　　Range("F2").Interior.Color = vbYellow
　　　　Else
　　　　　　Range("F2").Interior.Color = vbBlack
　　　　End If
　　　　
　　Else
　　
　　　　Range("F1").Interior.Color = vbBlue
　　　　
　　　　If Range("A2").Value = 1 Then
　　　　　　Range("F2").Interior.Color = vbMagenta
　　　　ElseIf Range("A2").Value = 2 Then
　　　　　　Range("F2").Interior.Color = vbBlue
　　　　Else
　　　　　　Range("F2").Interior.Color = vbCyan
　　　　End If
　　　　
　　End If
　　
End Sub

Sub Sample2()

　　Select Case Range("A1").Value
　　
　　　　Case 1
　　　　
　　　　　　Range("F1").Interior.Color = vbRed
　　　　　　
　　　　　　Select Case Range("A2").Value
　　　　　　
　　　　　　　　Case 1
　　　　　　　　　　Range("F2").Interior.Color = vbRed
　　　　　　　　Case 2
　　　　　　　　　　Range("F2").Interior.Color = vbYellow
　　　　　　　　Case Else
　　　　　　　　　　Range("F2").Interior.Color = vbBlack
　　　　　　End Select
　　　　
　　　　Case Else
　　　　
　　　　　　Range("F1").Interior.Color = vbBlue
　　　　
　　　　　　Select Case Range("A2").Value
　　　　　　
　　　　　　　　Case 1
　　　　　　　　　　Range("F2").Interior.Color = vbMagenta
　　　　　　　　Case 2
　　　　　　　　　　Range("F2").Interior.Color = vbBlue
　　　　　　　　Case Else
　　　　　　　　　　Range("F2").Interior.Color = vbCyan
　　　　End Select
　　　　
　　End Select
　　
End Sub
【78545】Re:階層ごとにキーワード例えばifの色を...
発言  sy  - 16/11/2(水) 22:32 -
引用なし
パスワード
   ▼β さん：

多分質問者さんや独覚さんの言われているのはVBE上でIFの色を一つづつ違う色にしたいと言う事だと思います。

IF 〜　THEN ←この一行が赤色
　IF 〜　THEN ←この一行が青色

そんな事出来るのかな？
【78546】Re:階層ごとにキーワード例えばifの色を...
発言  β  - 16/11/2(水) 23:10 -
引用なし
パスワード
   ▼sy さん：

なるほど、なるほど。
ＶＢＥ画面のことでしたか。

どうでしょうねぇ。
できないんじゃないかな。
【78547】Re:階層ごとにキーワード例えばifの色を...
発言  β  - 16/11/2(水) 23:44 -
引用なし
パスワード
   ▼北海 さん：

ＶＢＥ画面での階層ごとのキーワードの色がえはできないと思います。
視覚的にわかりやすくしたいということですね？

インデント幅を 5 とか 6 とか、大きく（深く）すれば、少しはましかも。
【78548】Re:階層ごとにキーワード例えばifの色を...
発言  β  - 16/11/2(水) 23:47 -
引用なし
パスワード
   ▼北海 さん：

たとえば、アップした Sample1 、インデント幅が 4 ですが、これを 6 にすると
以下になります。どうでしょう。
あまり、かわりないですかね？

Sub Sample1()
　　　If Range("A1").Value = 1 Then
　　　
　　　　　　Range("F1").Interior.Color = vbRed
　　　　　　
　　　　　　If Range("A2").Value = 1 Then
　　　　　　　　　Range("F2").Interior.Color = vbRed
　　　　　　ElseIf Range("A2").Value = 2 Then
　　　　　　　　　Range("F2").Interior.Color = vbYellow
　　　　　　Else
　　　　　　　　　Range("F2").Interior.Color = vbBlack
　　　　　　End If
　　　　　　
　　　Else
　　　
　　　Range("F1").Interior.Color = vbBlue
　　　
　　　　　　If Range("A2").Value = 1 Then
　　　　　　　　　Range("F2").Interior.Color = vbMagenta
　　　　　　ElseIf Range("A2").Value = 2 Then
　　　　　　　　　Range("F2").Interior.Color = vbBlue
　　　　　　Else
　　　　　　　　　Range("F2").Interior.Color = vbCyan
　　　　　　End If
　　　　　　
　　　 End If

End Sub
【78549】Re:階層ごとにキーワード例えばifの色を...
回答  γ  - 16/11/3(木) 11:39 -
引用なし
パスワード
   ▼北海 さん：
>テキストエディターを使うのでなく、VBA上で設定できないのでしょうか？
できません。
インデントをつけることで十分に機能を果たしているはずです。
そういう機能を求めるなら、別のIDEを探してください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
752 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free