Excel VBA質問箱 IV

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

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


13590 / 76732 ←次へ | 前へ→

【68645】Re:テキストボックスでの数式について
回答  UO3  - 11/4/1(金) 9:44 -

引用なし
パスワード
   ▼レッズ命 さん:

こんにちは

この処理を行うタイミングをどう考えておられるのか不明ですが、少なくとも
TextBox3の内容を足し算でいれかえてしまった後、その内容だけから足し算する前の
値を取り出すことは不可能です。
かりにTextBox2およびTextBox3の入力をトリガーとして処理を行う案です。

★ただし、このような構成は疑問です。
 TextBox3 と TextBox2 は、それぞれ入力用としておき、足し算結果は、別のTextBoxなり
 Labelなりに表示したほうが扱いやすいと思うのですが・・・

Option Explicit

Dim flag As Boolean

Private Sub TextBox2_AfterUpdate()
  If Not flag Then exCal
End Sub

Private Sub TextBox3_AfterUpdate()
  If Not flag Then exCal
End Sub

Private Sub exCal()
  Dim t2 As Long, t3 As Long
  flag = True
  t2 = Val(TextBox2.Value)
  t3 = Val(TextBox3.Value)
  TextBox2.Value = t2 + t3
  Range("B1").Formula = "=" & t3 & "+" & t2
  flag = False
End Sub

0 hits

【68644】テキストボックスでの数式について レッズ命 11/3/31(木) 23:17 質問
【68645】Re:テキストボックスでの数式について UO3 11/4/1(金) 9:44 回答
【68646】Re:テキストボックスでの数式について kanabun 11/4/1(金) 9:52 発言
【68653】Re:テキストボックスでの数式について レッズ命 11/4/1(金) 13:22 お礼

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