¦bVBA¤¤¡A¦p¦ó¨Ï¥Î¥¨¶°ÁôÂó¡¥÷Äæ¦ì

aassddff736

½Ð°Ý¦U¦ì~
¦p¦ó¨Ï¥Î¥¨¶°ÁôÂó¡¥÷Äæ¦ì
§Ú·Q¤@¥¨¶°«öÁä ¸õ¥XInputBox³]©w¶}©lµ²§ôÄæ¦ìµM«áÁôÂà ¦p¦ó³]©w?

aassddff736

¦^´_ 2# Andy2483

·PÁ¤j¯«
³o½g§Ú¦³¬Ý¹L,¥i¬O¤£¤ÓÀ´
§Ú·QÁôÂ꺬OROWS¦p¦ó­×§ï?

aassddff736

¦^´_ 2# Andy2483


    ·PÁ¤j¯«
³o½g§Ú¦³¬Ý¹L,¥i¬O¤£¤ÓÀ´
§Ú·QÁôÂ꺬OROWS
¤£ª¾¹D¦p¦ó±a¤JÅܼÆ

¤U¸ü (15.4 KB)

2024-2-23 16:31

aassddff736

Sub Hidden()
   
    x1x = InputBox("½Ð¿é¤J¶}©lrow")
    x2x = InputBox("½Ð¿é¤Jµ²§ôrow")
        
Worksheets("1").Rows((x1x) & ":" & (x2x)).Select
Selection.EntireRow.Hidden = True

End Sub

½Ð±Ð¦U¦ì¤j¯«
·í§ÚInputBox­È¬°ªÅ¥Õ©Î0´£¿ô¿ù»~¨ÖÂ÷¶}
«ç»ò³]?

aassddff736

¦^´_ 6# Andy2483
·PÁ±zªº¸Ñµª
¦ý¬O¦pªG§Ú­n¥ý¸õ MsgBox "¸ê®Æ¦³»~"µM«á¤~Exit«ç»ò­×§ï


Sub Hidden()
Dim Brr, A, B
   
    A = InputBox("½Ð¿é¤J¶}©lrow"): V = Val(A)
    If StrPtr(A) = 0 Or V = 0 Then Exit Sub
    B = InputBox("½Ð¿é¤Jµ²§ôrow"): V = Val(B)
    If StrPtr(B) = 0 Or V = 0 Then Exit Sub
    Worksheets(1).Rows((A) & ":" & (B)).Select
    Selection.EntireRow.Hidden = True

End Sub

aassddff736

¦^´_ 8# Andy2483
ÁÂÁ«ü±Ð¡A§Ú·|§V¤O¾Ç²ß