怎么跟踪天数

wsagr · 发表于 2023-3-15 23:14

根据业务情况，跟踪每笔业务下，操作天数怎么弄？

liulang0808 · 发表于 2023-3-16 07:10

楼主看下附件吧，具体展示的内容是否歧义
取消筛选有段描述的，标题找不到对应关键字的

liulang0808 · 发表于 2023-3-16 07:17

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
arr = Sheets(1).UsedRange
For j = 2 To UBound(arr)
      If Len(arr(j, 6)) > 0 Then
         str1 = arr(j, 3) & arr(j, 6)
         If d.exists(str1) Then
            arr(j, 22) = arr(j, 8) - d(str1)

         End If
         d(str1) = arr(j, 8)
      End If
Next j
Sheets(1).UsedRange = arr
End Sub

liulang0808 · 发表于 2023-3-16 07:18

工作簿1测试new.zip (15.36 KB, 下载次数: 8)
模拟了一个供参考

wsagr · 发表于 2023-3-16 09:52

liulang0808 发表于 2023-3-16 07:18
模拟了一个供参考

提示我下界为什么呢？

liulang0808 · 发表于 2023-3-16 12:44

wsagr 发表于 2023-3-16 09:52
提示我下界为什么呢？

楼主看下4楼的文件，添加了一列，

wsagr · 发表于 2023-3-16 12:51

liulang0808 发表于 2023-3-16 12:44
楼主看下4楼的文件，添加了一列，

我看文件了，我改成21列了，把sheet1改成了arr = Sheets(出入库记录).UsedRange，但是提示这个地方是错误的，这么弄不对是吗？

wsagr · 发表于 2023-3-16 16:26

liulang0808 发表于 2023-3-16 12:44
楼主看下4楼的文件，添加了一列，

还得问个问题，在这个表格里面有公式，但是运行了这个之后公式都变成数值了，我应该把什么给去掉啊

liulang0808 · 发表于 2023-3-16 17:21

工作簿1测试new.zip (15.37 KB, 下载次数: 2)

		自动登录	找回密码
密码			免费注册

[求助] 怎么跟踪天数