如何获取excel中被鼠标点击单元格的值！在线等！

[wdbbl]

rt!

[wdbbl]

大哥,十分感谢!
能不能举个例子,小弟新手!

[DeRoshia]

'在Excell表中的第五列的某一行单元格输入数据后,该行就变成红色.

Dim strSelChange As String '提取活动单元格原始值
Dim strRange As String '指定列的某一单元格

Private Sub Worksheet_Change(ByVal Target As Range)
Dim index As Integer '列的范围
Dim strRV As String '提取活动单元格改变值

strRange = ""
strRV = Target

For index = 1 To 100
strRange = "E" + CStr(index) 'E是第五列
srtIndex = CStr(index) + ":" + CStr(index)
If (Range(strRange).Value = strRV) Then
If (Range(strRange).Value <> strSelChange) Then
Rows(srtIndex).Select
End If
End If
Next
strRange = ""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
strSelChange = ""
If (strRange <> "") Then
With Selection.Interior
.ColorIndex = 3 '红色
.Pattern = xlSolid
End With
Else: strSelChange = Target
End If
End Sub
这是我前两天帮一人写的，看看有不明白的吗？

[wdbbl]

不怕大哥笑话，小弟新手!
不知道这段代码嵌套在哪里？！
方便的话留下qq号！
谢！
小弟再等！

[DeRoshia]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Target 即为被鼠标点击单元格的值

[tang198925]

上面的代码不像是delphi的代码啊怎么用啊？？