excel VBA 中 单元格赋值问题

Question

随便选择一个单元格，并给该单元格后第二列赋值“你好”，应该如何编写VBA程序？

Answer 1

ActiveCell.Offset(, 2) = "你好"

左边一列
ActiveCell.Offset(, -1) = "你好"

下面一行
ActiveCell.Offset(1) = "你好"

上面两行
ActiveCell.Offset(-2) = "你好"

Answer 2

Public Sub s()

Range("B5").Select
Selection.Offset(0, 2) = "你好"

End Sub

-------------------
上面的子程序实现的功能：
选中 B5 单元格，将它的右边第二列的单元格 D5 中写入文本 “你好”

Answer 3

在当前工作表的Worksheet_SelectionChange事件添加代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Offset(, 2) = "你好"
End Sub

Answer 4

前面所列举的答案，都用到一个offset,把它的用法研究透了也就行了。它的参数有两项，前者是偏移的行数，后者是列数，也就是以一个单元格为基准，确定一个相应的位置。明白了吗？