点alt+f11后，点左边的工程窗口，双击其中的sheet1,在其弹出的窗口中输入你的代码即可。
如果是这样的话，楼主把你图中的代码第二行复制到第6行（即on error resume next的下一行，if target <>"" ……的上一行。）然后把前三行删除即可。
你好，右击左下角Sheet1标签，选择“查看代码”，粘贴复制上面的代码就可以了。你这个代码是Worksheet_SelectionChange类型的，它的意思是只要你重新选择一下单元格，代码就会自动运行一次，所以像上面那样插入代码就可以了。另外看了一下你的代码，发现运行和不运行没什么区别，问下你想实现什么呢？我可以帮...
你截图的这些代码都在一个sheet下面吗？那肯定要报错啊，你有2个Private Sub Worksheet_SelectionChange(ByVal Target As Range)，名字一样，参数一样，发生事件的时候到底调用哪一个呢？要么合并功能，要么把其中一个改成其他事件驱动
在VBA中,调用Worksheet_SelectionChange事件非常直接,你不需要显式地“调用”它,因为这是一个由Excel自动触发的事件。当用户在Excel工作表中更改所选单元格时,Worksheet_SelectionChange事件会自动被触发。以下是如何设置和使用这个事件的步骤: 打开VBA编辑器: 在Excel中,右键点击你想要添加此功能的工作表标签,然后选择...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Static a1 As Integer Static a2 As Integer Static 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.Column End Sub 同时...
Private Sub Worksheet……… 同意楼上,是工作表事件导致无法复制粘贴,因为你在做其它操作时触发了事件运行代码导致无法粘贴。拷贝后,点到其它单元格后,触发SelectionChange中其它动作,导致不能粘贴。 解决办法: 1、调出剪贴板,用剪贴板粘贴 2、win7系统装Excel 2013,我用13版没这问题,好像以前10版也没这问题了,...
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target .Row >= 2 And Target .Column = 2 Then Target = 100 End IfEnd SubIf ... Then ... End If 这是我们学的这一个逻辑判断语句。Target.Row >= 2,指的是鼠标选定的单元格的行大于或等于 2。Target.Column = 2 ,指的...
第一次将宏创建到个人宏工作簿时，会创建名为"PERSONAL.XLS"的新文件。如果该文件存在，则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面（在"窗口"菜单中选择"取消隐藏"后，可以很方便地发现它的存在。）如果你要让某个宏在多个工作簿都能使用，那么就应当创建个人宏工作簿，并将宏保存于...
Click()IfActiveCell.Row>=2AndActiveCell.Column>=3ThenActiveCell=100EndIfEndSub二者执行方法最大的地方,在于Worksheet_SelectionChange()是自动的,你不用了解他是怎么完成工作的.按钮CommandButton1_Click()是人工的,比SelectionChange()多一道手续,就是要去按那接钮,程序才会执行SelectionChange()有一个参数Target...