こんにちは、よろしくお願いします。
ユーザーフォーム上にテキストボックスが 1-31が4段あります。
1-31には数字が入っているところもあれば、空白の所もあります。
このなかの数字が入っているテキストボックスの数をカウント
したいのですがうまくいきません。
自分なりにやってみたこと
テキストボックスの空白を数えて
Dim i As Integer
For i = 1 To 31
If Controls("TextBox" & i).Value = "" Then
s_su.Text =
Exit Sub
s_suはカウントされた数字を表示するテキストボックスです。
上の式の =の右側に何を書いたらいいかがわかりません。
純粋に空白のテキストボックスを数えることは可能でしょうか。
また上記のテキストボックスを1-31数字の合計を別のテキストボックスに
表示しようと思いますが、
val(TextBox1.Text) + val(TextBox2.Text)～これを31回書いてますが
もっとスマートに書けるようなコードはありますか。
↧