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