Excelè¡¨æ ¼æ¯æ们工ä½ä¸ç»å¸¸ç¨å°çï¼èå®å¾å¾æ¶åç»è®¡æ°æ®çææé®é¢ï¼å æ¤ï¼Excelè¡¨æ ¼çä¿æ¤ä¹æ¯ç»å¸¸éå°çé®é¢ï¼å¦ä½å®å
¨ä½¿ç¨Excelå¢ï¼æ们常ç¨å°çæ¯Excelâå·¥å
·âèåæä¾çâä¿æ¤å·¥ä½è¡¨âåâä¿æ¤å·¥ä½ç°¿âåè½ãæ没æå
¶ä»æ¹æ³å¢ï¼
ç¨å®è¿è¡âæ¾å¼âå å¯
å¨éè¦å å¯çExcel 表ä¸ï¼ç¹å»[å·¥å
·]â[å®]â[Visual Basicç¼è¾å¨]ï¼æå¼âå·¥ç¨èµæºç®¡çå¨âï¼åå»è¯¥å·¥ä½è¡¨ï¼å¨å³è¾¹çæ¯è®¾ç½®è¯¥è¡¨å±æ§çç¼è¾çªå£ï¼åå»è¯¥çªå£å·¦ä¸æ¹çä¸æå表æ¡ï¼éæ©Worksheetï¼åä»è¯¥çªå£å³ä¸æ¹çå表æ¡ä¸éæ©Activate(æ¿æ´»)ï¼å¦å¾ï¼ã
å¯çåå¾ åéå°ææº
æ·»å å¦ä¸ä»£ç ï¼ï¼å设â123â为å¯ç ï¼Sheet1为éå¶æéè¡¨æ ¼ï¼Sheet2为工ä½ç°¿ä¸ä¸ºä»»ä½éåçå·¥ä½è¡¨ï¼
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置æåé¢è²ä¸ºç½è²
If Application.InputBox("请è¾å
¥å¯ç :") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
' 设置æåé¢è²ä¸ºé»è²
Else
MsgBox "å¯ç é误ï¼å³å°éåº!"
Sheets("sheet2").Select
End If
End Sub
æ¯æ¬¡å½ä½ éæ©è¯¥âå å¯â表çæ¶åé½ä¼å¼¹åºå¯¹è¯æ¡è¦æ±è¾å
¥å¯ç ï¼æ£ç¡®åè¿å
¥è¯¥è¡¨ï¼Sheet1ï¼ï¼å¦åä¼éæ©å
¶ä»è¡¨ï¼Sheet2ï¼ã
ç¨å®è¿è¡âéå¼âå å¯
âæ¾å¼âå å¯ï¼è½ç¶å¯ä»¥è®©æ²¡æå¯ç ç使ç¨è
æ æ³çå°âå å¯âè¡¨æ ¼ï¼ä½æ¯æ¯æ¬¡éæ©è¯¥è¡¨æ ¼æ¶é½ä¼å¼¹åºå¯¹è¯æ¡ï¼å®å¨ä¸æ¹ä¾¿èä¸ç»å
¶ä»ç¨æ·ä¸ç§è¢«é²èçä¸èææè§ãäºæ¯ç¬è
å°±æ³åºäºä¸é¢çâéå¼âå å¯æ¹æ³ãåå¦è¦å å¯çæ¯Sheet1ï¼æ们å¯ä»¥è®¾ç½®å¨Sheet2çâA1âåå
æ ¼ä¸ºå¯ç çè¾å
¥å¤ãäºæ¯ä¿®æ¹ä»¥ä¸ä»£ç å¦ä¸ï¼
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2'设置æåé¢è²ä¸ºç½è²
If Sheets("sheet2").Cells(1, 1) = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
' 设置æåé¢è²ä¸ºé»è²
End If
End Sub
设置好以åï¼åªæSheet2çï¼A1ï¼åå
æ ¼ä¸ºå¯ç â123âæ¶âå å¯â表Sheet1çå
容ææ¾ç¤ºåºæ¥ï¼å¦åå°±æ¯éæçï¼ç¥ä¸ç¥é¬¼ä¸è§ï¼æè°âéå¼âã
âéå¼âå å¯è½ç¶ä¿è¯äºæ²¡æå¯ç çç¨æ·ä¸è½æ¥çâå å¯âè¡¨æ ¼çå
容ï¼ä½æ¯ä¸è½ä¿æ¤å
¶ä»ç¨æ·å¯¹å
¶è¿è¡ä¿®æ¹ãæ以æ们è¦ç»¼åè¿ç¨ä¸é¢æ说çâä¿æ¤è¡¨æ ¼âåâéå¼å å¯â对è¦ä¿å¯çè¡¨æ ¼è¿è¡è®¾ç½®ã
温馨提示:答案为网友推荐,仅供参考