- ©«¤l
- 30
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ·s¥_¥«
- µù¥U®É¶¡
- 2013-11-30
- ³Ì«áµn¿ý
- 2023-1-12
|
¦^´_ 1# jhwish
§c¡A¤p§Ì¤]¬O·s¤â¡A¤£ª¾ª©¤jªº·N«ä¬O¤£¬O¶W³sµ²¥á¤J°j°éªº·N«ä¡A¥H¤U¬O¤p§Ìªº¬Y¤@ÓÀÉ®×¥i¥H°µ°Ñ¦Ò- Sub ¶W³sµ²()
- Dim i As Long
- With Worksheets("Sheet1") '§An¿ïªº¸ê®Æªí
- For i = 2 To 152
- On Error Resume Next
- .Cells(i, 4).Hyperlinks.Delete
- On Error GoTo 0
- .Hyperlinks.Add Anchor:=.Cells(i, 4), _
- Address:="LIST\Section" & Left(.Cells(i, 4).Text, 1) & "\" & .Cells(i, 4).Text, _
- TextToDisplay:=.Cells(i, 4).Text '¶W³sµ²ªº¸ê®Æ§¨¤Î¸ê®Æ¸ô®|, ¦ý§Úªº¬O¤å¦rÀɧΦ¡, word....À³¸Ó¥i¥H§a....
- Next
- End With
- End Sub
½Æ»s¥N½X |
|