如何在工作表中执行不了以下程序,请高手解疑!!
Private Sub worksheet_selectchange(ByVal Target As Range)
i = 2
Do While Sheets("职务").cell(i, l) <> ""
zw = zw & "," & Sheets("职务").Cells(i, 1)
i = i + 1
Loop
zw = Mid(zw, 2)
Select Case Target.Column
Case 1
Target.NumberFormatLocal = "@"
Case 3
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula:="男,女"
Case 4
Target.Validation.Delete
targer.Validation.Add xlValidateList, Formula:=zw
End Select
End Sub
æ¨å¥½ï¼æè¿æ³é®ä¸ä¸ä¸ºä»ä¹å¨å·¥ä½è¡¨ä¸æ§è¡ä¸äºæè¡¥å é®é¢ä¸çç¨åºï¼ï¼
追çå ä¸ºä½ çäºä»¶ä»£ç åéäº
没æselectchange äºä»¶
äºä»¶å¿
é¡»ä¸¥æ ¼æç
§è¦æ±åï¼ä¸ç¶æ æ³è§¦åï¼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
æç §ä½ çæ示ï¼ä¿®æ¹åæ§è¡ï¼æ»æ¯åºç°è¿ä¸ªçªå£ï¼æ¯ä»ä¹åå ï¼
请å
äºè§£ä¸ä¸VBAä¸äºåºç¡å¸¸è¯
ç¾åº¦å¦ä¹ ä¸äºVBAäºä»¶
äºä»¶æ¯ä¸éè¦äººå·¥æ§è¡çï¼è¾¾å°æ¡ä»¶èªå¨æ§è¡ï¼