Excel VBA質問箱 IV

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

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


35955 / 76732 ←次へ | 前へ→

【45965】Re:シート上に貼り付けた、テキストボックスの計算
回答  りん E-MAIL  - 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
     '分岐は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とかいてあるので、フォームの方ぽいかなあ。

1 hits

【45964】シート上に貼り付けた、テキストボックスの計算 きち 07/1/19(金) 16:37 質問
【45965】Re:シート上に貼り付けた、テキストボック... りん 07/1/19(金) 17:53 回答
【45969】Re:シート上に貼り付けた、テキストボック... きち 07/1/19(金) 21:15 質問
【45971】Re:シート上に貼り付けた、テキストボック... neptune 07/1/19(金) 22:57 発言
【46011】Re:シート上に貼り付けた、テキストボック... きち 07/1/21(日) 12:46 質問
【46012】Re:ユーザーフォームに変更、テキストボッ... きち 07/1/21(日) 12:54 質問
【46074】Re:ユーザーフォームに変更、テキストボッ... きち 07/1/22(月) 13:56 お礼
【46081】Re:シート上に貼り付けた、テキストボック... りん@とおりすがり 07/1/22(月) 15:53 回答
【46115】Re:シート上に貼り付けた、テキストボック... きち 07/1/23(火) 10:49 質問
【46118】Re:シート上に貼り付けた、テキストボック... りん@とおりすがり 07/1/23(火) 11:09 回答
【46130】Re:シート上に貼り付けた、テキストボック... きち 07/1/23(火) 17:46 質問
【46147】Re:シート上に貼り付けた、テキストボック... りん@とおりすがり 07/1/24(水) 12:56 発言
【46155】Re:シート上に貼り付けた、テキストボック... きち 07/1/24(水) 20:00 お礼

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