å
表示æè°¢ï¼æ没表达æ¸
æ¥ï¼ææ¯æ³å¨A1åå
æ ¼éåabc0001æä¸ä¸æå°å°±åæabc0002åæä¸ä¸å°±åæabc0003ææ0001çéå¢å
¬å¼ä½æ¯å¨åé¢å ä¸åæ¯å°±ä¸éå¢äºï¼å¸®å¸®å¿ï¼æåæ¥çå
¬å¼æ¯Sub æå°()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("c3"))
s = s + 1
Range("c3") = "'2012" & Right("0000000" & s, 7)
End Sub
="abc"&"å ä¸ä½ ä¼ååçé£ä¸ªåå æ ¼" æ¯å¦å¨A1, B1 ="abc"&A1
追é®è¿æ¯ä¸å¥½ç¨ï¼å¸®æççï¼éº»ç¦äº
追çVBAæ¬äººä¸åé¿,ä½è¿ç§æ¹æ³åºè¯¥è½è§£å³é®é¢ç ="abc"&C3
ä½ è¯´çä¸å¥½ç¨æ¯æä»ä¹
æä½ çå ¬å¼å ä¸é£åé¢çæ°åå°±ä¸åäº
追çåªè¦C3åå¨,è¿ä¸ªå¼å°±ä¼å
追é®è°¢è°¢ä½ äºï¼å¥½åæ说çåä½ çä¸æ¯ä¸ç§å ¬å¼ï¼éº»ç¦ä½ äº
追çæ说çæ¯ä½ æABCåæ°åå åå¼,å¨å¦ä¸ä¸ªåå æ ¼ä¸ç¨ ="abc"&C3 è¿ç§æ¹å¼å并
追é®è°¢äºï¼