Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50916 / 76738

←次へ　｜　前へ→


	【30702】Re:イベントプロシージャーを自作関数

川崎 - 05/11/3(木) 13:42 -


	引用なし

	パスワード

▼Kein さん：
>数式を入力するセルの、１つ左のセルの値を Dt2 として
>
>Function MyClc(Dt1 As Double) As Double
>　 With ActiveCell.Offset(, -1)
>　　　If IsEmpty(.Value) Then Exit Function
>　　　If Not IsNumeric(.Value) Then Exit Function
>　　　Dt2 = .Value
>　 End With
>　 MyClc = Dt2 - Dt1
>End Function
>
>という式で =MyClc(数値Dt1) と入力すれば、計算結果が出ます。

ご回答ありがとうございます！
あの～大事な部分なので解説を頂ければと思います。
ActiveCell.Offset(, -1)はなぜ－1になっているのでしょうか？
それとWorkbook_SheetCalculateの部分はどこにいってしまったのでしょう？
数値Dt1に入るのは数式なんですが、直接数式を入力して
大丈夫ですか？
よろしくお願いします。

0 hits

▼

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