Excel VBAmacros。 如何将绝对单元格引用写入单元格
我有一个索引作为第一张工作簿。 每个后续的表单都是一个潜水日志。 因为我是使用这个工作簿的许多人之一，所以它需要尽可能“自动”（因为人们很懒）。
每个日志都有一个“新潜水”macrosbutton。 macros创build一个新工作表，用新的工作表编号（潜水编号）命名，并清除相关的数据以准备填写。目前索引表需要手动填写，但是被忽略。
我有macros观的closures，但这是我的最后一步难倒。 我试过Activecell.FormulaR1C1 and Cells(r,c) =...接近，但没有一块馅饼。 我也是非常新的。
这是我的代码
Sub Add_links() ' ' Add_links Macro ' Adds links to the index sheet so it 'fills itself in'... ' Each dive is on the row 9 more than the dive number (bear in mind each log is 50 higher than the previous) Dim Divenumber As Double Dim Rownumber As Double Range("I7").Select: Divenumber = ActiveCell.FormulaR1C1 ' Make Linenumber the same as Divenumber. ' Do a loop of reducing the Linenumber by 50 until it's in the range 1 to 50. ' Add 9 to that and it becomes the row number of the index sheet Rownumber = Divenumber Do Rownumber = Rownumber - 50 Loop While Rownumber > 50 Rownumber = Rownumber + 9 Worksheets("Dive Index").Activate Range("A" & Rownumber).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'Dive " & Divenumber & "'!A1" 'Project number (in cell F4) Range("B" & Rownumber).Select ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & "'!F4" 'Task(in cell C7) Range("C" & Rownumber & ":G" & Rownumber).Select ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & "'!C7" 'Start date (in cell C21) Range("H" & Rownumber).Select ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & Chr(39) & "!$C$21" 'Start time (in cell E21) Range("I" & Rownumber).Select ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & Chr(39) & "!$E$21" 'End date (in cell F21) Range("J" & Rownumber & ":K" & Rownumber).Select ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & Chr(39) & "!$F$21" 'End time (in cell G21) Range("L" & Rownumber).Select ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & Chr(39) & "!$G$21" Sheets("Dive " & Divenumber).Select Range("A23").Select End Sub
这一个让我最接近..
ActiveCell.FormulaR1C1 = "='Dive " & Divenumber & "'!F4"
但增加了一些不需要的“细胞..看起来像这样…
='Dive 53'!'F4' （应该是='Dive 53'!F4 ）
这种方法避免使用超链接（我觉得很难维护），而是使用索引表的BeforeDoubleClick事件来提供等效的function。
此代码进入潜水索引工作表的代码模块，以便它获取索引上的双击事件：
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '// This function is called whenever the sheet is double-clicked '// It checks the value of the target (selected) cell, to see if it is a reference '// to a dive sheet. If so, it activates that sheet '// Get hold of the contents of the target cell Dim sTarget As String: sTarget = Target.Cells(1, 1).Value '// Check if it refers to a dive sheet If Left(sTarget, 5) = "Dive " Then Dim wsTarget As Worksheet On Error Resume Next '// Try to find the worksheet referred to by the target cell Set wsTarget = Worksheets(sTarget) On Error GoTo 0 '// Check that a target sheet was found If wsTarget Is Nothing Then Exit Sub End If '// Activate the sheet wsTarget.Activate '// Cancel the default action for double-click Cancel = True End If End Sub
这是你的函数Add_Links（）的代码。 我不知道你是如何调用它的，但是除了我使用了一些更简单的技术之外，它和你的例子一样有效。
Option Explicit Sub Add_links() ' ' Add_links Macro ' Adds links to the index sheet so it 'fills itself in'... ' Each dive is on the row 9 more than the dive number (bear in mind each log is 50 higher than the previous) Dim Divenumber As Double Dim Rownumber As Double Dim wsDive As Worksheet Set wsDive = ActiveSheet '// Dive number is in cell I7 of the sheet Divenumber = wsDive.Range("I7").Value '// Make sure the sheet name corresponds to the dive number Dim sDiveName As String sDiveName = "Dive " & Divenumber wsDive.Name = sDiveName '// Calculate the row number for the index entry '-- -- Rownumber = Divenumber Mod 50 + 9 '// Use below if dive numbers in sheet run from 1 to 50, not 0 to 49 Rownumber = (Divenumber - 1) Mod 50 + 10 '// Get a reference to the index sheet Dim wsIndex As Worksheet: Set wsIndex = Worksheets("Dive Index") '// Get a reference to column A in the index entry row Dim rLink As Range: Set rLink = wsIndex.Range("A" & Rownumber) '// Put the Dive name into column A rLink.Value = sDiveName '// Reference data from the dive sheet into the index sheet ================ '// Project number (in cell F4) rLink.Offset(0, 1).Formula = ReferenceToCell(wsDive.Range("F4")) '// Index Column B '// Task(in cell C7) rLink.Offset(0, 2).Formula = ReferenceToCell(wsDive.Range("C7")) '// Index Column C '// Start date (in cell C21) rLink.Offset(0, 7).Formula = ReferenceToCell(wsDive.Range("C21")) '// Index Column H '// Start time (in cell E21) rLink.Offset(0, 8).Formula = ReferenceToCell(wsDive.Range("E21")) '// Index Column I '// End date (in cell F21) rLink.Offset(0, 9).Formula = ReferenceToCell(wsDive.Range("F21")) '// Index Column J '// End time (in cell G21) rLink.Offset(0, 11).Formula = ReferenceToCell(wsDive.Range("G21")) '// Index Column L End Sub Private Function ReferenceToCell(rCell As Range) As String '// This function returns a formula that references the value of the given cell ReferenceToCell = "='" & rCell.Parent.Name & "'!" & rCell.Cells(1, 1).Address End Function