170¡¢Ìáʾȷ¶¨»òÈ¡ÏûÖ´Ðкê

Sub Ìáʾȷ¶¨»òÈ¡ÏûÖ´Ðкê()

If vbOK = MsgBox(\È·¶¨Òª¸´ÖÆÂð?\Range(\Msgbox \¸´ÖƽáÊø\End If End Sub

171¡¢Ìáʾ¿ªÊ¼ºÍ½áÊø

Sub Ìáʾ½áÊø() Msgbox \ÔËÐпªÊ¼\¹ý³Ì??

Msgbox \ÔËÐнáÊø\End Sub

172¡¢¿½±´Ö¸¶¨±í²»ÏàÁÚ¶àÁÐÊý¾Ýµ½ÐÂλÖÃ

Sub ¿½±´Ö¸¶¨±í²»ÏàÁÚ¶àÁÐÊý¾Ýµ½ÐÂλÖÃ()

Sheets(\End Sub

173¡¢Ñ¡Ôñ2ÖÁ4ÐÐ

Sub Ñ¡Ôñ2ÖÁ4ÐÐ() Dim a As Integer Dim b As Integer a = 2 b = 4

Rows(a & \End Sub

174¡¢ÔÚµ±Ç°Ñ¡ÇøÓÐÌõ¼þÌæ»»ÊýֵΪÎı¾

Sub ÔÚµ±Ç°Ñ¡ÇøÓÐÌõ¼þÌæ»»ÊýֵΪÎı¾() For Each r In Selection

If r.Value > 18 And r.Value < 29.5 Then r.Value = \Next End Sub

175¡¢×Ô¶¯É¸Ñ¡È«²¿ÏÔʾָ¶¨ÁÐ

Sub ×Ô¶¯É¸Ñ¡È«²¿ÏÔʾָ¶¨ÁÐ() Selection.AutoFilter Field:=1 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=6 End Sub

176¡¢×Ô¶¯É¸Ñ¡µÚ2ÁÐֵΪAµÄÐÐ

Sub ×Ô¶¯É¸Ñ¡µÚ2ÁÐֵΪAµÄÐÐ() [a1].AutoFilter 2, \End Sub

177¡¢È¡Ïû×Ô¶¯É¸Ñ¡()

Sub È¡Ïû×Ô¶¯É¸Ñ¡()

ActiveSheet.AutoFilterMode = False End Sub

178¡¢È«²¿ÏÔʾָ¶¨±íµÄ×Ô¶¯É¸Ñ¡

Sub È«²¿ÏÔʾָ¶¨±íµÄ×Ô¶¯É¸Ñ¡() If Sheet1.FilterMode = True Then Sheet1.ShowAllData End If End Sub

179¡¢Ç¿Ðкϲ¢µ¥Ôª

Sub Ç¿Ðкϲ¢µ¥Ôª()

Application.DisplayAlerts = False '²»³öÏÖ¶Ô»°¿ò£¬°´¶Ô»°¿òĬÈÏÑ¡Ôñ Range(\

Application.ScreenUpdating = True End Sub

180¡¢ÉèÖõ¥ÔªÇøÓò¸ñʽ