Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10931 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19085】同一セル内での自動計算 hatu 04/10/21(木) 11:18 質問[未読]
【19086】Re:同一セル内での自動計算 IROC 04/10/21(木) 11:41 回答[未読]
【19087】Re:同一セル内での自動計算 つん 04/10/21(木) 12:09 回答[未読]
【19120】Re:同一セル内での自動計算 hatu 04/10/22(金) 8:47 お礼[未読]
【19089】Re:同一セル内での自動計算 hatu 04/10/21(木) 13:33 質問[未読]
【19091】Re:同一セル内での自動計算 IROC 04/10/21(木) 13:59 回答[未読]
【19085】同一セル内での自動計算
質問  hatu  - 04/10/21(木) 11:18 -
引用なし
パスワード
   セルに1000と入力すると確定後、3000と表示させる方法はあるのでしょうか。？
【19086】Re:同一セル内での自動計算
回答  IROC  - 04/10/21(木) 11:41 -
引用なし
パスワード
   >3000と表示
法則がよくわかりませんが、見た目だけなら
「セルの書式設定」の「ユーザー定義」でできませんか？
【19087】Re:同一セル内での自動計算
回答  つん E-MAIL  - 04/10/21(木) 12:09 -
引用なし
パスワード
   こんにちは。

まあ、マクロでするなら、こんな感じなのかな？
３倍にするとして・・・

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　Target.Value = Target.Value * 3
　　Application.EnableEvents = True
End Sub

「数字かどうか」等判定する処理などは入れた方がいいと思いますけど・・・
【19089】Re:同一セル内での自動計算
質問  hatu  - 04/10/21(木) 13:33 -
引用なし
パスワード
   ▼IROC さん：
>>3000と表示
>法則がよくわかりませんが、見た目だけなら
>「セルの書式設定」の「ユーザー定義」でできませんか？

申し訳ございません説明不足ですね。
入力した値の3倍で表示したいのです。
例）入力値1000　->表示3000
　　　　　2000　->　　6000
　　　　　9000　->　　27000
【19091】Re:同一セル内での自動計算
回答  IROC  - 04/10/21(木) 13:59 -
引用なし
パスワード
   つんさんの方法で試してみることをお薦めいたします。
【19120】Re:同一セル内での自動計算
お礼  hatu  - 04/10/22(金) 8:47 -
引用なし
パスワード
   ▼つん さん：
>こんにちは。
>
>まあ、マクロでするなら、こんな感じなのかな？
>３倍にするとして・・・
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>　　Application.EnableEvents = False
>　　Target.Value = Target.Value * 3
>　　Application.EnableEvents = True
>End Sub
>
>「数字かどうか」等判定する処理などは入れた方がいいと思いますけど・・・

ありがとうございます。上記方法で出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10931 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free