ªð¦^¦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Á½ç±Ð!!

·Q±o¤ñ¸û²³æ¡A¨Ï¥ÎCtrl+F¡A¦b¶i¶¥_·j´M½d³ò¿ï¾Ü¬¡­¶Ã¯¡A¦b¨C¤@­Ó¤u§@ªí¬Y¤@­Ó¦ì¸m¼Ðµù¯Á¤Þ¡A¤]¥i¥H¹F¨ì»Ý¨D

TOP

¦^´_ 5# yianhung


    ³o¼Ë¤lÀ³¸Ó¬O¥i¥H¤F
  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
  7.     sh.Select
  8.        Ans2 = MsgBox("³o¬O§A­nªº¤u§@ªí¶Ü¡H", vbYesNo)
  9.        If Ans2 = 6 Then Exit Sub
  10.    End If
  11. Next
  12. End Sub
½Æ»s¥N½X

TOP

TOP

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

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

1.¦b³o¸Ì«ö¥kÁä
1.jpg
2015-3-3 21:03


2.SHEET¼Æ¶q¦h®É ·|¦³±Ò°Êµøµ¡
2.jpg
2015-3-3 21:03


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

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

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

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


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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD