GBKEE

¦^´_ 1# cji3cj6xu6
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.    Dim i As Long
   
3.    i = -100
   
4.    ActiveCell.FormulaR1C1 = "=sheet1!R[" & i & "]C[7]"
   
5. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# cji3cj6xu6
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3. Dim DQ
   
4. DQ = 5
   
5. Sheet3.Hyperlinks.Add Selection, Address:="", SubAddress:=Range("a" & DQ).Value & "!A1675"  ' ³]©w¶W³sµ²¦ì§}
   
6. 'Selection ÄÝ©Ê"   ¦pªG¬O Application ª«¥ó¡A«h¶Ç¦^²{¥Îµøµ¡¤¤ªº¿ï©wª«¥ó¡A¦pªG¬O Windows ª«¥ó¡A«h¶Ç¦^«ü©wµøµ¡¡C
   
7. 
   
8. '©Ò¥H¤W¦¡°õ¦æ«á·|¬OActiveSheet(§@¥Î¤¤ªº¤u§@ªí)ªº§@¥Î¤¤ªºÀx¦s®æ:·s¼W¤@¶W³sµ² (¤£¬O¦bSheet3)
   
9. 
   
10. 'SubAddress:=Range("a" & DQ).Value (µ{¦¡½X¬O¦b¤u§@ªí¼Ò²Õ:¬O³o¤u§@ªíª«¥óªº Range("a" & DQ)
    
11.                                   '(µ{¦¡½X¬O¦b¤@¯ë¼Ò²Õ:¬OActiveSheet(§@¥Î¤¤ªº¤u§@ªí)ªº Range("a" & DQ)
    
12. 
    
13. '*************************­×¥¿¦p¤U *****************************************************************
    
14. 
    
15. With Sheet3  '¦b .Range("a10") ·s¼W¤@¶W³sµ²
    
16.     .Hyperlinks.Add .Range("a10"), Address:="", SubAddress:=ActiveSheet.Range("a1").Value & "!A1675"
    
17.     ' ³]©w¶W³sµ²¦ì§}:³sµ²¨ì§@¥Î¤¤¤u§@ªí.Range("a1").Valueªº¤u§@ªí¦WºÙ
    
18.                     '©Î¬O«ü©w¤u§@ªí SubAddress:=SHEETS("SHEET2").Range("a1").Value
    
19. End With
    
20. '¦P¤W Sheet3.Hyperlinks.Add Sheet3.Range("a10"), Address:="", SubAddress:=ActiveSheet.Range("a1").Value & "!A1675"
    
21. 
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# cji3cj6xu6

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer
   
4.     For i = 1 To 10
   
5.         ActiveCell.Offset(i - 1).FormulaR1C1 = "=" & Sheets(i).Name & "!R[-1703]C[7]"
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# cji3cj6xu6

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AD As String
   
4.     Set Rng = Workbooks("BOOK2.XLS").Sheets(3).[D50]
   
5.     With ActiveSheet
   
6.         .Hyperlinks.Add Anchor:=Range("B10"), Address:="", SubAddress:=Rng.Address(, , , 1, 1), TextToDisplay:=Rng.Address
   
7.     End With
   
8. End Sub

½Æ»s¥N½X