Excel VBA質問箱 IV

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

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


41734 / 76732 ←次へ | 前へ→

【40076】Re:textboxのカウントについて
回答  Statis  - 06/7/6(木) 17:18 -

引用なし
パスワード
   こんにちは

こんな感じですよ。

Dim i As Long, Co As Long, Co1 As Long, Co2 As Long, Co3 As Long

Co = 0: Co1 = 0: Co2 = 0: Co3 = 0
With Me
   For i = 5 To 175
     If IsNumeric(.Controls("TextBox" & i).Value) Then
      Select Case i
          Case 5 To 46
            Co = Co + 1
          Case 48 To 89
            Co1 = Co1 + 1
          Case 91 To 132
            Co2 = Co2 + 1
          Case 134 To 175
            Co3 = Co3 + 1
      End Select
     End If
   Next i
   .TextBox179.Value = Co
   .TextBox184.Value = Co1
   .TextBox189.Value = Co2
   .TextBox193.Value = Co3
   .TextBox178.Value = Val(.TextBox47.Value) * 50
   .TextBox183.Value = Val(.TextBox90.Value) * 50
   .TextBox188.Value = Val(.TextBox133.Value) * 50
   .TextBox192.Value = Val(.TextBox176.Value) * 50
   .TextBox180.Value = Co * 2000
   .TextBox185.Value = Co1 * 2000
   .TextBox190.Value = Co2 * 2000
   .TextBox194.Value = Co3 * 2000
End With

0 hits

【40062】textboxのカウントについて てつじ 06/7/6(木) 14:33 質問
【40063】Re:textboxのカウントについて Statis 06/7/6(木) 14:39 回答
【40064】Re:textboxのカウントについて てつじ 06/7/6(木) 15:07 質問
【40066】Re:textboxのカウントについて Statis 06/7/6(木) 15:37 回答
【40067】Re:textboxのカウントについて てつじ 06/7/6(木) 15:42 質問
【40068】Re:textboxのカウントについて ちょっと 06/7/6(木) 15:46 質問
【40071】コードをまとめることについて わさび 06/7/6(木) 16:42 発言
【40070】Re:textboxのカウントについて Statis 06/7/6(木) 16:40 発言
【40073】Re:textboxのカウントについて てつじ 06/7/6(木) 17:12 お礼
【40076】Re:textboxのカウントについて Statis 06/7/6(木) 17:18 回答
【40075】Re:textboxのカウントについて Kein 06/7/6(木) 17:18 回答
【40115】Re:textboxのカウントについて てつじ 06/7/7(金) 8:51 お礼

41734 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free