Excel VBA質問箱 IV

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

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


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

【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 -

引用なし
パスワード
   こんにちは。

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

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 -

引用なし
パスワード
   ▼つん さん:
>こんにちは。
>
>まあ、マクロでするなら、こんな感じなのかな?
>3倍にするとして・・・
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>  Application.EnableEvents = False
>  Target.Value = Target.Value * 3
>  Application.EnableEvents = True
>End Sub
>
>「数字かどうか」等判定する処理などは入れた方がいいと思いますけど・・・

ありがとうございます。上記方法で出来ました。

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