| |
皆様申し訳御座いません・・
文字で説明するのがヘタクソの為、自分の書いたプログラムを下記に貼り付けました。
何がしたいかと言うと、
1, TextBox1=3か4ならばTextBox1_2のテキスト数字に1を足す。
TextBox1が空白ならば何もしない。
それをTextBox1からTextBox20まで同じ処理を繰り返す。
2, TextBox1=7ならばTextBox1_2にTextBox1_2 足す TextBox_Customerの数字を入 れる。
それを同じくTextBox1からTextBox20まで同じ処理を繰り返す。
もしTextBox1から20までに"7"が無い場合はTextBox1から順番に空白のTextBoxを見付け次第TextBoxに7を入れてTextBox?_1にTextBox_Customerの数字を入れる。
の上記２つのプログラムをボタンクリックで実行したいのですが、下記のプログラムの様にずっと書いて行くと凄くデーター量が多いくなるので、何か簡単な方法がないかと思い助けを求めております m(_ _)m
Sub ButtonA_Click()
Dim MS60 As Integer
Dim CN As Integer
Dim TBB1 As String
Dim TBB2 As String
TBB1 = 3
TBB2 = 4
MS60 = 7
CN = TextBox_Customer.Caption
'一個目の計算
If TextBox1 <> "" Then
If TextBox1.Text = 3 Or 4 Then
TextBox1_2.Text = TextBox1_2.Text + 1
End If
End If
If TextBox2.Text <> "" Then
If TextBox2.Text = 3 Or 4 Then
TextBox2_2.Text = TextBox2_2.Text + 1
End If
End If
If TextBox3.Text <> "" Then
If TextBox3.Text = 3 Or 4 Then
TextBox3_2.Text = TextBox3_2.Text + 1
End If
End If
・
・さらにTextBox20まで続く
・
'別の計算
If TextBox1 = MS60 Then
TextBox1_2.Text = TextBox1_2.Text + CN - 1
ElseIf TextBox1 = "" Then
TextBox1 = MS60
TextBox1_2 = CN
GoTo End_Sub
ElseIf TextBox2 = MS60 Then
TextBox2_2 = TextBox2_2 + CN - 1
ElseIf TextBox2 = "" Then
TextBox2 = MS60
TextBox2_2 = CN
GoTo End_Sub
ElseIf TextBox3 = MS60 Then
TextBox3_2 = TextBox3_2 + CN - 1
ElseIf TextBox3 = "" Then
TextBox3 = MS60
TextBox3_2 = CN
GoTo End_Sub
・
・さらにTextBox20まで続く
・
Else
MsgBox ("該当無し")
End If
End_Sub:
End Sub
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/3/20(月) 0:18 -
