A B
商品 在庫数
りんご 18
いちご 50
バナナ 欠品
というような表で、
文字列ならMSPゴシック、サイズ10に。
数値ならHG丸ゴシックM-PRO、サイズ13に設定したいのですが、
条件付き書式ではフォントの設定は出来ないんですね。
色々調べて、VBAなら実現可能だということまではわかったのですが、
VBAに関してはネット上で拾ってきたすでに書かれたものを少しカスタマイズする程度の本当に微妙な知識しかなく、
いくら調べても希望に合うものが見つかりません(条件付きを4つ以上…なら沢山あったので、
それを元に少しやってみましたが出来ませんでした/苦笑)
職場からは書き込みが出来ず、休憩を利用しての携帯からの投稿なため
自分で書いたソースを提示して添削、というのが出来ない状況で大変申し訳ないのですが、
よろしければお力を貸していただければ幸いです。お願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
経験なくてわからないだろうが、この課題には2通りの場合がある。
その区別が書いてない。
(1)既にデータは入れ終わっていて、条件によってフォントの種類を変える。多少データが増えてもVBAの実行を再度行ってよいーー>バッチ処理
(2)データが増えた都度、フォントの種類を即座に変えたいーー>イベント処理。
(1)は最下行番号を割り出す。
先頭から最下行まで、数値(IsNumeric)であればHG丸ゴシックM-PRO、それ以外だと(Font.Nameを)MSPゴシックに設定する。
それを最下行まで全行について繰り返す。
これぐらいコードはわかるでしょう。
(2)イベントの場合は、Changeイベントを使う。
Target.Columnが対象列(B列なら2)かどうか判別する。それ以外は、スキップする。
後は、数値(IsNumeric(Target)がTrueであればHG丸ゴシックM-PRO、それ以外だと(Font.Nameを)MSPゴシックに設定する。
ーー
本質問は課題丸投げであり、それほど難しいコードでなく、行数もわずかなので、全部は挙げない。自分で勉強して見てください。
No.3
- 回答日時:
もっと良い方法があるとは思いますが、
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 = "MS Pゴシック"
.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 = "MS Pゴシック"
.Size = 10
End With
End If
End If
End Sub
No.2
- 回答日時:
試しにマクロを組んでみました。
場合によっては、シートのWorksheet_Changeイベントを使えば良いかもしれません。
Sub testフォント()
Dim c As Range
For Each c In Range(B2:B100)
With c.Font
If IsNumeric(c) Then
.Name = "HG丸ゴシックM-PRO"
.Size = 13
Else
.Name = "MS Pゴシック"
.Size = 10
End If
End With
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで条件付き書式を設定 3 2023/07/14 17:52
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) 重複データの抽出について 2 2023/07/21 14:52
- Excel(エクセル) 条件付き書式でフォント色を赤に設定しましたが、 2 2023/07/29 14:17
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- その他(インターネット接続・インフラ) Webサイトのフォント・級数変更について 1 2022/10/18 18:08
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) Excel 条件付き書式について 1 2022/12/14 20:38
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
セルの書式設定のフォントやサイズの設定はできないの
Excel(エクセル)
-
セルの条件によってフォントサイズを変更したい。
Excel(エクセル)
-
excel:条件付きでセルの文字サイズを変える方法は?
Excel(エクセル)
-
-
4
VBAで条件によりフォントサイズを自動で変更したい2
Excel(エクセル)
-
5
VBAで条件によりフォントサイズを自動で変更したい
Excel(エクセル)
-
6
関数で抽出したセルの一部の文字を変更したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
楽天イーグルスの話
-
第一弾?第一段?
-
どかんと一発やってみようよ、...
-
三相電源の各相(RST)の意味
-
セットポジションで静止してか...
-
丸1年とは?
-
ジーク・ジオン
-
マクドナルドのバイトを始めて...
-
「ギター」って漢字(日本名)は...
-
ナルト シリーズの区切りを教...
-
ジャニーズ興味ないので気づか...
-
少年野球辞めさせたいと思う私...
-
少年野球 弱いチームか強いチ...
-
硬式野球はなぜあんなに硬い球...
-
「うちの高校に来てください」...
-
野球のピッチャーの素質の見極め方
-
MLBはなぜダブルヘッダーを組む...
-
Excelで条件付き書式によるフォ...
-
1点取られてもノーヒットノー...
-
中学生から野球を始めてプロ野...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
もしかして、水原一平さん大谷...
-
雨天コールドゲームは何回で成...
-
第一弾?第一段?
-
どかんと一発やってみようよ、...
-
三相電源の各相(RST)の意味
-
丸1年とは?
-
高校一年の女子です。 野球部の...
-
臨時代走のスコアブック記載方法
-
「ギター」って漢字(日本名)は...
-
野球のルールで右安などの漢字...
-
宿題を出さないのと、答え丸写...
-
練習をしないで、レギュラーお...
-
ジーク・ジオン
-
右投手は何て言うんですか?
-
ナルト シリーズの区切りを教...
-
ノーゲームとコールドの条件
-
女性からサッカーやってそうと...
-
野球で、打・得・安・四・点と...
-
日刊スポーツのスコア。投手の...
-
ピッチャー本人がエラーした場...
おすすめ情報