Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11732 / 76734

←次へ　｜　前へ→


	【70534】現在のコード

かさねるくん - 11/11/26(土) 16:27 -


	引用なし

	パスワード

For i = 1 to Range("B1").End(xlDown).Row
If checkbox1.Value = True Then
　If LEFT(LCase(Cells( i, 2).Value),1) = "a" Then
　 Cells( i, 20) = "a"
　 Cnt1 = Cnt1 + 1
　End If
Else
　If checkbox2.Value = True Then
　 If LEFT(LCase(Cells( i, 2).Value),1) = "b" Then
　　Cells( i, 20) = "b"
　　Cnt2 = Cnt2 + 1
　 End If
　Else
　 If checkbox3.Value = True Then
　　If LEFT(LCase(Cells( i, 2).Value),1) = "c" Then
　　 Cells( i, 20) = "c"
　　 Cnt3 = Cnt3 + 1
　　End If
　 End If
　End If
End If
Next i

Cells( Range("B1").End(xlDown).Row + 1, 20) = "end"

TextBox1.Value = Cnt1
TextBox2.Value = Cnt2
TextBox3.Value = Cnt3

For i = 1 to Range("B1").End(xlDown).Row
If Cells( i, 20).Value = "end" Then
　Exit Sub
End If
If Cells( i, 20).Value = "" Then
　Rows(i).Select
　Selection.Delete Shift:=xlUp
　i = i - 1
End If
Next i

3 hits

▼

【70530】データを検索したり行削除したりしたい かさねるくん 11/11/26(土) 11:07