Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
通过vba将文本更改为在excel中显示_Excel_Vba - Fatal编程技术网

通过vba将文本更改为在excel中显示

通过vba将文本更改为在excel中显示,excel,vba,Excel,Vba,是否有办法更改文本以显示工作表中的所有超链接 我所要做的就是运行一个宏来修剪现有文本,使其仅显示5个chr? 在mo,我要显示的文本是非常大的文本字符串,比如“21253.bla bla.wla wla wla.dah dah dah.jpg”,我只想显示21253 这可能吗? 当做 Shei循环浏览工作表上的链接,并使用left功能修剪要显示的文本。下面的例子 Dim hl As Hyperlink For Each hl In ActiveSheet.Hyperlinks hl.Te

是否有办法更改文本以显示工作表中的所有超链接

我所要做的就是运行一个宏来修剪现有文本,使其仅显示5个chr? 在mo,我要显示的文本是非常大的文本字符串,比如“21253.bla bla.wla wla wla.dah dah dah.jpg”,我只想显示21253

这可能吗? 当做
Shei

循环浏览工作表上的链接,并使用left功能修剪要显示的文本。下面的例子

Dim hl As Hyperlink
For Each hl In ActiveSheet.Hyperlinks
    hl.TextToDisplay = Left(hl.TextToDisplay, 5)
Next