sgdd.net
当前位置:首页 >> ExCEl VBA中的WorkshEEt_SElECtionChAngE函数问题 >>

ExCEl VBA中的WorkshEEt_SElECtionChAngE函数问题

你好,右击左下角Sheet1标签,选择“查看代码”,粘贴复制上面的代码就可以了.你这个代码是Worksheet_SelectionChange类型的,它的意思是只要你重新选择一下单元格,代码就会自动运行一次,所以像上面那样插入代码就可以了.另外看了一下你的代码,发现运行和不运行没什么区别,问下你想实现什么呢?我可以帮你该改下,嘿嘿~

你好,右击左下角sheet1标签,选择“查看代码”,粘贴复制上面的代码就可以了.你这个代码是worksheet_selectionchange类型的,它的意思是只要你重新选择一下单元格,代码就会自动运行一次,所以像上面那样插入代码就可以了.另外看了一下你的代码,发现运行和不运行没什么区别,问下你想实现什么呢?我可以帮你该改下,嘿嘿~

解决方法:1.在一台能正常运行你的EXCEL的电脑上,在开始菜单里输入“%temp%”,找到如图文件夹EXCEL8.0,复制MSForms.exd;2.再到你出问题的电脑上同一位置把这个文件替换掉,就可以正常运行了

private sub worksheet_selectionchange(byval target as range) if target.column = 1 and target.row target.offset(, 1) = val(target) * 3 end if end sub 说明:只要把worksheet_change 改为 worksheet_selectionchange 即可

你截图的这些代码都在一个sheet下面吗?那肯定要报错啊,你有2个Private Sub Worksheet_SelectionChange(ByVal Target As Range),名字一样,参数一样,发生事件的时候到底调用哪一个呢?要么合并功能,要么把其中一个改成其他事件驱动

If Target.Column = 4 Then改成If Target.Column = 4 Or Target.Column = 6 Then这里假如第二列是F列.

触没触发,加个断点就清除了,跟事件里的代码无关吧

搞了一天,终于自己搞出来,我的思路是这样的,主要通过静态变量来实现代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Static a1 As IntegerStatic a2 As IntegerStatic a3 As Integer If a3 = 0 Then a1 = ActiveCell.row a2 = ActiveCell.Column End If a3 = 1 MsgBox a1 MsgBox a2 a1 = ActiveCell.row a2 = ActiveCell.ColumnEnd Sub同时谢谢所有回答问题的人!

改成下面这样就行了.ShtCodeName = ThisWorkbook.Worksheets("AAAA").CodeName With ThisWorkbook.VBProject.VBComponents.Item(ShtCodeName).CodeModule .InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)" .InsertLines 2, "msgbox ""生成事件成功""" .InsertLines 3, "'这是一个注释示例" .InsertLines 5, "End Sub" End With试试吧.

其实只要一句就好了:Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(1, 1) = ActiveCell.ValueEnd SubCells(1,1)即A1单元格,ActiveCell.Value即当前选

相关文档
ppcq.net | alloyfurniture.com | ddng.net | gmcy.net | sgdd.net | 网站首页 | 网站地图
All rights reserved Powered by www.sgdd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com