ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦^´_ 1# aassddff736

½Ð°Ñ¦Ò¥H¤UÃìµ²©«:
https://forum.twbts.com/thread-23850-1-12.html
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483

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

TOP

¦^´_ 2# Andy2483


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

TOP

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´£¿ô¿ù»~¨ÖÂ÷¶}
«ç»ò³]?

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-2-23 19:05 ½s¿è

¦^´_ 5# aassddff736

1.¨ú®ø¿é¤Jµ¡°Ñ¦ÒÃì±µ©«¡G
    https://forum.twbts.com/viewthre ... ;highlight=Input%2B
2.Worksheets("1").Rows((x1x) & ":" & (x2x)).EntireRow.Hidden = True
3.Worksheets("1").UsedRange.EntireRow.Hidden = False'¥þ³¡Åã¥Ü
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 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

TOP

¦^´_ 7# aassddff736


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

End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD