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

¦p¦ó©â¨ú¦P¤@®æªº¤é´Á¦A¾ã¦X©O?

¦p¦ó©â¨ú¦P¤@®æªº¤é´Á¦A¾ã¦X©O?

¥»©«³Ì«á¥Ñ am0251 ©ó 2011-8-30 16:35 ½s¿è

Date and Time.rar (15.21 KB) §Ú¦³¤@­ÓÀÉ®×SHEET1´N¬O¤U¸ü¦^¨Óªº¸ê®Æ,A¦æ³£¬O®É¶¡©M¤é´Á,¦p¦ó¥i¥H§Ö³tªº§â®É¶¡©M¤é´Á¤À¶}©O?¦]¬°§Ú»Ý­n§âA¦æ©MB¦æªº¸ê®Æ©â¨ú¨ìSHEET2,¦pA2¬O"21/6/2011 16:00" ¦ÓB2 ¬O"18.82" ¥u­n "21/6/2011" & "18.82" ´N¦n¤F,¦]¬°¥u­n¬O¦P¤@¤éªº¸Ü,B¦æªº¸ê®Æ³£¤@¼Ëªº,§Æ±æ¦U¦ì¤j¤j«üÂI¤@¤U,ÁÂÁÂ~~!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# am0251
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂHsieh¤j¤jªº´£ÂI,§Ú¸Õ¤@¤U¿ý¤U¨Ó,¦A¥ÎVBA¼g¤@¦¸!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Ú¸Õ着¿ý¤U¨Ó,¦A¼g¦¨VBA,¥i¬O§Ú¿ý¤U¨Ó¤§«á¦A°µ¤@¦¸,B¦æ¥þ³£Åܦ¨¤F"AM" , "PM"
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  5. '
  6.     Columns("A:A").Select
  7.     Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  8.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
  9.         Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
  10.         :=Array(Array(1, 1), Array(2, 9)), TrailingMinusNumbers:=True
  11. End Sub
½Æ»s¥N½X
¥i±¤§Ú¯à¤O¦³­­,¤£À´Â²¤Æ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Ú¤v±q¶×¤Jªº¤è­±¸Ñ¨M¤F,¥i¬O¦pA1ªº¤é´Á¬O"21/6/2011",¦ý§Ú·Q§ä¤U¤@¤éªº¤é´Á"22/6/2011"ªº¦ì¸m¬O"A?",¸Ó«ç»ò§ä©O?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# am0251

¸Õ¸Õ±NBÄæ¦ì¥[¤WÄæ¦ì¦WºÙ­Ô¥Î¶i¶¥¿z¿ï
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂHsieh¤j¤j,¥i¬O"¶i¶¥¿z¿ï"¥i¯à¦b³o±¡ªp¦³ÂI¥Î¤£¤W,¦]¬°§Ú¬O·Q§ä¥XA¦æªº¦U¤é´Á¤¤ªº²Ä¤@­Ó»P¥kÃä¤@®æªº¸ê®Æ,¦pA2¦ÜA5³£¬O"2011/6/21",§Ú´N¥u·Q­nA2:B2ªº¸ê®Æ,¦A´_»s¨ì¨ä¥L­¶­±!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ am0251 ©ó 2011-9-7 17:27 ½s¿è

²³æªº»¡,§Ú´N¬O·Q¦b¾ã¦æ´X²Õ¬Û¦Pªº¸ê®Æ¤¤§ä¥X¨C²Õ¤¤²Ä¤@­Ó¥X²{ªº¦ì¸m
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-9-7 23:05 ½s¿è

¦^´_ 8# am0251
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A2], [A2].End(xlDown))
  4.   If IsEmpty(d(Format(a, "yyyy/m/d"))) Then d(Format(a, "yyyy/m/d")) = Array(Format(a, "yyyy/m/d"), a.Offset(, 1).Value)
  5. Next
  6. Sheet2.[A2].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items))
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

«D±`ªº·PÁÂ,¦ý¥i¥H¦A±Ð§Ú¦h¤@­Ó¥\¯à¶Ü?´N¬O¥i¥H§ä¥X¸ê®Æªº¦ì¸m©ñ¤JÅܼƤ¤¶Ü?¦]¬°§Ú¬O»Ý­n®Ú¾Ú³o¦ì¸mªº¸ê®Æ¥h°µ¨ä¥Lªº¤u§@ªº,¦A¤@¦¸¸U¤G¤Àªº·PÁÂ~~!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD