[已解决][已解决]谢谢阿童木老师，我想修改一段VB，对我来说太难了，单元格区间内鼠

lhj323323

[ XsXJ6yyt.rar (13.72 KB, 下载次数: 16)

2010-3-8 21:07 上传

点击文件名下载附件
[求助]我想修改一段VB，对我来说太难了，单元格区间内鼠标点件事件

各位老师，需求写在上传的附件中，里面有蓝桥老师曾经写的VB，测试成功了的，现在我想移植到[C]中，请问怎么改。谢谢。

[此贴子已经被作者于2010-3-11 23:52:12编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-11 13:48

这样？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row <> 18 Then Exit Sub
    If Target.Column < 6 Or Target.Column > 35 Then Exit Sub
    Dim iNum%, iCol%
    iNum = (Target.Column - 6) Mod 10
    iCol = (Target.Column - 6) \ 10 + 3
    If Len(Cells(18, iCol)) = 0 Then
        Target.Interior.ColorIndex = 56
        Cells(18, iCol) = iNum
    ElseIf Cells(18, iCol) <> iNum Then
        MsgBox "已经选择该位的数字，请重新选择"
    Else
        Target.Interior.ColorIndex = 0
        Cells(18, iCol).ClearContents
    End If
End Sub

跳转到最佳答案楼层

fjmxwrs

我也不会VBA，来学

lhj323323

求助

lhj323323

求助。。

lhj323323

求助

amulee

这样？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row <> 18 Then Exit Sub
    If Target.Column < 6 Or Target.Column > 35 Then Exit Sub
    Dim iNum%, iCol%
    iNum = (Target.Column - 6) Mod 10
    iCol = (Target.Column - 6) \ 10 + 3
    If Len(Cells(18, iCol)) = 0 Then
        Target.Interior.ColorIndex = 56
        Cells(18, iCol) = iNum
    ElseIf Cells(18, iCol) <> iNum Then
        MsgBox "已经选择该位的数字，请重新选择"
    Else
        Target.Interior.ColorIndex = 0
        Cells(18, iCol).ClearContents
    End If
End Sub