数据录入问题

ys2345

工作簿包含多个工作表


如何在【录入界面录】工作表中录入数据后，点击【确定】按钮，数据就自动保存到第二个工作表【日常记录】中

有网友提醒用vba来弄，由于本人水平有限，没接触过vba。还请高手帮忙实现。
祝各位新年心想事成！万事顺！

Peny2020

这样子吗？

quqiyuan

1. Sub shuchu()
   
2. Dim sh As Worksheet
   
3. rg = ThisWorkbook.Sheets("录入界面").Range("D8").Resize(, 10).Value
   
4. Set sh = ThisWorkbook.Sheets("日常记录 ")
   
5.     With sh
   
6.         r = .Cells(.Rows.Count, 1).End(3).Row
   
7.         .Cells(r + 1, 1) = ThisWorkbook.Sheets("录入界面").Cells(8, 2)
   
8.         .Cells(r + 1, 3) = ThisWorkbook.Sheets("录入界面").Cells(8, 3)
   
9.         .Cells(r + 1, 5).Resize(, 10) = rg
   
10.     End With
    
11. ThisWorkbook.Save
    
12. End Sub
    

复制代码

ys2345

Peny2020 发表于 2024-2-21 12:15
这样子吗？

谢谢您
基本实现功能了，
还有加上两个请求：
1.点击确定后，返回“录入成功”提升语；
2.录入一次后，【录入界面】能自动清除数据，方便下一次继续录入。
还要再次麻烦您了。再次感谢

quqiyuan

ys2345

quqiyuan 发表于 2024-2-21 14:16

好像不行啊

quqiyuan

ys2345 发表于 2024-2-21 14:43
好像不行啊

你看哪里不行，你看我3楼公式，验证，等到现在才出来，后面就是增加了良行，你说要增加点功能

ys2345

quqiyuan 发表于 2024-2-21 14:46
你看哪里不行，你看我3楼公式，验证，等到现在才出来，后面就是增加了良行，你说要增加点功能

我写代码时少了个字母，修改后成了！非常感谢

ys2345

ys2345 发表于 2024-2-21 15:03
我写代码时少了个字母，修改后成了！非常感谢

再次感谢您

ys2345

在各位高手的帮助下，终于修改完成，
再次感谢
感谢
欢迎有需要的老师拿去用