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

[µo°Ý] §Ö³t¤Á´«¨ì¬YSheet­¶­±

[µo°Ý] §Ö³t¤Á´«¨ì¬YSheet­¶­±

½Ð±Ð¥ý¶i~
¦]excel§t¶W¹L50­ÓSheet­¶­±¡A­Y·Q§Ö³t¤Á´«¨ì¬YSheet­¶¡A¬O§_¦³¤º«Ø¥\¯à©Î¥t¦³¤è¦¡¥i¹F¦¨©O??

¨C­ÓSheet­¶³£¦³©R¦W¡A¦³Ãþ¦üCtrl+F¡A¿é¤JÃöÁä¦r´N¯à¨ì¹F¸Ó­¶ªº¥\¯à¶Ü?

¥H¤W~·PÁ½ç±Ð!!

¦^´_ 1# chi830


    ¥i¥H°µ¤@­Ó­º­¶¡AµM«á¥Î¶W³sµ²ªº¤è¦¡¥h°µ¡A¦A¦b¨C­Ó­¶­±¤]°µ¤@­Ó¥i³s¦^­º­¶ªº¶W³sµ²

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2015-3-3 12:56 ½s¿è

¦^´_ 1# chi830


¦bvba¸Ì´¡¤J·s¼Ò²Õ¡A¶K¤W¤U¦C¤º®e
  1. Sub test()
  2. Dim MyBook As Workbook, sh As Worksheet
  3. Set MyBook = ThisWorkbook
  4. Ans = Application.InputBox("½Ð¿é¤J¤u§@ªí¦WºÙ", "§Ö³t¤Á´«", "")
  5. For Each sh In MyBook.Sheets
  6.    If sh.Name Like "*" & Ans & "*" Then sh.Select
  7. Next
  8. End Sub
½Æ»s¥N½X
µM«á¦A¶i¥h¡y¥¨¶°¡z¸Ìªº¡y¿ï¶µ¡z¡A§â¸Ó¥¨¶°³]©w§A¦Û¤v·Q­nªº§Ö³tÁä¡A³o¼Ë´N¥i¥H¹F¦¨§A·Q­nªº¤è¦¡¤F¡C

TOP

ÁÂÁ¤j®aªº¦^ÂСAowen06¥ý¶i´£¨Ñªº¤èªk¡A¥¿¬O§Ú©Ò»Ýªº~ÁÂÁ³á^^

TOP

¸Õ¹L¤Fowen06¤j¤jªº«Øij®¼§Öªº¡Asheet¦pªG¬Osheet1,sheet2....¦n·QµLªk¸õÂà¡A½Ð«ü±Ð~~

TOP

¦^´_ 5# yianhung


    ­è´ú¸Õ¤F¤@¤U³o­Ó¤èªk¦ü¥G¬O¤£°÷©P¥þ¡A§Ú¦A¬ã¨s¤@¤U¬Ý¬Ý¡C

TOP

¦^´_ 5# yianhung


    §Q¥Îowen06¤j¤jªºµ{§Ç§Ú°µ¤F¤@¨Ç§ïÅÜ¡A¦]¦¹­nowen06¤j¤jµ{§Ç
.
  1. Private Sub Worksheet_Activate()
  2. For Each sht In Sheets
  3.     If sht.Name <> "­º­¶" Then
  4.         ro = ro + 1
  5.         Sheets("­º­¶").Cells(ro, "A") = sht.Name
  6.         
  7.     End If
  8. Next
  9. End Sub

  10. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  11. If Target.Address = Cells(Target.Row, "A").Address Then
  12. Ans = Cells(Target.Row, "A")
  13. For Each Sh In Sheets
  14.    If Sh.Name Like "*" & Ans & "*" Then Sh.Select
  15. Next
  16. End If
  17. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# yianhung


    ¦A¥[¤W¤U­±³o­Ó¥N½X¡A¥u­nÂI¿ï¤u§@ªí¦C´N¬O±Ò°Ê¦^¨ì­º­º¡A³o­Ó¥N½X¬O©ñ¦bThisWorkBook¤W,
¦Ó¤W­±¨º2­Ó¥N½X«h¬O©ñ¦b"­º­¶"¤u§@ªí¤Wªº
  1. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  2. If Sh.Name = "­º­¶" Then End
  3. Sheets("­º­¶").Select
  4. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2015-3-3 21:39 ½s¿è

¨Ï¥ÎEXCEL ¤º«Ø¥\¯à

1.¦b³o¸Ì«ö¥kÁä


2.SHEET¼Æ¶q¦h®É ·|¦³±Ò°Êµøµ¡
2.jpg

ÂI¿ï«á§Y·|¤Á´«¨ì¸ÓSHEET¤W

¥Î³o¦æµ{¦¡¤]¥i¥H
Sub ¨ìsheet()
CommandBars("Workbook Tabs").ShowPopup
End Sub

TOP

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD