å设æ sheet1 ä¸A1åå
æ ¼èµå¼ç»Xåéï¼è¯å¥å¦ä¸ï¼
X = sheets(1).range("A1")
å设Xç»è¿è®¡ç®åï¼å¾å°ä¸ä¸ªåéå¼Yï¼é£ä¹æYèµå¼ç»A1ï¼è¯å¥ä¸ºï¼
sheets(1).range("A1")=Y
è¿æ ·å°±å®ç°äºåå
æ ¼ä¸åéä¹é´çç¸äºèµå¼
å
³äºæ¤ä¾ä¸æ¶åå°çVBAä¸åéçç¸å
³ç¥è¯ï¼
1ãä»ä¹æ¯åé
åéæ¯ä¸ä¸ªå½åçå
åä½ç½®ãæ¯å¨ç¨åºæ代ç è¿è¡è¿ç¨ä¸ï¼ç¨äºä¸´æ¶åå¨æ°æ®ï¼å¹¶ä¸å
¶åå¨çæ°æ®å¯ä»¥æ ¹æ®éè¦åçæ¹åçä¸ä¸ªå½å项ç®ã
åéç±å称(åéå)å
æ°æ®ç±»åæå®ï¼
åéåââç¨æ¥å¼ç¨åé
æ°æ®ç±»åââç¡®å®åéæè½åå¨ä¿¡æ¯çç§ç±»ä»¥åæå åå¨ç©ºé´ç大å°
2ãåéçå½åè§å
ï¼1ï¼å称æ¯ç±åæ¯(A-Zï¼a-z)ææ°åå
ä¸å线â_âçä»»æç»åã(å¨Excel 2002以åççæ¬ä¸ä¹å¯ä»¥å
å«ä¸æ)ï¼æåä¸ä¸ªå符å¯ä»¥æ¯ç±»å说æ符ï¼
ï¼2ï¼åéåçé¿åº¦ä¸å¾è¶
è¿255个å符
ï¼3ï¼åéåå¨ææçèå´å
å¿
é¡»æ¯å¯ä¸çãææçèå´å°±æ¯å¼ç¨åéå¯ä»¥è¢«ç¨åºè¯å«çä½ç¨èå´ ä¾å¦ä¸ä¸ªè¿ç¨ãä¸ä¸ªçªä½ççï¼
ï¼4ï¼åéåä¸è½æ¯VBAä¸çä¿çåï¼å
³é®åï¼ï¼ä¹ä¸è½æ¯æ«å°¾å¸¦ç±»å说æ符çä¿çåï¼ä½å¯ä»¥æä¿çååµå
¥åéåã
说æï¼
ï¼1ï¼åéåæ¯ä¸åºå大å°åçãå¦ABCãaBcãabcçé½æ¯ä¸æ ·çï¼
ï¼2ï¼å®ä¹å使ç¨åéæ¶ï¼é常è¦æåéåå®ä¹ä¸ºå®¹æ使ç¨é
读åè½å¤æè¿°æå«æ°æ®ç¨å¤çå称ï¼
ï¼3ï¼æ ¹æ®éè¦æ··å使ç¨å¤§å°ååæ¯åæ°åãå¦æéè¦ä½¿ç¨å¤åè¯ç»ï¼åéä¸æ¯ä¸ªåè¯ç第ä¸ä¸ªåæ¯å¤§åï¼ä¾å¦ï¼DataTemp表示临æ¶æ°æ®ï¼ä¹å¯ä»¥ä¸¤ä¸ªåè¯ä¸ä¸å线åéï¼ä¾å¦ï¼Last_Numï¼
ï¼4ï¼å¯¹äºåéåä¹ææ´å¥½ç建议ï¼æ¯ä¸ªåéå以两个æä¸ä¸ªå符缩åå¼å§ï¼è¿äºå符缩å对åºäºåéè¦åå¨æ°æ®çæ°æ®ç±»åãä¾å¦strWorksheet as string表ç¨æ¥ç¤ºå·¥ä½è¡¨åï¼åç¼str表示å½ååéçç±»åã