[已解决]50BB破产求助鼠标事件代码整合

cqzcs

iR7SjLDj.zip (9.66 KB, 下载次数: 4)

2010-3-30 15:33 上传

点击文件名下载附件
再求鼠标事件代码整合
附件已有代码能完成点击鼠标事着色、提取数据数据功能，但对于点击空白单元格不能对应提取相应指定数值到固定单元格，详情请看附件要求，请各位老师能抽空帮助更改。谢谢！！！

[此贴子已经被作者于2010-3-30 16:39:46编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-31 23:38

改变了列的规律，不知道形态栏怎么取，稍微改了一下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("C5:AV65536"), Target) Is Nothing Then Exit Sub
If Target.Interior.ColorIndex = 7 Then
    Target.Interior.ColorIndex = 43
    If Len(Target) <> 0 Then
        Cells(4, Target.Column) = Target
    Else
        If Target.Column > 15 Then
            Cells(4, Target.Column) = (Target.Column - 16) Mod 10
        Else
            Cells(4, Target.Column) = (Target.Column - 3) Mod 10
        End If
    End If
 Else
   Target.Interior.ColorIndex = 7
   Cells(4, Target.Column) = ""
End If
End Sub

跳转到最佳答案楼层

cqzcs

别沉了

吕?布

如点击空白单元格G18，则在F2显示对应的数字1，再次点击空白单元格J18，在G2显示对应的4。以此类推。

怎么知道点G18要填哪个数字，要填在哪里？规则是什么

cqzcs

回吕版：此表格共分三个栏目，每个栏目为十列分别代表第一行的0-9十个数字，第二行为号码提取处。

如第一栏：F、G、H、I、J、K、L、M、N、O

分别代表：0、1、2、3、4、5、6、7、8、9.当点击G列的任意空白单元格时，G列代表的数字1则填入提取栏F2中，如再次点击H列的任意空白单元格时，H列代表的数字2则填入提取栏G2中，即下面点击什么，在上面的提取栏就显示对应的数字。

第二栏：  P、Q、R、S、T、U、V、W、X、Y

分别代表：0、1、2、3、4、5、6、7、8、9.当点击P列的任意空白单元格时，P列代表的数字0则填入提取栏P2中，如再次点击Y列的任意空白单元格时，Y列代表的数字9则填入提取栏Q2中，即下面点击什么，在上面的提取栏就显示对应的数字。

第三栏规则同上，只是提取列从Z2开始。

cqzcs

顶上去

枯禅

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Columns("f:AI"), Target) Is Nothing Then Exit Sub
If Len(Target) <> 0 Then
    Cells(2, Target.Column) = Target
Else
    Cells(2, Target.Column) = (Target.Column - 6) Mod 10
End If

cqzcs

谢谢苦禅大师！！！能否再加个功能？当再次点击时所选号码消失。

因为我加进了一段变色代码，当点击时标注成绿色，这时同步提取数字，当再次点击时变成红色，这时提取的数字消逝恢复空白。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 43 Then 'Target-目标，Interior-内部，ColorIndex-颜色数字,Then-然后
    Target.Interior.ColorIndex = 7 'Target-目标，Interior-内部，ColorIndex-颜色数字
 Else
   Target.Interior.ColorIndex = 43 'Target-目标，Interior-内部，ColorIndex-颜色数字
   End If
If Target.Count > 1 Then Exit Sub
If Intersect(Columns("f:AI"), Target) Is Nothing Then Exit Sub
If Len(Target) <> 0 Then
    Cells(2, Target.Column) = Target
Else
    Cells(2, Target.Column) = (Target.Column - 6) Mod 10
End If

End Sub

枯禅

还是不明白题意，我有一个疑问，按你的意思，点到最后不是一片花花绿绿的？不美观，是不是应该换另一个思路来做，我只想知道你最终的意图

cqzcs

    谢谢苦禅大师费心了！！！具体意图是：  当第一次点击时在着色（绿色）标记的同时，提取号码到上面第四列，而再次点击时底色恢复到原来的本色，并同时清除上面提取的数字。这样就不会影响美感，从而完成分析轮回。我另外传了个附件您再看看。谢谢！！！ XHMGOjU6.zip (286.15 KB, 下载次数: 4)

2010-3-31 23:16 上传

点击文件名下载附件

[此贴子已经被作者于2010-3-31 23:16:53编辑过]