ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦V½u°ÝÃD

[µo°Ý] ¦V½u°ÝÃD

½Ð°Ý¸Ó¦p¦ó¼g ¦pªþ¥ó


20221114.rar (12.91 KB)

·PÁ ¼B¤j­G  ©M Andy2483  ¤j¤jªºÀ°¦£   ³o¼Ë¦n¦h¤F ÁÂÁÂ

TOP

Hello, °a¤ªºµ ¤j

­¶­±::[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"))

¥H¤W, ¸Ì­±ªºÃC¦â, ¥i¥H¥Î"³]©w®æ¦¡¤Æªº±ø¥ó" ¥\¯à¥h©w¸q. ©Ò¥H¥u­n«O¯d²M°£¥\¯àÁä, ¦Ó¥\¯àÁä¸Ì¤]¥u­n°µÂI¦ì¤Î¹ê»Ú­Èªº¤º®e­È²M°£§Y¥i.

Thanks ~
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 10# °a¤ªºµ


    ÁÂÁ«e½ú
«á¾ÇÂǦ¹½d¨Ò½m²ß ¦Û­q¸q¨ç¼Æ,Æ[©À¤£ª¾¬O§_¹ï?? Àµ½Ð¦U¦ì«e½ú«ü¾É!ÁÂÁÂ

[G8]Àx¦s®æ¿é¤J =GetRangeStep(48,50,G7)  :


[G7]...¿é¤J¼Æ¦rµ²ªG:


Option Explicit
Function GetRangeStep(Mi As Long, Mx As Long, xArea As Range)
'¦Û­q¸q¨ç¼Æ GetRangeStep(³Ì¤p­È,³Ì¤j­È,­pºâªºÀx¦s®æ)
'[G8]Àx¦s®æ¿é¤J =GetRangeStep(48,50,G7)
'[G8]Àx¦s®æ½Æ»s¤½¦¡¨ì¨ä¥LÀx¦s®æ
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

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2022-11-23 10:15 ½s¿è

¦^´_ 10# °a¤ªºµ


    ÁÂÁ«e½ú¦A´£¨Ñ±¡¹Ò½d¨Ò
«á¾Ç²q´ú±¡¹Ò¬O:
¿é¤J«e:


¦U­ÓÀx¦s®æ¿é¤J«á:


«á¾Ç«ØijIJµo¤è¦¡,½Ð¦U¦ì«e½ú«ü¾É!ÁÂÁÂ

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

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2022-11-22 18:58 ½s¿è

¦^´_ 9# °a¤ªºµ

¨ä¹ê §Ú­nªºµ²ªG¬OÃþ¦ü³o¼Ë  ©êºp §Ú»¡©úªº¤£²M·¡
¤£ª¾¹D¦³¨S¦³§ó¦nªº¿ìªk
1122.rar (32.29 KB)

TOP

¦^´_ 8# ¼B¤j­G
·PÁ ¼B¤j­G¤j¤j §Ú¨Sª`·N¨ì

TOP

Hello, °a¤ªºµ ¤j

¨Ì±zªº°ÝÃD, À³¸Ó¬O5~-25©Ò¶q´úªº­È, ¬Ò¯à¸É¥¿¦Ü±µªñ50, ¹ï¶Ü?
¦pªG¬Oªº¸Ü, ¨º»ò¤½¦¡À³¸Ó¬O::
J21=IF(H21<>"",0+((I21-$K$6)/5),"")
K21=IF(H21<>"",I21-5*J21,"")

¥H¤W, ÁÙ¬O§Ú¦³©Ò»~¸Ñ, ¦A¤£§[§iª¾. 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]
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 6# Andy2483

¥i¥H¤F  ÁÂÁÂ Andy2483 ¤j¤j

TOP

½Ð«e½ú¸Õ¸Õ¬Ý
1.G13=IF(G6<>"",G6+((H6-$H$6)/5),"")
2.H13=IF(G6<>"",$H$6,"")
3.G13:H13 ¤U¨ê¨ì G17:H17

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD