[發問] 向線問題

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

14^#

發表於 2022-11-25 09:16 | 只看該作者

感謝劉大胃和 Andy2483 大大的幫忙這樣好多了謝謝

劉大胃

帖子: 63
主題: 8
精華: 0
積分: 122
點名: 0
作業系統: Windows 2007
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2019-4-16
最後登錄: 2023-3-24

13^#

發表於 2022-11-23 18:36 | 只看該作者

Hello, 軒云熊大

頁面::[01]
(1) 中心值為50 --> F5=50
(2) 加減值公式 --> G8= IF(G7="","",IF($F$5>=G7,"+","") & Text(($F$5-G7)*0.001,"0.000"))

頁面::[02]
(1) 中心值為10 --> B1=10
(2) 加減值公式 --> C5=IF(OR(C4="",$B$1=C4),"",IF($B$1>=C4,"+","") & TEXT(($B$1-C4)*0.001,"0.000"))

以上, 裡面的顏色, 可以用"設定格式化的條件" 功能去定義. 所以只要保留清除功能鍵, 而功能鍵裡也只要做點位及實際值的內容值清除即可.

Thanks ~

新手上路，請多包涵。

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

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

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

11^#

發表於 2022-11-23 10:10 | 只看該作者

本帖最後由 Andy2483 於 2022-11-23 10:15 編輯

回復 10# 軒云熊

謝謝前輩再提供情境範例
後學猜測情境是:
輸入前:

各個儲存格輸入後:

後學建議觸發方式,請各位前輩指導!謝謝

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim A&, Ti#, Ts$
With Target
If (.Row >= 7 And .Row <= 17 And .Row Mod 3 = 1) And (.Column >= 7 And .Column <= 16) And .Count = 1 Then
   A = .Value
   If (A < 48 Or A > 50) And (A <> 0 Or .Value <> "") Then
      .Interior.Color = RGB(255, 255, 0)
      Ti = (50 - A) / 1000
      Ts = Format(Ti, "0.000")
      .Offset(1, 0) = IIf(Ti > 0, "+" & Ts, Ts)
      .Offset(1, 0).Interior.Color = RGB(170, 240, 190)
      Else
         .Interior.ColorIndex = xlNone
         .Offset(1, 0).Interior.ColorIndex = xlNone
         .Offset(1, 0) = ""
   End If
End If
End With
Application.EnableEvents = True
End Sub

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

10^#

發表於 2022-11-22 18:49 | 只看該作者

本帖最後由軒云熊於 2022-11-22 18:58 編輯

回復 9# 軒云熊

其實我要的結果是類似這樣抱歉我說明的不清楚
不知道有沒有更好的辦法

1122.rar (32.29 KB)

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

9^#

發表於 2022-11-22 18:27 | 只看該作者

回復 8# 劉大胃
感謝劉大胃大大我沒注意到

劉大胃

帖子: 63
主題: 8
精華: 0
積分: 122
點名: 0
作業系統: Windows 2007
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2019-4-16
最後登錄: 2023-3-24

8^#

發表於 2022-11-21 17:49 | 只看該作者

Hello, 軒云熊大

依您的問題, 應該是5~-25所量測的值, 皆能補正至接近50, 對嗎?
如果是的話, 那麼公式應該是::
J21=IF(H21<>"",0+((I21-$K$6)/5),"")
K21=IF(H21<>"",I21-5*J21,"")

以上, 還是我有所誤解, 再不吝告知. Thanks ~

[H21,I21]=[5,25] ==>[-5檔, 補正至50]
[H22,I22]=[0,50] ==>[-0檔, 補正至50]
[H23,I23]=[-5,50] ==>[-0檔, 補正至50]
[H24,I24]=[-10,75] ==>[+5檔, 補正至50]
[H25,I25]=[-15,100] ==>[+10檔, 補正至50]
[H26,I26]=[-20,125] ==>[+15檔, 補正至50]
[H27,I27]=[-25,150] ==>[+20檔, 補正至50]

新手上路，請多包涵。