用VBA实现函数公式达到的效果

ping200030

因后期数据量较大，函数公式运行缓慢，想用VBA实现函数公式达到的效果，已有部分代码，其他要求如图：

汉唐

楼主，帮你弄了个入库和出库表，另外一个库存表你自己捣鼓下吧

杨建营

看到这个是这么眼熟呢？

ping200030

杨建营 发表于 2022-12-10 06:29
看到这个是这么眼熟呢？

1. With [a3].CurrentRegion.Resize(, 20)
   
2.     .HorizontalAlignment = xlCenter    '文字居中
   
3.     .Borders.LineStyle = xlContinuous    '边框默认
   
4.     .EntireRow.AutoFit    '自动行宽
   
5.     .EntireColumn.AutoFit    '自动列宽
   
6.     '.Font.ColorIndex = 3    '设置字体颜色
   
7.     .Font.Size = 12    '设置字体大小
   
8.     .Font.Name = "微软雅黑" '设置字体名称
   

复制代码

列宽那个单号的怎么变窄点？

ping200030

杨建营 发表于 2022-12-10 06:29
看到这个是这么眼熟呢？

生成的列宽如果想单独控制每列，代码咋更改下？

1. With [a3].CurrentRegion.Resize(, 20)
   
2.     .HorizontalAlignment = xlCenter    '文字居中
   
3.     .Borders.LineStyle = xlContinuous    '边框默认
   
4.     .EntireRow.AutoFit    '自动行宽
   
5.     .EntireColumn.AutoFit    '自动列宽
   
6.     '.Font.ColorIndex = 3    '设置字体颜色
   
7.     .Font.Size = 12    '设置字体大小
   
8.     .Font.Name = "微软雅黑" '设置字体名称
   

复制代码

于箱长

ping200030 发表于 2022-12-10 08:43
生成的列宽如果想单独控制每列，代码咋更改下？

直接给个数值