Excel VBA質問箱 IV

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

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


50919 / 76733 ←次へ | 前へ→

【30694】イベントプロシージャーを自作関数
質問  川崎  - 05/11/3(木) 3:44 -

引用なし
パスワード
   Option Explicit

Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim Dt1() As Double, Dt2() As Double
If Not IsNumeric(Range("E2").Value) Then Exit Sub
If Range("E2").Value > Dt2 Then
    Dt2 = Range("E2").Value '入力された値
    If Dt1 > 0 Then
      With Application
        .EnableEvents = False
      Range("F2").Value = Dt2 - Dt1
        .EnableEvents = True
      End With

    End If
     Dt1 = Dt2
    
  End If
End Sub

☆このイベントプロシージャーを自作関数にすることはできるのでしょうか?
どこをどのようにしたら自作関数になるのでしょうか?
2 hits

【30694】イベントプロシージャーを自作関数 川崎 05/11/3(木) 3:44 質問
【30699】Re:イベントプロシージャーを自作関数 Kein 05/11/3(木) 11:41 回答
【30702】Re:イベントプロシージャーを自作関数 川崎 05/11/3(木) 13:42 質問
【30707】Re:イベントプロシージャーを自作関数 Kein 05/11/3(木) 15:45 発言
【30710】Re:イベントプロシージャーを自作関数 川崎 05/11/3(木) 18:57 質問
【30711】Re:イベントプロシージャーを自作関数 ichinose 05/11/3(木) 21:16 発言
【30725】Re:イベントプロシージャーを自作関数 川崎 05/11/4(金) 0:25 質問
【30727】Re:イベントプロシージャーを自作関数 ichinose 05/11/4(金) 7:02 発言
【30758】Re:イベントプロシージャーを自作関数 フレッツ 05/11/4(金) 14:33 お礼
【30790】Re:イベントプロシージャーを自作関数 ichinose 05/11/4(金) 19:40 発言
【30805】Re:イベントプロシージャーを自作関数 川崎 05/11/4(金) 23:01 質問
【30811】Re:イベントプロシージャーを自作関数 川崎 05/11/4(金) 23:30 質問
【30815】Re:イベントプロシージャーを自作関数 こたつねこ 05/11/4(金) 23:48 回答
【30812】Re:イベントプロシージャーを自作関数 こたつねこ 05/11/4(金) 23:33 発言
【30817】Re:イベントプロシージャーを自作関数 川崎 05/11/5(土) 0:05 回答
【30819】Re:イベントプロシージャーを自作関数 こたつねこ 05/11/5(土) 0:51 発言

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