|
きち さん、こんばんわ。
>TextBox3、8、13が、TextBox100+TextBox300(もしくはTextBox301)
>以上、TextBox100+TextBox200(もしくはTextBox201)以下なら
>TextBox5、10、15に"○"
>それ以外なら"×"と。
>ボタン1を押す度に計算し、表示させてみたいのです。
シート上のTextBoxが、コントロールツールボックスから配置したものならば、値はOLEObjects("名前").Object.Valueでやりとりができます。
TextBox100+TextBox300(もしくはTextBox301)のもしくはの部分の判定条件がわからなかったので、単純にT100+T300以上、T100+T200以下で分岐しています。
Private Sub CommandButton1_Click()
Dim II As Integer, dt1 As Double, dt2 As Double, aa As String
With Application.ActiveSheet
dt1 = Val(.OLEObjects("TextBox100").Object.Value) + Val(.OLEObjects("TextBox300").Object.Value) '以上
dt2 = Val(.OLEObjects("TextBox100").Object.Value) + Val(.OLEObjects("TextBox200").Object.Value) '以下
For II = 1 To 3
'分岐は3、5、8
With .OLEObjects("TextBox" & (II * 5 - 2)).Object
If .Value >= dt1 And .Value <= dt2 Then aa = "○" Else aa = "×"
End With
'結果は5、10、15
.OLEObjects("TextBox" & II * 5).Object.Value = aa
Next
End With
End Sub
こんな感じですが、ボタン1とかいてあるので、フォームの方ぽいかなあ。
|
|