第18回「新規来訪者チェックシステムを作ろう!③」
はいどうも!つのかぼちゃです!
今回は新規来訪者チェックのプログラムについて解説していきます!
このプログラムを書きます。
実行すると~
ぱっとでました!
すごい!!
以下プログラムの説明をしていきます。
今回は③のプログラムを組み合わせています!
まず1つ目「かぶってたら黄色」
Dim i, j As Long⇒VBAさん!iとjは整数だよ!
Dim hantei As Boolean⇒VBAさん!hanteiは真か偽かだよ!
hantei = False⇒hanteiを偽にするよ!
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
⇒iが1からCells(Rows.Count, 1).End(xlUp).Rowになるまで繰り返してね!
※Rows.Count...ワークシートの全行数(Excel2007以降なら1048576行もあるつの!)
End(xlUp).Row...ワークシートの最後の行から上に見ていって最初に見つかった使用されている行数だつの!
For j = 1 To Cells(Rows.Count, 2).End(xlUp).Row
⇒jが1からCells(Rows.Count, 2).End(xlUp).Rowになるまで繰り返してね!
If 比較文字作成(Cells(i + 1, 1)) = 比較文字作成(Cells(j + 1, 2)) Then
⇒もし比較文字作成(Cells(i + 1, 1))と比較文字作成(Cells(j + 1, 2))が一致したら
hantei = True
⇒hanteiを真にしてね!
Exit For
⇒forを抜けてちょ
End If
⇒もしもの話はおしまい
Next j
⇒次のjに進んでね
If hantei Then
⇒もしhanteiが正だったら
hantei = False
⇒hanteiを偽にしてね
Else
⇒hanteiが正以外の場合
Cells(i + 1, 1).Interior.Color = 65535
⇒i+1行1列目のセルの色を65535(=黄色)にしてね!
End If
⇒もしもの話はおしまい
Next i
⇒次のiに進んでね
Call 黄色が上
黄色が上を呼んできてちょ
こんな感じです!
たぶんかなり、「???」
って感じだと思います(笑)
次回は比較文字作成について説明します!