VBA 来自另一部作品的“=active cells” sheet
VBA "=active cells" from another work sheet
我正在尝试使用 VBA 更新新作品中的单元格sheet 以等于另一个 sheet 上的时间表中的活动单元格。
我已经尝试了以下代码的多种变体,但目前,我只能设法复制单元格值。我正在寻求更新新 sheet 中的单元格,使其等于原始单元格,就像您直接在单元格中键入例如“ =SheetX!A1 ”一样。
Worksheets("Template").Visible = True
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "NewName"
ThisWorkbook.Worksheets("Tech_Sub_Reg").Activate
Dim R As Range
Dim S As Range
Dim I As Range
Dim B As Range
Set R = ActiveCell
Set S = ActiveCell.Offset(0, 1)
Set I = ActiveCell.Offset(0, 2)
Set B = ActiveCell.Offset(0, 3)
Sheets("NewName").Range("A125").Formula = R
Sheets("NewName").Range("B125").Formula = S
Sheets("NewName").Range("C125").Formula = I
Sheets("NewName").Range("D125").Formula = B
更改例如
Sheets("NewName").Range("A125").Formula = R
到
Sheets("NewName").Range("A125").Formula = "=" & R.Address(External:=True)
如果您还想从公式中删除 workbook-name,请将上一行中 "=" &
之后的内容替换为
Replace(R.Address(External:=True), "[" & R.Parent.Parent.Name & "]", "", 1, -1, vbTextCompare)
我正在尝试使用 VBA 更新新作品中的单元格sheet 以等于另一个 sheet 上的时间表中的活动单元格。
我已经尝试了以下代码的多种变体,但目前,我只能设法复制单元格值。我正在寻求更新新 sheet 中的单元格,使其等于原始单元格,就像您直接在单元格中键入例如“ =SheetX!A1 ”一样。
Worksheets("Template").Visible = True
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "NewName"
ThisWorkbook.Worksheets("Tech_Sub_Reg").Activate
Dim R As Range
Dim S As Range
Dim I As Range
Dim B As Range
Set R = ActiveCell
Set S = ActiveCell.Offset(0, 1)
Set I = ActiveCell.Offset(0, 2)
Set B = ActiveCell.Offset(0, 3)
Sheets("NewName").Range("A125").Formula = R
Sheets("NewName").Range("B125").Formula = S
Sheets("NewName").Range("C125").Formula = I
Sheets("NewName").Range("D125").Formula = B
更改例如
Sheets("NewName").Range("A125").Formula = R
到
Sheets("NewName").Range("A125").Formula = "=" & R.Address(External:=True)
如果您还想从公式中删除 workbook-name,请将上一行中 "=" &
之后的内容替换为
Replace(R.Address(External:=True), "[" & R.Parent.Parent.Name & "]", "", 1, -1, vbTextCompare)