ML089

¦^´_ 28# sunnyso

Scripting.Dictionary ¨S¦³ª½±µ¥Î°j°é¤ñ¸û¨Óªº§Ö

ML089

¦^´_ 30# sunnyso

·PÁÂ!¨ü±Ð
§Aªº¸ÑÄÀ§ÚÀ´¤F

sunnyso

¦^´_ 31# ML089

·|¤ñMatch§Ö¶Ü?

¥t¥~,¦bNetbook¡]N470 1.83GHz)¤W¦r¨åªk§Ö¹L­~°é,

c_c_lai

¬Ý§¹1#ªþ¥ó¡A²Ä¤@¤ÏÀ³¬Oı±o²Ä¤TºØ¤èªkªºVBA CODE ¤¤ For¤Uªº¤£¤Ó¦n¡A­n¬°¥L¥­¤Ï !!! À³¸Ó¬O¹³c_c_lai¤j³o¼Ë ...
stillfish00 µoªí©ó 2013-6-4 20:05

ÁÂÁ«ü¾É¡I
Exit Sub ¾A«×ªº¸m¤J¡Aªº½T¯àÁ×±¼¤£¥²­nªº®ö¶O°j°é¡A
¥ÎÅܼƨӨú¥N½T¹ê¤]¦³¨Ç³\ªº§U¯q¡A¦pªG Month()
¨Ï¥ÎÀW²v¤jªº¸Ü¡A¨º´N·|¦³«Ü¤j¦a®Ä²v´£¤É¤F¡C
¦A¦¸¦V§A»¡ÁnÁÂÁ¡C

c_c_lai

¦^´_  sunnyso
ML089 µoªí©ó 2013-6-5 21:38

¦p¦¹­×§ï«á½T¹ê¦³¤£¿ù®Ä¯q´£¤É¡C
¦h¨¤«×ªº«äºû¥ç¯à¦ÒÅç»P¼W¶i§Ú­Ì«ä¦Òªº¯à¤O¡C
ÁÂÁ§A¡C

ML089

¦^´_ 33# sunnyso


¦bPC¤Wi5 2.8GHz RAM-4G¤W³t«×§ÖºC¤ñ¸û
°j°é¤ñ¸û > ¦r¨å¬d¸ß > MATCH¬d¸ß

¤£¦PµwÅ馳¤£¦Pªº®ÄªG¡A¬Æ¦Ü²Ä¤G¦¸°õ¦æ³£¤ñ²Ä¤@¦¸°õ¦æ§Ö¡A¦ý¤j­P¤è¦V¥i¥HÂǥѳo¦¸ÅéÅçÀò±o¤@¨ÇÄ_¶Q¸gÅç¡C

sunnyso

¦^´_ 36# ML089

²Ä¤G¦¸°õ¦æ¦]爲¦³Cache©Ò¥H·|¤ñ¸û§Ö¡A ¥Î¤U­±ªºcode ¥i¥H¦b­pºâµ²§ô«á²M°£Cache¡A but only for Excel 2007 and above

added a Class Module called AppEvents with code like this:

1. Option Explicit
   
2. Private WithEvents App As Application
   
3. Private Sub Class_Initialize()
   
4. Set App = Application
   
5. End Sub
   
6. Private Sub App_AfterCalculate()
   
7. ClearCache
   
8. End Sub

½Æ»s¥N½X

Only Excel 2007 and later have the AfterCalculate event which will be used to empty the cache after each calculate
This code is ignored in Excel 2003 and earlier: since the AfterCalculate event does not exist it never gets called but still compiles OK.

sunnyso

¦^´_ 18# ML089

¦^´_  sunnyso
A CODE ­×§ï¬° B CODE¡A°õ¦æ®É¶¡¥Ñ 0.257¬íÅܺC¬°1.304¬í¡AÅܱo«ÜºC
¦bVBA¤º¥Î¬¡­¶Ã¯¨ç¼Æ·|¼W¥[«Ü¦h®É¶¡
¤£ª¾VBA¤º¦³µL¨ä¥L¥i¨ú¥NMATCH¨ç¼Æ
ML089 µoªí©ó 2013-6-6 09:29

¤£¥Î°j°é¡A¤£¥ÎWorksheet¨ç¼Æ¡]matchµ¥¡^¡A§PÂ_¬Yelement¦b°}¦C¤¤¦ì¸m
¨Ò¦p

1. Sub ss_test()
   
2.     alltype = Array("AÃþ", "BÃþ", "CÃþ", "DÃþ", "EÃþ", "FÃþ", "GÃþ", "HÃþ", "IÃþ", "JÃþ")
   
3.     aj = "DÃþ"
   
4.     Debug.Print UBound(Split(Split(Join(alltype, "|"), aj)(0), "|")) + 1
   
5.    
   
6.     Stop
   
7. End Sub

½Æ»s¥N½X

ML089

¦^´_ 38# sunnyso


    ¦n·Qªk

sunnyso

¦^´_ 39# ML089

¦³bug¡A §ï爲

1. Sub ss_test()
   
2.     alltype = Array("AÃþ", "BÃþ", "CÃþ", "DÃþ", "EÃþ", "FÃþ", "GÃþ", "HÃþ", "IÃþ", "JÃþ")
   
3.     aj = "DÃþ"
   
4.     Debug.Print UBound(Split(Split(¡§ ¡¨ & Join(alltype, "|"), aj)(0), "|"))
   
5.    
   
6.     Stop
   
7. End Sub

½Æ»s¥N½X