５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
受講生さんの投稿
(投稿ID: 2159)
それを動画で確認してから[2]も考えてみました。
なんと動画を見ないで解けました(≧▽≦)
B列とC列で数字の動きは違うけれども、
判別条件はまったく同じなので、まとめてできないかなと。
変数+１を入れる位置がちょっと自信ありませんが
[/code]
Sub rensyu032701()
Dim gyo
Dim BF
Dim CF
BF = 0
CF = 0
For gyo = 4 To 19
If Range("D" & gyo).Value <> Range("d" & gyo - 1).Value Then
BF = BF + 1
CF = 1
Else
CF = CF + 1
End If
Range("B" & gyo).Value = BF
Range("C" & gyo).Value = CF
Next
End Sub
[/code]
by gooska
ゲストさんのコメント
(コメントID: 3545)
特にコメントないです。解ければすばらしいです。