18721107673
vba通过字典检测某列的重复内容----------------------------------------------------------------Sub test_2() '--用来给重复项(包含第1次出现的内容)标色,通过测试 Dim d, arr, i Set d = CreateObject("scripting.dictionary") Dim Hang As Lo...
vba给excel添加自动筛选按钮---------------------------------------------------------------------Public Sub jch01_05_明细表_页签_根据参数设置格式_自动筛选按钮() '----<4.1第10行,自动添加筛选按钮> Set EL_App = GetObject(, "Excel.Application") Dim...
range用cells和columns做变量的定位用columns做变量的定位区域 .Range(.Columns(53), .Columns(ZhLie)).Delete &nbs...
通过vba设置excel单元格的公式-------------------------------------- '--BG列,59列,工资表_税前工资 = AU列(47)(工资表_工资小计)+BF列(58)(工资表_扣款合计) .Range("BG11:BG11").FormulaR1C1 = "=RC[-12]+RC[-1]" &...
设置一个区域为数据有效性------------------------------------------------------------------------------------ With .Cells(9, 27).Validation '--设置数据有效性&n...
用数组获取其他页签的数据将一个页签的内容填写到另一个页签(用数组的方式)'--*********************************************************************************Public Sub 合计工时表模板_页签_将工时表模板_的标题引入() Set El_app = GetObject(, "Excel.Application") &nbs...
bom中不同物料分颜色标注-------------------------------------------- Private Hang As Long Private ZhHang As Long Private ZhHang_YuanLai As Long '--...
自动筛选按钮的增加或取消Public Sub jch01_06_汇总表_页签_根据参数设置格式_自动筛选按钮() '----<4.1第10行,自动添加筛选按钮> Set EL_App = GetObject(, "Excel.Application") Dim ZhLie As Integer  ...
将日期转为真正的8位,而不是format的表现为8位数据位数不够,前面补零----------------------------------------Public Sub vba_将日期强制为_8位() '-- Dim RiQi As Date Dim Nian As String Dim Yue As String Dim Ri As S...
vba的自动筛选按钮取消自动筛选:Sheets("sheet1").AutoFilterMode = False取消高级筛选:If Sheets("sheet1").FilterMode = True Then Sheets("sheet1").ShowAllDataend if With EL_App.Worksheets("自定义-02") &nbs...