Sub my_input()
With ActiveSheet.Hyperlinks
.Add [I6], "http://tw.yahoo.com/", TextToDisplay:="奇摩"
.Add [I7], "https://www.facebook.com/", TextToDisplay:="臉書"
.Add [I8], "http://tw.knowledge.yahoo.com/", TextToDisplay:="知識+"
.Add [I9], "https://www.google.com.tw/", TextToDisplay:="Google"
End With
[I10:I18] = Application.Transpose(Array("地圖", "旅遊", "生活", "運動", "電影", "音樂", "拍賣", "遊戲", "氣象"))
End Sub
如參考附件:
http://www.funp.net/811401
コピー時計、時計コピー、腕時計コピー、コピー腕時計
全站熱搜
留言列表
