gpt4 book ai didi

excel - Visual Basic - 将条目添加到另一个工作表中的列表

转载 作者:行者123 更新时间:2023-12-04 21:38:01 25 4
gpt4 key购买 nike

我有一张有 2 张纸的工作簿。 Sheet1 被命名为 Form,Sheet2 被命名为 Data。我试图在 Sheet1 上创建一个在 Sheet2 中创建新行的表单。我对 VBA 很陌生,我真的只是想通过谷歌自学。我的问题是,您如何引用未激活的工作表并让它按预期编码信息而不用视觉切换选项卡?

任何帮助是极大的赞赏。

非常恭敬,

亚当沃克

最佳答案

Option Explicit
Sub add_row()
Dim wb As Workbook, ws2 As Worksheet
Set wb = ThisWorkbook
Set ws2 = wb.Sheets("Sheet2")
ws2.Rows(1).Insert shift:=xlDown
End Sub

以上将在工作表 2 的顶部添加一个新行。
如果您要在不同的工作表上执行多个操作,还可以使用 with 语句。
Option Explicit
Sub add_data()
Dim wb As Workbook, ws2 As Worksheet
Set wb = ThisWorkbook
Set ws2 = wb.Sheets("Sheet2")
With ws2
.Rows(1).Insert shift:=xlDown
.Cells(1, 1).Value2 = "Rows shifted down by 1!"
End With
End Sub

我希望这对你有帮助。

关于excel - Visual Basic - 将条目添加到另一个工作表中的列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29125606/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com