vba中获取当前sheet页的名称，当前单元格所在位置

最新推荐文章于 2024-04-22 21:07:32 发布
最新推荐文章于 2024-04-22 21:07:32 发布
阅读量2.1k 收藏 4
点赞数 1
文章标签： 人工智能
原文链接：http://www.cnblogs.com/zigewb/p/3205560.html
版权

        fname = ActiveSheet.Name-------获取当前sheet页的名称
        Sname = "" & fname & ""
   
        start_coll = ActiveCell.Column----------获取选中单元格的所在位置：列
        start_roww = ActiveCell.Row----------获取选中单元格的所在位置：行

转载于:https://www.cnblogs.com/zigewb/p/3205560.html

weixin_30268921
关注
  • 1
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA入门到进阶常用知识代码总结02
01-20
第2集 使用Excel的VBA中的语句、对象、方法与属性 2、 VBA对象： VBA中的对象其实就是我们操作的具有方法、属性的excel中支持的对象 Excel中的几个常用对象表示方法： 1、工作簿 Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N个工作簿 Workbooks (“工作簿名称”) ActiveWorkbook 正在操作的工作簿 ThisWorkBook ‘代码所在的工作簿 2、工作表 Sheets(“工作表名称”) Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表… Sheets(n) 表示按排列顺序，第n个工
合并后的单元格自动调整行高
11-20
合并后excel 并不会自动调整行高,应该有人需要吧.传上来给需要的人 这是vba代码,执行后会针对当前sheet整体调整单元格,有针对字号适配高度,但没针对字体做适合,大家看着改吧
Microsoft VBA Excel 得到全部sheet名称
RandPython的博客
02-21 550
小妙招 啦啦啦
【转】用VB操作Excel详解
weixin_30702413的博客
08-11 1096
用VB操作Excel详解 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用MicrosoftExcel 类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确 定"。表示在工程中要引用 EXCEL类型库。 2、在通用对象的声明过程中定义...
VBA 选定sheet方法总结
热门推荐
qq_30934019的博客
09-03 3万+
假定Excel共有2个sheet，分别是SIS、Sheet1，而实际后台名称是Sheet2、Sheet1，如下图： 1、Worksheets(2).select  同Sheets(2).select ，指由左至右第2个Sheets，即Sheet1，包含隐藏sheet！ 2、Worksheets("Sheet1").select 同Sheets("Sheet1").select ，直接选...
遍历带有多个sheet的Excel表格
初见-_-
05-21 4363
-- coding: utf-8 -- import xlrd file_path = ‘./mutil_intent.xlsx’ open_file = xlrd.open_workbook(file_path) sheets = open_file.sheet_names() 循环遍历所有sheet，i是sheet的索引 for i in range(len(sheets)): print i...
如何提取Excel表格各sheet名称
ww2011的博客
10-08 1万+
新建一个sheet 「公式」→「定义名称」 新建名称，名称尽可能简单，如a，引用位置为 =GET.WORKBOOK(1) 然后确定 在空的sheet的第一行的任意一个单元格输入 =INDEX(a,ROW()) 这里的a就是刚才定义的名称，而ROW()是每一行的行号，用来创造1、2、3…… 结果如下 然后点十字下拉至出现#REF！，就将所有sheet名称提取出来了 然后复制内容，粘贴为值 删掉不需要的行 按Ctrl+H，将中括号的的表格名称替换为...
vba 获取所有的sheet名称
nbspzs的专栏
05-18 8835
Sub Maco1() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub
VBA获取当前工作表的表名
weixin_44964314的博客
03-08 1万+
Excel VBA代码怎么样获取或修改当前工作表的表名 获取: Sub get_sheetname() sheetname = ActiveWindow.ActiveSheet.Name Debug.Print sheetname(即时窗口打印,使用Ctrl + G能调出即时窗口,MsgBox消息盒子) End Sub ...
使用vba获取excel每个sheet页的名称，并在目录页生成超级链接
weixin_35755188的博客
12-20 1151
使用 VBA 获取 Excel 中每个工作表的名称并在目录页中生成超级链接的步骤如下： 打开 Excel 工作簿，打开 VBA 编辑器。在 VBA 编辑器中，单击“插入”菜单，然后单击“模块”。这将创建一个新的模块，您可以在其中编写代码。 在新的模块中输入以下代码： Sub GetSheetNames() Dim ws As Worksheet For Each ws In Thi...
python获取mysql数据为excel中的sheet_python 从excel、csv、mysql、txt获取数据源
weixin_39657249的博客
12-08 114
使用python进行数据分析工作的第一步是获取数据源，数据源来可能来自于excel、txt、csv文件、mysql数据库。分别看看这些数据源怎么导入到python中。1. Excel 数据源导入python首先导入pandas 模块import pandas as pdexcel 导入格式为：pd.read_excel( 路径,sheet_name=’’ ,header=0,name=’’, dt...
VBA一键sheet页另存为Excel
07-03
VBA一键sheet页另存为Excel，批量拆分Excel sheet页为单个文档。
标识SHEET页内所有的合并单元格VBA.txt
08-06
EXCEL使用合并单元格不是一个规范的做法，接手其他人的表格如果有合并单元格，如需要逐一处理，特别是让菜鸟级的始作俑者逐一改正。如能把当前SHEET页内的所有合并单元格都用特殊颜色做为底色标识出来就太棒了。
vba单元格多选模板.xls
11-06
excel单元格点击可多选数据模板，利用vba编程，在隐藏sheet页面存入数据，可用于编程开发当作模板读取写入数据，方便操作，需要office
VBA记录更改之前的值.xlsm
01-05
VBA记录更改之前的值，判断是否执行其他VBA操作等，源码在Sheet1
《Vid2Seq》论文笔记
最新发布
Zssss12的博客
04-22 910
在这项工作中，我们引入了Vid2Seq，这是一种多模态单阶段密集事件字幕模型，它在大规模可用的叙述视频上进行了预训练，Vid2Seq 架构使用特殊的时间标记(time tokens)增强了语言模型，使其能够同时预测同一输出序列中的事件边界和文本描述。这种统一的模型需要大规模的训练数据，这在当前的注释数据集中是不可用的。我们表明，通过将转录语音的句子边界重新表述为伪事件边界，并使用转录的语音句子作为伪事件字幕，可以利用未标记的叙述视频进行密集视频字幕。
知识图谱的分类
suliuzhen的博客
04-22 175
知识图谱分为通用知识图谱与领域知识图谱两类，两类图谱本质相同，其区别主要体现在覆盖范围与使用方式上。（1）通用知识图谱：通用知识图谱主要强调知识的广度，可以形象地看成一个面向通用领域的结构化的百科知识库，其中包含了大量的现实世界中的常识性知识，覆盖面广，通常运用百科数据进行自底向上（Top-Down）的方法进行构建；
ai智能名片生成器源码系统 一键生成数字名片 打造定制化的商务社交平台
duizhangdaren的博客
04-22 527
在数字化时代，商务交流方式正在发生深刻变革。分享一个ai雷达智能名片生成器源码系统，源码开源可二开，含完整代码包和详细的安装部署搭建教程，让技术小白也能轻松上手，让您一键生成数字名片，打造定制化的商务社交平台。比如：多少人阅读了我们的朋友圈文章，多少人转发了我们文章，访问者在文章停留了多久，甚至具体什么人访问了我们的文章等。比如有多少人访问了名片，什么人访问了名片，访问了多久，第几次访问等等。2. 现有客户留存，人工智能名片系统能帮你发现什么客户很久没有关注你的名片了，那么就可以及时做出客户的留存了。
5 CatBoost模型
qq_28611929的博客
04-19 1023
catboost模型介绍
使用vba获取excel每个sheet页的名称，并生成超级链接
09-23
### 回答1： 可以使用 VBA 在 Excel 中循环遍历每一个工作表，然后使用 "Sheet.Name" 属性获取工作表的名称。 例如，以下代码可以在活动工作簿的每个工作表上循环，并在每个工作表的 "A1" 单元格内插入超级链接，其文本为工作表的名称，并将其链接到该工作表。 Sub CreateLinksToSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets With ws.Range("A1") .Hyperlinks.Add Anchor:=.Cells(1, 1), Address:="", SubAddress:= _ ws.Name & "!A1", TextToDisplay:=ws.Name End With Next ws End Sub 注意：在运行此代码之前，请确保启用了 "Microsoft Forms 2.0 对象库" 引用。 可以通过以下方式启用该引用： 1. 在 Excel 中打开 "开发人员" 工具栏。 2. 单击 "Visual Basic" 按钮。 3. 在 Visual Basic 编辑器中，单击 "工具" > "引用"。 4. 在 "引用" 对话框中，勾选 "Microsoft Forms 2.0 对象库" 前面的复选框，然后单击 "确定" 按钮。 希望这可以帮助你。 ### 回答2： 使用VBA可以很方便地获取Excel中每个sheet页的名称，并生成超级链接。下面是一个实现这个功能的例子： ``` Sub GenerateHyperlinks() Dim ws As Worksheet Dim hyperlinkSheet As Worksheet Dim row As Integer ' 创建一个名为Hyperlinks的工作表，用于存放超级链接 Set hyperlinkSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) hyperlinkSheet.Name = "Hyperlinks" ' 在Hyperlinks工作表中添加标题行 hyperlinkSheet.Range("A1").Value = "Sheet Name" hyperlinkSheet.Range("B1").Value = "Hyperlink" row = 2 ' 循环遍历所有的sheet页 For Each ws In ThisWorkbook.Sheets If ws.Name <> hyperlinkSheet.Name Then ' 排除Hyperlinks工作表 ' 将sheet页的名称填入Hyperlinks工作表的第一列 hyperlinkSheet.Cells(row, 1).Value = ws.Name ' 生成超级链接并插入到Hyperlinks工作表的第二列 hyperlinkSheet.Cells(row, 2).Formula = "=HYPERLINK(" & Chr(34) & "#" & ws.Name & "!A1" & Chr(34) & ")" row = row + 1 End If Next ws ' 设置超级链接列的格式为超级链接样式 hyperlinkSheet.Range("B:B").Style = "Hyperlink" ' 调整列宽 hyperlinkSheet.Columns("A:B").AutoFit ' 在Hyperlinks工作表中选中标题行 hyperlinkSheet.Range("A1:B1").Select End Sub ``` 执行上面的代码后，会在Excel文件中生成一个名为Hyperlinks的工作表，其中的第一列是每个sheet页的名称，第二列是对应的超级链接。可以根据需要自行调整、修改生成超级链接的方式和样式。 ### 回答3： 使用VBA编程可以很方便地获取Excel每个 sheet 页的名称，并生成超链接。下面是一个示例代码： ```vba Sub CreateHyperlinks() Dim ws As Worksheet Dim lnk As Hyperlink Dim rng As Range Dim shtName As String ' 遍历所有 sheet 页 For Each ws In ThisWorkbook.Sheets ' 获取 sheet 页的名称 shtName = ws.Name ' 设置超链接的目标范围 Set rng = ws.Range("A1") ' 创建超链接 Set lnk = ws.Hyperlinks.Add(rng, "#'" & shtName & "'!A1", , , shtName) ' 设置超链接样式 lnk.Range.Font.Color = RGB(0, 0, 255) lnk.Range.Font.Underline = xlUnderlineStyleNone lnk.Range.Font.Size = 12 Next ws End Sub ``` 这段代码使用了一个 For Each 循环来遍历当前工作簿中的所有 sheet 页。对于每个 sheet 页，获取其名称并将其作为超链接的显示文本。然后，创建一个超链接对象并指定其目标范围为单元格 A1。超链接的目标地址是一个字符串，由 "#"、单引号、sheet 页名称、单引号、叹号和单元格地址组成。最后，通过设置超链接对象的 Range 属性，可以对超链接的样式进行修改，如字体颜色、下划线和大小等。 运行该宏后，每个 sheet 页的单元格 A1 都会生成一个超链接，点击该链接可以跳转到对应的 sheet 页。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值