◇VBA 自动移动每页光标到A1单元格

最新推荐文章于 2024-04-02 20:31:13 发布
最新推荐文章于 2024-04-02 20:31:13 发布
阅读量2.9k 收藏 6
点赞数 2
分类专栏： ❤ VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/sinat_35429650/article/details/90615784
版权

不用多介绍…保存代码到VBA编辑器里, ALT+F8运行就好了…

Public Sub InitCells()
    
    Dim iSheet As Long
    
    For iSheet = Sheets.Count To 1 Step -1
    
        Sheets(iSheet).Activate
        'ActiveWindow.Zoom = 100
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
        Sheets(iSheet).Range("A1").Activate
    
    Next iSheet

End Sub
WPS excel VBA 常用功能代码
a15189215673的博客
12-15 3100
解释：sheet2是第二个工作表，根据需要自行设置，123456，是你工作表设置的密码，在你需要运行代码的头尾处插入以上代码即可，代码功能解释：先解开工作表密码，然后运行你所需要的功能，然后工作表在加密码保护。Worksheets("sheet2").Columns("C").Hidden = True'隐藏第C列，sheet2就是隐藏sheet2工作表的C列。[A1] = [A1] + 1 'A1单元格打印一次加1，根据需要添加，在这里的作用是打印一次A1单元格内容加1，
Word VBA中的光标操作
yivifu的专栏
01-02 9648
本文总结了Word VBA中的Selection常用操作，包括移动光标、查找和替换、输入内容、获取其他相关对象等，并附上了Information方法的参数详细说明。本文绝非简单照抄MSDN文档，而是包含了一些有一定难度的实用代码片段。
VBA常用技巧
12-21
第1章 Range（单元格）对象 10 技巧1 单元格的引用方法 10 1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 12 1-6 使用Union方法 12 1-7 使用UsedRange属性 12 1-8 使用CurrentRegion属性 12 技巧2 选定单元格区域的方法 12 2-1 使用Select方法 12 2-2 使用Activate方法 12 2-3 使用Goto方法 12 技巧3 获得指定行、列中的最后一个非空单元格 12 技巧4 定位单元格 12 技巧5 查找单元格 12 5-1 使用Find方法 12 5-2 使用Like运算符 12 技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另一区域 12 8-1 使用选择性粘贴 12 8-2 直接赋值的方法 12 技巧9 单元格自动进入编辑状态 12 技巧10 禁用单元格拖放功能 12 技巧11 单元格格式操作 12 11-1 单元格字体格式设置 12 11-2 设置单元格内部格式 12 11-3 为单元格区域添加边框 12 11-4 灵活设置单元格的行高列宽 12 技巧12 单元格中的数据有效性 12 12-1 在单元格中建立数据有效性 12 12-2 判断单元格是否存在数据有效性 12 12-3 动态的数据有效性 12 12-4 自动展开数据有效性下拉列表 12 技巧13 单元格中的公式 12 13-1 在单元格中写入公式 12 13-2 检查单元格是否含有公式 12 13-3 判断单元格公式是否存在错误 12 13-4 取得单元格中公式的引用单元格 12 13-5 将单元格中的公式转换为数值 12 技巧14 单元格中的批注 12 14-1 判断单元格是否存在批注 12 14-2 为单元格添加批注 12 14-3 删除单元格中的批注 12 技巧15 合并单元格操作 12 15-1 判断单元格区域是否存在合并单元格 12 15-2 合并单元格时连接每个单元格的文本 12 15-3 合并内容相同的连续单元格 12 15-4 取消合并单元格时在每个单元格中保留内容 12 技巧16 高亮显示单元格区域 12 技巧17 双击被保护单元格时不显示提示消息框 12 技巧18 重新计算工作表指定区域 12 技巧19 录入数据后单元格自动保护 12 技巧20 工作表事件Target参数的使用方法 12 20-1 使用单元格的Address 属性 12 20-2 使用Column属性和Row属性 12 20-3 使用Intersect方法 12 第2章 Worksheet（工作表）对象 12 技巧21 引用工作表的方式 12 21-1 使用工作表的名称 12 21-2 使用工作表的索引号 12 21-3 使用工作表的代码名称 12 21-4 使用ActiveSheet属性引用活动工作表 12 技巧22 选择工作表的方法 12 技巧23 遍历工作表的方法 12 23-1 使用For...Next 语句 12 23-2 使用For Each...Next 语句 12 技巧24 在工作表中上下翻页 12 技巧25 工作表的添加与删除 12 技巧26 禁止删除指定工作表 12 技巧27 自动建立工作表目录 12 技巧28 工作表的深度隐藏 12 技巧29 防止更改工作表的名称 12 技巧30 工作表中一次插入多行 12 技巧31 删除工作表中的空行 12 技巧32 删除工作表的重复行 12 技巧33 定位删除特定内容所在的行 12 技巧34 判断是否选中整行 12 技巧35 限制工作表的滚动区域 12 技巧36 复制自动筛选后的数据区域 12 技巧37 使用高级筛选获得不重复记录 12 技巧38 工作表的保护与解除保护 12 技巧39 奇偶页打印 12 第3章 Wordbook（工作簿）对象 12 技巧40 工作簿的引用方法 12 40-1 使用工作簿的名称 12 40-2 使用工作簿的索引号 12 40-3 使用ThisWorkbook 12 40-4 使用ActiveWorkbook 12 技巧41 新建工作簿文件 12 技巧42 打开指定的工作簿 12 技巧43 判断指定工作簿是否打开 12 43-1 遍历Workbooks集合方法 12 43-2 错误处理方法 12 技巧44 禁用宏则关闭工作簿 12 技巧45 关闭工作簿不显示保存对话框 12 45-1 使用Close方法关闭工作簿 12 45-2 单击工作簿关闭按钮关闭工作簿 12 技巧46 禁用工作簿的关闭按钮 12 技巧47 保存工作簿的方法 12 47-1 使用Save方法 12 47-2 直接保存为另一文件名 12 47-3 保存工作簿副本 12 技巧48 保存指定工作表为工作簿文件 12 技巧49 打印预览时不触发事件 12 技巧50 设置工作簿文档属性信息 12 技巧51 不打开工作簿取得其他工作簿数据 12 51-1 使用公式 12 51-2 使用GetObject函数 12 51-3 隐藏Application对象 12 51-4 使用ExecuteExcel4Macro方法 12 51-5 使用SQL连接 12 技巧52 返回窗口的可视区域地址 12 第4章 Shape（图形）、Chart（图表）对象 12 技巧53 在工作表中添加图形 12 技巧54 导出工作表中的图片 12 技巧55 在工作表中添加艺术字 12 技巧56 遍历工作表中的图形 12 技巧57 移动、旋转图片 12 技巧58 工作表中自动插入图片 12 技巧59 固定工作表中图形的位置 12 技巧60 使用VBA自动生成图表 12 技巧61 使用独立窗口显示图表 12 技巧62 导出工作表中的图表 12 技巧63 多图表制作 12 第5章 Application对象 12 技巧64 取得Excel版本信息 12 技巧65 取得当前用户名称 12 技巧66 Excel中的“定时器” 12 技巧67 设置活动打印机的名称 12 技巧68 屏蔽、改变组合键的功能 12 技巧69 设置Excel窗口标题栏 12 技巧70 自定义Excel状态栏 12 技巧71 灵活退出Excel 12 技巧72 隐藏Excel主窗口 12 72-1 设置Application对象的Visible属性 12 72-2 将窗口移出屏幕 12 72-3 设置工作簿作为加载宏运行 12 第6章 使用对话框 12 技巧73 使用Msgbox函数 12 73-1 显示简单的提示信息 12 73-2 定制个性化的消息框 12 73-3 获得消息框的返回值 12 73-4 在消息框中排版 12 73-5 对齐消息框中显示的信息 12 技巧74 自动关闭的消息框 12 74-1 使用WshShell.Popup方法显示消息框 12 74-2 使用API函数显示消息框 12 技巧75 使用InputBox函数 12 75-1 简单的数据输入 12 75-2 使用对话框输入密码 12 技巧76 使用InputBox方法 12 76-1 输入指定类型的数据 12 76-2 获得单元格区域地址 12 技巧77 内置对话框 12 77-1 调用内置的对话框 12 77-2 获取选定文件的文件名 12 77-3 使用“另存为”对话框 12 技巧78 调用操作系统“关于”对话框 12 第7章 菜单和工具栏 12 技巧79 在菜单中添加菜单项 12 技巧80 在菜单栏指定位置添加菜单 12 技巧81 屏蔽和删除工作表菜单 12 技巧82 改变系统菜单的操作 12 技巧83 定制自己的系统菜单 12 技巧84 改变菜单按钮图标 12 技巧85 右键快捷菜单增加菜单项 12 技巧86 自定义右键快捷菜单 12 技巧87 使用右键菜单制作数据有效性 12 技巧88 禁用工作表右键菜单 12 技巧89 创建自定义工具栏 12 技巧90 自定义工具栏按钮图标 12 技巧91 自定义工作簿图标 12 技巧92 移除工作表的最小最大化和关闭按钮 12 技巧93 在工具栏上添加下拉列表框 12 技巧94 屏蔽工作表的复制功能 12 技巧95 禁用工具栏的自定义 12 技巧96 屏蔽所有的命令栏 12 技巧97 恢复Excel的命令栏 12 第8章 控件与用户窗体 12 技巧98 限制文本框的输入 12 技巧99 文本框添加右键快捷菜单 12 技巧100 文本框回车自动输入 12 技巧101 自动选择文本框内容 12 技巧102 设置文本框数据格式 12 技巧103 限制文本框的输入长度 12 技巧104 将光标返回文本框中 12 技巧105 文本框的自动换行 12 技巧106 多个文本框数据相加 12 技巧107 控件跟随活动单元格 12 技巧108 高亮显示按钮 12 技巧109 组合框和列表框添加列表项的方法 12 109-1 使用RowSource属性添加列表项 12 109-2 使用List属性添加列表项 12 109-3 使用AddItem方法添加列表项 12 技巧110 去除列表框数据源的重复值和空格 12 技巧111 移动列表框条目 12 技巧112 允许多项选择的列表框 12 技巧113 多列组合框和列表框的设置 12 113-1 多列组合框和列表框添加列表项 12 113-2 多列列表框写入工作表 12 技巧114 输入时逐步提示信息 12 技巧115 二级组合框 12 技巧116 使用DTP控件输入日期 12 技巧117 使用RefEdit控件选择区域 12 技巧118 如何注册控件 12 技巧119 遍历控件的方法 12 119-1 使用名称中的变量遍历控件 12 119-2 使用对象类型遍历控件 12 119-3 使用程序标识符遍历控件 12 119-4 使用名称中的变量遍历图形 12 119-5 使用FormControlType属性遍历图形 12 技巧120 使微调框最小变动量小于1 12 技巧121 不打印工作表中的控件 12 121-1 设置控件格式 12 121-2 设置控件的printobjcet属性 12 技巧122 在框架中使用滚动条 12 技巧123 使用多页控件 12 技巧124 标签文字垂直居中对齐 12 技巧125 使用TabStrip控件 12 技巧126 显示GIF动画图片 12 技巧127 播放Flash文件 12 技巧128 在工作表中添加窗体控件 12 128-1 使用AddFormControl方法 12 128-2 使用Add方法 12 技巧129 在工作表中添加ActiveX控件 12 129-1 使用Add方法 12 129-2 使用AddOLEObject方法 12 技巧130 使用spreadsheet控件 12 技巧131 使用Listview控件 12 131-1 使用Listview控件显示数据列表 12 131-2 在Listview控件中使用复选框 12 131-3 调整Listview控件的行距 12 131-4 在Listview控件中排序 12 131-5 Listview控件的图标设置 12 技巧132 调用非模式窗体 12 技巧133 进度条的制作 12 133-1 使用进度条控件 12 133-2 使用标签控件 12 技巧134 使用TreeView控件显示层次 12 技巧135 用户窗体添加图标 12 技巧136 用户窗体添加最大最小化按纽 12 技巧137 禁用窗体标题栏的关闭按钮 12 技巧138 屏蔽窗体标题栏的关闭按钮 12 技巧139 无标题栏和边框的窗体 12 技巧140 制作年月选择窗体 12 技巧141 自定义窗体中的鼠标指针类型 12 技巧142 调整窗体的显示位置 12 技巧143 由鼠标确定窗体显示位置 12 技巧144 用户窗体的打印 12 技巧145 使用自定义颜色设置窗体颜色 12 技巧146 在窗体中显示图表 12 146-1 使用Export方法 12 146-2 使用API函数 12 技巧147 窗体运行时调整控件大小 12 技巧148 在用户窗体上添加菜单 12 技巧149 在用户窗体上添加工具栏 12 技巧150 使用代码添加窗体及控件 12 技巧151 用户窗体的全屏显示 12 151-1 设置用户窗体为应用程序的大小 12 151-2 根据屏幕分辨率进行设置 12 技巧152 在用户窗体上添加状态栏 12 第9章 函数的使用 12 技巧153 调用工作表函数求和 12 技巧154 查找最大、最小值 12 技巧155 不重复值的录入 12 技巧156 获得当月的最后一天 12 技巧157 四舍五入运算 12 157-1 极小值修正法 12 157-2 调用工作表函数法 12 技巧158 使用字符串函数 12 技巧159 使用日期函数 12 技巧160 判断是否为数值 12 技巧161 格式化数值、日期和时间 12 技巧162 个人所得税自定义函数 12 技巧163 人民币大写函数 12 技巧164 列号转换为列标 12 技巧165 判断工作表是否为空表 12 技巧166 查找指定工作表 12 技巧167 查找指定工作簿是否打开 12 技巧168 取得应用程序的安装路径 12 技巧169 数组的使用 12 169-1 代码运行时创建数组 12 169-2 文本转换为数组 12 169-3 使用动态数组去除重复值 12 第10章 文件操作 12 技巧170 导入文本文件 12 170-1 使用查询表导入 12 170-2 使用Open 语句导入 12 170-3 使用OpenText方法 12 技巧171 将数据写入文本文件 12 171-1 使用Print # 语句 12 171-2 另存为文本文件 12 技巧172 文件修改的日期和时间 12 技巧173 查找文件或文件夹 12 技巧174 获得当前文件夹的名称 12 技巧175 创建和删除文件夹 12 技巧176 重命名文件或文件夹 12 技巧177 复制指定的文件 12 技巧178 删除指定的文件 12 技巧179 搜索特定的文件 12 技巧180 使用WSH处理文件 12 180-1 获取文件信息 12 180-2 查找文件 12 180-3 移动文件 12 180-4 复制文件 12 180-5 删除文件 12 180-6 创建文件夹 12 180-7 复制文件夹 12 180-8 移动文件夹 12 180-9 删除文件夹 12 180-10 导入文本文件 12 180-11 创建文本文件 12 第11章 其他应用 12 技巧181 取得电脑名称 12 技巧182 取得逻辑盘序列号 12 技巧183 使用API取得硬盘信息 12 技巧184 使用数字签名 12 技巧185 暂停代码的运行 12 技巧186 定时关机 12 技巧187 打开指定的网页 12 技巧188 VBE的操作 12 188-1 添加模块和过程 12 188-2 建立事件过程 12 188-3 模块的导入与导出 12 188-4 删除宏代码 12 技巧189 保护VBA代码 12 189-1 设置工程密码 12 189-2 设置“工程不可查看” 12 技巧190 优化代码 12 190-1 关闭屏幕刷新 12 190-2 使用工作表函数 12 190-3 使用更快的单元格操作方法 12 190-4 使用With语句引用对象 12 190-5 少用激活或选择语句 12 技巧191 取得文件的基本名称 12 技巧192 防止用户中断代码运行 12 技巧193 加班费计算表 12 技巧194 制作发放条 12 技巧195 费用统计表 12 技巧196 职工花名册 12 技巧197 收据系统 12 技巧198 职工考勤系统 12
关于光标移动在VBA中的教程
05-09
在WORD中如何用VBA宏语言选定一行、一段，删除一行、一段，移动光标至行首、行尾、段首、段尾等。请看以下内容
VBA 重置所有单元格选中位置到A1
songbob的专栏
08-28 1561
重置所有单元格选中位置到A1 首先在EXCLE的常用里打开'开发' 指定快捷键 插入代码 Sub Macro1() ' reset Sheets ' Macro1 Macro ' Dim pageCount As Integer pageCount = Sheets.Count For i = 1 To pageCount I
VBA自动滚动到指定单元格
最新发布
wpyok168的博客
04-02 759
VBA自动滚动到指定单元格。
VBA光标移动控制代码
08-05
excel VBA光标移动控制代码、锁定B至F列
光标自动从一个表格跳入另一个表格
xiaodeng_java的博客
12-12 317
无标题文档 document.onkeyup=fun; function fun(){ var now=document.activeElement; if(now.value.length==2){ next(now.id); } } //跳转到下一个输入框 function next(nowId){ ...
Excel-VBA宏编程实例源代码-光标移动时执行代码.zip
12-14
综上所述，"光标移动时执行代码"的VBA宏实例展示了如何利用Excel的事件驱动编程特性提高工作效率和自动化程度。通过编写适当的事件处理程序，我们可以使Excel在用户操作时执行各种定制化的任务，从而增强其功能。
在excel中写一段VBA代码：如何把excel中A1单元格的数据复制到word中“还有谁”后面
04-09
这段代码可以将当前活动的Excel工作簿中A1单元格中的数据复制到一个名为“test.docx”的Word文档中，插入到该文档中的“还有谁”一词之后。请确保在使用此代码之前，Word文档已被创建，并且保持打开状态。
Excel VBA实现B至F列锁定与光标控制
Range("A1").Activate ' 同样移动光标到A1单元格 ``` 尽管这些方法可以工作，但在编写宏时推荐使用`GoTo`方法或直接使用`Range`对象进行操作，因为这些方法更为高效。 #### 使用`GoTo`方法 `GoTo`方法可以在当前...
可以自动移动鼠标和点击的程序
10-13
可以自己定义鼠标的移动和点击，让程序自动帮你完成重复性的工作，附英雄远征应用示例！
自动移动鼠标小工具(带界面)
11-28
为了安全，有些公司会对系统进行设置，10分钟没有操作就会锁屏，且无法修改；用c#写了一个小工具，带窗口界面，可定时的移动鼠标（一像素），解决电脑自动锁屏问题；点击开始后，就最小化窗口
EXCEL_VBA常用代码实战大全.docx
07-31
- **Select方法**：使指定的范围成为活动选择，如`Range("A1").Select`会将光标定位到A1单元格。 - **Activate方法**：激活指定的范围，使其成为活动工作表，但不改变选择区域，如`Worksheets("Sheet1").Activate`...
光标跳至指定单元格_Excel自定义单元格格式高级使用技巧，两分钟学会
weixin_33586063的博客
01-13 1389
一.单元格内容如何手动换行在Excel单元格中，如果我们输入的内容过长，我们想在指定的位置手动换行，我们应该怎么操作呢？这个地方会用到一个快捷键技巧：Alt+回车键。首先我们把光标移动到单元格中需要换行的地方，然后按下键盘上的Alt+回车键就可以手动换行了，具体操作如下图二.单元格数值后面批量加上单位如果我们想在单元格数值的后面批量加上单位，我们应该怎么操作呢，我们以年龄举例，比如我们想在年龄的后...
敲代码时如何快速移动光标_30个有用的Excel VBA代码(26~30)
weixin_39629969的博客
11-21 710
26.一次保存并关闭所有工作簿如果有许多工作簿打开，并且要保存和关闭这些工作簿，则需要手动转到并保存每个工作簿，然后关闭它。这是一个VBA代码，它将关闭所有工作簿并在关闭时保存它。Sub CloseAllWorkbooks() Dim wb As Workbook For Each wb In Workbooks wb.Close SaveChanges:=True Next wb End ...
VBA A1单元格设定
Smile_godlike的专栏
11-15 854
1.设置focus到第一个sheet的A1单元格。 Sub A1Select()     Dim shcl          As Integer     For shcl = Sheets.Count To 1 Step -1         Worksheets(shcl).Activate         Range("A1").Select         ActiveWindow.S...
table数据显示不全滚动显示_一小段Excel VBA代码023：动态滚动显示单元格区域内容...
weixin_39630999的博客
12-14 705
一段简单的VBA代码，让你自如操作Excel，成为职场达人！抛砖引玉的场景需求： A1单元格区域中滚动显示“我爱《神奇的VBA》”！下面代码示例中提供了三种场景及代码示例。场景1： 文本重复滚动显示在标准模块中加入如下代码即可实现上面的演示功能。Dim Flag As BooleanSub 开始滚动()Dim str As String Flag = True str = "我爱《神奇的VBA》"...
Office办公软件各种神操作，看到第1个就傻眼了，建议收藏
华章IT官方博客
01-21 514
导读：来一波儿Office软件操作技巧，Word、Excel都有，各种神操作，你可能会看傻眼！建议收藏！来源：LinkedIn（LinkedIn-China）综合自网络01word从会...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值