精华内容
下载资源
问答
  • NO.1超链接是网页浏览最普通的路径选择方式,那么在Excel中如何添加超链接呢!熟悉Excel操作,通常在工具栏里就有添加超链接快捷按钮。这里重点讲一下,如何用代码来进行添加。由于代码添加有很强的便捷性,所以应用...

    NO.1

    超链接是网页浏览最普通的路径选择方式,那么在Excel中如何添加超链接呢!

    熟悉Excel操作,通常在工具栏里就有添加超链接快捷按钮。

    这里重点讲一下,如何用代码来进行添加。

    由于代码添加有很强的便捷性,所以应用也十分方便。

    b332664fbd6d112ae46e49cd5727b818.png

    NO.2

    Hyperlink对象代表一个超链接对象,其复数Hyperlinks就是超链接对象的合集。

    具体方法和属性如下图所示

    f135836dbdd72d5b936578e5b5e800da.png

    NO.3

    添加链接:Hyperlinks.add方法添加超链接。

    Hyperlinks.Add添加超链接支持Range和Shape两种类型。

    参数如下:

    5b30ef2bf4b2076f2d93419857e20a7d.png

    NO.4

    删除链接:Hyperlink.Delete

    7b320fcc9039c3d43ce8a0cb1c03cdd4.png

    NO.5

    代码示例(Range)

        With ActiveSheet    Set HyperObj = .Hyperlinks.Add(anchor:=.range("A1"), _        Address:="https://www.toutiao.com/c/user/token/MS4wLjABAAAA8RbsKwxbhWMMCj81MYYPYoDP8QBU4D_DbTaS1hQuxKw/", _        ScreenTip:="江觅.Excel VBA", _        TextToDisplay:="江觅")    End With

    如上代码就是在当前工作表,A1单元格内添加一个超链接,地址为Address的值,链接文本显示为TextToDisplay的值,鼠标悬停显示文字为ScreenTip值。

    根据这个方法,可以为其它单元格进行设置链接。

    NO.6

    给Shape添加超链接,也就是给图形图表添加链接。

        With ActiveSheet    Set HyperObj = .Hyperlinks.Add(anchor:=.Shapes(1), _        Address:="https://www.toutiao.com/c/user/token/MS4wLjABAAAA8RbsKwxbhWMMCj81MYYPYoDP8QBU4D_DbTaS1hQuxKw/", _        ScreenTip:="江觅.Excel VBA", _        TextToDisplay:="江觅")    End With

    这段代码就是在当前工作表,给Shape1对象添加一个超链接,地址为Address的值,链接文本显示为TextToDisplay的值,鼠标悬停显示文字为ScreenTip值。

    展开全文
  • 主要思想是先给单元格设置名称,再设置超链接 代码如下: Sub creat_link() Dim Source As String Source = "t1" Dim Target As String Target = "t2" Dim i As Integer i = 1 Dim j As Integer j =...

    主要思想是先给单元格设置名称,再设置超链接

    代码如下:

    Sub creat_link()
    
    
    Dim Source As String
    Source = "t1"
    Dim Target As String
    Target = "t2"
    Dim i As Integer
    i = 1
    Dim j As Integer
    j = 1
        
    Do While i < 10
    
        Dim Svalue As String
        Svalue = Sheets(Source).Cells(i, 1)
            
        If (Svalue = "11") Then
            
            Do
                Dim Tvalue As String
                Tvalue = Sheets(Target).Cells(j, 1)
                
                If (Tvalue = "aa") Then
                
                    '创建超链接的关键语句
                    Sheets(Target).Cells(j, 1).Name = Tvalue
                    ActiveSheet.Hyperlinks.Add Anchor:=Sheets(Source).Cells(i, 1), Address:="", SubAddress:=Tvalue
                    
                End If
                
                j = j + 1
                
            Loop While j < 10
            
        End If
        
        i = i + 1
    
    Loop
    
    
    End Sub

     

    转载于:https://www.cnblogs.com/wanggs/p/5039737.html

    展开全文
  • 我用vba引入了图片,然后我希望为图片添加一个超链接,同样希望通过vba进行操作,但是我进行了宏录制,手动的给图片加了链接后,在宏中并没有显示。谁能给个demo或者给个代码,多谢!
  • 工作需要转换商品链接、图片链接两列,因为有时候会更新...Sub 函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接() 批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*商品链接*") ...

     工作需要转换商品链接、图片链接两列,因为有时候会更新商品链接、图片链接,且每个表格这两列所在位置也不一样(另外,因嵌套的公式,链接更新后,点击跳转网页的还是之前的链接,故而需要更新Hyperlinks)

    如下图:

    Sub 函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接()
        批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*商品链接*")
        批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*图片链接*")
    End Sub
    Sub 批量添加超链接最简单_找到商品的那一列_转换那一列的链接(name)
        '忽略错误,可能有#N/A的情况
        On Error Resume Next
        Dim num As Long, h As Long, r_num As Long
        For i = 1 To Worksheets.Count
            Worksheets(i).Activate
            num = Rows(1).Find(name).Column
            r_num = Worksheets(i).UsedRange.Rows.Count
            '防止格式的错误,导致usedRange获取的行数 = 总行数
            if worksheets(i).rows.count - r_num <1001 then r_num = worksheets(i).rows.count - 1001
            '选中单元格之后,再按ctrl + ↑
            Cells(r_num + 1000, num).End(xlUp).Select
            r_num = Selection.Row
            Debug.Print ("工作表:" & Worksheets(i).name & "--行:" & r_num & "--列" & num)
            For h = 2 To r_num
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(h, num), Address:=Cells(h, num).Value
            Next
            '让窗口的第一行位置处在最后一行-3行的位置(ActiveWindow.scrollRow = 1,那么就是在显示在第一行)
            ActiveWindow.ScrollRow = r_num - 3
        Next
        '恢复报错
        On Error GoTo 0
    End Sub

     

    展开全文
  • 在发一篇长文章,里面有很多超链接要打,如果一个一个的加就会效率很低, 我们可以利用word的宏VBA来实现批量添加超链接。 当我们做好一个word文档的时候,我们可能希望给每次出现的某个词(如:同行网)都做上超链接...

    在word文档如何批量添加超链接。在发一篇长文章,里面有很多超链接要打,如果一个一个的加就会效率很低, 我们可以利用word的宏VBA来实现批量添加超链接。

    当我们做好一个word文档的时候,我们可能希望给每次出现的某个词(如:同行网)都做上超链接,那么,我们在word文档中如何批量添加超链接呢?手动一个一个的添加是一种方法,但如果文档内容很长时(如几十页,几百页内容),这种方法明显很难执行,这种方法不是我们提倡的,我们需要更有效率的方法。

    现在教大家用宏来实现word文档中批量添加超链接。

    步骤如下:

    1、打开需要编辑的word文档。

    2、Alt+F11 打开宏编辑器。

    3、在编辑器(按F7)中加入以下代码:

    Sub AddHyperlink()
    '
    ' AddHyperlink 宏
    ' 批量添加超链接
    '
    Selection.Find.ClearFormatting
    Dim i
    For i = 1 To 500
    With Selection.Find
    .Text = "同行网"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    ChangeFileOpenDirectory _
    "C:\Documents and Settings\jason\My Documents\"
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.txw100.com", SubAddress:="", ScreenTip:="", TextToDisplay:= _
    "同行网", Target:="_blank"
    Next i
    End Sub

    说明:

    1)将黄底文字“同行网”改成你要添加链接的词。

    2)将红底文字C:\Documents and Settings\jason\My Documents\ 改成你打开的word文档所在的位置。

    3)将蓝底文字http://www.txw100.com 换成你要添加的超链接。

    4)按F5运行,就可以得到你想要的结果了。

    转载于:https://www.cnblogs.com/wj-wangjun/archive/2012/11/15/2772204.html

    展开全文
  • 这里介绍一下对应的vba代码来如何实现,添加、删除和收藏超链接功能。本例用到一个对象,Hyperlink。超文本链接对象,和它的集合对象Hyperlinks。其实vba里大多数都有单数和复数的对象,分别表示一个和多个。...
  • 1、 新建一个表格,打开表格(2016版本),按住alt+F11,打开VBA编辑器如下:2、 双击“thisworkbook”,复制粘贴thisworkbook的VBA代码,如下:3、 关闭VBA编辑器,并将表格另存为excel启用宏的工作簿,如下:4、 ...
  • 首先要在excel的工具栏中插入开发者工具,笔者使用的是office 2013,以前版本也类似可以找到,并添加到工具栏,见下图: 找到选项打开 选择开发工具,这个时间在工具栏已经可以看到了vb的选项,见下图 ...
  • 下面介绍一下,如何使用VBA代码,实现在Excel单元格里添加超链接。No.2实现超链接功能,首先要有一个对象来进行承载这个方法。这些对象包括就是Range、WorkSheet和Chart。也就是说,在上述三个对象的属性里,都包含H...
  • 最前面直接说怎么做,使用 sheet.Hyperlinks.Add 添加link,目的位置 anchor ,address 如果是本文件就空着,subaddress写sheet名称和位置,TextDisplay 显示的文字。 For c = 3 To .Cells(4, 3).End(xlToRight)....
  • 该资源实现VBA对文件的操作,包括:新建文件、打开文件、写入文件等以及实现自动添加超链接和新建sheet
  • 本资源实现用VBA进行文件操作和自动添加sheet和超链接,包括:打开文件,写入文件,创建文件等
  • excel批量生成超链接(VBA代码)

    千次阅读 2019-07-07 12:34:56
    今天接到一个任务,要给一个excel目录页添加超链接,看起来容易,但是有一个问题在于,这个文档的目录有几百行,几百个sheet,如果手动进行关联这个工作量有点难以想象,堪比上青天! 好直接上操作步骤(以excel2016...
  • execl自动生成提取文件名,并添加超链接vba实现。支持execl2013
  • vba 为图片添加链接

    千次阅读 2012-04-25 11:41:27
    在为excel添加一个下载链接,该链接是通过一个图片触发的。由于之前还要操作其他的宏,进行sheet的复制,以及各行列间的运算。由于在复制sheet的时候...'为标题设置超链接 Sheet1.Select Range("AB1").Select '插
  • 实例10:利用文本文件和VBA完成批量替换 实例11:对文档内容进行顺序排列 实例12:替换Word文档插图的超链接 实例13:快速实现括号的右对齐 实例14:快速重排试题 实例15:为文档的每页添加固定内容 实例16:提取第...
  • 04155为单元格插入指向工作簿内部的超链接、删除超链接 04156为单元格插入指向工作簿外部的超链接、删除超链接 04157为单元格添加批注、删除批注 04158修改单元格的批注 04159为单元格区域定义名称、删除名称(Name...
  • 高手课:系统学习Excel的经验分享一波。主要分为五大板块:基础入门、公式与...2.数据编辑:管理工作表和工作簿、认识行与列、单元格及单元格区域、数据录入及数据类型、添加批注与超链接、对齐、合并及换行设置、表...
  • 今天我们分享办公实战...值得说的是非常简单​简单好用的文件管理:【技巧1001-4】-批量提取文件名并建立超链接可以筛选的文件管理:Excel版本动态可筛选的文件管理器文件通用管理模板(VBA):分享|文件管理模板以...
  • 第1篇 Excel基本功能 • 冻结窗格 • 名称框定位 • 区域名称显示 • 多表区域设置格式 • 自动填充功能 • 数据的格式化 ...• 为窗体控件添加事件代码 • 用户窗体的QueryClose事件和Terminate事件
  • 4 修复了在VBA中通过数组向RANGE赋空值显示为#Value!错误的问题 5 修复了激活WPS表格的OLE对象后,在状态栏上无法查看统计结果 6 修复了复制单元格会添加外部引用名称,重新打开文档会提示更新外部数据源问题 7 修复...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...
  • 382.5 探索窗体设计视图和VBA类模块 392.6 现实世界—所学知识的透视 40第3章 Access导航 423.1 理解Access功能和模式 423.1.1 定义Access功能 423.1.2 定义Access操作模式 443.2 理解Access的表显示 443.2.1 最大化...

空空如也

空空如也

1 2 3
收藏数 57
精华内容 22
关键字:

vba添加超链接