如何获取excel中被鼠标点击单元格的值！在线等！
rt!
[解决办法]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Target 即为被鼠标点击单元格的值
[解决办法]
'在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
这是我前两天帮一人写的，看看有不明白的吗？
