求引用代码和保存代码

天真无鞋

当引用清单D列、T列、U列版本号不一致或者空格时单元格不引用显示，需人工填入，完成后点击保存.

boyayes

附件已上传，青查收

天真无鞋

boyayes 发表于 2024-3-16 09:45
附件已上传，青查收

非常感谢，已测试，引用没有问题，保存提示编译错误，如果能否帮忙改一下更好，红色字体单元格保存，当单元格无值的情况下提示无法保存，感谢！

天真无鞋

天真无鞋 发表于 2024-3-16 16:28
非常感谢，已测试，引用没有问题，保存提示编译错误，如果能否帮忙改一下更好，红色字体单元格保存，当 ...

非常感谢，已测试，引用没有问题，保存提示编译错误，如果能否帮忙改一下更好，红色字体单元格保存，当单元格无值的情况下提示无法保存，感谢！

ykcbf1100

明明要写入5个数据，你为啥只给出3个列号数据呢？另二个列号呢？

ykcbf1100

工作表事件已重写，原本就是我写的。

保存已另写代码。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.16
   
2.     Dim brr(1 To 1, 1 To 10)
   
3.     arr = Sheets("DTS单录入数据").UsedRange
   
4.     brr(1, 1) = arr(3, 1)
   
5.     brr(1, 2) = arr(3, 2)
   
6.     brr(1, 3) = arr(3, 3)
   
7.     brr(1, 4) = arr(3, 4)
   
8.     brr(1, 5) = arr(5, 1)
   
9.     brr(1, 6) = arr(5, 2)
   
10.     brr(1, 7) = arr(5, 3)
    
11.     brr(1, 8) = arr(5, 4)
    
12.     brr(1, 9) = arr(7, 1)
    
13.     brr(1, 10) = arr(7, 3)
    
14.     With Sheets("保存录入清单")
    
15.         r = .Cells(Rows.Count, 1).End(3).Row
    
16.         .Cells(r + 1, 1).Resize(1, 10) = brr
    
17.         .Cells(r + 1, 1).Resize(1, 10).EntireColumn.AutoFit
    
18.     End With
    
19.     MsgBox "已保存！"
    
20. End Sub
    

复制代码

天真无鞋

ykcbf1100 发表于 2024-3-16 21:12
工作表事件已重写，原本就是我写的。

保存已另写代码。

非常感谢大哥