Question

我有一本工作簿，用于追踪志愿者时间。我经常会有新的志愿者。从我向主服务器添加名称时，是否有可用于在每个月添加订单项的代码。

EX＆GT;主表单

A1 = Jimbo A2 = Jones
B1 = Mike  B2 = Smith
C1 = Tommy C3 = Tickles

如果我想在主人身上制作

B1 = Kyle  B2 = Tanner

如何自动制作以下表格，在行B中添加Kyle Tanner 1月，2月，3月，4月，5月，6月，7月，8月，9月，10月，11月，12月

谢谢大家，我很感激，我觉得这对某些人来说很容易，但这让我很难过。

Answer 1

打开Visual Basic编辑器（Alt + F11），在左上方窗格中，您可以在

下找到您的主表。

VBA项目 - ＆gt; Microsoft Excel对象 - ＆gt;主表

打开主表并粘贴此代码

Private Sub Worksheet_Change(ByVal Target As Range)
Dim VarRow, VarCol, VarVal, VarSheets, Sheet
VarRow = Split(Target.Address, "$")(2)
VarCol = Split(Target.Address, "$")(1)
VarVal = Target.Value
VarSheets = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") 'Your Feeder Sheet names
For Each Sheet In VarSheets
Worksheets(Sheet).Range(VarCol & VarRow).Value = VarVal
Next
End Sub

让我知道你有任何问题

将信息从主表复制到其送纸页。

1 个答案: