ActiveSheet.Hyperlinks.Add anchor:=selection, texttodisplay:=如何显示原单元格值

Eawer

老师们，我在使用这句语法的时候，如何在添加链接后，显示的值是原单元格的值，不要显示链接文件路径或文件名？
ActiveSheet.Hyperlinks.Add anchor:=selection, texttodisplay:=”“我这样在后面直接写两个""，单元格内就没字符了
如果写成
ActiveSheet.Hyperlinks.Add anchor:=selection, texttodisplay:=selection
就报错

texttodisplay:=    ' 这个值 该如何写，才能把原单元格的值显示出来，如填写的是 5，则在增加此链接后，仍显示 5

现在是要么就是空白，要么就是一个路径，始终不是我想要的

求教了！！

Eawer

江西老表们，快来帮帮我啊

perfect131

试试这句：
TextToDisplay:=Str(Selection)

Eawer

perfect131 发表于 2021-4-27 20:28
试试这句：
TextToDisplay:=Str(Selection)

试了，显示文档名，原值失去了

perfect131

很有可能跟你的Select有关，“不要显示链接文件路径或文件名？”是指鼠标移动到超链接所看到信息是吧？！

Eawer

在摸索中，已经得到解决方案。

即在程序开始前，先设一个变量，让激活的单元格的值赋给一个变量，到后面在添加链接时的target=变量即可

ning84

1. Sub Macro2()
   
2.     Dim Rng As Range
   
3.         Set Rng = Selection
   
4.         Debug.Print Rng.Address
   
5.         Set Rng = Sheet3.Range("$P$23:$W$34")
   
6.         
   
7.         
   
8.         For ii = 1 To Rng.Rows.Count
   
9.              For jj = 1 To Rng.Columns.Count
   
10.                    Debug.Print Rng(ii, jj), Rng(ii, jj); Rng.Hyperlinks(1).Address
    
11.              Next jj
    
12.         Next ii
    
13. End Sub

复制代码

taller

试试 TextToDisplay:=CStr(Selection.Text)