|
コマンドボタンを押す毎に交互に切り換えるには(フォント)
どのようなコードにすればいいのか解りません
よろしくお願いします。
Private Sub CommandButton13_Click()
Dim i As Long
Dim j As Long
Dim v As Variant
ActiveSheet.Unprotect
Range("E3:E22,K3:L22,P3:Q22,T3:T22,X3:X22").Select
Range("E3").Activate
With Selection.Font
.Name = "Courier New"←★ここを変更したい
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
End Sub
ActiveSheet.Unprotect
Range("E3:E22,K3:L22,P3:Q22,T3:T22,X3:X22").Select
Range("E3").Activate
With Selection.Font
.Name = "MS Pゴシック"←★ここを変更したい
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
|
|