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

[µo°Ý] "°õ¦æ¶¥¬q¿ù»~ 13«¬ºA¤£²Å¦X

[µo°Ý] "°õ¦æ¶¥¬q¿ù»~ 13«¬ºA¤£²Å¦X

¥»©«³Ì«á¥Ñ t8899 ©ó 2012-10-24 20:07 ½s¿è

¤@¶}ÀÉ¿ù»~°±¦b "If (Range("Q6").Value > Range("R1").Value) And flag = True Then"
´ú¸Õ±oª¾¬OQ6 ªº°ÝÃD, Q6¬° ¬°¬YÄæDDE¥\¯à¶×¤JªºÁ`¦X...
¿ù»~µøµ¡²¤¹L¡A¤´¥iÄ~Äò............¦p¦ó³B²zQ6¤@¶}Àɪº¿ù»~??

·Q©¿²¤"°õ¦æ¶¥¬q¿ù»~ 13«¬ºA¤£²Å¦X",
©Î¬O¦b¿ù»~¦æ¤§«e¥[¤J©µ¿ð2¬í¥ç¥i
¬O§_¥i¸Ñ¨M??¦p¦ó§ï??


Private Sub Worksheet_Calculate()
If (Range("P1").Value > Range("Q1").Value) And flag = True Then
CreateObject("Wscript.shell").Popup "OOOOO=>¤jµ§¦¨¥æ  " & (Range("P1").Value)
Cells(1, 13).Interior.ColorIndex = 2
flag = False
End If
If (Range("Q6").Value > Range("R1").Value) And flag = True Then
CreateObject("Wscript.shell").Popup "xxxxxxx=>¶q¯à©ñ¤j  " & (Range("Q1").Value)
Cells(1, 13).Interior.ColorIndex = 2
flag = False
End If
End Sub

¦^´_  t8899
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2012-10-24 21:56


¥i¥H¤F¡AÁÂÁÂ

TOP

¦^´_ 1# t8899
¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Calculate()
  2.     If (Range("P1").Value > Range("Q1").Value) And flag = True Then
  3.         CreateObject("Wscript.shell").Popup "OOOOO=>¤jµ§¦¨¥æ  " & (Range("P1").Value)
  4.         Cells(1, 13).Interior.ColorIndex = 2
  5.         flag = False
  6.     End If
  7.    
  8.     If Not IsError(Range("Q6")) Then  '¥[¤W³o
  9.         If (Range("Q6").Value > Range("R1").Value) And flag = True Then
  10.             CreateObject("Wscript.shell").Popup "xxxxxxx=>¶q¯à©ñ¤j  " & (Range("Q1").Value)
  11.             Cells(1, 13).Interior.ColorIndex = 2
  12.             flag = False
  13.         End If
  14.     End If
  15. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD