Excel VBA質問箱 IV

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

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


18445 / 76732 ←次へ | 前へ→

【63729】Re:ユーザーフォームでの計算
発言  kanabun  - 09/12/3(木) 20:29 -

引用なし
パスワード
   ▼やまあらし さん:

あと、
>txtBox1〜40のどれかの値が、変更するたびに
>txt合計金額 と txtおつり金額 の値が変わるように
>できますか?

については、隠しシートのChangeイベントプロシージャに
以下のような記述をしておけば連動すると思いますけど

'--------------------------------- シート「Hidden」
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If DoEvents Then
    Dim r As Range
    Set r = Intersect(Target, [A1:A50])
    If Not r Is Nothing Then
      UserForm1.txt合計金額.Text = [C2].Value
    End If
  End If
End Sub

0 hits

【63727】ユーザーフォームでの計算 やまあらし 09/12/3(木) 18:50 質問
【63728】Re:ユーザーフォームでの計算 kanabun 09/12/3(木) 20:09 発言
【63729】Re:ユーザーフォームでの計算 kanabun 09/12/3(木) 20:29 発言
【63731】Re:ユーザーフォームでの計算 kanabun 09/12/4(金) 15:38 発言
【63732】Re:ユーザーフォームでの計算 やまあらし 09/12/4(金) 16:43 お礼

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