Åܧó¤u§@ªí¦WºÙ

myleoyes

¦U¦ì«e½ú§A­Ì¦n!!
         Sub Åܧó¦WºÙ()
Dim Z
    If MsgBox("±z½T©w­nÅܧó¤u§@ªí¦WºÙ¶Ü?", vbYesNo) = vbYes Then
Again:
       Z = Application.InputBox("¿é¤J¦WºÙ", "        ½Ð¿é¤J¤u§@ªí¦WºÙ", " ¥²¶·¬O¤å¦r ", Type:=2)
          If Z = "" Or Z = False Then GoTo Again
          ' MsgBox("§A©Ò¿é¤J¦WºÙ¤w¦s¦b½Ð­«·s¿é¤J!")
          [C3] = ActiveCell.Row
          If [C3] = 7 Then
          Sheet2.Select
          ElseIf [C3] = 8 Then
          Sheet4.Select
          ElseIf [C3] = 9 Then
          Sheet6.Select
          ElseIf [C3] = 10 Then
          Sheet8.Select
          End If
          ActiveSheet.Name = Z
    ElseIf vbNo Then
          Exit Sub
    End If
         ²M°£¤u§@ªí
End Sub
         °ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Hsieh

¦^´_ 1# myleoyes

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.      Select Case T(1).Address(0, 0)
   
3.         Case "A2"
   
4.               ActiveWindow.ScrollColumn = 1
   
5.     End Select
   
6.     With T(1)
   
7.         If .Column = 1 And (.Row >= 7 And .Row <= 36) And T(1) <> "" Then Åܧó¦WºÙ .Row
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

1. Sub Åܧó¦WºÙ(k)
   
2. Dim Z
   
3.     If MsgBox("±z½T©w­nÅܧó¤u§@ªí¦WºÙ¶Ü?", vbYesNo) = vbYes Then
   
4. Again:
   
5.        Z = Application.InputBox("¿é¤J¦WºÙ", "        ½Ð¿é¤J¤u§@ªí¦WºÙ", " ¥²¶·¬O¤å¦r ", Type:=2)
   
6.           If Z = "" Or Z = False Then GoTo Again
   
7.           ' MsgBox("§A©Ò¿é¤J¦WºÙ¤w¦s¦b½Ð­«·s¿é¤J!")
   
8.           Set a = Columns("A").Find(Z, lookat:=xlWhole)
   
9.           If Not a Is Nothing Then MsgBox "§A©Ò¿é¤J¦WºÙ¤w¦s¦b½Ð­«·s¿é¤J!": GoTo Again
   
10.           ActiveCell = Z
    
11.           Sheets((k - 6) * 2).Select
    
12.           ActiveSheet.Name = Z
    
13.     ElseIf vbNo Then
    
14.           Exit Sub
    
15.     End If
    
16.          ²M°£¤u§@ªí
    
17. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 2# Hsieh
°¸¹³«e½ú!ÁÂÁÂ!
       µ{¦¡µLªk¿ë§O¬Û¦P¦W
       °õ¦æ¶¥¬q¿ù»~¬°1004
       ÁÙ¦³§P©w¬O§_¬°¤å¦r¥[¤J¤U­±´X¦æ¬°¦óµLªk§P©w¬O¦r¦ê©O?
       For I = 1 To Len(Z)
                If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: '§P©w¬O¦r¦ê
            Next
          If Z < False Then GoTo Again
          If Z > False Then GoTo Again
          If Z = False Then Exit Sub
        ¦A³Â·Ð«e½ú!«ü¾ÉÁÂÁ¦A¤T!!

Hsieh

¦^´_  Hsieh
°¸¹³«e½ú!ÁÂÁÂ!
       µ{¦¡µLªk¿ë§O¬Û¦P¦W
       °õ¦æ¶¥¬q¿ù»~¬°1004
       ÁÙ¦³§P©w ...
myleoyes µoªí©ó 2013-3-31 17:41

µLªk§P©w¦P¦W¤u§@ªí¡A¥i¯à¿é¤JªºZ­È¤£¦bAÄ檺²M³æ¤º¡A¦ÓAÄæ²M³æ¨Ã¤£¬O©Ò¦³¤u§@ªí¦WºÙ

1. Sub Åܧó¦WºÙ(k)
   
2. Dim Z, Sht As Object
   
3. Set Sht = CreateObject("Scripting.Dictionary")
   
4. For Each sh In Sheets
   
5.   Sht(sh.Name) = sh.Name
   
6. Next
   
7.     If MsgBox("±z½T©w­nÅܧó¤u§@ªí¦WºÙ¶Ü?", vbYesNo) = vbYes Then
   
8. Again:
   
9.        Z = Application.InputBox("¿é¤J¦WºÙ", "        ½Ð¿é¤J¤u§@ªí¦WºÙ", " ¥²¶·¬O¤å¦r ", Type:=2)
   
10.           If Z = "" Or Z = False Then GoTo Again
    
11.           ' MsgBox("§A©Ò¿é¤J¦WºÙ¤w¦s¦b½Ð­«·s¿é¤J!")
    
12.          
    
13.           If Sht.exists(Z) Then MsgBox "§A©Ò¿é¤J¦WºÙ¤w¦s¦b½Ð­«·s¿é¤J!": GoTo Again
    
14.           ActiveCell = Z
    
15.           Sheets((k - 6) * 2).Select
    
16.           ActiveSheet.Name = Z
    
17.     ElseIf vbNo Then
    
18.           Exit Sub
    
19.     End If
    
20.          ²M°£¤u§@ªí
    
21. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 4# Hsieh
¹³«e½ú!¨¯­WÅoÁÂÁ¦A¤T!!