このトピックに書きこむ |
---|
Re[2]: ハイパーリンクの解除について | |
---|---|
[195900] Re[2]: ハイパーリンクの解除について- ■記事引用/メール受信=OFF■ □投稿者/ odeko48 -(2023/08/24(23:09)) □U R L/ すみません、返信遅れました なるほどですね、そんな事もあるんですね。「kazuo様」大変勉強になりました。 もしかしたら簡単に解決したアドバイスを期待していたのですが 取り敢えず「ActiveCell.ClearContents」で様子見をしていき 重大なバグがあれば、情報を集めて回避策を考えようかと思います。 有益な情報有難うございます |
[195890] Re[1]: ハイパーリンクの解除について- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2023/08/20(07:49)) □U R L/ 私も世の中には識者がいらっしゃるので期待してこの掲示板(あまりに閑散としていて寂しいの)で質問してしまうのですが、 本件はExcelの公開されていない仕様に関することなので、この様な掲示板で明確な回答を期待してはいけません。 回答がもらえるとは断定できませんが、マイクロソフトコミュニティで相談してみたら良いかもしれません 例えば、 Sub test() With Range("A1") .ClearContents .Hyperlinks.Add Anchor:=.Cells, Address:="ttps://learn.microsoft.com/ja-jp/office/vba/api/excel.range.clearcontents" Debug.Print .Value, .Hyperlinks(1).TextToDisplay .Hyperlinks(1).TextToDisplay = "a" Debug.Print .Value, .Hyperlinks(1).TextToDisplay .Formula = "=1" Debug.Print .Value, .Hyperlinks(1).TextToDisplay '★何故こうなるのかドキュメントが公開されていないと思います End With End Sub excel2016 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195887] ハイパーリンクの解除について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ odeko48 -(2023/08/19(16:21)) □U R L/ Win10 Microsoft 365 社内でNASにあるエクセルファイルを共有して作業しております。 ハイパーリンクを設定してあるエクセルファイルでリンクを解除する方法なのですが やりたい事はハイパーリンクを設定してあるセルで 「セル内の表示文字列は消す」「書式は残る」「リンクは解除(アドレスは空白)」 の3つで以下のコードで検証した結果 Sub test() If ActiveCell.Hyperlinks.Count = 1 Then 'ハイパーリンクの有無を判断 MsgBox "ハイパーリンク=あり" 'ActiveCell.Hyperlinks.Delete ''(1)「セル内の表示文字列は残る」「一部の書式は消える」「リンクは解除(アドレスは空白)」 'ActiveCell.ClearHyperlinks ''(2)「セル内の表示文字列は残る」「書式は残る」「リンクは解除(アドレスは空白)」 'ActiveCell.ClearContents ''(3)「セル内の表示文字列は消える」「書式は残る」「リンクは解除(アドレスは空白)」 Else MsgBox "ハイパーリンク=なし" End If End Sub コメントブロックをはずして1つづつ検証した結果(3)が意図した結果に なりましたが、何か問題はありますでしょうか? 「Hyperlinks.Delete」「ClearHyperlinks」を使用しなくても単純に「ClearContents」で リンクは解除されるようなので、裏付をとるためにも何か情報があればご教授くださいませ また解除したセルにリンク再設定をする事もありますので よろしくお願いいたします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |