精华内容
下载资源
问答
  • VBA创建超链接内容表

    2015-10-07 01:37:41
    以下代码实现在工作薄开头插入一张新的工作表,内容为每个工作表的超链接。  工程->插入->模块 Sub CreateLink() Dim i As Integer Sheets.Add Before:=Sheets(1) For i = 2 To Worksheets.Count  ...

    以下代码实现在工作薄开头插入一张新的工作表,内容为每个工作表的超链接。

            工程->插入->模块

    Sub CreateLink()
    Dim i As Integer
    Sheets.Add Before:=Sheets(1)
    For i = 2 To Worksheets.Count
     ActiveSheet.Hyperlinks.Add _
    Anchor:=Cells(i, 1), _
    Address:="", _
    SubAddress:="'" & Worksheets(i).Name & "'!A1", _
    TextToDisplay:=Worksheets(i).Name
    Next i
    End Sub
    展开全文
  • 为了方便阅读,现希望能够用VBA批量在“资产负债表”中创建超链接,链接到“报表项目说明”中具有详细说明的单元格,并在“报表项目说明”表中创建返回“资产负债表”的超链接,该如何实现? 资产负债表 ...

    目录

    示例

    实现代码

    Hyperlink对象

    创建超链接

    删除超链接及访问超链接

    创建超链接打开指定的宏代码


    示例

        如图所示,该表为某公司资产负债表以及关于报表的说明。为了方便阅读,现希望能够用VBA批量在“资产负债表”中创建超链接,链接到“报表项目说明”中具有详细说明的单元格,并在“报表项目说明”表中创建返回“资产负债表”的超链接,该如何实现?

    资产负债表
       0.00    
    单位:0.00日期:XXXX-XX-XX  金额单位:元
    资    产行次期末余额年初余额负债及所有者权益行次期末余额年初余额
    流动资产: 0.000.00流动负债: 0.000.00
    货币资金1  短期借款34  
    交易性金融资产2  交易性金融负债35  
    应收票据3  应付票据36  
    应收账款4  应付账款37  
    预付账款5  预收账款38  
    应收利息6  应付职工薪酬39  
    应收股利7  应交税费40  
    其他应收款8  应付利息41  
    存货9  应付股利42  
        其中:原材料9-1  其他应付款43  
              周转材料9-2  一年内到期的非流动负债44  
              半成品9-3  其他流动负债45  
              库存商品9-4      
    一年内到期的非流动资产10      
    其他流动资产11      
    流动资产合计12  流动负债合计46  
    非流动资产:   非流动负债:   
    可供出售金融资产13  长期借款47  
    持有至到期投资14  应付债券48  
    长期应收款15  长期应付款49  
    长期股权投资16  专项应付款50  
    投资性房地产17  预计负债51  
    固定资产原价18  递延所得税负债540.000.00
    减:累计折旧19  其他非流动负债550.000.00
    固定资产净值20  非流动负债合计56  
    减:固定资产减值准备21      
    固定资产净额22  负债合计57  
    在建工程23      
    工程物资24  所有者权益(或股东权益):   
    固定资产清理25  实收资本(或股本)58  
    无形资产26  资本公积59  
    开发支出27  减:库存股60  
    商誉28  盈余公积61  
    长期待摊费用29  未分配利润62  
    递延所得税资产30  *外币报表折算差额63  
    其他非流动资产31  *归属于母公司所有者权益合计64  
    非流动资产合计32  少数股东权益65  
        所有者权益合计66  
    资产总计33  负债和所有者权益(或股东权益)总计67  
    附:其他流动资产中劳务成本       
    注:  1、带“*”号为合并报表专用;     
          2、资产类科目除固定资产外,其他均按净值填列。     
            
    主管:     会计:     制表: 

     

    资产负债表详细说明 
    货币资金返回
    详细说明 
     
     
     
     
     
     
     
     
     
     
    应收票据返回
    详细说明 
     
     
     
     
     
     
     
     
     
     
     
     
     
    应收帐款 
    详细说明 
     
     
    预付账款返回
    详细说明 
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    其他应收账款 
    详细说明 
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    存货返回
    详细说明 
     
     
     
     
     
     
     
     
     
     
     
     
    其他流动资产结构 
    详细说明 
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    长期股权投资返回
    详细说明 
     
     
     
     
     
     
     
     
     
     
     
     

    实现代码

        循环遍历“资产负债表”中需要创建超链接的单元格区域的每个单元格,在“报表项目说明”中查找值相同的单元格。若找到,则在“资产负债表”的该单元格中创建一个超链接对象(Hyperlink),指向“报表项目说明”中的相应单元格,并在“报表项目说明”中相应单元
    格的B列创建一个指向“资产负债表”相应单元格的超链接。

    Option Explicit
    
    Sub 批量创建超链接()
        Dim sht1 As Worksheet       '资产负债表
        Dim sht2 As Worksheet       '报表项目说明
        Dim RngAll As Range         '资产负债表中需要创建超链接的区域
        Dim Rng1 As Range
        Dim Rng2 As Range
        
        '设置工作表
        Set sht1 = Sheets("资产负债")
        Set sht2 = Sheets("报表说明")
        
        '删除所有的超链接
        sht1.Hyperlinks.Delete
        sht2.Hyperlinks.Delete
        sht2.Columns(2).Clear
        
        '需要创建超链接的区域
        Set RngAll = Union(sht1.Range("A5:A44"), sht1.Range("E5:E44"))
        '遍历各单元格
        For Each Rng1 In RngAll
            '当单元格有内容时执行
            If Rng1 <> "" Then
                '在"报表说明"表中的第一列寻找相同的内容
                Set Rng2 = sht2.Range("A:A").Find(Rng1.Value, lookat:=xlWhole)
                '若找到,则添加超链接
                If Not Rng2 Is Nothing Then
                    sht1.Hyperlinks.Add Rng1, "", sht2.Name & "!" & Rng2.Address
                    sht2.Hyperlinks.Add Rng2.Offset(0, 1), "", sht1.Name & "!" & Rng1.Address, "", "返回"
                    '设置格式
                    Rng1.Font.Size = 9
                End If
            End If
        Next
    End Sub
    

    Hyperlink对象

        Hyperlink对象是工作表中用以表示超链接的对象,由于同一个工作表中可以有多个超链接,因而在工作表中可以直接使用超链接集合对象Hyperlinks。当需要访问Hyperlink对象时,可以使用以下形式:

    Worksheet.Hyperlinks(indexNo)
    或
    Worksheet.Hyperlinks(name)

        其中,indexNo为超链接的序号,而name为超链接的名称。超链接的名称是在创建超链接时决定的,不同的超链接对象可以有相同的名称。当工作表中有多个相同名称的超链接时,若采用超链接名称的形式访问超链接对象,则只能访问到序号indexNo较小的Hyperlink对象。

    创建超链接

        当需要在工作表中创建超链接时,可以使用超链接集合对象Hyperlinks的Add方法进行创建,其语法如下:

    Hyperlinks.Add(Anchor,Address[[[,SubAddress],ScreenTip],TextToDisplay] )

    该方法可以返回一个Hyperlink对象。

    • 参数Anchor表示超链接的位置,可以为单元格对象(Range)或者图形对象(Shape)。
    • 参数Address为文本,表示超链接的地址。
    • 参数SubAddress为文本,表示超链接的子地址。当建立当前工作表内部的超链接时,应省略Address参数,将SubAddress参数设置为单元格的地址即可。如:设置为“报表项目说明!A1”,表示链接到工作表“报表项目说明”的A1单元格。
    • 参数ScreenTip为文本,表不当鼠标指针停留在超链接上时所显示的屏幕提示。
    • 参数TextToDisplay为文本,表示要显示的超链接的文本。当单元格设置为超链接时,则单元格显示的文字为该参数所指的文本。当该参数未指定时,默认设置为单元格的值,而当单元格内容为空时,则设置为Address所提供的地址文本。在创建超链接时,TextToDisplay所表示的文本默认为该超链接的名称(Name属性)。

        在为单元格创建完超链接后,Excel自动将该单元格的格式设置为系统默认的超链接样式。在一般情况下,该转换将会破坏表格的格式统一。因而在批量设置超链接之后,通过超链接对象的Range属性(即其创建超链接所在的单元格对象)对该单元格的格式进行重新设置。

    删除超链接及访问超链接

        当需要删除超链接时,可以使用Hyperlinks对象的Delete方法删除工作表中所有的超链接,也可以使用Hyperlink的Delete方法删除单个超链接。当需要访问某个超链接的目标地址时,可以使用Hyperlink对象的Follow方法。

    创建超链接打开指定的宏代码

        Excel允许用户创建超链接打开指定的宏代码,只需在创建超链接时,将其Address属性设置为井号(#)加上宏过程的名称即可。如:在当前工作表的A1单元格创建一个超链接打开名为Test的宏代码,可以参考以下代码:

    ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"),Address:="#Test"


     

     

     

     

    展开全文
  • 最前面直接说怎么做,使用 sheet.Hyperlinks.Add 添加link,目的位置 anchor ,address 如果是本文件就空着,subaddress写sheet名称和位置,TextDisplay 显示的文字。 For c = 3 To .Cells(4, 3).End(xlToRight)....

    最前面直接说怎么做,使用 sheet.Hyperlinks.Add  添加link,目的位置 anchor ,address 如果是本文件就空着,subaddress写sheet名称和位置,TextDisplay 显示的文字。

    For c = 3 To .Cells(4, 3).End(xlToRight).Column
        city_text = .Cells(4, c).Value
        .Hyperlinks.Add Anchor:=.Cells(4, c), Address:="",SubAddress:=city_text + "!A1",TextToDisplay:=city_text
    Next

    -------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    20191116补充:

    我自己写的逻辑是:

    1.对总工作表的某一行或某一列进行遍历,取出单元格中的内容;

    2.对这个单元格添加超链接,显示的内容与原单元格中的相同。

    同事的需求是,将各个子表表名的汇总到总表,并做超链接,总表中原本是没有文字的

    实现逻辑为遍历各子表,取其内容对总表总单元格进行超链接

     

    -------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    以下为原文:

    嗯,下面是我自己的碎碎念,可以不看,emmmm,就是写我咋被自己的习惯坑死的。。

     

    昨天晚上老板给了个小任务,把数据整理成全网汇总-省份-城市-网点这样的层级下钻的excel文档,而且还要能够返回。大概要分几百个sheet表,没数,各维度排列方式还不完全一样,有些需要按列分、有些要按照行分,搞了一天多一点终于弄完了,也算是把vba重新熟悉下吧,什么条件格式啦、表格拆分啊,东西总不用就是会忘记。。

    进入正题,我需要的结果大概是这样,点击省区的名称,查看省区下面的城市汇总、城市点开再看网点。

    平时做超链接直接用hyperlink函数,比vba方便多了。用习惯这个函数的结果就是,我用vba加超链接这个问题上花了一个小时!!

    官方给的parameter解释如下:

    嗯,看起来和hyperlink挺类似的,坑就在Address 和SubAddress 子地址这里。。

    平时用hyperlink链接到当前文件是怎么写的呢?"#" +sheetname+"!A1" 一般是这样拼接而成的,我写vba的时候想当然的直接在address里面这样写了,把子地址直接忽略掉了……结果可想而知。

     

    展开全文
  • 想要使用VBA程序在Excel中批量添加超链接;将Excel其中一个工作表的某列添加另外一个工作表的某列的超链接。下面我们就来看看详细的教程。软件名称:Microsoft Office 2019 正式版 中文个人版/学生版(附批量授权) 64...

    想要使用VBA程序在Excel中批量添加超链接;将Excel其中一个工作表的某列添加另外一个工作表的某列的超链接。下面我们就来看看详细的教程。

    软件名称:Microsoft Office 2019 正式版 中文个人版/学生版(附批量授权) 64位软件大小:4.67MB更新时间:2018-09-26立即下载

    1、将Excel的VBA宏安全性改为最低,这样方便运行宏代码

    97f537e2bcffd71c70f0d39bdfc15027.png

    2116ef24687698837b9d52dec3fd6bc8.png

    2、在Excel表格任意位置添加【按钮控件】

    611968d611888e5557c6df66274c375e.png

    450678483442a2717788b0bd794774fa.png

    1b34c97032012de4df93a02a5df64a2d.png

    3、改变按钮控件名称

    566e71a9937b898b336aa1ad0e877784.png

    2e270472bdb816e2377f6bb07b0295ae.png

    7bc38acddd5845dd1c5e1d0c9069e334.png

    4、双击按钮控件,打开代码编辑VBA窗口;删除全部显示的代码。

    678fd0ca0b542b5d74d197025452c70c.png

    5、'复制此步骤所有内容到VBA窗口,包括这句话。

    Option Explicit

    Public Sub PiLiangChaoLianJie()

    '01----批量超链接,将一个工作表中的列作为超链接添加到另外一个工作表中

    ' 宏由 keke 录制,时间: 2019/9/25

    '

    Dim S1 As String, S2 As String

    Dim SHEET_NAME As String

    Dim LINK_CELL As String, Link_S As String, LINK_Name As String

    Dim I As Integer

    Dim LINK_text As String

    Dim Str_i%, End_i%

    Str_i = InputBox("请输入起始行", , 1)

    End_i = InputBox("请输入结束行", , 50)

    SHEET_NAME = InputBox("请输入需要添加超链接的【工作表】名字", , "sheet1")

    S2 = InputBox("请输入需要创建连接的【列】名", , "A")

    LINK_Name = InputBox("请输入链接到的【工作表】的名字", , "sheet2")

    Link_S = InputBox("请输入链接到工作表所在的【列】名", , "A")

    For I = Str_i To End_i

    LINK_CELL = LINK_Name & "!" & Link_S & I

    S1 = S2 & I

    Range(S1).Select

    Sheets(SHEET_NAME).Select

    If Worksheets.Application.Range(LINK_CELL).Value = "" Then

    LINK_text = LINK_CELL

    Else

    LINK_text = Worksheets.Application.Range(LINK_CELL).Value

    End If

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LINK_CELL, TextToDisplay:=LINK_text

    Next I

    End Sub

    Private Sub CommandButton1_Click()

    PiLiangChaoLianJie

    End Sub

    0c9e79eb31149fa6d2fff385e2fc0c2f.png

    展开全文
  • 使用VBA学习使用过程中,需要对超链接地址进行提取,再在邮件中发送超级连接,找了找,找到如下方法 第一步:先使用Address获取地址 第二步;使用Split 命令,获取所需要的字符串 第一步实现: Sub InsertHyperli...
  • excel批量生成超链接(VBA代码)

    千次阅读 2019-07-07 12:34:56
    今天接到一个任务,要给一个excel目录页添加超链接,看起来容易,但是有一个问题在于,这个文档的目录有几百行,几百个sheet,如果手动进行关联这个工作量有点难以想象,堪比上青天! 好直接上操作步骤(以excel2016...
  • VBA得到word中的超链接

    2013-12-03 18:03:00
    VBA得到word中的超链接 ' For i = 1 To Selection.Paragraphs.Count For j = 1 To Selection.Paragraphs(i).Range.Hyperlinks.Count MsgBox Selection.Paragraphs(i).Range.Hyperlinks...
  • 当工作簿中有多个工作表时,往往会在第一个工作表中设置目录并加入超链接,但是由于工作表经常会改变,这里使用VBA代码进行实现。 '引用工作表名 Private Sub Worksheet_Activate() Dim sht As Worksheet Dim a As...
  • 该资源实现VBA对文件的操作,包括:新建文件、打开文件、写入文件等以及实现自动添加超链接和新建sheet
  • 用excel处理数据往往...遍历sheet页数量,生成对应的sheet页名超链接 excel的目录在第三页,故该脚本从第四页开始生成,生成到sheet3.(10+x,4) 上界面原型如图: Sub lianjie() Dim x As Long x = 0 For x = 4 To
  • 首先要在excel的工具栏中插入开发者工具,笔者使用的是office 2013,以前版本也类似可以找到,并添加到工具栏,见下图: 找到选项打开 选择开发工具,这个时间在工具栏已经可以看到了vb的选项,见下图 ...
  • (2)打开后按住Alt再按F11,这样就会打开vba代码编辑器 (3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1” (4)双击“模块1”,右边就会出现“模块1”的编辑界面,将以下代码复制,...
  • Sub test() '添加工作簿 Dim wb, ws Set wb = Workbooks.Add Set ws = wb.ActiveSheet ws.Columns("A:B").NumberFormatLocal="@" ws.Columns("A:B").ColumnWidth = 20 Dim objFso, objGetFolder, i i = 1 '创建...
  • VBA listview的用法

    2013-08-05 09:12:29
    VBA listview的用法
  • Public Sub 4_156() Dim myRange As Range Dim myHyps As Hyperlinks Set myRange = Range("A1") '指定任意的单元格 Set myHyps = myRange.Hyperlinks ... .Delete '删除已经存...
  • 本资源实现用VBA进行文件操作和自动添加sheet和超链接,包括:打开文件,写入文件,创建文件等
  • 批量超链接模板.xls

    2019-09-20 16:49:40
    excel宏:批量生成excel目录下单个文件夹内的文件的超链接,支持手动设置起始行及男女输入
  • 在发一篇长文章,里面有很多超链接要打,如果一个一个的加就会效率很低, 我们可以利用word的宏VBA来实现批量添加超链接。 当我们做好一个word文档的时候,我们可能希望给每次出现的某个词(如:同行网)都做上超链接...
  • 通过VBA遍历所有的sheet并在第一页创建超链接很简单,网上已经提供了很多相关的例子,我在此列举一种最简单的,直接copy即可使用,如下: Sub lianjie() Dim x As Long x = 0 For x = 1 To Sheets.Count '从第四页...
  • ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=folder_location & fn Next End Sub 运行结果 选中某一单元格,输出结果会在此单元格后方出现 运行代码 自动读取文件夹中文件名并为其添加超链接
  • ExcelVBA批量添加PDF文件

    千次阅读 2020-02-26 21:30:35
    OLEObjects.Add方法向工作表中添加新的 OLE 对象。其语法格式如下。 表达式.Add(ClassType, FileName, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height) 各参数说明如下...
  • 我用vba引入了图片,然后我希望为图片添加一个超链接,同样希望通过vba进行操作,但是我进行了宏录制,手动的给图片加了链接后,在宏中并没有显示。谁能给个demo或者给个代码,多谢!
  • EXCEL VBA中的Hyperlinks函数使用

    千次阅读 2020-03-22 18:04:53
    最近某个工作任务需要倒腾各种Excel表格,于是重新拾起了VBA。今天遇到的任务是做一个统计表,统计合并若干个分散的Excel表格,并在统计表中做一个具有超链接功能的目录,点击超链接可以跳转到各个分散的Excel表格中...
  • 工作需要转换商品链接、图片链接两列,因为有时候会更新...Sub 函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接() 批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*商品链接*") ...
  • execl自动生成提取文件名,并添加超链接vba实现。支持execl2013
  • vba 为图片添加链接

    千次阅读 2012-04-25 11:41:27
    在为excel添加一个下载链接,该链接是通过一个图片触发的。由于之前还要操作其他的宏,进行sheet的复制,以及各行列间的运算。由于在复制sheet的时候...'为标题设置超链接 Sheet1.Select Range("AB1").Select '插
  • worksheets().hyperlinks.add anchor:添加超链接的位置【1】,超链接打开的地址【2】,子地址(这里省略),提示【3】,显示内容【4】。 Sub k() Dim rng As Range For Each rng In Range("a1:a2") ...
  • 一. ba超链接下划线去掉 二. 代码 /*a去掉下划线*/ #MySignature a:link, #MySignature a:visited, #MySignature a:active { color: #f60; text-decoration:none;...三....另: 超链接添加下划线https://zh...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 934
精华内容 373
关键字:

vba添加超链接