2010vba编程代码大全(求EXCEL中用VBA查找并录入的代码)

本文目录
求EXCEL中用VBA查找并录入的代码
其实你这个问题,完全不需要一个按钮或一个窗口。只需要如下代码即可。
选择工作表标签,右键,查看代码,然后将下面的代码粘贴到代码窗口即可。
我理解你是想直接使用回车键来移动到你想的目标列单元格,以下代码仅是示例。
既然你已经提到VBA,相信你能看懂以下代码
你只需要将下面的相关数字更改一下即可,数值代码列数
1代表A列
3代表C列
4代表D列
依此类推。。。。
自己试试,其实用窗口太复杂了
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 3).Select
ElseIf Target.Column = 3 Then
Cells(Target.Row, 4).Select
ElseIf Target.Column = 4 Then
Cells(Target.Row, 6).Select
ElseIf Target.Column = 6 Then
Cells(Target.Row, 8).Select
ElseIf Target.Column = 8 Then
Cells(Target.Row, 10).Select
ElseIf Target.Column = 10 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub
求编辑一个简单的VBA程序
1、启动Word,关闭所有打开的文档;
2、键入Alt+F11切换到VBA环境;
3、键入Ctrl+R激活左边的“工程资源管理器”,双击其中的“Normal - Microsoft Word 对象 - ThisDocument”这个节点;
4、在右边的代码区粘贴如下代码:
Option Explicit
Private Sub Document_New()
PasteClipboardContentToHeader
End Sub
Private Sub Document_Open()
PasteClipboardContentToHeader
End Sub
Private Sub PasteClipboardContentToHeader()
On Error Resume Next
ActiveDocument.Windows(1).Panes(1).View.Type = wdPrintView
ActiveDocument.Windows(1).Panes(1).View.SeekView = wdSeekCurrentPageHeader
Selection.Paste
ActiveDocument.Windows(1).Panes(1).View.SeekView = wdSeekMainDocument
End Sub
5、键入Ctrl+S保存,再键入Alt+Q关闭VBA窗口并返回到Word主窗口;
6、这样以后再次打开或者新建文档时,会自动把当前剪贴板的文字内容(如果有的话)粘贴到页眉中。
注意,上面的代码只是一个粗略的方案,没有处理太多异常情况,比如没有考虑如果原来文档就存在页眉的情况,等等。仅作参考吧!
此外,使用自动运行宏具有一定的风险,请谨慎……

更多文章:
wordpress和自己写(开发企业网站 是用现成的开源框架(如wordpress等)还是自己独立写 哪种比较好一些)
2025年12月25日 14:00
java代码提示(用myeclipse,在jsp中写java代码,需要导包时不提示,必须手动导包,怎样才能让它提示并且自动导包)
2026年4月9日 13:15
怎样安装tomcat服务(如何安装Apache Tomcat并使用Tomcat发布网站)
2025年12月21日 23:30
谁有点卡回收寄售平台的源码最好免费的?虚幻源码卡在加载页面中
2026年7月20日 05:00
函数指针类型别名(typedef 函数指针 比如typedef char*(*callback)(char*, int);)
2025年6月5日 09:00
css下载文件(下载网页时,如何将css文件中内容全部下载下来)
2026年7月25日 07:00
css给按钮加箭头(CSS实现带箭头方框怎么控制箭头位置!)
2026年1月1日 04:30
sql怎么读取excel更新(SQL如何用EXCEL导入一个临时表的相关字段,然后用临时表更新原有的表数据的字段内容)
2026年4月25日 09:30
require词根(require acquire enquire 这三个单词怎么区别,有共同的词根么)
2025年7月27日 09:00
wallpaper怎么设置鼠标特效(wallpaper控制鼠标灯光)
2026年5月6日 09:45












