68手游网

如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕中央，下面是VBA代码： Sub CenterOnCell(OnCell As Range) Dim VisRows As Integer Dim VisCols As Integer '关闭屏幕更新 Application.ScreenUpdating = False '激活区域所在的工作簿和工作表 OnCell.Parent.Parent.Acti...

大家知道，Word可以进行多种方式打印，如打印奇数页、打印偶数页、打印当前页等。而Excel的各种版本一直没有这些功能，从节约纸张、提高打印效率方面来看，这无疑是一个小小的遗憾。我们可以通过自定义功能区来，用VBA来编写一个加载宏，实现以下多种打印功能，点击此处打开源文件下载页面（需注册本站会员）。 1.打印工作...

有时我们需要将指定单元格或区域中的公式打印出来，以便分析。下面的VBA代码可以实现这个功能，可以将选择的单元格或区域中的公式打印到Word中，方便打...

在Excel进行数据处理时，有时设置参数的工作表不想让参与数据录入的人看到，以免误改动其中的数据。Excel2003虽然可以通过格式菜单-工作表-隐藏菜单项隐藏工作表，但是只要格式菜单-工作表-取消隐藏菜单项，隐藏的工作表就又显示出来了。如何让Excel彻底隐藏工作表呢？ 打开VBA代码编辑器(打开VBA代码编辑器的方法参看本文...

EXCEL 公式 2列多行转成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2)) EXCEL 公式 多列转成一行图解教程 3列多行转成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0)-1,MOD(COLUMN(C1),3)) 以此类推，4列以上的呢？大家可以自己试试...

宏代码 Sub 不重复的值() Dim arr(1 To 100000, 1 To 1), dic Set dic = CreateObject(scripting.dictionary) Do Until i = 100000 tmp = Format(Int(Rnd() * 100000) + 1, 0) If Not dic.exists(tmp) Then i = i + 1 dic.Add tmp, i arr(i, 1) = tmp End If Loop [a1].Resize(i, 1) ...

Sub ExportPictures() Dim MyShp As Shape Dim Filename As String For Each MyShp In Sheet1.Shapes If MyShp.Type = msoPicture Then Filename = ThisWorkbook.Path \ MyShp.Name .gif MyShp.Copy With Sheet1.ChartObjects.Add(0, 0, MyShp.Width, MyShp.Height).Chart .P...

GET.CELL --GET是得到的意思CELL是单元格的意思 ,就是你想得到单元格的什么东西(信息) 函数定义: GET.CELL(类型号,单元格(或范围)) 注意:该函数不能直接在单元格里引用,即不能直接写在编辑栏的公式里,只可以写在名称里!! 以下是类型号及代表的意思 1 参照储存格的绝对地址 2 参照储存格的列号 3 参照储存格的行号 4 类似 T...

用WMI对象列出系统所有进程: ----Instance.vbs---- 程序代码 Dim WMI,objs Set WMI = GetObject(WinMgmts:) Set objs = WMI.InstancesOf(Win32_Process) For Each obj In objs Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10) Next msgbox Enum1 取得系统所有服务及运行状态 ----service.vbs---- 程序...

'使用前需先选中要替换的区域 Sub 代码全角转半角A方法() Dim Dic, strKey Set Dic = CreateObject(Scripting.Dictionary) '全角数字转换为半角 Dic.Add １, 1 Dic.Add ２, 2 Dic.Add ３, 3 Dic.Add ４, 4 Dic.Add ５, 5 Dic.Add ６, 6 Dic.Add ７, 7 Dic.Add ８, 8 Dic.Add ９, 9 Dic.Add ０, 0 '小写全角转换 Dic.Add ａ...