Excel VBA質問箱 IV

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

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


3981 / 13644 ツリー ←次へ | 前へ→

【59058】単価*入庫数=金額の計算式のコード レラ 08/11/25(火) 15:39 質問[未読]
【59060】Re:単価*入庫数=金額の計算式のコード ゆみこん 08/11/25(火) 17:35 発言[未読]
【59073】Re:単価*入庫数=金額の計算式のコード statis 08/11/26(水) 18:49 発言[未読]

【59058】単価*入庫数=金額の計算式のコード
質問  レラ  - 08/11/25(火) 15:39 -

引用なし
パスワード
   入庫出庫データダイアログでバーコードを入力すると品名規格単価が表示されるようにしたのですが、(データシートにも転記)入庫数×単価で金額がすぐダイアログ上に表示されるようにするにはどうしたらよいでしょうか?

Private Sub txt円_Change()
'金額を入力する
    On Error Resume Next
    txt円.Value = CDbl(txt単価.Value) * CDbl(txt入庫数.Value)
    On Error GoTo 0
End Sub

これでうまくいきませんでした。よろしくお願いいたします。

【59060】Re:単価*入庫数=金額の計算式のコード
発言  ゆみこん  - 08/11/25(火) 17:35 -

引用なし
パスワード
   ▼レラ さん:
>入庫出庫データダイアログでバーコードを入力すると品名規格単価が表示されるようにしたのですが、(データシートにも転記)入庫数×単価で金額がすぐダイアログ上に表示されるようにするにはどうしたらよいでしょうか?
>
>Private Sub txt円_Change()
>'金額を入力する
>    On Error Resume Next
>    txt円.Value = CDbl(txt単価.Value) * CDbl(txt入庫数.Value)
>    On Error GoTo 0
>End Sub
>
>これでうまくいきませんでした。よろしくお願いいたします。

txt円.Value  の値を変更したいのに
txt円_Change() ”txt円に変化があった場合”では違うのでは?

何が変化した時に、何を変更させたいのか。。。

【59073】Re:単価*入庫数=金額の計算式のコード
発言  statis  - 08/11/26(水) 18:49 -

引用なし
パスワード
   ▼レラ さん:
こんにちわ
>入庫出庫データダイアログでバーコードを入力すると品名規格単価が表示されるようにしたのですが、(データシートにも転記)入庫数×単価で金額がすぐダイアログ上に表示されるようにするにはどうしたらよいでしょうか?

「入庫出庫データダイアログでバーコードを入力すると」入力したコントロールのイベントに記載するので良いのでは?

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