Excel VBA基礎:ループと条件分岐を完璧にマスターする!リスト内のデータを1行ずつ確認して、条件に一致すればセルを塗りつぶす方法を解説します!
Vložit
- čas přidán 6. 10. 2023
- For文、If文って聞いたことありますか?それぞれ繰り返し、条件分岐の構文なのですが、プログラミングで繰り返し(ループ)、条件分岐というのはものすごく重要な処理です。みんな知っています。
今回の動画では、あるリストをベースに、指定の文字が一致する場合にセルの色を塗りつぶすというVBAコードです。
ループ・条件分岐は本当に必要な知識となりますので、ぜひご視聴くださいませ。
👯⬇ジンジニアの業務改善研究所⬇🖥
jinjineer.net/
人事だけじゃなく、すべてのBusiness personに対して
効率化になるようなツールや有益な情報を発信しています。
ぜひブックマークを!!!!
🖥⬇今回のVBAコード⬇🖥
'----------------------------------------------------
' リスト内をループして条件が一致したらセルを塗りつぶすコード
'----------------------------------------------------
Sub リスト内をループして塗りつぶし()
' シートの定義
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("シート名")
' 最下行を取得
最終行番号 = ws.Cells(Rows.Count, 2).End(xlUp).Row
' ループ
For 行番号 = 4 To 最終行番号
' *************************************
' 処理
' C列の値が人事部だったとき、セルの色を塗りつぶす
If ws.Range("D" & 行番号).Value = "人事部" Then
' 行を塗りつぶす(黄色)
ws.Range("B" & 行番号 & ":F" & 行番号).Interior.Color = RGB(255, 255, 204)
End If
' *************************************
Next
End Sub
'----------------------------------------------------
✅BGM
いつもお世話になっております!!
音楽:魔王魂
maou.audio/
#Excel
#VBA
#ジンジニア
#Jinjineer