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

IF...§PÂ_¥[Á`°ÝÃD

¦^´_ 10# 074063

¸Õ¸Õ¬Ý§a¡I
    Book1x.rar (16.47 KB)

TOP

¦^´_ 11# lpk187


    Æg¡I´ú¸Õ¨S°ÝÃD¡Avba¼gªk¤j­P¤W³£¤F¸Ñ¡@:D
¡@
¡@·PÁ¤j¤j¤£³Ó¨ä·Ðªº«ü¾É¡@^__^

TOP

¦^´_ 11# lpk187


    ¤£¦n·N«ä, ½Ð°Ý¤@¤U¤j¤j¬°¤°»ò»~KEY IN¸ê®Æ¦b12¦C¥H¤W¤]·|¹Bºâ©O

TOP

¦^´_ 13# 074063


    »~KEY IN¸ê®Æ¦b12¦C¥H¤W¤]·|¹Bºâ©O
¤£À´¡H§A­ì¤½¦¡¤£¬O¤j©ó12¦C¥H¤W³£­n¹Bºâ¶Ü¡H

TOP

¦^´_ 14# lpk187


    À³¸Ó¬O»¡12¦C¥H¤U...>< Book1x.rar (15.1 KB)

TOP

¦^´_ 15# 074063

³o¼Ë¦A¸Õ¸Õ
    Book1x.rar (16.27 KB)

TOP

¦^´_ 16# lpk187


    ½Ð°Ý..³o¨Ç¬O¥Nªí¤°»ò
    Target.Row > 11 And Target.Column = 18 Or _
    Target.Row > 11 And Target.Column = 20 Or _
    Target.Row > 11 And Target.Column = 21 Then
    aa = Target.Row
    aa1 = Target.Column

TOP

¦^´_ 17# 074063

½Ð°Ñ¦ÒVBA»¡©ú:Worksheet.Change ¨Æ¥ó
¤Îµ½¥Î°Ï°ìÅܼƵøµ¡Æ[¬Ý¡A´Nª¾¹D¨º¬O¤°»ò·N«ä¤F¡I

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, t$, c
With Target
¡@¡@If .Count > 1 Or .Row < 12 Then Exit Sub Else r = .Row
¡@¡@If Application.Mode(Array(.Column, 7, 18, 20, 21, 0, 0)) = 0 Then Exit Sub
End With

On Error GoTo 1
Application.EnableEvents = False
If Cells(r, "G") = "" Then Cells(r, "V").Resize(1, 3) = "": GoTo 1

Cells(r, "V") = Cells(r, "R") + Cells(r, "T") + Cells(r, "U")
Cells(r, "W") = Cells(r, "G") - Cells(r, "V")
If Cells(r, "W") = 0 Then t = "µ²": c = 41
If Cells(r, "V") > Cells(r, "G") Then t = "¸ê®Æ¿ù»~": c = 0

Cells(r, "X") = t
Cells(r, "X").Font.ColorIndex = c
1: Application.EnableEvents = True
End Sub

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD