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
阿瘦皮鞋特賣2014、阿瘦皮鞋、阿瘦皮鞋目錄、阿瘦皮鞋門市、阿瘦皮鞋鞋款
文章標籤
全站熱搜
