VBA - 条件付き書式（フォントサイズ）

Question

目的：条件付き書式 - フォントサイズ

K19 = "頭金出典：" もし他するとK19フォント10、12

の場合K21 = "金額"そして、K21の他のフォント10、12

をしよう：

Option Explicit 
 

 
Private Sub Worksheet_Change(ByVal Target As Range) 
 

 
Set Target = ActiveSheet.Range("K19") 
 

 

 
If Target = "Downpayment Source:" Then 
 
With ActiveSheet.Range("K19").Font 
 
.Name = "Arial" 
 
.Size = 10 
 
End With 
 
Else 
 
With ActiveSheet.Range("K19").Font 
 
.Name = "Arial" 
 
.Size = 12 
 
End With 
 
Exit Sub 
 

 

 
End Sub

このコードは機能しますが、K21を追加する方法はわかりません。

もう一つのアイデア：

B3 = "購入" なら、K19、K21のフォントサイズ10は、他の12

いずれかが働くだろう、私はVBAで経験したことだけではありませんよ。

すべてのヘルプは大幅に

Answer 1

アドレスB3が購入になったときにK19とK21を変更するオプションを高く評価しています。注意：これは、B3が変更された場合にのみトリガされます。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("B3")) Is Nothing Then 
     If Target.Value = "Purchase" Then 
      With ActiveSheet.Range("K19").Font 
       .Name = "Arial" 
       .Size = 10 
      End With 
      With ActiveSheet.Range("K21").Font 
       .Name = "Arial" 
       .Size = 10 
      End With 
     Else 
      With ActiveSheet.Range("K19").Font 
       .Name = "Arial" 
       .Size = 12 
      End With 
      With ActiveSheet.Range("K21").Font 
       .Name = "Arial" 
       .Size = 12 
      End With 
     End If 
    End If 
End Sub