å¨ä¸»èåç¹å»"è§å¾"ï¼"å·¥å ·æ "ï¼"æ§ä»¶å·¥å ·ç®±"åä¼è·³åºä¸ä¸ªæ§ä»¶å·¥å ·éæ©æ¡ãéæ©"å½ä»¤æé®"åï¼é¼ æ ä¼å为ç»çååæ ãå¨å·¥ä½è¡¨èå´å æçé¼ æ å·¦é®ï¼ç¶åæå¨å°±ä¼åºç°æ§ä»¶æé®å°±æ¾å¼é¼ æ å·¦é®ã
æé®é®å°±å®æäºï¼æé¼ æ 移å°æé®é®åå»é¼ æ å·¦é®å°±è¿å
¥VBAç¼è¾å¨ãåæ以ä¸ä»£ç æ·è´å°ç¼è¾å¨ä¸ã
Private Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 1 'éå®åå
æ ¼å
容+1
ActiveCell.Offset(1,0).Select 'èªå¨ç§»å°ä¸ä¸ªåå
æ ¼
End Sub