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

[µo°Ý] ¥ÎVBA¿é¤J¤½¦¡ªº°ÝÃD

[µo°Ý] ¥ÎVBA¿é¤J¤½¦¡ªº°ÝÃD

¥»©«³Ì«á¥Ñ play9091 ©ó 2011-7-20 15:51 ½s¿è

¨Ò¦p¡G§Ú·Q­n¦bE3³o¤@®æ¸Ì­±¿é¤J¡u=text(right(A11,8),"hh:mm:ss")>="02:00:00"¡v

§Ú¥ÎVBA¼g¦¨¤U­±³o¼Ë¤l
Range("E4").Value = "=Text(Right(A11, 8), " & "hh:mm:ss" & ") >= " & "02:00:00"""

¦ý¶]ªº®É­Ô·|¥X¿ù¡A¨S¦³¿ìªk¼g¨ìÀx¦s®æ¸Ì­±¡A½Ð°Ý¤@¤U¡A³o­n«ç»ò¼g¡H¡H
ªì¾ÇVBA¥E¨ìtwbts

¦^´_ 5# play9091

³o³Ì¥D­nªº­ì¦]¬O¦]¬°§Aªº¦r¦ê¤º¥]§tÂù¤Þ¸¹"
³o¼ËªºÂù¤Þ¸¹¬OÄÝ©ó¦r¦êªº¤@³¡¤À
³oºØ±¡§Îªº»yªk¤@­ÓÂù¤Þ¸¹¥²¶·¬O4­Ó"©Òªí¥Ü
¦pªG©Èºâ¿ù¡A¥i§Q¥Î¿ý»s¥¨¶°¨ú±o¥¿½T¼gªk
¥ç¥i¨Ï¥ÎCHR¨ç¼Æ¨Óªí¥Ü"
  1. Sub Ex()
  2. n = """"
  3. MsgBox n
  4. MsgBox "=Text(Right(A11, 8)," & Chr(34) & "hh:mm:ss" & Chr(34) & ")>=" & Chr(34) & "02:00:00" & Chr(34)
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

OK¡A¤F¸Ñ¤F¡A·í¥ÎÅܼƪº®É­Ô´N¶·­n¥Î¨ì³s±µ¸¹(&)¡K¡K
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 3# play9091
  1. Sub Ex()
  2.     Dim A As String
  3.     A = """02:00:00"""
  4.     Range("E4").Value = "=Text(Right(A11, 8), ""hh:mm:ss"") >=" & A
  5. End Sub
½Æ»s¥N½X

TOP

³á¡I
­ì¨Ó¥i¥H¤£¥Î³s±µ²Å¸¹(&)¡A¨º¦A½Ð°Ý¡A¤°»ò±¡ªp¤U¶·­n¥Î¨ì³s±µ²Å¸¹¡A¤S¤°»ò±¡ªp¤U¤£¶·­n©O¡H¡H
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 1# play9091
Range("E4").Value = "=Text(Right(A11, 8), ""hh:mm:ss"") >= ""02:00:00"""

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD