禁用单元格拖拽功能 在工作表中可以拖放单元格右下角的小十字对单元格内容进行复制等操作，如果不希望用户进行此操作可以禁用单元格拖放功能。代码如下： Private Sub Worksheet_SelectionChange…

根据操作范围，这可以分为三种情况。 多工作表公式转数值 多工作簿公式转数值 1、多工作表公式转数值 如果是将当前工作簿所有工作表的公式转换为数值，需要使用到VBA代码。 Sub FunctionTransValue_Sh…

'VBA禁止更改工作表名称 Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range) If Sheet16.…

时间初始化： ComboBox1.Text = "1" 'Dim checi(11) For i = 1 To 10 'checi(i) = "第" & i & "车" ComboBox1.AddItem…

Sub addTz() Word.Application.ScreenUpdating = False Dim oRng As Range Dim oDoc As Document Dim oCL As CaptionL…

一、数值转化为字符串函数Str、CStr Str函数将数值转换为字符串，即返回一个代表一个数值的字符串，其语法为： Str（number） CStr函数将数值表达式转换为字符串，其语法为： CStr（mynumberEx…

合并单元格之前要提前将数据列排序好，然后再复制以下代码，运行宏程序。 批量合并单元格 Sub RngMergeCondition() '批量合并单元格 Dim rngUser As Range Dim rngMerge …

        这个需求源于要批量生成模板一样的word文档。当然可以直接使用word的邮件合并功能，点菜单就可以实现，示例代码如下：     &nb…

Sub 宏1() Application.ScreenUpdating = False '屏幕更新关闭 Application.DisplayAlerts = False '显示和预警提示关闭 Dim folder As…

前提：电脑上装有office2007或office2013等，WPS不行。 1、如果你有现成的一个工作簿含有多个工作表的文件，想分成多个工作簿的话， 可以通过office2007或office2013等打开execl，然…

Excel 打开对话框，获取文件夹路径   'Window「参照」ダイアログで選択したItem 名を取得 Public Function GetFolderName(ByVal DialogType As Ms…