Excel VBA質問箱 IV

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

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


53680 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   >If IsEmpty(.Value) Then Exit Sub
もしイベント発生対象のセルが未入力、またはクリアによって未入力となった場合、
IsEmpty関数が True を返しますから、それを判定してマクロを中止しろ、という
コードです。IsEmpty関数をヘルプで調べてみて下さい。あと "〜 = True Then"
と比較する値は、True の場合は省略できることも覚えて下さい。

>=は入れずにエンターを押す
ということなら、以下のコードと変更して下さい。

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

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 お礼

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