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

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

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

ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
1.«á¾Ç¦n©_ ¦V½u¬O¤°»ò?
2.¦pªG½d¨Ò¸Ìªº¨â²Õ¼Æ¾Ú¬O¤G¦¸¦±½uªºÂI!¬O¨â±ø¦±½u
16.jpg
2022-11-16 10:53


3.¥[´îªºÅܤƼƭȬO­nªí¹F¤°»ò?
2022-11-16_104639.JPG
2022-11-16 10:53


4.¥i¥H»¡©ú³oµ²ªGÂI ¼Æ¾Ú¬O¤°»ò¥Î³~?
¼Æ¾ÚÂI¥u¦³3­ÓÂI,¥i¥H§k¦Xªº¤½¦¡¦n¹³«Ü¦h!

TOP

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

TOP

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

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


    ÁÂÁ«e½ú¦A´£¨Ñ±¡¹Ò½d¨Ò
«á¾Ç²q´ú±¡¹Ò¬O:
¿é¤J«e:
2022-11-23_100133.JPG
2022-11-23 10:05


¦U­ÓÀx¦s®æ¿é¤J«á:
2022-11-23_100217.JPG
2022-11-23 10:06


«á¾Ç«Ø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

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


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

[G8]Àx¦s®æ¿é¤J =GetRangeStep(48,50,G7)  :
20221123-1.jpg
2022-11-23 16:42


[G7]...¿é¤J¼Æ¦rµ²ªG:
2022-11-23_163502.JPG
2022-11-23 16:44


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

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD