Excelで条件付き書式によるフォント設定

Ａ　　　　Ｂ
商品　　　在庫数

りんご　　１８
いちご　　５０
バナナ　　欠品

というような表で、
文字列ならＭＳＰゴシック、サイズ10に。
数値ならＨＧ丸ゴシックＭ－ＰＲＯ、サイズ１３に設定したいのですが、
条件付き書式ではフォントの設定は出来ないんですね。

色々調べて、VBAなら実現可能だということまではわかったのですが、
VBAに関してはネット上で拾ってきたすでに書かれたものを少しカスタマイズする程度の本当に微妙な知識しかなく、
いくら調べても希望に合うものが見つかりません（条件付きを４つ以上…なら沢山あったので、
それを元に少しやってみましたが出来ませんでした／苦笑）

職場からは書き込みが出来ず、休憩を利用しての携帯からの投稿なため
自分で書いたソースを提示して添削、というのが出来ない状況で大変申し訳ないのですが、
よろしければお力を貸していただければ幸いです。お願いします。

No.4 回答者： imogasi 回答日時： 2008/10/18 20:14

経験なくてわからないだろうが、この課題には２通りの場合がある。

その区別が書いてない。
（１）既にデータは入れ終わっていて、条件によってフォントの種類を変える。多少データが増えてもVBAの実行を再度行ってよいーー＞バッチ処理
（２）データが増えた都度、フォントの種類を即座に変えたいーー＞イベント処理。
（１）は最下行番号を割り出す。
先頭から最下行まで、数値（IsNumeric)であればＨＧ丸ゴシックＭ－ＰＲＯ、それ以外だと（Font.Nameを）ＭＳＰゴシックに設定する。
それを最下行まで全行について繰り返す。
これぐらいコードはわかるでしょう。
（２）イベントの場合は、Changeイベントを使う。
Target.Columnが対象列（B列なら２）かどうか判別する。それ以外は、スキップする。
後は、数値（IsNumeric（Target)がTrueであればＨＧ丸ゴシックＭ－ＰＲＯ、それ以外だと（Font.Nameを）ＭＳＰゴシックに設定する。
ーー
本質問は課題丸投げであり、それほど難しいコードでなく、行数もわずかなので、全部は挙げない。自分で勉強して見てください。

No.3 回答者： wolis 回答日時： 2008/10/18 13:11

もっと良い方法があるとは思いますが、

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myCell As Range
If Selection.Cells.Count > 1 Then
For Each myCell In Selection
If Not IsNumeric(myCell.Value) Then
With myCell.Font
.Name = "HG丸ゴシックM-PRO"
.Size = 13
End With
Else
With myCell.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 10
End With
End If
Next
Else
If Not IsNumeric(Target.Value) Then
With Target.Font
.Name = "HG丸ゴシックM-PRO"
.Size = 13
End With
Else
With Target.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 10
End With
End If
End If
End Sub

No.2 回答者： xls88 回答日時： 2008/10/18 12:49

試しにマクロを組んでみました。

場合によっては、シートのWorksheet_Changeイベントを使えば良いかもしれません。

Sub testフォント()
　　Dim c As Range
　　
　　For Each c In Ｒａｎｇｅ（B2:Ｂ100）
　　　　With c.Font
　　　　　　If IsNumeric(c) Then
　　　　　　　　.Name = "ＨＧ丸ゴシックＭ－ＰＲＯ"
　　　　　　　　.Size = 13
　　　　　　Else
　　　　　　　　.Name = "ＭＳ Ｐゴシック"
　　　　　　　　.Size = 10
　　　　　　End If
　　　　End With
　　Next
End Sub

No.1 回答者： gyouda1114 回答日時： 2008/10/18 12:40

過去ログです

「関数で文字フォントなどの書式を変更することはできません。」ということです。


http://okwave.jp/qa2559431.html