質問: mycolor end sub "メールアドレス"範囲を別の所にコピーしておき、値だけ削除して元に戻して・・・なども考えてみましたが・・・?←これは、余計かも? 宜しくお願い致します。
回答: こんばんは。 コードとしては、よく分からないし、maillist って、シート名だとしたら、commandbutton とは、違うシートでしょうか? maillist.hyperlinks.delete このように一括でするとなると、それを、一旦、range をどこかに確保しなければならないから、結果的には、最初は一括でしても、後が、一括では出来そうな気がしません。 ひとつずつ、以下のようなコードにすればよいと思います。 hyperlinkから、ただの、range への切り替えをします。ただ、以前のバージョン(2000)は、hyperlinkオブジェクトを削除しても色が残った気がします。今は、色と下線は、仮にオブジェクトのrangeにつけても、hyperlink の削除とともに消えるようですね。 sub test1() dim v as variant dim r as range for each v in activesheet.hyperlinks set r = v.range v.delete r.font.underline = xlunderlinestylesingle r.font.colorindex = 5 next v set r = nothing end sub