- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-5-5
|
12#
發表於 2022-11-23 16:45
| 只看該作者
回復 10# 軒云熊
謝謝前輩
後學藉此範例練習 自訂義函數,觀念不知是否對?? 懇請各位前輩指導!謝謝
[G8]儲存格輸入 =GetRangeStep(48,50,G7) :
[G7]...輸入數字結果:
Option Explicit
Function GetRangeStep(Mi As Long, Mx As Long, xArea As Range)
'自訂義函數 GetRangeStep(最小值,最大值,計算的儲存格)
'[G8]儲存格輸入 =GetRangeStep(48,50,G7)
'[G8]儲存格複製公式到其他儲存格
Dim xR As Range, xV$, Ti#, Ts$
Application.Volatile
If (xArea.Value < Mi Or xArea.Value > Mx) And xArea.Value <> "" Then
Ti = (50 - xArea) / 1000
Ts = Format(Ti, "0.000")
xV = IIf(Ti > 0, "+" & Ts, Ts)
Else
xV = ""
End If
GetRangeStep = xV
End Function |
|