18721107673
通过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...
if公式是数字段的用法用vlookup代替excel中数字段if公式的用法用vlookup代替比如:判断g5单元格的数字如果:0-9不打折:折扣为1.0如果:10-19 :折扣为0.90如果:20-29 :折扣为0.85如果:30-39 :折扣为0.80如果:40-49 :折扣为0.75如果:50-59 &...
Len和LenB的用法Sub Len和LenB的用法() Dim NeiRong As String Dim Lie_ChangDu As Integer Dim ZhenShi_ChangDu_1 As Integer Dim ZhenShi_ChangDu_2 As Integer dim AA as string '--------------------------------- &nb...
用vba模拟vlookup函数'--*************************************************************************************Public Sub 用vba_的变量设置vlookup_函数() Set EL_App = GetObject(, "Excel.Application") '--定义excel变量 Dim...