求VBA大佬优化 VBA代码大全~~

自动新建工作表  以A列对应命名,切换到新建的第一个表"水果"表,弹出对话框  输入货架高度,(每行单元格高度以2.5cm计算)假设输入货架高度2.2m则按"水果"表所示格式自动产生表格,其寬度则以"基本信息"表A列水果对应C列的最大值6,插入6列,最下层黑色填充区域为货架脚,可固定高度不变,宽度根据(A列)上架编号列对应的(C列)位置编號列最大值决定.
根据  基本信息表  (B)列最大值减10决定层数,结果如"水果"表所示"水果"对应层编号最大层编号 为4,则均分为4层,总层数除以4,则每层大約是 21行,每层以灰色填充隔开,(灰色填充3行单元格,最低层只填充1行)
根据 层编号和位置编号 把每层单元格合并,譬如11层对应 4个位置编号, 从最下层開始把对应的条码和名称合并,加一个逗号放入表内  ,如"水果表所示'.

当前第一个工作表的a2到s20000区域清空所有

对变量str赋值一个路径字符串

对工作簿对象wb赋值str

变量hs被赋值wb工作簿的第一张工作表内所使用的区域的行数-3

变量x被赋值wb工作簿的第一张工莋表内a3到shs区域的数据

当前工作表内的a2到s(hs-1)的单元格区域内被赋值为x

总之就是复制wb工作簿第一张工作表的指定区域内容到当前的工作表。

我要回帖

更多关于 VBA代码 的文章

 

随机推荐