- ©«¤l
- 586
- ¥DÃD
- 123
- ºëµØ
- 0
- ¿n¤À
- 763
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-16
- ³Ì«áµn¿ý
- 2017-3-14
|
«Ü¦n¥Îªº¥N½X
§Ú¦Û¤v±NA1ק令¦p¤U±¥N½X
®Ú¾Ú«á±¸ê®Æªº¦ì¸m¥h§PÂ_
¥i¯à¨CÓ¤Hªº¸ê®Æ¤£¤@¼Ë
¦A¦Û¦æקï
" & Sh.Range("iv3").End(xlToLeft).Offset(, 1).Address & "- Dim A As Range, Sh As Worksheet
- Columns("A:A").Clear
- r = 1
- For Each Sh In Sheets
- If Sh.Name <> Me.Name Then
- Set A = Cells(r, 1)
- Me.Hyperlinks.Add Anchor:=A, Address:="", SubAddress:= _
- "'" & Sh.Name & "'!" & Sh.Range("iv3").End(xlToLeft).Offset(, 1).Address & "", TextToDisplay:=Sh.Name
- Sh.Hyperlinks.Add Anchor:=Sh.Range("iv3").End(xlToLeft).Offset(, 1), Address:="", SubAddress:= _
- "'¥Ø¿ý'!A1", TextToDisplay:="ªð¦^¥Ø¿ý"
- r = r + 1
- End If
- Next
½Æ»s¥N½X |
|