确定哪个单元处于活动状态

Question

我想允许用户单击一个按钮以复制A列中的信息，并将其输入到IBM Personal Communications仿真器中，然后，当他们填写该行数据时，再次按下该按钮以返回A列并向下到下一行。

这是我到目前为止的内容：

Option Explicit
Sub NextClaim_Click()
  Dim IDNum As String, Row
  Dim Emulator As Object

  ' Setting up the IBM Personal Communications emulator
  Set Emulator = CreateObject("pcomm.auteclsession")
  Emulator.SetConnectionByName ("A")

  ' Initial row that user starts macro on
  Row = ActiveCell.Row

  ' Get info from first row in column A (ex. A2)
  IDNum = Range("A" & Row).Value
  ' Pull up info in IBM Personal Communications emulator
  Emulator.auteclps.SendKeys "ret,i" & IDNum & ",m", 2, 2
  Emulator.auteclps.SendKeys "[enter]"

  ' If the last active cell that the user entered data in
  ' is not the the current row in column A (ex. A2), then
  ' add 1 to Row and go to the next row in column A (ex. A3)
  If ActiveCell.Range("A" & Row) = False Then
    Row = Row + 1
    Range("A" & Row).Activate
  End If

End Sub

如果按下按钮时活动单元格在A列中，我不希望宏转到下一行。

Answer 1

怎么样：

Sub Lou()
    If ActiveCell.Column <> 1 Then
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

编辑＃1

如果要转到A列并向下一行，则：

Sub Lou()
    If ActiveCell.Column <> 1 Then
        ActiveCell.Offset(1, 0).EntireRow.Cells(1).Select
    End If
End Sub

Answer 2

要确定哪个单元处于活动状态，可以调用

ActiveCell.Row

Activecell.Column

ActiveCell.worksheet

可以返回整数的方法，您可以通过编程方法找到活动单元格。