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

play9091

¨Ò¦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

GBKEE

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

play9091

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

GBKEE

¦^´_ 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

play9091

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

Hsieh

¦^´_ 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