以下代码效果：在工作表代码区加入以下代码即当D列中的数据为1时对应的A列字体变为红色ForEach…In…的使用单元格属性设置PrivateSubWorksheet_Change(ByValTargetAsRange)Dimd%:d=[d65536].End(x......
02-16 267 上一篇 下一篇 文件名 汉字 excel函数
‘选择一个目录，将目录中的所有EXCEL文件导入当前工作表‘这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式Sub批量()DimFD,str$,arrSetFD=Application.FileDialog(msoFileDialogFolderPicker)If......
02-16 133 删除 工作 批量 文件 excel函数
利用Excel制作电子表格时，有时需要用到计算填充功能，比如某列每种元件的价格合计，就是由E列元件单价乘以D列元件数量得来的。通过分析，发现利用Excel提供的VBA(VisualBasicforApplication)功能，写几行Basic代码即可方便地达到自动填充F列数据的目的，且计算结果为纯数据值，可以自由进行处......
02-16 495 元件 填充 工作 行号 excel函数
如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕中央，下面是VBA代码：SubCenterOnCell(OnCellAsRange)DimVisRowsAsIntegerDimVisColsAsInteger‘关闭屏幕更新Applicati......
02-16 112 单元格 屏幕 工作 给定 excel函数
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)......
02-16 171 公式 图解 教程 转成 excel函数
请罗列“四川省”、“湖南省”、“湖北省”三个省份员工的资料。VBA代码如下：Subtest()‘定义变量DimrngAsRange,RngTempAsRange,firstAddressAsStringDim......
02-16 463 查找 查询结果 湖北省 湖南省 excel函数
有时我们需要用VBA代码判断某个文件夹或文件是否存在，以便进行后续操作。可以用下面的代码来实现这个功能：PublicFunctionFileFolderExists(strFullPathAsString)AsBooleanOnErrorGoToEarlyExitIfNotDir(strFul......
02-16 319 代码 指定 文件 文件夹 excel函数
如果我们要用VBA生成一列不重复的随机整数，可以用下面的VBA代码。本例可以在A1:A100中产生1-100的不重复随机整数。SubRndNumberNoRepeat()DimTempArr1(99)AsInteger,TempArr2(0To99,1To1)AsIntegerDimRndN......
02-16 138 整数 生成 重复 随机 excel函数
Excel中的许多命令都可以使用快捷键来完成，但仍然有一些命令没有指定快捷键。例如在“常用”工具栏中的“显示比例”命令。我们可以用下面的VBA代码来实现用快捷键调整工作表显示比例，将下列代码输入到标准模块中：SubZoomIn()DimZPAsIntegerZP......
02-16 418 工作 快捷键 指定 比例 excel函数
如果Excel表格中的某个区域有许多文本格式的邮件地址需要添加链接，用手工的方式非常繁琐。可以使用下面的VBA代码来快速添加链接，假设该区域为F2:F18。SubConvertToEmail()DimconvertRngAsRangeSetconvertRng=Range("F2:F18&qu......
02-16 492 利用 区域 添加 链接 excel函数
如果在某个区域中输入了相同的数组公式，选择其中某一部分单元格进行修改时，Excel将提示“不能更改数组的某一部分”，这时需要选择全部的数组进行修改。当活动单元格在数组区域中时，可以用下面的VBA代码选择当前整个数组区域，并且在状态栏中给出提示信息。PublicSubSelectArray(......
02-16 116 区域 单元格 数组 选择 excel函数
VBA中的Activate方法和Select方法看起来似乎相同，其实二者是有区别的。Activate方法的作用是激活，而Select方法的作用是选择。其区别如下：1.对于“Sheets”对象Sheets.Select可以同时选择多个工作表，而Sheets.Active不能同时激活多个工作表。......
02-16 342 区域 单元格 方法 活动 excel函数
在Excel中删除空行和空列的方法有很多，下面的方法是用VBA代码来删除工作表指定区域中的空行和空列：OptionExplicitSubDelete_Empty_Rows()DimrnAreaAsRangeDimlnLastRowAsLong,iAsLong,jAsLongApplic......
02-16 437 删除 区域 指定 空行 excel函数
如果需要用VBA的方法获得某个工作簿中工作表的名称，可以使用下面的代码，其中使用了MicrosoftActiveXDataObjects(ADO)，可以将指定工作簿中的工作簿名称显示在A列中，在使用时需将代码中的工作簿名称及路径进行更改。SubGetSheetNames()DimobjConnAs......
02-16 333 名称 工作 指定 路径 excel函数
在VBA中，可以用Sheets.Add方法在工作簿中新建工作表。其语法是：Sheets.Add(Before,After,Count,Type)其中参数Before、After指定新建工作表的位置，Coun指定工作表的数量，Type指定新建工作表的类型。如下例：在工作簿新建一个名称为“工作表1......
02-16 156 名称 工作 指定 新建 excel函数
如果要用出生日期来计算年龄，可以用自定义函数来完成。在VBA编辑器中单击菜单“插入→模块”，并将下面的代码放入其中，以下两段代码都是按虚岁计算的，任选一种即可。方法一：FunctionAge(BirthDateAsDate)SelectCaseMonth(Date)Ca......
02-16 473 出生日期 单元格 自定义 计算 excel函数
我们可以用一个常规的方法来实现当单击某个单元格时运行一个指定的宏。方法如下：1.选择一个单元格，按住Shift键的同时，单击菜单“编辑→复制图片”，在弹出的“复制图片”对话框中，“外观”选择“如屏幕所示”，&ld......
02-16 246 单元格 指定 选择 excel函数
如果要判断一个指定的工作簿是否打开，可以将下面的VBA代码放入标准模块中，然后在子过程中进行调用。FunctionIsWkbOpened(sWkbNameAsString)AsBoolean‘如果目标工作簿已打开则返回TRUE，否则返回FALSEDimiAsLongFori=Wor......
02-16 244 工作 打开 指定 调用 excel函数
一个论坛上的会员有如下的要求：如图需要把当前路径中的财务、采购、工厂、计划、人士等工作簿的“出勤明细”工作表的记录复制汇总在“加班汇总表”工作簿中的“加班原因汇总”工作表中，并需要取出各部门的名称，希望批量使用VBA完成？很久没有玩VBA了，今晚手......
02-16 176 加班 原因 工作 汇总 excel函数
Windows特殊文件夹，包括"Desktop"文件夹、"MyDocuments"文件夹等，如果我们要在VBA中用到这些文件夹，可以用下列代码来获取这些特殊文件夹的路径。OptionExplicitSubGetMyDocumentsPath()DimWSHShel......
02-16 458 代码 文件夹 获取 路径 excel函数
