1. 打开Excel文件，按下Alt+F11打开VBA编辑界面。
2. 在VBA编辑界面中，找到含有VBA代码的工作簿。
3. 在工作簿上右键单击，选择"另存为"-"其他格式"。
4. 在弹出的另存为窗口中，选择保存位置和文件名。
5. 在文件类型下拉菜单中选择"Excel宏启用工作簿(*.xlsm)"，并点击"保存"。
6. 完成保存后，即可将含有VBA代码的Excel文件保存为xlsm格式(启用宏的工作簿)文件。

在VBA中，可以通过Application.Selection对象获取当前选中的单元格或单元格区域。如果你想获取第一个选中单元格的坐标，可以使用Application.Selection.Address属性。

vbaSub GetFirstCellAddress()
    Dim selectedRange As Range
    Set selectedRange = Application.Selection
    
    ' 获取第一个选中单元格的地址Dim firstCellAddress As String
    firstCellAddress = selectedRange.Cells(1, 1).Address
End Sub

我们使用selectedRange.Cells(1, 1).Address获取第一个选中单元格的地址。

需要注意的是，如果用户选择了多个不连续的单元格或区域，这个方法可能无法正确工作。

在Excel的VBA中，可以使用以下函数来获取当前操作的单元格坐标，并获取计算隔壁单元格的坐标：

vbaPrivate Sub Worksheet_Change(ByVal Target As Range)
    Dim currentCell As Range
    Set currentCell = Target

    Dim currentRow As Integer
    currentRow = currentCell.Row

    Dim currentColumn As Integer
    currentColumn = currentCell.Column

    Dim neighborCell As Range
    Set neighborCell = Cells(currentRow + 1, currentColumn) '假设邻居单元格在下一行同一列End Sub

这个函数是放在Excel的VBA编辑器中的Worksheet模块下，当工作表中的任何单元格内容发生改变时，它都会执行。

在这个函数中，我们首先使用Target来获取当前发生改变的单元格，然后使用currentCell变量来引用它。接着，我们使用Row和Column属性来获取当前单元格的行号和列号，并将其分别赋值给currentRow和currentColumn变量。

然后，我们使用Cells函数和currentRow、currentColumn变量来获取下一行同一列的单元格，将其赋值给neighborCell变量。接着，我们使用Row和Column属性来获取邻居单元格的行号和列号，并将其分别赋值给neighborRow和neighborColumn变量。