Excel vba:批量生成超链接,添加边框,移动sheet等
Excel vba 操作
批量生成sheet目录并添加超链接
Sub Add_Sheets_Link()
'Worksheets(5)为清单目录页
'在sheet页上生成sheet页名字并超链接
For i = To ThisWorkbook.Worksheets.Count
Worksheets().Cells(i + , ).Value = Worksheets(i).Name
Worksheets().Hyperlinks.Add Anchor:=Worksheets().Cells(i + , ), Address:="", SubAddress:= _
Worksheets().Cells(i + , ) & "!" & "A1", TextToDisplay:=Worksheets().Cells(i + , ) & "!" & "A1" Next '在每个内容sheet上添加超链接返回目录
For i = To ThisWorkbook.Worksheets.Count
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(, ), Address:="", SubAddress:= _
"Sheet1!A1", TextToDisplay:="返回清单"
Next '在(1,1单元格)超链接返回到 接口清单sheet页
For i = To ThisWorkbook.Worksheets.Count
'Cells(i + 1, 2).Value = Worksheets(i).Name
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(, ), Address:="", SubAddress:= _
Worksheets().Name & "!" & "A1"
'Worksheets(3).Cells(i + 1, 2).Value = Worksheets(i).Name
Next End Sub
区域全选,添加边框
'选中区域添加边框
Sub region_select()
'
For i = To ThisWorkbook.Worksheets.Count
Worksheets(i).UsedRange.Borders.LineStyle = xlContinuous '加边框线
Worksheets(i).Range("A1:K1").Borders.LineStyle = xlNone '取消边框线 '方法2 区域全选
'Worksheets(i).UsedRange.Select 错误 '只有当前活动页才能选中
'Worksheets(i).Activate
'ActiveCell.CurrentRegion.Select ' 实现区域全选
'rng_address = Selection.Address ' 返回该区域地址
'Selection.Borders.LineStyle = xlContinuous '加边框线
'Worksheets(i).Range("A1:K1").Borders.LineStyle = xlNone '取消边框线 Next End Sub
命名sheet页,拼接字符串
'第9 ,10列,即 I,J列 分别为代码和名称
Sub RenameSheet_AddBackBoder() For i = To ThisWorkbook.Worksheets.Count Worksheets(i).UsedRange.Borders.LineStyle = xlContinuous '加边框线
Worksheets(i).Range("A1:K1").Borders.LineStyle = xlNone '取消边框线 '第9 ,10列,分别为代码和名称
tcname = Worksheets().Cells(i - , ).Value
tccode = "(" & Worksheets().Cells(i - , ).Value & ")"
Worksheets(i).Cells(, ).Value = tcname & tccode ' 文字格式: 名称(代码)
Worksheets(i).Name = tcname
Next End Sub
定义名称添加超链接
Sub AddNames_Hyper()
'定义名称添加超链接
For i = To ThisWorkbook.Worksheets.Count
ActiveWorkbook.Names.Add Name:=Worksheets(i).Name, RefersToR1C1:="=" & Worksheets(i).Name & "!R1C1" 'Worksheets(5).Hyperlinks.Add Anchor:=Worksheets(5).Cells(i - 5, 10), Address:="", SubAddress:= _
'Worksheets(5).Cells(i - 5, 10) & "!" & "A1" Worksheets().Hyperlinks.Add Anchor:=Worksheets().Cells(i - , ), Address:="", SubAddress:= _
Worksheets(i).Name
Next
sheet布局排序,按某一列内容排序
Sub SortByCol() For i = To ThisWorkbook.Worksheets.Count
sheet_name = Trim(Worksheets(i).Name)
Worksheets(i).Name = sheet_name
Next For i = To ThisWorkbook.Worksheets.Count
'第10列为顺序列,单元格内容为sheet页名称
order_name = Trim(Worksheets().Cells(i - , ).Value)
Worksheets().Cells(i - , ) = order_name
Sheets(order_name).Move after:=Sheets(i - )
Next End Sub
Excel vba:批量生成超链接,添加边框,移动sheet等的更多相关文章
- 如何利用Excel快速批量生成想要的代码
如何利用Excel快速批量生成想要的代码 使用场景 在HTML DOM Video 对象这个页面 我想要将所有的中文描述和对应的属性(共32个属性)打印出来--console.log(descript ...
- Excel VBA(宏):添加宏
写在前面: .编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结 ...
- Excel技巧--批量生成指定名称的文件夹
当我要按excel表当中的名字来批量生成文件夹时,手动一个个制作很麻烦(特别是成百上千个时).于是我们可以这么做: 1.在名字右侧建立公式:"MD "&A2. 2.将公式拖 ...
- excel 中批量生成mysql的脚本
一.假设你的表格有A.B.C三列数据,希望导入到你的数据库中表格table,对应的字段分别是col1.col2.col3 二.在你的表格中增加一列,利用excel的公式自动生成sql语句,具体方法如下 ...
- Excel VBA: 自动生成巡检报表并通过邮件定时发送
目录 环境说明逻辑结构效果说明及截图①.安装SecureCRT②. 自动巡检脚本③. 数据检索并FTP传送④. 安装Excel 2013⑤. 安装Serv-U⑥. 自动生成图表并邮件发送 环境说明 系 ...
- Excel VBA批量修改文件夹下的文件名
今天,有同事提出想批量修改文件名,规则比较简单,在第五位后加“-”即可, 上网没找到相关工具,就自己做了个excel,用宏代码修改. 代码如下: Private Sub CommandButton1_ ...
- Excel VBA ——批量工作表重命名
虽然平常在用excel 2010重命名工作表的时候,一般可能会用"双击工作表"的方法来重名,但是遇到大批量重名的时候就很麻烦. 我的方法,先建一张新表,然后在第一列写好要命名的表名 ...
- Excel VBA在生成副本的工作表中插入本工作簿中的VBA模块代码
即在工作簿中添加一个工作表,然后移出并存为新的工作簿,在移出前将本工作簿的一个模块的代码拷贝至新的工作簿.下面是关键代码: '===================================== ...
- Excel VBA批量处理寸照名字(类模块加FSO版)
需求:因为处理学生学籍照片,从照相馆拿回来的寸照是按班级整理好,文件名是相机编号的文件.那么处理的话,是这么一个思路,通过Excel表格打印出各班A4照片列表,让学生自行填上照片对应姓名.表格收回来后 ...
随机推荐
- 在Ubuntu下编译Qt错误及处理办法
平台:Ubuntu16.04 64bit 虚拟机:VirtualBOX 编译软件:Qt 32bit (在64位环境下编译32bit的程序会出现很多错误,从编译器的安装以及整个库的编译) 问题一:er ...
- wine install
# yum -y groupinstall 'Development Tools' # yum -y install libX11-devel libxml2-devel libxslt-devel ...
- Sping Cloud项目启动报A component required a bean of type 'com.tianyan.bbc.dao.SecurityUserBaseMapper' that could not be found.
项目构建正常,启动和Debug报以下错误: Error starting ApplicationContext. To display the conditions report re-run you ...
- Windows和MacOS的比较——不断完善和补充,欢迎吐槽
1. 鼠标滚轮的方向不一样,Windows上滚轮朝下,页面滚动条也会朝下.而Mac上则相反. 2. Windows上有Home和End键,经常可以Ctrl+Home,Ctrl+End,Ctrl+Shi ...
- win10更新后出现System.ComponentModel.Win32Exception
win10更新后出现System.ComponentModel.Win32Exception 我的环境是由于“sql server2012 无法连接到WMI提供程序”引起的 参考http://www. ...
- new words
Your cooperation is greatly appreciated 感谢您的合作! budget 预算
- windows下nginx的安装及使用(转载)
转载自:https://www.cnblogs.com/jiangwangxiang/p/8481661.html 1.下载nginx http://nginx.org/en/download.htm ...
- oracle入坑日记<六>自增列创建和清除(含序列和触发器的基础用法)
0 前言 用过 SQLserver 和 MySQL 的自增列(auto_increment),然而 Oracle 在建表设置列时却没有自增列. 查阅资料后发现 Oracle 的自增列需要手动编写. ...
- java Page分页显示
//entity层实体类 import java.util.List; //分页展示 //相关属性:当前页,页大小(每页显示的条数),总页数,总条数,数据 //select * from t_user ...
- 常见java日志系统的搭配详解:关于slf4j log4j log4j2 logback jul jcl commons-logging jdk-logging
先看一张图: 是不是有点晕, 晕就对了.这个仅仅是 slf4j 的情况,实际上, 我们不仅要接触到 slf4j ,有时候还会接触其他的日志系统.且看下文分解. 1 直接使用各个日志系统 1.1 直接使 ...