[求助]如何得到当前单元格的位置

gdqbx

如何确定当前单元格的位置（行号，列号），读出当前单元格的内容，在当前单元格的下一个单元格填入文字？

yehf

当前单元格位置:Me.Application.ActiveCell.Address

当前单元格内容:Me.Application.ActiveCell

yxzjls

在WORD中，列号为A、B、C……，表格的行号为1、2、3……；每一单元都在列与行的交汇处，它也就是单元地址。

不知你问的是不是这个问题。

gdqbx

QUOTE:

以下是引用yxzjls在2006-11-17 9:52:31的发言：

在WORD中，列号为A、B、C……，表格的行号为1、2、3……；每一单元都在列与行的交汇处，它也就是单元地址。

不知你问的是不是这个问题。

是的，问题是我如何得到当前单元格的列号、行号？

gdqbx

QUOTE:

以下是引用yehf在2006-11-17 9:48:12的发言：

当前单元格位置:Me.Application.ActiveCell.Address

当前单元格内容:Me.Application.ActiveCell

gdqbx

假设当前光标在第2行第2列，如何在第2行第2列、第2行第3列、第2行第4列填入图示内容，要用程序实现？

konggs

Sub sample()
    Dim a As Range
    Selection.Cells(1).Range.Text = "12,34,5,7.1"
    Set a = ActiveDocument.Range(Selection.Cells(1).Range.Start + 3, Selection.Cells(1).Range.Start + 5)
    a.Font.DoubleStrikeThrough = True
    Selection.Cells(1).Next.Range.Text = "10"
    Selection.Cells(1).Next.Next.Range.Text = "60%"
End Sub

gdqbx

版主果然高手，谢谢！