excel - VBA/Excel 如何将 ActiveCell 保存为对象

Question

我需要从 Excel 中的列表构建登录文本。我自己尝试使用宏并编写一个小脚本。基本上我有 2 个单元格，一个挨着一个。第一个获取 ssh key 名称，第二个获取密码。这 2 值取决于机器的操作系统，在其他字段中指定。最后，我有一个包含操作系统名称的表，以及密码旁边的 ssh key 。

这是我写的:

Function FindKey(FirstCell As Range) As String
'
' FindKey Macro
' Find the ssh key in function of the OS
'
Dim Find As Boolean
Dim Cell As Range
Dim OS As String


Cell = ActiveCell.Address
ActiveCell.Offset(0, 4).Value = OS
Find = False
While Not Find
    ActiveCell = FirstCell.Address
    If ActiveCell.Value = OS Then
        FindKey = ActiveCell.Offset(0, 1).Value
        Cell.Offset(0, 1).Value = ActiveCell.Offset(0, 2).Value
        Cell.Select
        Find = True
    Else
        ActiveCell.Offset(1, 0).Select
        If IsEmpty(ActiveCell) Then
            Cell.Select
            FindKey = CVErr(xlErrNull)
            Find = True
        End If
    End If

Wend
'
End Function

我真的不知道该怎么写。我可以只将单元格地址存储在变量中吗？接下来我可以将它用作对象吗？

感谢您的宝贵时间，祝您度过愉快的一天

Answer 1

dim yourCell as Range
set yourCell = ActiveCell

和

set yourCell = FirstCell

设置对象引用时需要使用关键字set