[已解决]为什么会自动自动合并单元格

229094667

1、问题出在哪里,为什么会自动合并单格
2、单号能否设置点击存入流水单，自动升序

最佳答案

月排行榜 / 总排行榜

七彩屋

2017-6-2 18:17

加上这一句，自动升序
Sheets("送货单").Range("M2") = Application.WorksheetFunction.Max(Sheets("流水单").Range(Sheets("流水单").Cells(3, 6), Sheets("流水单").Cells(t, 6))) + 1
小清.rar (26.16 KB, 下载次数: 5)

2017-6-2 18:19 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

Sheets("流水单").Range("m" & m - k & ":" & "m" & t).Merge
就是合并单元格

七彩屋

加上这一句，自动升序
Sheets("送货单").Range("M2") = Application.WorksheetFunction.Max(Sheets("流水单").Range(Sheets("流水单").Cells(3, 6), Sheets("流水单").Cells(t, 6))) + 1
小清.rar (26.16 KB, 下载次数: 5)

2017-6-2 18:19 上传

点击文件名下载附件

229094667

七彩屋 发表于 2017-6-2 18:17
加上这一句，自动升序
Sheets("送货单").Range("M2") = Application.WorksheetFunction.Max(Sheets("流水 ...

如果我在备注录入已收金额1000元,同一张单只需要一个1000元.现在问题是我收1000元,流水单中却体现3000元,怎么处理

七彩屋

备注用合并单元格
Sheets("流水单").Range("n" & m - k & ":" & "n" & t).Merge

229094667

七彩屋 发表于 2017-6-3 14:07
备注用合并单元格
Sheets("流水单").Range("n" & m - k & ":" & "n" & t).Merge

我加了还是达不以效果，怎么解决

七彩屋

你要什么效果截图看一下