¦bVBA¤¤¡A¦p¦ó¨Ï¥Î¥¨¶°ÁôÂó¡¥÷Äæ¦ì
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦bVBA¤¤¡A¦p¦ó¨Ï¥Î¥¨¶°ÁôÂó¡¥÷Äæ¦ì
½Ð°Ý¦U¦ì~
¦p¦ó¨Ï¥Î¥¨¶°ÁôÂó¡¥÷Äæ¦ì
§Ú·Q¤@¥¨¶°«öÁä ¸õ¥XInputBox³]©w¶}©lµ²§ôÄæ¦ìµM«áÁôÂà ¦p¦ó³]©w? |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 2# Andy2483
·PÁ¤j¯«
³o½g§Ú¦³¬Ý¹L,¥i¬O¤£¤ÓÀ´
§Ú·QÁôÂ꺬OROWS¦p¦óקï? |
|
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 2# Andy2483
·PÁ¤j¯«
³o½g§Ú¦³¬Ý¹L,¥i¬O¤£¤ÓÀ´
§Ú·QÁôÂ꺬OROWS
¤£ª¾¹D¦p¦ó±a¤JÅܼÆ
|
|
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
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´£¿ô¿ù»~¨ÖÂ÷¶}
«ç»ò³]? |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 8# Andy2483
ÁÂÁ«ü±Ð¡A§Ú·|§V¤O¾Ç²ß |
|
|
|
|
|
|