ç¨å®å®ç°ï¼ä»£ç å¦ä¸ï¼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 35
Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 35
Target.Interior.ColorIndex = xlNone
End Sub
ææå¾å¦ä¸ï¼
追é®è¿ä¸ªæ¹æ³ä¼ä½¿è¡¨æ ¼ä»¥åçé¢è²å¡«å å ¨é¨æ¶å¤±ï¼æä¸æ³å½±ååæçåå æ ¼æ ¼å¼
追çä¹å°±æ¯è¯´åæ¥çå¡«å é¢è²ä¸è½è¢«ç ´åï¼ï¼è¿ä¸ªæç¹é¾åº¦ï¼æææ¶æªè½å®ç°ï¼ä¼¼ä¹è¦ç¨å°APIå½æ°è°ç¨ï¼æ¯è¾å¤æã
追é®ç®åæ¾å°å 个Excelå°æ件å¯ä»¥è§£å³ï¼ä½ä¸è£ æ件æä¹ä¸ç¥éäºãè¿æ¯è°¢è°¢ä½
追çäºè§£ï¼