- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 120
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2010-7-16
|
¥»©«³Ì«á¥Ñ victorl ©ó 2010-6-17 00:39 ½s¿è
For Leov9
§â©Ò¦³½d³ò¥ýÁôÂæA±N¿ï¨ú±ý§e²{ªº½d³òÅã¥Ü¡AÀ³¸Ó´NOK¤F§a
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
Rows("13:72").Hidden = True
Rows(Target.Row - 1 & ":" & Target.Row + 10).EntireRow.Hidden = False
End If
Range("B1").Select
End Sub
For Leov10
§âTarget.Row·í¤Þ¼Æ©I¥sµ{§Ç(Ex. Call ½T©w®t²§ÁÙì(Target.Row))
¤U¤èÂŦⳡ¤À¬°ìµ{¦¡½X¦³×§ï³¡¤À.
Sub ½T©w®t²§ÁÙì(tRow As Integer)
...
ElseIf [A1] = "³¡¥÷" Then Call ®t²§³¡¥÷ÁÙì(tRow)
...
Sub ®t²§³¡¥÷ÁÙì(tRow As Integer)
Range(Cells(tRow - 1, 3), Cells(tRow + 10, 256)).Copy Sheet11.[C65536].End(xlUp).Offset(0, 0)
Sheet11.Select
End Sub |
|