Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
563 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79684】セルの入力 AAA 18/3/7(水) 11:16 質問[未読]
【79686】Re:セルの入力 りった 18/3/8(木) 9:48 回答[未読]
【79687】Re:セルの入力 AAA 18/3/9(金) 8:56 質問[未読]
【79688】Re:セルの入力 カリーニン 18/3/9(金) 9:32 発言[未読]
【79689】Re:セルの入力 AAA 18/3/9(金) 10:15 発言[未読]
【79690】Re:セルの入力 カリーニン 18/3/9(金) 14:01 発言[未読]
【79691】Re:セルの入力 Jaka 18/3/9(金) 14:35 発言[未読]
【79692】Re:セルの入力 AAA 18/3/9(金) 14:54 お礼[未読]
【79684】セルの入力
質問  AAA  - 18/3/7(水) 11:16 -
引用なし
パスワード
   質問させていただきます。

A1セルに1000と入力されています。
B1セルにA1*C1と入力されています。

C1セルに40%と入力するとB1セルは、A1*C1を計算し、
C1セルが未入力なら
B1セルに入力することができるようにすることは、
可能でしょうか？

説明が下手ですいません。
宜しくお願い致します。
【79686】Re:セルの入力
回答  りった  - 18/3/8(木) 9:48 -
引用なし
パスワード
   こんな感じですか？

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Not Intersect(Target, Range("A1")) Is Nothing Then
　　　　If Range("A1") = "" Then
　　　　　　Range("B1") = ""
　　　　Else
　　　　　　　　Range("B1").FormulaR1C1 = "=RC[-1]*RC[1]"
　　　　End If
　　End If
End Sub
【79687】Re:セルの入力
質問  AAA  - 18/3/9(金) 8:56 -
引用なし
パスワード
   りった様

返信ありがとうございます。

コードを貼り付けたのですが

計算できませんでした。

やり方を間違ってるのでしょうか？
【79688】Re:セルの入力
発言  カリーニン  - 18/3/9(金) 9:32 -
引用なし
パスワード
   横から失礼します。

コードをｼｰﾄモジュールに張り付けてますか？
標準モジュールとかに張り付けてませんか？
【79689】Re:セルの入力
発言  AAA  - 18/3/9(金) 10:15 -
引用なし
パスワード
   カリーニン様

返信ありがとうございます。

ｼｰﾄモジュールに張り付けてます。

でも、B1に計算されないです。
【79690】Re:セルの入力
発言  カリーニン  - 18/3/9(金) 14:01 -
引用なし
パスワード
   りったさんのコードの
Range("A1")
の部分を
Range("C1")
と書き換えて試してみてください。

なお、40％は「0.4」と入力してください。
【79691】Re:セルの入力
発言  Jaka  - 18/3/9(金) 14:35 -
引用なし
パスワード
   どこつけようか迷ったけれど・・・。

計算方法だけ。

MsgBox Application.Evaluate(Range("B1").Value)
【79692】Re:セルの入力
お礼  AAA  - 18/3/9(金) 14:54 -
引用なし
パスワード
   カリーニン様
りった様

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