怎样提取单元格的坐标和内容

豆腐加工厂王

各位老师，刚刚看vba常用代码解析，没看懂。想问一下选中了单元格，怎样表示位置。比如我选中了d5，想在L1单元格体现是第几行，L2单元格提现是第几列，L3单元格显示d5单元格内容，怎样写代码？如果我鼠标选g10，上述3个单元格内容就变成10，7，9。
还想问一下，假设不用vb，我在L1，L2, L3这几个单元格中设置什么公式，可以达到同样的效果。
请老师们指教，感谢！

大灰狼1976

VBA比较简单，单独公式的话其实也要VBA辅助一下，直接VBA吧

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. With Target
   
3.   [l1] = .Row
   
4.   [l2] = .Column
   
5.   [l3] = .Value
   
6. End With
   
7. End Sub

复制代码

豆腐加工厂王

老师好，我复制代码也没达到效果。关键是太菜了，您受累帮忙再看一下。

ykcbf1100

使用单元格选择事件

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.     On Error Resume Next
   
3.     If T.Column <= 9 And T.Row >= 1 Then
   
4. Me.[l1] = T.Row
   
5.         Me.[l2] = T.Column
   
6.         Me.[l3] = T.Value
   
7.     End If
   
8. End Sub
   
9. 
   

复制代码

gwjkkkkk

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ar
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1].CurrentRegion) Is Nothing Then
        ReDim ar(1 To 3, 0)
        With Target
            ar(1, 0) = Target.Row
            ar(2, 0) = Target.Column
            ar(3, 0) = Target.Value
        End With
        [L1].Resize(3) = ar
    End If
   
End Sub

豆腐加工厂王

感谢几位老师，这就是我想要的效果。顺便问一下，怎样操作送鲜花呢？

ykcbf1100

豆腐加工厂王 发表于 2024-8-9 21:29
感谢几位老师，这就是我想要的效果。顺便问一下，怎样操作送鲜花呢？

楼层的右下角，有点评分，点进去，选择鲜花数量，最后确定就可以了。