在EXCEL怎么一点鼠标就复制了
å¯ä»¥è½è¿ExcelçVBAäºä»¶æ¥å®ç°ï¼å ·ä½æ¥éª¤å¦ä¸ï¼
1ãæALT+F11å¿«æ·é®ï¼æå¼ãVBEç¼è¾å¨ãçªå£ã
2ãå¨å·¦ä¾§çãå·¥ç¨ç®¡çå¨ãçªå£ï¼åå»è¦è®¾ç½®æ¤åè½çå·¥ä½è¡¨åã
3ãå¨å³ä¾§æå¼ç代ç ç¼è¾åºåè¾å ¥å¦ä¸ä»£ç ï¼ï¼å¦ä¸å¾æ示ï¼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target.Copy
End Sub
4ãå ³éãVBEç¼è¾å¨ãï¼è¿æ¶å°±å¯ä»¥å®ç°åå»é¼ æ å³å¤å¶å½åéä¸åºåçå 容ã
5ãå¨ä¿åå«æVBAåè½çExcelæ件æ¶ï¼è¦ä¿å为ãExcelå¯ç¨å®çå·¥ä½ç°¿ãæ ¼å¼ï¼å¦åï¼VBA代ç ä¼ä¸¢å¤±ã
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-05-06
用宏可以实现。右键点工作表的名字（在左下方呢，如Sheet1），查看代码，粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.CopyEnd Sub回到Excel，你点那个区域，就复制那个区域。问题是，如果你想粘贴到本工作表，不可能，因为又复制了。除非你粘贴到Sheet2等或者其他工作薄。追问：
TKS,目前的状况是：点那个区域，就复制那个区域，而我想复制到同一个工作表格，想去掉这个一点就复制的功能，按上述反向操作了，还是不行！回答：
所以说，在同一工作表，没法使用该功能。你还是直接用右键点待复制区域，复制。这样也不算慢。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.CopyEnd Sub回到Excel，你点那个区域，就复制那个区域。问题是，如果你想粘贴到本工作表，不可能，因为又复制了。除非你粘贴到Sheet2等或者其他工作薄。追问：
TKS,目前的状况是：点那个区域，就复制那个区域，而我想复制到同一个工作表格，想去掉这个一点就复制的功能，按上述反向操作了，还是不行！回答：
所以说，在同一工作表，没法使用该功能。你还是直接用右键点待复制区域，复制。这样也不算慢。
第2个回答 2013-04-17
用宏可以实现。右键点工作表的名字（在左下方呢，如Sheet1），查看代码，粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Copy
End Sub
回到Excel，你点那个区域，就复制那个区域。问题是，如果你想粘贴到本工作表，不可能，因为又复制了。除非你粘贴到Sheet2等或者其他工作薄。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Copy
End Sub
回到Excel，你点那个区域，就复制那个区域。问题是，如果你想粘贴到本工作表，不可能，因为又复制了。除非你粘贴到Sheet2等或者其他工作薄。
第3个回答 2013-04-17
表内加过VBA代码了，去后台看下。快捷键ALT+F11 ，或者在表的名称哪里点右键，选“查看代码”弹出来的就是VBA窗口了。本回答被网友采纳
第4个回答 2013-04-17
很可能是有代码设置了点击触动事件。你按ALT+F11 组合键看看有没有这么个代码。
