VBA数据引用代码

天真无鞋

1】当B5,录入收货日期和A7，录入检验完成日期后，自动触发B7显示检验用时（XX天XX时XX分）。
2】当C7输入代码后自动触发（引用缺陷代码），D7,E7,F7自动获取缺陷代码的信息。

详见附件说明。

ykcbf1100

你是想用工作表事件啊。我觉得还是用按钮更方便。

天真无鞋

ykcbf1100 发表于 2024-3-28 19:17
你是想用工作表事件啊。我觉得还是用按钮更方便。

工作表事件输入信息后直接引用出来，按钮就需多一次，当然按钮也可以。

ykcbf1100

天真无鞋 发表于 2024-3-28 19:40
工作表事件输入信息后直接引用出来，按钮就需多一次，当然按钮也可以。

别人写代码都不怕麻烦，你按一下按钮就怕麻烦啊。

天真无鞋

ykcbf1100 发表于 2024-3-28 19:43
别人写代码都不怕麻烦，你按一下按钮就怕麻烦啊。

自己是无心之失，请谅解。

shiruiqiang

近200个代码要顺利背出来，也是个问题，尤其是刚上手。还不如直接选择中文代码和文字

yynrzwh

数据引用.zip (34.83 KB, 下载次数: 7)

2024-3-28 21:05 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.28
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("缺陷代码")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 5)
   
6.         For i = 6 To UBound(arr)
   
7.             s = arr(i, 1)
   
8.             d(s) = Array(arr(i, 2), arr(i, 3), arr(i, 5))
   
9.         Next
   
10.     End With
    
11.     With Sheets("录入信息")
    
12.         t1 = CDate(.[b5])
    
13.         t2 = CDate(.[a7])
    
14.         timeDiff = DateDiff("n", t1, t2)
    
15.         daysDiff = timeDiff \ (24 * 60)
    
16.         timeDiff = timeDiff Mod (24 * 60)
    
17.         hoursDiff = Format(timeDiff \ 60, "0")
    
18.         timeDiff = Format(timeDiff Mod 60, "0")
    
19.         minsDiff = timeDiff
    
20.         p1 = daysDiff & "天" & hoursDiff & "时" & minsDiff & "分"
    
21.         .[b7] = Replace(p1, "-", "")
    
22.         st = .[c7]
    
23.         .[d7] = d(st)(0)
    
24.         .[e7] = d(st)(1)
    
25.         .[f7] = d(st)(2)
    
26.     End With
    
27.     Set d = Nothing
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

天真无鞋

yynrzwh 发表于 2024-3-28 21:05

非常感谢...