- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-2-26
|
¦^´_ 5# yianhung
§Q¥Îowen06¤j¤jªºµ{§Ç§Ú°µ¤F¤@¨Ç§ïÅÜ¡A¦]¦¹nowen06¤j¤jµ{§Ç
.- Private Sub Worksheet_Activate()
- For Each sht In Sheets
- If sht.Name <> "º¶" Then
- ro = ro + 1
- Sheets("º¶").Cells(ro, "A") = sht.Name
-
- End If
- Next
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address = Cells(Target.Row, "A").Address Then
- Ans = Cells(Target.Row, "A")
- For Each Sh In Sheets
- If Sh.Name Like "*" & Ans & "*" Then Sh.Select
- Next
- End If
- End Sub
½Æ»s¥N½X |
|