excel¦p¦ó«Ø¥ß§Ö³t³sµ²¤Î­×§ïÅã¥Ü¤å¦r

mikan

¨Ò¡G¥H¤Uºô§}·Q¦bexcel¤¤¤@¦¸§Ö³t«Ø¥ß¶W³sµ²¡A¥B¶W³sµ²ªºÅã¥Ü¤å¦r¬°¥H¤U[b][color=Red]¬õ¦r³¡¥÷[b][color=Red]
ºô§}¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@[b][color=Red]Åã¥Ü¤å¦r[b][color=Red]
http://www.kyounoryouri.jp/recipe/2001_a.html¡÷[b][color=Red]2001[b][color=Red]
http://www.kyounoryouri.jp/recipe/2002_a.html¡÷[b][color=Red]2002[b][color=Red]
http://www.kyounoryouri.jp/recipe/2003_a.html¡÷[b][color=Red]2003[b][color=Red]
http://www.kyounoryouri.jp/recipe/2004_a.html¡÷[b][color=Red]2004[b][color=Red]
http://www.kyounoryouri.jp/recipe/2005_a.html¡÷[b][color=Red]2005[b][color=Red]
http://www.kyounoryouri.jp/recipe/2006_a.html¡÷[b][color=Red]2006[b][color=Red]
http://www.kyounoryouri.jp/recipe/2007_a.html¡÷[b][color=Red]2007[b][color=Red]
http://www.kyounoryouri.jp/recipe/2008_a.html¡÷[b][color=Red]2008[b][color=Red]
http://www.kyounoryouri.jp/recipe/2009_a.html¡÷[b][color=Red]2009[b][color=Red]
http://www.kyounoryouri.jp/recipe/2010_a.html¡÷[b][color=Red]2010[b][color=Red]

½Ð°Ý¬O§_¥i¦æ¡H
ÁÂÁ¡C

oobird

Sub Macro1()
For i = 2001 To 2010
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 2000, 1), Address:= _
        "http://www.kyounoryouri.jp/recipe/" & i & "_a.html", TextToDisplay:=CStr(i)
        Next
End Sub

mikan

¦^´_ 2# oobird


    ³o­Ó¥¨¶°¤Ó¦n¥Î¤F¡AÁÂÁ¡C