Excel VBA質問箱 IV

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

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


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

35961 / 76738

←次へ　｜　前へ→


	【45965】Re:シート上に貼り付けた、テキストボックスの計算

りん

- 07/1/19(金) 17:53 -


	引用なし

	パスワード

きちさん、こんばんわ。

>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
　　　　 '分岐は３、５、８
　　　　 With .OLEObjects("TextBox" & (II * 5 - 2)).Object
　　　　　　If .Value >= dt1 And .Value <= dt2 Then aa = "○" Else aa = "×"
　　　　 End With
　　　　 '結果は５、１０、１５
　　　　 .OLEObjects("TextBox" & II * 5).Object.Value = aa
　　　Next
　 End With
End Sub

こんな感じですが、ボタン１とかいてあるので、フォームの方ぽいかなあ。

0 hits

▼

【45964】シート上に貼り付けた、テキストボックスの計算 きち 07/1/19(金) 16:37