こんにちは～ドットコムパソコン塾の徳丸です
今日も元気ですか～
さっそく始めましょう～
今日もマクロの問題です。
こちらも知恵袋でBAをいただきました～
問題
「Ａ１」～「Ａ１００」に「１」～「１００」の値を入力しなさい。
ただし、３の倍数のときは数字の色を「青」、５のときは「黄色」、
３と５の倍数のときは「緑」にする。
下図をご覧下さい
わかりやすく太字にしてあります。
A1～A100に100までの数字が入れてあります。
結果は～
こんな感じになります。
ではコードの記述です
Sub Sample()
Dim i As Long
Dim a As String
For i = 1 To 100 '１行目から100行目まで処理
With Range("A" & i)
.Value = i
a = .Value
If a Mod 15 = 0 Then '15で割った余りが0の時は
.Font.ColorIndex = 4 '「4は緑」 フォントの色を緑にする
ElseIf a Mod 5 = 0 Then '5で割った余りが0の時は
.Font.ColorIndex = 6 '「6は黄色」 フォントの色を黄色にする
ElseIf a Mod 3 = 0 Then '3で割った余りが0の時は
.Font.ColorIndex = 5 '「5は青」 フォントの色を青にする
End If
End With
Next i
End Sub
となります。
今日も簡単なマクロです
是非試してみてください～
コードはなるべく自分で記述しましょう～
コピペは厳禁です（笑）(＊´艸｀)
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
