EGBT

¦^´_ 26# GBKEE


    GBKEE¤j¤j±z¦n...«Ü¤£¦n·N«ä,§Ú¬ðµM¦³¤@­Ó°ÝÃD

°²³] "¼Æ­È1" ¦b "°}¦C1" °µMatch

¤ñ¹ï¥X¨Ó¬O¦n´X¦C,

¨º§Ú­n«ç»ò§ì¥X¤ñ¹ï«áªº¦C¼Æ¡A¦bBÄ檺¤º®e?

¨Ò¦p¡G¤ñ¹ï¥X¨Ó100¦C (A100)¡A¨º¥i¥H§ì¥X (B100) ªº¤º®e¶Ü?

EGBT

¦^´_ 26# GBKEE


    Ãö©ó«e­Ó°ÝÃDªºMatch Date

±N M = Application.Match(Ar(i), ProductRun.Range("A:A"), 1)

=>  M = Application.Match(CLng(CDate(Ar(i))), ProductRun.Range("A:A"), 1)

ÁÂÁ§AÅo

EGBT

¦^´_ 26# GBKEE


    «¢Åo GBKEE ¤j¤j~

­Y¬O³o­Ó¼gªk"¼Æ­È"»P"°}¦C"¤ñ¸û«D³æ¯Â¼Æ­È¡A­Y¬O¤é´Á©O¡H

EGBT

¦^´_ 26# GBKEE


    ¦n³á ÁÂÁ¤j¤j

GBKEE

¦^´_ 25# EGBT

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim ¼Æ­Èªí As Variant, e As Variant
   
4.     ¼Æ­Èªí = "¼Æ­È¥Ò%A#¼Æ­È1%A#¼Æ­È2%A#¼Æ­È123456%A#¼Æ­Èabc"
   
5.     '*******************************************
   
6.     'Split : ¥H©Ò«ü©wªº¦r¦ê, ¤À³Î¦Ó¦¨¬°°}¦C
   
7.     ¼Æ­Èªí = Split(¼Æ­Èªí, "%A#")
   
8.     '*******************************************
   
9.     For Each e In ¼Æ­Èªí
   
10.         MsgBox e
    
11.     Next
    
12. End Sub

½Æ»s¥N½X

EGBT

¦^´_ 21# GBKEE


    ¤j¤j·Q¦A½Ð±Ð¤@¤U,

¤W­±¦³¤@¦æ¬O¡u¼Æ­Èªí = Split(Mid(¼Æ­Èªí, 2), ",")¡v

³o¦æ¥i¥H¸ÑÄÀ¤@¤U¶Ü...¼Æ­Èªí¦³¥i¯à·|µ¥©ó¡u¼Æ­È¡B¼Æ­È1¡B¼Æ­È2....¼Æ­È123456¡v°²³]«e­±ªºIf ... Like "¼Æ­È*******"

§A³o¦æ¡u¼Æ­Èªí = Split(Mid(¼Æ­Èªí, 2), ",")¡v¥i¥H¸ÑÄÀµ¹¤p§Ì²z¸Ñ¶Ü...

ÁÙ¦³¤@­Ó°ÝÃD´N¬O¡A·í¾ã­Ó¦r¦ê¦¨¬°¤£³W«ß¥B±N¦r¦ê³sµ²°_¨Ó¤¤¶¡¥Î³r¸¹¹j¶}¡u¥xÆW,¤¤°ê,«Xù´µ,¬ü°ê...¡v¡A§Ú­n«ç»ò¹J¨ì³r¸¹´N¤Á³Î¤@­Ó¦r¦ê¥X¨Ó?

EGBT

¦^´_ 21# GBKEE


    ¤j¤j§Ú©ú¥Õ¤F...¥L¬O¥Î¡u,¡v¤À¹j¶}¨Ó...§ÚÀ´¤F...

EGBT

¦^´_ 21# GBKEE


    ¤j¤j..¤p§Ì¦b¦r¦ê¶°¦Xªí¤£¤ÓÀ´...¦r¦ê¶°¦Xªí¥L¬O§â»P"¼Æ­È"¬Û¦üªº©ñ¶i¥h¡u¼Æ­Èªí¡v¸Ì­±¶Ü?

¦ý¡u¼Æ­Èªí¡v¥L¤£¬O«Å§iVariant¶Ü? ¥L¥i¥H³sÄò©ñSheet¦r¦ê¶Ü?

¤£¬O­n¹³«Å§i°ÊºA°}¦C¨Ò¦p«Å§i¡u¼Æ­Èªí()¡v¶Ü¡H

EGBT

¦^´_ 21# GBKEE


    ·P®¦¤j¤jªº²Ó¤ß­@¤ß¶}¥Ü!

GBKEE

¦^´_ 20# EGBT

1. Sub Ex()
   
2.     Dim ¼Æ­Èªí As Variant, °}¦Cªí As Variant, E As Variant
   
3.     'Variant ¸ê®Æ«¬ºA¬O©Ò¦³¨S³Q©ú½T«Å§i¬°¨ä¥L«¬ºA,¥i¥H¬°»{¦óªº¸ê®Æ«¬ºA
   
4.     For Each E In Sheets
   
5.         If E.Name Like "¼Æ­È*" Then
   
6.             ¼Æ­Èªí = ¼Æ­Èªí & "," & E.Name '¦r¦ê:¶°¦X¼Æ­Èªí
   
7.            MsgBox VarType(¼Æ­Èªí) '8 (¦r¦ê )
   
8.         End If
   
9.     Next
   
10.     '*******************************************
    
11.     'Split : ¦r¦ê¥H "," (¥ô¦ó«ü©wªº¦r¦ê) ¤À³Î¦Ó¦¨¬°°}¦C
    
12.     ¼Æ­Èªí = Split(Mid(¼Æ­Èªí, 2), ",")
    
13.     '*******************************************
    
14.     MsgBox VarType(¼Æ­Èªí) '8192 (°}¦C) + 8 (¦r¦ê )
    
15.     For Each E In Array("¼Æ­È1", "¼Æ­È2", "¼Æ­È3")         '¤u§@ªí°}¦C(¼Æ­Èªí)
    
16.         MsgBox VarType(E)   '8 (¦r¦ê )
    
17.     Next
    
18.     'For Each E In Sheets(Array("¼Æ­È1", "¼Æ­È2", "¼Æ­È3"))         '¤u§@ªí°}¦C(¼Æ­Èªí)
    
19.     For Each E In Sheets(¼Æ­Èªí)           '¤u§@ªí°}¦C(¼Æ­Èªí)
    
20.         MsgBox VarType(E)   ' 9 ª«¥ó
    
21.     Next
    
22. End Sub

½Æ»s¥N½X