Excel VBA質問箱 IV

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

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


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

11730 / 76734

←次へ　｜　前へ→


	【70536】Re:現在のコード

Hirofumi - 11/11/26(土) 16:54 -


	引用なし

	パスワード

▼かさねるくんさん：
>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

UserFromのチェックボックスは幾つ在るのですか？
また、TextBoxの数は幾つ在るのですか？
其々の、CheckBox、TextBoxが表す物は何ですか？

例として
CheckBox1は種別の頭が「a」を表します
・
・
CheckBox126は種別の頭が「z」を表します

TextBox1.Valueは種別の頭が「a」のカウントを表示します
・
・
TextBox26.Valueは種別の頭が「z」のカウントを表示します

など

6 hits

▼

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