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
manolo blahnik 台灣,manolo blahnik 地點,manolo blahnik怎麼唸,manolo blahnik鞋,manolo blahnik透明高跟鞋
全站熱搜
留言列表
