Excel VBA質問箱 IV

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

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


53692 / 76738 ←次へ | 前へ→

【27855】Re:計算根拠を表示したまま別のセルへ答えを出す。
回答  Kein  - 05/8/22(月) 13:21 -

引用なし
パスワード
   処理対象シートのシートモジュールへ、以下のマクロを入れて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
   If .Column > 1 Then Exit Sub
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Value) Then Exit Sub
   Application.EnableEvents = False
   If (IsError(.Value)) Or (Left(.Formula, 1) <> "=") Then
     MsgBox "その数式の結果はエラーです", 48
     .ClearContents
   Else
     .Offset(, 1).Value = .Value
     .Formula = " " & .Formula
   End If
  End With
  Application.EnableEvents = True
End Sub

A列の任意のセルへ「必ず数式になるような式(例えば頭に"="が無ければ、結果が
出る式と思っていても数式としての条件を満たしていないのでダメ)」を入力して
みて下さい。結果がエラーになる場合はメッセージを出してクリアします。
きちんと計算結果が出る式なら、そのセルの先頭に " " を入れて数式を表示し、
右隣りのセルに計算結果を表示します。
0 hits

【27852】計算根拠を表示したまま別のセルへ答えを出す。 tsumori 05/8/22(月) 13:03 質問
【27855】Re:計算根拠を表示したまま別のセルへ答え... Kein 05/8/22(月) 13:21 回答
【27857】Re:計算根拠を表示したまま別のセルへ答え... tsumori 05/8/22(月) 14:59 質問
【27861】Re:計算根拠を表示したまま別のセルへ答え... Kein 05/8/22(月) 16:07 回答
【27869】Re:計算根拠を表示したまま別のセルへ答え... tsumori 05/8/22(月) 17:45 質問
【27871】Re:計算根拠を表示したまま別のセルへ答え... Kein 05/8/22(月) 18:00 発言
【27873】Re:計算根拠を表示したまま別のセルへ答え... tsumori 05/8/22(月) 18:34 発言
【27881】Re:計算根拠を表示したまま別のセルへ答え... tsumori 05/8/23(火) 9:45 質問
【27918】もう少し自己努力してみます tsumori 05/8/24(水) 11:23 お礼

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