文字列でURLが入っている列に、全てハイパーリンク設定を適応。 Sub Macro1() ' ' Macro1 Macro ' For a = 1 To 65536 b = Cells(a, "L") If b = "" Then Exit For ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "L"), Address:=b, TextToDisplay:=b Next a …

オバマが就任して・・・以下省略ｗとまぁ、こんな感じの世界でありますが（←別に憂いても喜んでもいませんよ）、僕はあんまり大人な思考は持ち合わせていませんので自分の為にも世界や周りのことを考えて行こう的な考えはでけませんなぁ。 うーん、簡単に言…