Excel VBA質問箱 IV

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

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


6941 / 13644 ツリー ←次へ | 前へ→

【42156】無理ですか条件付き書式は3個から5個に kazu 06/9/3(日) 0:16 質問[未読]
【42157】Re:無理ですか条件付き書式は3個から5... [名前なし] 06/9/3(日) 2:02 発言[未読]
【42168】Re:無理ですか条件付き書式は3個から5... kazu 06/9/3(日) 17:07 お礼[未読]
【42159】Re:無理ですか条件付き書式は3個から5個に りん 06/9/3(日) 9:02 回答[未読]
【42167】Re:無理ですか条件付き書式は3個から5個に kazu 06/9/3(日) 17:05 お礼[未読]
【42202】Re:無理ですか条件付き書式は3個から5個に Jaka 06/9/4(月) 9:58 発言[未読]
【42203】補足 Jaka 06/9/4(月) 10:00 発言[未読]

【42156】無理ですか条件付き書式は3個から5個に
質問  kazu  - 06/9/3(日) 0:16 -

引用なし
パスワード
   エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。やっぱりVBAでも無理なのですか。よろしくお願いします。

【42157】Re:無理ですか条件付き書式は3個から5...
発言  [名前なし]  - 06/9/3(日) 2:02 -

引用なし
パスワード
   ▼kazu さん:
>エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。やっぱりVBAでも無理なのですか。よろしくお願いします。


<<VBA質問箱基本ポリシー(http://www.vbalab.net/bbspolicy.html)より>>
・必ず返事をしてください
 回答がついたら、その回答に必ず返事を書いてください。それが最低限の
 エチケットというものです。期待通りの回答があれば感謝の意を表すことは
 もちろん、期待した回答ではない場合も必ず返事を書いてください。どこが
 どう期待通りではないのかを具体的に書けば、よりあなたの期待に近い回答が
 得られることでしょう。


以下の質問が放置されていますが。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=41983;id=excel
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=42141;id=excel

既存のトピックにレスするなら、【新規投稿】ではなく、【返信】を使用
してください。

【42159】Re:無理ですか条件付き書式は3個から5...
回答  りん E-MAIL  - 06/9/3(日) 9:02 -

引用なし
パスワード
   kazu さん、おはようございます。
>エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。やっぱりVBAでも無理なのですか。よろしくお願いします。
向こうを見て改めて投稿してきてるとおもうので。

やっぱり無理です

ただし、
例えば条件によって赤・青・黄・緑・紫の5色に塗り分けるというようなものは、絶対無理ですが、5種類の条件があって該当するものを赤に塗るとかだと、条件の数式を工夫すれば何とかなります。

【42167】Re:無理ですか条件付き書式は3個から5...
お礼  kazu  - 06/9/3(日) 17:05 -

引用なし
パスワード
   やっぱり無理ですか。返事すぐにいただきありがとうございました。

【42168】Re:無理ですか条件付き書式は3個から5...
お礼  kazu  - 06/9/3(日) 17:07 -

引用なし
パスワード
   ご指摘ありがとうございました。

【42202】Re:無理ですか条件付き書式は3個から5...
発言  Jaka  - 06/9/4(月) 9:58 -

引用なし
パスワード
   こんな方法もありますけど...。(とりあえず3色)
手順をうまく説明できそうにないので、手順の段階をマクロで書きました。(前に書いておいた物)
別ブックをアクティブにして実行してみてください。(シートが3枚あること)
新規ブックで実行したあとマクロを消してもいいです。
(もう1個のスレッドは長そうなのでこちらに..。)

Sub maru()
'3枚目のシート名を変更)
Sheets(3).Name = "画像シート"
Sheets("画像シート").Activate
ActiveWindow.Zoom = 200

Columns(1).ColumnWidth = 4
Columns(2).ColumnWidth = 2
Rows("1:5").RowHeight = 15.75
Range("A1").Value = "名前"
Range("A2:A4").Value = Application.Transpose(Array("赤", "黄", "青"))
Range("B1").Value = "図形"


RL = Range("B2").Left + 0.5
HH = Range("B2").Height - 1
TP = Range("B2").Top + 1
WD = Range("B2").Width - 0.5
ActiveSheet.Shapes.AddShape(msoShapeOval, RL, TP, WD, HH).Select
'Selection.ShapeRange.Fill.Visible = msoFalse '透明
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 '赤
Selection.ShapeRange.Fill.Transparency = 0.5

RL = Range("B3").Left + 0.5
HH = Range("B3").Height - 1
TP = Range("B3").Top + 1
WD = Range("B3").Width - 0.5
ActiveSheet.Shapes.AddShape(msoShapeOval, RL, TP, WD, HH).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 '黄色
Selection.ShapeRange.Fill.Transparency = 0.5

RL = Range("B4").Left + 0.5
HH = Range("B4").Height - 1
TP = Range("B4").Top + 1
WD = Range("B4").Width - 0.5
ActiveSheet.Shapes.AddShape(msoShapeOval, RL, TP, WD, HH).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 40 'アクアブルー
Selection.ShapeRange.Fill.Transparency = 0.5
Range("B1").Select
ActiveWorkbook.Names.Add Name:="画像", RefersTo:= _
      "=INDEX(画像シート!$A$1:$B$5,MATCH(Sheet1!A1,画像シート!$A$1:$A$5,0),2)"

Sheets("Sheet1").Activate
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=80, Top:=35, Width:=20, Height:=20).Select
ExecuteExcel4Macro "FORMULA(""=画像"")"
DoEvents
Range("B1").Select

With Sheets("Sheet1")
  .Range("B1").Value = "←どれか選択してください。"
  With .Range("A1")
     .BorderAround (1)
     With .Validation
       .Delete
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="赤,黄,青"
     End With
  End With
End With
End Sub


【42203】補足
発言  Jaka  - 06/9/4(月) 10:00 -

引用なし
パスワード
   シート1!A1に「赤、黄、青」のいづれかを入力すれか、入力規則から選択すると、
シート1に作ったコマンドボタンが、画像シートのB2〜B4セルを描写する画像に変わります。
(壁紙のビットマップ画像を貼り付けて使おうと思いましたが、あるのか解らないのでコマンドボタンを使いました。)

シート1に貼り付けたボタンが画像に変化した後に、図の書式設定にて色無しにすれば透けて見えます。
画像の枠線(実際は、参照セルの罫線)邪魔なら画像シートの罫線を非表示にすれば見えなくなります。
画像の枠線(実際は、参照セルの罫線)邪魔なら画像シートの罫線を非表示にすれば見えなくなります。

画像が小さければ、画像シートのセルB2:B4のサイズを大きくしてみてください。
Sheet1に表示された図形が、

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