vba

该语句本身没有问题，希望你上传报错的图，是否形状不对之类的原因（内容有合并单元格导致不能部分复制）

1 mscomm.vbx通信控件描述 mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。 1.1 通信方式 mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题 1、事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有： mscomm-er-break 收到1个break signal mscomm-er-cdto cd 信号超时 …… mscomm-ev-cd cd信号改变 …… 2、查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。 1.2 通信控件的属性 利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如： commport：设置或返回通信口编号。 settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。 portopen：设置或返回通信口状态（包括打开和关闭1个通信口） …… 3、 实例 本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。 本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。 2.1 窗体各控件初始化程序 设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。 sub form-load () mscomm1.commport=2 "选用com2串行口 mscomm1.settings="9600，n8，1" "波特率9600，无奇偶校验位，8位数据位1位停止位 mscomm1.inputlen=0 "input将读取接收缓冲区的全部内容 mscomm1.inbuffersize=1024 "设置接收缓冲区的字节长度 mscomm1.portopen=true "打开通信口 mscomm1.inbuffercount=0 "清除发送缓冲区数据 mscomm1.outbuffercount=0 "清除接收缓冲区数据 periodic.inteval=100 "设置ls定时间隔，使遥测命令每隔ls发送1次 nonperiodic.inteval=500 "设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令 command-pressed=false "命令按钮为未激活状态 during- periodic=false "周期性命令数据传输尚未开始 during- nonperiodic=false "非周期性命令数据传输尚未开始 end sub 2.2 非周期性命令发送程序 根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。 sub nonperiodic-command-click () command-pressed=true "命令按钮激活 end sub sub nonperiodic-timer () if during- periodic=true or command-pressed=false then exit sub "若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。 command-pressed=false "命令按钮恢复为未激活状态 call senddata (nonperiodic-command) "发送非周期性命令 mscomm1.rthreshold=r-nonperiodic-byte"发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件 end sub 2.3 periodic定时器程序 在periodic定时器的中断程序中发送周期性命令： sub periodic-timer () if during- nonperiodic=true then exit sub "若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。 during-periodic=true "设置周期性命令数据传输状态为正在进行中 call senddata (periodic-command) "发送周期性命令 mscomm1.rthreshold=r-periodic-byte "发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件 end sub 2.4 oncomm事件程序 根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。 sub mscomm1-oncomm () select case mscomm1.commevent "在此可插入处理各种不同错误或事件的代码 case mscomm-ev-receive receivestring$=mscomm1.input select case mscomm1.rthreshold case r-periodic-byte "周期性命令的应答数据 call disposedata(periodic-command) "处理接收数据 during periodic=false "设置周期性命令数据传输状态为结束 case r-nonperiodic-byte "非周期性命令的应答数据 call disposedata(nonperiodic-command) "处理接收数据 during-nonperiodic=false "设置非周期性命令数据传输状态为结束 end select end select end sub 随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。

DVBAI全称叫Vision Builder for Automation Inspection，NI官方的中文名称叫用于自动检测的视觉生成器。其可以理解为NI的工程师使用NI Vision Developments Module（视觉开发包VDM）开发的一款功能比较强大的应用程序。使用VBAI，可以直接用于项目检测，而不需要工程师再花太多的心思用于搭建程序框架，实现逻辑功能等。因此很多时候，一些简单的项目，使用VBAI，可能几分钟就可以完成了。VBAI的优点是可以快速的检测一些常规的视觉项目，而不需要花费太多的时间精力于编程上，入门相对简单。但是其缺点也是明显的，那就是其界面框架已经是固定的，要想有太多的修改编辑，是不可能的；目前还只有英文版的，要想弄成中文版的，也不方便；其支持的硬件，一般只能是NI的硬件，或NI认证的，或者是一些标准通信协议的硬件，才能被支持，比较受限制，如许多国产相机、采集卡、IO卡，在VBAI中就无法使用；VBAI做的项目，一般不能集成运动控制，如果有运动控制，只能考虑使用PLC，然后利用通信的方式与PLC交换数据。其它的一些问题，如数据保存等也只能TXT、CSV等几种格式。另外VBAI的脚本执行是顺序方式的，不能发挥LabVIEW的并行特性，因此其执行效率相对来讲，会慢一些。VBAI也可以生成开发程序的代码，但是因为其本身的复杂性（变量系统、附加工具等），其生成的代码相对比较复杂，难以看明白，调用起来不是很方便。VBAI的加密也很简单，只能保护脚本。如果给客户安装了VBAI，那么想要他可以修改参数，就得告诉其密码，这样对于软件产品的保护，是不利的。# H8 {& w& c2 q, b7 K4 I9 W9 c9 B. e5 p- a: ^/ I. |NI Vision Developments Module（视觉开发包VDM），则是NI的所有视觉函数的集成总合，所有NI视觉相关的程序、软件都是调用VDM中的函数，VBAI也是调用VDM里的函数。在安装完成VDM后，会附带生成视觉助手Vision Assistant。当然视觉助手本身也是一个EXE应用程序。其实现模式与VBAI非常类似，但是功能上没有VBAI那么强大，他不能实时的进行采集、处理、判断这样的过程。因为其采集与分析是分开的，然后没有变量系统，也就不能做规格判断。只能验证找没找到特征，可以测量得到特征的数据。但是正因为其相对简单，所以他生成的代码相简单明了许多。这也是NI出视觉助手的根本目的，就是为了让用户使用助手可以完成大部分的视觉功能，则不用去直接调用VDM中的函数，这样可以更方便的使用VDM。) U, e3 I+ S2 h6 @! T9 y. Q8 `; _* v) c7 E" xVBAI就像部门经理，VDM像总经理，部门经理能干的事，总经理基本都能干。视觉助手就是总经理的秘书。秘书可以帮总经理做一些事，但是不是所有事都可以做，要都做了，还要总经理干嘛。) O; p) H& S( U" m* ?. v, j5 t4 B( c! N" V) e8 T- v& ~5 UVBAI和视觉助手，都只能完成VDM中的大部分功能，有一些其它的特殊功能函数是无法完成的。因此如果想要有比较好、全面的开发，当然是使用LabVIEW这样的开发平台直接调用VDM中的函数。这时如果对VDM不是很熟悉，可以使用视觉助手来生成代码（LabVIEW、C、.NET），以方便开发平台的调用。而如果只是为了简单的应用、验证，使用VBAI即可。如果是比较有量的商业项目，肯定还是考虑使用LabVIEW+VDM这样的模式自己开发软件，这样可以有效的保护自己的软件产品，而不会被客户随意复制。+ L" b @9 l2 m* Q& u& ], 4 ~3 T6 V! Q6 Z9 {6 N0 V9 J# H

微软的反病毒软件的数据库文件

如果你的默认浏览器是IE浏览器我就能解决问题。

这里有两问题：1、ie.Navigate "xxx_login.php"打开网页后，在网页没有载入完毕立即去获取网页控件会失败；2、ie.document.GetElementsByName("pwuser").value获取控件中是不是Element而不是Elements.dim ieSet ie=CreateObject("InternetExplorer.application")ie.Visible=trueie.Navigate "xxx_login.php"‘等待网页载入完成DoSleepu2002200Loopu2002Untilu2002IE.ReadyStateu2002=u20024ie.document.GetElementByName("pwuser").value = "用户名"ie.document.GetElementByName("pwpwd").Value = "密码"ie.document.GetElementByName("submit").Click

在底部增加一个高度3-5rem的div即可底部页面添加<div style="height: 5rem;"></div>Vant 是有赞前端团队开源的移动端组件库，于 2016 年开源，已持续维护 4 年时间。Vant 对内承载了有赞所有核心业务，对外服务十多万开发者，是业界主流的移动端组件库之一。目前 Vant 官方提供了 Vue 版本和微信小程序版本，并由社区团队维护 React 版本。提供 60 多个高质量组件，覆盖移动端各类场景性能极佳，组件平均体积不到 1kb（min+gzip）单元测试覆盖率 90%+，提供稳定性保障完善的中英文文档和示例支持 Vue 2 & Vue 3支持按需引入支持主题定制支持国际化支持 TypeScript支持 SSR

以下代码为：当工作簿打开时，自动替换透视表中源路径为当前工作簿路径Private Sub Workbook_Open() Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String "定义变量 On Error Resume Next strCon = ActiveSheet.PivotTables(1).PivotCache.Connection "将当前活动数据透视表中缓存连接信息赋值给变量strCon Select Case Left(strCon, 5) "select case语句,条件为strCon变量中从左侧取5个字符 Case "ODBC;" "用于判断缓存连接信息中的数据连接方式,如果是ODBC方式 iFlag = "DBQ=" "将"DBQ=" 赋值给变量iFlag Case "OLEDB" "用于判断缓存连接信息中的数据连接方式,如果是OLEDB方式 iFlag = "Source=" "将"Source=" 赋值给变量iFlag Case Else Exit Sub End Select iStr = Split(Split(strCon, iFlag)(1), ";")(0) "在变量strCon中截取文件路径信息 iPath = ActiveWorkbook.FullName "获取当前活动工作簿的完全路径 With ActiveSheet.PivotTables(1).PivotCache "替换数据透视表中缓存信息中的文件完全路径 .Connection = VBA.Replace(strCon, iStr, iPath) .CommandText = VBA.Replace(.CommandText, iStr, iPath) End WithEnd Sub

=int(a1/b1)就行了啊,为什么一定要用vba呢

Excel 技巧 53例 （一） 1、如何在已有的单元格中批量加入一段固定字符？ 例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力： 1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列 ； 2）在B2单元格写入： ="13" & A2 后回车； 3）看到结果为 13xxxxxxxxxxxxx 了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。 若是在原证书号后面加13 则在B2单元格中写入：=A2 & “13” 后回车。 2、如何设置文件下拉窗口的最下面的最近运行的文件名个数？ 打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。 3、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？ 这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成文本格式就行了。 4、在EXCEL中如何使它象WORD一样的自动定时保存文件？ 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。 5、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。但是不是用页眉来完成？ 在EXCEL的文件菜单－页面设置－工作表－打印标题；可进行顶端或左端标题设置，通过按下折叠对话框按钮后，用鼠标划定范围即可。这样Excel就会自动在各页上加上你划定的部分作为表头。 6、在Excel中如何设置加权平均？ 加权平均在财务核算和统计工作中经常用到，并不是一项很复杂的计算，关键是要理解加权平均值其实就是总量值（如金额）除以总数量得出的单位平均值，而不是简单的将各个单位值（如单价）平均后得到的那个单位值。在Excel中可设置公式解决（其实就是一个除法算式），分母是各个量值之和，分子是相应的各个数量之和，它的结果就是这些量值的加权平均值。 7、如果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？ 把鼠标移到工作表的名称处（若你没有特别设置的话，Excel自动设置的名称是“sheet1、sheet2、sheet3.......”），然后点右键，在弹出的菜单中选择“选择全部工作表”的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚还是打印你工作表。 8、EXCEL中有序号一栏，由于对表格进行调整，序号全乱了,可要是手动一个一个改序号实在太慢太麻烦，用什么方法可以快速解决？ 如果序号是不应随着表格其他内容的调整而发生变化的话，那么在制作EXCEL表格时就应将序号这一字段与其他字段分开，如在“总分”与“排名”之间空开一列，为了不影响显示美观，可将这一空的列字段设为隐藏，这样在调整表格（数据清单）的内容时就不会影响序号了。 9、用Excel2000做成的工资表，只有第一个人有工资条的条头（如编号、姓名、岗位工资.......)，想输出成工资条的形式。怎么做？ 这个问题应该这样解决：先复制一张工资表，然后在页面设置中选中工作表选项，设置打印工作表行标题，选好工资条的条头，然后在每一个人之间插入行分页符，再把页长设置成工资条的高度即可。 使用自定义方式重装了一遍中文office97，Excel的打印纸选项中只有A4一种，怎么办？ 随便安装一个打印机驱动程序就可以了。 10、在Excel中小数点无法输入，按小数点，显示的却是逗号，无论怎样设置选项都无济于事，该怎么办？ 这是一个比较特殊的问题，我曾为此花了十几个小时的时间，但说白了很简单。在Windows的控制面板中，点击“区域设置”图标，在弹出的“区域设置属性”对话面板上在“区域设置”里选择“中文（中国）”，在“区域设置属性”对话面板上在“数字”属性里把小数点改为“.”（未改前是“，”），按“确定”按钮结束。这样再打开Excel就一切都正常了。 11、如何快速选取特定区域？ 使用F5键可以快速选取特定区域。例如，要选取A2：A1000，最简便的方法是按F5键，出现“定位”窗口，在“引用”栏内输入需选取的区域A2：A1000。 12、如何快速返回选中区域？ 按Ctr+BacksPae（即退格键）。 13、如何快速定位到单元格？ 方法一：按F5键，出现“定位”对话框，在引用栏中输入欲跳到的单元格地址，单市“确定”按钮即可。 方法二：单击编辑栏左侧单元格地址框，输入单元格地址即可。 14、“Ctrl＋*”的特殊功用？一般来说，当处理一个工作表中有很多数据的表格时，通过选定表格中某个单元格，然后按下 Ctrl＋* 键可选定整个表格。Ctfl＋* 选定的区域是这样决定的：根据选定单元格向四周辐射所涉及到的有数据单元格的最大区域。 15．如何快速选取工作表中所有包含公式的单元格？ 有时，需要对工作表中所有包含公式的单元格加以保护，或填入与其他单元格不同的颜色，以提醒用户注意不能在有此颜色的区域内输入数据。以下方法可以帮助快速选取所有包含公式的单元格：选择“编辑”＼“定位”，单击“定位条件”按钮，在“定位条件”对话框中选择“公式”项，按“确定”按钮即可。 16、如何在不同单元格中快速输入同一数内容？ 选定单元格区域，输入值，然后按 Ctrl＋ Ener键，即可实现在选定的单元格区域中一次性输入相同的值。 17、只记得函数的名称，但记不清函数的参数了，怎么办？ 如果你知道所要使用函数的名字，但又记不清它的所有参数格式，那么可以用键盘快捷键把参数粘贴到编辑栏内。 具体方法是：在编辑栏中输入一个等号其后接函数名，然后按 Ctr＋ A键，Excel则自动进入“函数指南——步骤 2之2”。当使用易于记忆的名字且具有很长一串参数的函数时，上述方法显得特别有用。 18、如何把选定的一个或多个单元格拖放至新的位置？ 按住Shift键可以快速修改单元格内容的次序。具体方法是： 选定单元格，按下Shift键，移动鼠标指针至单元格边缘，直至出现拖放指针箭头（空心箭头），然后按住鼠标左键进行拖放操作。上下拖拉时鼠标在单元格间边界处会变为一个水平“工”状标志，左右拖拉时会变为垂直“工”状标志，释放鼠标按钮完成操作后，选定的一个或多个单元格就被拖放至新的位置。 19、如何让屏幕上的工作空间变大？ 可以将不用的工具栏隐藏，也可以极大化Excel窗口，或者在“视图”菜单中选择“全屏显示”命令。 20、如何使用快显菜单？ 快显菜单中包括了一些操作中最常用的命令，利用它们可以大大提高操作效率。首先选定一个区域，然后单击鼠标右健即可调出快显菜单，根据操作需要选择不同命令。 （二） 21、如何使用快显菜单？ 快显菜单中包括了一些操作中最常用的命令，利用它们可以大大提高操作效率。首先选定一个区域，然后单击鼠标右健即可调出快显菜单，根据操作需要选择不同命令。 22、如何防止Excel自动打开太多文件？ 当Excel启动时，它会自动打开Xlstart目录下的所有文件。当该目录下的文件过多时，Excel加载太多文件不但费时而且还有可能出错。解决方法是将不该位于Xlstart目录下的文件移走。另外，还要防止EXcel打开替补启动目录下的文件：选择“工具”＼“选项”＼“普通”，将“替补启动目录”一栏中的所有内容删除。 23、如何去掉网格线？ 1）除去编辑窗口中的表格线，单击“工具”菜单中的“选项”，再选中“视图”，找到“网格线”，使之失效； 2）除去打印时的未定义表格线 有时会出现这样的情况：你在编辑时未定义的表格线（在编辑窗中看到的也是淡灰色表格线），一般情况下在打印时是不会打印出来的，可有时却偏偏不听使唤给打印出来了，特别是一些所谓的“电脑”VCD中编辑的Excel表格更是这样。要除去这些表格线，只要在单击“文件”、“页面设置”、“工作表”菜单，点击一下“网格线”左边的选择框，取消选择“网格线”就行了。 24、如何快速格式化报表？ 为了制作出美观的报表，需要对报表进行格式化。有快捷方法，即自动套用Excel预设的表格样式。方法是： 选定操作区域，选取“格式”菜单中的“自动套用格式”命令，在格式列表框中选取一款你满意的格式样式，按“确定”按钮即可。要注意的是，格式列表框下面有包括“数字”、“边框线”、“字体”等6个“应用格式种类”选项，若某项前面的“x”不出现，则在套用表格样式时就不会用该项。 25、如何快速地复制单元格的格式？ 要将某一格式化操作复制到另一部分数据上，可使用“格式刷”按钮。选择含有所需源格式的单元格，单击工具条上的“格式刷”按钮，此时鼠标变成了刷子形状，然后单击要格式化的单元格即可将格式拷贝过去。 26、如何为表格添加斜线？ 一般我们习惯表格上有斜线，而工作表本身并没有提供该功能。其实，我们可以使用绘图工具来实现： 单击“绘图”按钮，选取“直线”，鼠标变成十字型．将其移至要添加斜线的开始位置，按住鼠标左键拖动至终止位置，释放鼠标，斜线就画出来了。另外，使用“文字框”按钮可以方便地在斜线上下方添加文字，但文字周围有边框，要想取消它，可选中文字框，调出快显菜单，选择“对象格式”＼“图案”，选择“无边框”项即可。 27、如何快速地将数字作为文本输入？ 在输入数字前加一个单引号“”"，可以强制地将数字作为文本输入。 28、如何定义自己的函数？ 用户在Excel中可以自定义函数。切换至 Visual Basic模块，或插入一页新的模块表（Module），在出现的空白程序窗口中键入自定义函数VBA程序，按Enter确认后完成编 写工作，Excel将自动检查其正确性。此后，在同一工作薄内，你就可以与使用Exed内部函数一样在工作表中使用自定义函数，如： Function Zm(a) If a＜ 60 Then im＝‘不及格” Else Zm=“及格” End If End Function 29、如何在一个与自定义函数驻留工作簿不同的工作簿内的工作表公式中调用自定义 函数？ 可在包含自定义函数的工作薄打开的前提下，采用链接的方法(也就是在调用函数时加上该函数所在的工作簿名)。假设上例中的自定义函数Zm所在工作薄为MYUDF.XLS，现要在另一不同工作簿中的工作表公式中调用Zm函数，应首先确保MYUDF.XLS被打开，然后使用下述链接的方法： =MYUDF.XLS！ ZM(b2) 30、如何快速输入数据序列？ 如果你需要输入诸如表格中的项目序号、日期序列等一些特殊的数据系列，千万别逐条输入，为何不让Excel自动填充呢？在第一个单元格内输入起始数据，在下一个单元格内输入第二个数据，选定这两个单元格，将光标指向单元格右下方的填充柄，沿着要填充的方向拖动填充柄，拖过的单元格中会自动按Excel内部规定的序列进行填充。如果能将自己经常要用到的某些有规律的数据（如办公室人员名单），定义成序列，以备日后自动填充，岂不一劳永逸！选择“工具”菜单中的“选项”命令，再选择“自定义序列”标签，在输入框中输入新序列，注意在新序列各项2间要输入半角符号的逗号加以分隔（例如：张三，李四，王二……），单击“增加”按钮将输入的序列保存起来。 31、使用鼠标右键拖动单元格填充柄？上例中介绍了使用鼠标左键拖动单元格填充柄自动填充数据序列的方法。其实，使用鼠标右键拖动单元格填充柄则更具灵活性。在某单元格内输入数据，按住鼠标右键沿着要填充序列的方向拖动填充柄，将会出现包含下列各项的菜单：复制单元格、以序列方式填充、以格式填充、以值填充；以天数填充、以工作日该充、以月该充、以年填充；序列……此时，你可以根据需要选择一种填充方式。 32．如果你的工作表中已有某个序列项，想把它定义成自动填充序列以备后用，是否需要按照上面介绍的自定义序列的方法重新输入这些序列项？ 不需要。有快捷方法：选定包含序列项的单元格区域，选择“工具”＼“选项”＼“自定义序列”，单击“引入”按钮将选定区域的序列项添加至“自定义序列”对话框，按“确定”按钮返回工作表，下次就可以用这个序列项了。 33、上例中，如果你已拥育的序列项中含有许多重复项，应如何处理使其没有重复项，以便使用“引入”的方法快速创建所需的自定义序列？ 选定单元格区域，选择“数据”＼“筛选”＼“高级筛选”，选定“不选重复的记录”选项，按“确定”按钮即可。 34、如何对工作簿进行安全保护？ 如果你不想别人打开或修改你的工作簿，那么想法加个密码吧。打开工作薄，选择“文件”菜单中的“另存为”命令，选取“选项”，根据用户的需要分别输入“打开文件口令”或“修改文件D令”，按“确定”退出。工作簿（表）被保护之后，还可对工作表中某些单元格区域的重要数据进行保护，起到双重保护的功能，此时你可以这样做：首先，选定需保护的单元格区域，选取“格式”菜单中的“单元格”命令，选取“保护”，从对话框中选取“锁定”，单由“确定”按钮退出。然后选取“工具”菜单中的“保护”命令，选取“保护工作表”，根据提示两次输入口令后退出。 注意：不要忘记你设置有“口令”。 35、如何使单元格中的颜色和底纹不打印出来？ 对那些加了保护的单元格，还可以设置颜色和底纹，以便让用户一目了然，从颜色上看出那些单元格加了保护不能修改，从而可增加数据输入时的直观感觉。但却带来了问题，即在黑白打印时如果连颜色和底纹都打出来，表格的可视性就大打折扣。解决办法是：选择“文件”＼“页面设置”＼“工作表”，在“打印”栏内选择“单元格单色打印”选项。之后，打印出来的表格就面目如初了。 36、工作表保护的口令忘记了怎么办？ 如果你想使用一个保护了的工作表，但口令又忘记了，有办法吗？有。选定工作表，选择“编辑”＼“复制”、“粘贴”，将其拷贝到一个新的工作薄中（注意：一定要是新工作簿），即可超越工作表保护。当然，提醒你最好不用这种方法盗用他人的工作表。 37、“$”的功用： Excel一般使用相对地址来引用单元格的位置，当把一个含有单元格地址的公式拷贝到一个新的位置，公式中的单元格地址会随着改变。你可以在列号或行号前添加符号“$”来冻结单元格地址，使之在拷贝时保持固定不变。 38、如何用汉字名称代替单元格地址？ 如果你不想使用单元格地址，可以将其定义成一个名字。 定义名字的方法有两种：一种是选定单元格区域后在“名字框”直接输入名字，另一种是选定想要命名的单元格区域，再选择“插入”＼“名字”＼“定义”，在“当前工作簿中名字”对话框内键人名字即可。使用名字的公式比使用单元格地址引用的公式更易于记忆和阅读，比如公式“=SUM（实发工资）”显然比用单元格地址简单直观，而且不易出错。 39、如何在公式中快速输入不连续的单元格地址？ 在SUM函数中输入比较长的单元格区域字符串很麻烦，尤其是当区域为许多不连续单元格区域组成时。这时可按住Ctrl键，进行不连续区域的选取。区域选定后选择“插入”＼“名字”＼“定义”，将此区域命名，如Group1，然后在公式中使用这个区域名，如“＝SUM（Group1）”。 40、如何定义局部名字？ 在默认情况下，工作薄中的所有名字都是全局的。其实，可以定义局部名字，使之只对某个工作表有效，方法是将名字命名为“工作表名！名字”的形式即可。 41、如何命名常数？ 有时，为常数指定一个名字可以节省在整个工作簿中修改替换此常数的时间。例如，在某个工作表中经常需用利率4.9％来计算利息，可以选择“插入”＼“名字”＼“定 义”，在“当前工作薄的名字”框内输入“利率”，在“引用位置”框中输入“＝ 0.04.9”，按“确定”按钮。 42、工作表名称中能含有空格吗？ 能。例如，你可以将某工作表命名为“Zhu Meng”。有一点结注意的是，当你在其他工作表中调用该工作表中的数据时，不能使用类似“＝ ZhU Meng！A2”的公式，否则Excel将提示错误信息“找不到文件Meng”。解决的方法是，将调用公式改为“＝"Zhu Mg"! A2”就行了。当然，输入公式时，你最好养成这样的习惯，即在输入“＝”号以后，用鼠标单由 Zhu Meng工作表，再输入余下的内容。 43、给工作表命名应注意的问题？有时为了直观，往往要给工作表重命名（Excel默认的荼表名是sheet1、sheet2.....），在重命名时应注意最好不要用已存在的函数名来作荼表名，否则在下述情况下将产征收岂义。我们知道，在工作薄中复制工作表的方法是，按住Ctrl健并沿着标签行拖动选中的工作表到达新的位置，复制成的工作表以“源工作表的名字+（2）”形式命名。例如，源表为ZM，则其“克隆”表为ZM（2）。在公式中Excel会把ZM（2）作为函数来处理，从而出错。因而应给ZM（2）工作表重起个名字。 44、如何拆分或取消拆分窗口？ 当我们给一个工作表输入数据时，在向下滚动过程中，尤其是当标题行消失后，有时会记错各列标题的相对位置。这时可以将窗口拆分为几部分，然后将标题部分保留在屏幕上不动，只滚动数据部分。其方法是在主菜单上单击“窗口”＼“拆分窗口”。取消拆分窗口时除了使用“窗口”＼“撒消拆分窗口”命令外，有捷径：将鼠标指针置于水平拆分或垂直拆分线或双拆分钱交点上，双击鼠标即可取消已拆分的窗口。 45、如何给工作簿扩容？ 选取“工具”＼“选项”命令，选择“常规”项，在“新工作薄内的工作表数”对话栏用上下箭头改变打开新工作表数。一个工作薄最多可以有255张工作表，系统默认值为6。 46、如何减少重复劳动？ 我们在实际应用Excel时，经常遇到有些操作重复应用（如定义上下标等）。为了减少重复劳动，我们可以把一些常用到的操作定义成宏。其方法是：选取“工具”菜单中的“宏”命令，执行“记录新宏”，记录好后按“停止”按钮即可。也可以用VBA编程定义宏。 47、如何快速地批量修改数据？ 假如有一份 Excel工作簿，里面有所有职工工资表。现在想将所有职工的补贴增加50（元），当然你可以用公式进行计算，但除此之外还有更简单的批量修改的方法，即使用“选择性粘贴”功能： 首先在某个空白单元格中输入50，选定此单元格，选择“编辑”＼“复制”。选取想修改的单元格区域，例如从E2到E150。然后选择“编辑”＼“选择性粘贴”，在“选择性粘贴”对话框“运算”栏中选中“加”运算，按“确定”健即可。最后，要删除开始时在某个空白单元格中输入的50。 48、如何快速删除特定的数据？ 假如有一份Excel工作薄，其中有大量的产品单价、数量和金额。如果想将所有数量为0的行删除，首先选定区域（包括标题行），然后选择“数据”＼“筛选”＼“自动筛选”。在“数量”列下拉列表中选择“0”，那么将列出所有数量为0的行。此时在所有行都被选中的情况下，选择“编辑”＼“删除行”，然后按“确定”即可删除所有数量为0的行。最后，取消自动筛选。 49、如何快速删除工作表中的空行？ 以下几种方法可以快速删除空行： 方法一：如果行的顺序无关紧要，则可以根据某一列排序，然后可以方便地删掉空行。 方法二：如果行的顺序不可改变，你可以先选择“插入”＼“列”，插入新的一列入在A列中顺序填入整数。然后根据其他任何一列将表中的行排序，使所有空行都集中到表的底部，删去所有空行。最后以A列重新排序，再删去A列，恢复工作表各行原来的顺序。 方法三：使用上例“如何快速删除特定的数据”的方法，只不过在所有列的下拉列表中都选择“空白”。 50、如何使用数组公式？ Excel中数组公式非常有用，它可建立产生多值或对一组值而不是单个值进行操作的公式。要输入数组公式，首先必须选择用来存放结果的单元格区域，在编辑栏输入公式，然后按ctrl＋Shift＋Enter组合键锁定数组公式，Excel将在公式两边自动加上括号“{}”。不要自己键入花括号，否则，Excel认为输入的是一个正文标签。要编辑或清除数组公式．需选择数组区域并且激活编辑栏，公式两边的括号将消失，然后编辑或清除公式，最后按Ctrl＋shift＋Enter键。 51、如何不使显示或打印出来的表格中包含有0值？ 通常情况下，我们不希望显示或打印出来的表格中包含有0值，而是将其内容置为空。例如，图1合计列中如果使用“=b2+c2+d2”公式，将有可能出现0值的情况，如何让0值不显示？ 方法一；使用加上If函数判断值是否为0的公式，即： =if（b2＋c2＋d2＝0，“”， b2＋c2＋d2） 方法二：选择“工具”＼“选项”＼“视窗”，在“窗口选项”中去掉“零值”选项。 方法三：使用自定义格式。 选中 E2：E5区域，选择“格式”＼“单元格”＼“数字”，从“分类”列表框中选择“自定义”，在“格式”框中输入“G/通用格式；G/通用格式；；”，按“确定”按钮即可。 52、在Excel中用Average函数计算单元格的平均值的，值为0的单元格也包含在内。有没有办法在计算平均值时排除值为0的单元格？ 方法一：如果单元格中的值为0，可用上例“0值不显示的方法”将其内容置为空，此时空单元格处理成文本，这样就可以直接用Average函数计算了。 方法二：巧用Countif函数 例如，下面的公式可计算出b2:B10区域中非0单元格的平均值：=sum（b2: b10）/countif（b2: b1o，"<>0"） 53、如何在Excel中实现“自动更正”功能？ Word用户都知道，利用Word的“自动更正”功能可以实现数据的快速输入．但在Excel中却没有类似“自动更正”功能的菜单命令。其实，使用VloopuP函数可以巧妙地解决这一问题。你的串号我已经记下，采纳后我会帮你制作

Excel中如何用vba统计cells(I,j)所在的合并单元格的合并个数? MergeArea属性：返回一个 Range物件，该物件代表包含指定单元格的合并区域 通过MergeArea.rows.count获得合并区域的行数，MergeArea.columns.count获得合并区域的列数 故题目中要统计cells(i,j)所在的合并单元格的合并个数就可以用下面程式码实现： sub main ro=cells(i,j).MergeArea.Rows.Count co=cells(i,j).MergeArea.Columns.Count su=ro*co msgbox "指定单元格合并区域包含”& su &"个单元格” end sub EXCEL,VBA中如何获取 合并单元格的值 思路： 1、在需要读数的区域内回圈 2、在回圈体内首先判断该单元格是否为合并单元格， 是，读取合并区域的第一个单元格的值,即合并单元格的值，并作处理或储存在某单元格，跳出回圈; 否，直接读取单元格的值，并作处理或储存在某单元格; 下面是VBA语句，定义 r,c 是增强程式的通用性，请视具体情况修改： Sub a() Dim r As Integer "行号 Dim c As Integer "列号 r = 2 c = 1 If Cells(r, c).MergeCells Then "是否是合并单元格 Debug.Print Cells(r, c).MergeArea.Cells(1, 1) "是，打印合并区域的第一个单元格的值,即合并单元格的值 Else Debug.Print Cells(r, c) "否，列印单元格的值 End If "可把if语句块放在回圈中 End Sub VBA 如何找到合并单元格的合并区域 可以利用 mergearea.row 和mergearea.column 返回合并单元格的行和列 如何用Aspose.Cells自动调整合并单元格的行 您可以尝试以下程式码： [C#] Instantiate a new Workbook Workbook wb = new Workbook(); Get the first (default) worksheet Worksheet _worksheet = wb.Worksheets[0]; Create a range A1:B1 Range range = _worksheet.Cells.CreateRange(0, 0, 1, 2); Merge the cells range.Merge(); Insert value to the merged cell A1 _worksheet.Cells[0, 0].Value = "A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog....end"; Create a style object Aspose.Cells.Style style = _worksheet.Cells[0, 0].GetStyle(); Set wrapping text on style.IsTextWrapped = true; Apply the style to the cell _worksheet.Cells[0, 0].SetStyle(style); Create an object for AutoFitterOptions AutoFitterOptions options = new AutoFitterOptions(); Set auto-fit for merged cells options.AutoFitMergedCells = true; Autofit rows in the sheet(including the merged cells) _worksheet.AutoFitRows(options); Save the Excel file wb.Save("e:\test2\autofitmergedcells.xlsx"); [VB] "Instantiate a new Workbook Dim wb As New Workbook() "Get the first (default) worksheet Dim _worksheet As Worksheet = wb.Worksheets(0) "Create a range A1:B1 Dim range As Range = _worksheet.Cells.CreateRange(0, 0, 1, 2) "Merge the cells range.Merge() "Insert value to the merged cell A1 _worksheet.Cells(0, 0).Value = "A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog....end" "Create a style object Dim style As Aspose.Cells.Style = _worksheet.Cells(0, 0).GetStyle() "Set wrapping text on style.IsTextWrapped = True "Apply the style to the cell _worksheet.Cells(0, 0).SetStyle(style) "Create an object for AutoFitterOptions Dim options As New AutoFitterOptions() "Set auto-fit for merged cells options.AutoFitMergedCells = True "Autofit rows in the sheet(including the merged cells) _worksheet.AutoFitRows(options) "Save the Excel file wb.Save("e: est2autofitmergedcells.xlsx") Excel VBA中如何获得合并单元格的值? 合并后的单元格名称是首个单元格的名称.. Excel 如何在word中用vba删除有合并单元格的行 从后面往前删除就可以保持前面的位置。 Private Function MyFunction9() Dim I As Long, J As Long For I = 1 To Range("A65536").End(xlUp).Row "最大行数 For J = Range("A65536").End(xlUp).Row To I + 1 Step -1 "这里的最大行数看似和上面一样，但是其实它是不一样的，I 的是固定的，J 的是不固定。 If Range("A" & I).Value = Range("A" & J).Value Then Rows(J).Delete Next Next End Function VBA用CELLS表示单元格,如何实现单元格的合并 Range(Cells(1, 2), Cells(2, 2)).Merge EXCEL中如何用VBA判断某一地址单元格是否为合并单元格 亲，拿单元格A1举例吧： IF Range("A1").MergeCells = True Then 如果A1是合并单元格，则 给你写一个函式吧 Function IsMerge(R As Range) As Boolean If R.MergeCells Then IsMerge = True End Function vba excel 复制合并单元格 Sub Macro1() Range("A1:E10").Select Selection.Copy "复制 Sheets("Sheet2").Select ActiveSheet.Paste ‘贴上 Range("A3").Select End Sub

http://jingyan.baidu.com/article/647f0115912deb7f2048a846.html

　　Vbcrl是VBA中一个特殊的常量，其功能是在连接的字符串处换行，使用范例如下：　　1、启动excel后，按下alt+F11，打开vbe窗口；　　2、按下crtl+G，打开立即窗口；　　3、立即窗口输入：msgbox"你好"&Vbcrlf&"此处换行"，回车；　　4、效果如下图：　　

Displays a message in a dialog box, waits for the user to click a button, and returns a value indicating which button the user clicked.MsgBox(prompt[, buttons][, title][, helpfile, context])ArgumentspromptString expression displayed as the message in the dialog box. The maximum length of prompt is approximately 1024 characters, depending on the width of the characters used. If prompt consists of more than one line, you can separate the lines using a carriage return character (Chr(13)), a linefeed character (Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line.buttonsNumeric expression that is the sum of values specifying the number and type of buttons to display, the icon style to use, the identity of the default button, and the modality of the message box. See Settings section for values. If omitted, the default value for buttons is 0.titleString expression displayed in the title bar of the dialog box. If you omit title, the application name is placed in the title bar.helpfileString expression that identifies the Help file to use to provide context-sensitive Help for the dialog box. If helpfile is provided, context must also be provided. Not available on 16-bit platforms.contextNumeric expression that identifies the Help context number assigned by the Help author to the appropriate Help topic. If context is provided, helpfile must also be provided. Not available on 16-bit platforms.

a = MsgBox("信息",x1+x2+x3+x4,"标题") x1=VbOKOnly 0 只显示OK按钮 x1=VbOKCancel 1 只显示OK及Cancel按钮 x1=VbAbortRetryIgnore 2 显示Abort,Retry,Ignore按钮 x1=VbYesNoCancel 3 显示Yes,No,Cancel按钮 x1=VbYesNo 4 显示Yes,No按钮 x1=VbRetryCancel 5 显示Retry,Cancel按钮 x2=VbCritical 16 显示Critical Message图标 x2=VbQuestion 32 显示Warning Query图标 x2=VbExclamation 48 显示Warning Message图标 x2=VbInformation 64 显示Information Message图标 x3=VbDefaultButton1 0 第一个按钮是默认按钮 x3=VbDefaultButton2 256 第二个按钮是默认按钮 x3=VbDefaultButton3 512 第三个按钮是默认按钮 x3=VbDefaultButton4 768 第四个按钮是默认按钮 x4=VbMsgBoxHelpButton 16384 添加Help按钮到消息框 x4=VbMsgBoxRight 524288 文本为右对齐 a<->VbOK 1 OK a<->VbCancel 2 Cancel a<->VbAbort 3 Abort a<->VbRetry 4 Retry a<->VbIgnore 5 Ignore a<->VbYes 6 Yes a<->VbNo 7 No

显示后面的内容，例如：MsgBox "Hello, World"

MsgBox "text1" & vbNewLine & "text2"

如何使用Excel；VBA使用多个工作表拆分工作簿使用以多个规则命名的单个工作表拆分工作表由于您不提问，因此可以直接发布代码。子工作簿拆分（）将WB拆分为工作簿，将SH拆分为工作表中的每个SH"；遍历所有工作表sh.copy"；复制工作表集WB=activeworkbook"；到新工作簿k＝k+1"；计数；注：这一行也可以写为k=sh。如果这样写名称，这一行中的汉字将被删除。wb。另存为此工作簿。路径“/“；k〃；表xls“"；保存工作簿WB关闭”关闭创建的工作簿下一步

教育要培养的学生是具有高尚职业道德、扎实理论基础知识，较强的实际工作能力和熟练的基本技能，能站在技术前沿掌握最新技术，熟悉软件工作规范，适应软件行业需求的生产一线软件人才。培养目标是通过专业课程设置来体现的。

滚动条控件不分横向和纵向，只是尺寸决定形状，宽度大于高度就是横向滚动条。

在listbox1的SelectedIndexChanged选择事件中写textbox1.Text = listbox1.Text;

listbox 必须逐行添加，可以跳列添加。有什么问题好友，我详细给你解答。

亲，在VB6或VBA中，listbox控件的行间距是无法调节的。不过，你可以通过调节字体、字号，间接达到调整行高的目的。

ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox 控件上添加滚动条。如果未选定项目，则 ListIndex 属性值是 -1。列表的第一项是 ListIndex 0，ListCount 属性值总是比最大的 ListIndex 值大 1。语法ListBox说明使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。

具体说来 。。。。

AddItem向列表框添加新项目，其格式为：ListBox控件名．AddItem＜项目＞[，＜索引值＞]其中：<项目>为字符串表达式，表示添加到列表框中的新项目。<索引值>为数值表达式，指定在列表框中插入新项目的位置。若为0，则插入到第一个项目位置；若缺省且Sorted属性为False，则插入到最后一个项目位置；若缺省且Sorted属性为True，则插入到合适的排序位置。RemoveItem从列表框中删除项目，其格式为：ListBox控件名．RemoveItem＜索引值＞

在工具 选择附加控件 选中Microsoft forms 2.0 listbox

用listbox控件的ColumnCount 属性设置有多少列 列号从0开始x0dx0a可以直接在控件属性页面设置,x0dx0a也可以用代码设置例如:listbox1.ColumnCount = 3x0dx0a列宽用ColumnWidths 属性来控制 每列列宽的数值用分号 (;) 分隔x0dx0a例如:90;72;90x0dx0a默认的列宽设置单位是磅x0dx0a若要指定其他度量单位，则需将此单位作为值的一部分x0dx0a例如:2 cm;1cm;3 cm x0dx0a第一列为 2 厘米，第二列为 1 厘米，第三列为 3 厘米

vba窗体中如何获取列表框listbox1选中行的值提取出来，这决于您的列表框是多列还是单列。如果单列列表框的数据实际上是一维数组，则可以使用工作表函数transform导入文本框。经过三次转换后，可以将其转换为一维数组，然后使用join函数将其合并并写入文本框。多列列表框是二维数组。编写一个循环来读取列表框中的数据，然后将其写入文本框这是一个单列数据示例和一个多列数据示例。如果listbox是多列的情况下，将listbox.column属性看作一个二维数组使用，比如获取第一行第一列的值 listbox.column(0,0)，单列就是一维数组。或者定义一个variant型变量，然后将listbox.list赋值给它，也会得到一个数组。

首先需要打开Excel的表格，如图所示，点击下面的文件1，鼠标右键单击选择查看代码。2、然后就是进入代码页面，可以看到页面上现在的代码。3、然后接下来就是需要用listbox用法，如图所示，输入Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)，回车。4、最后，再返回到页面上，双击一下表格就可以看到数字了，listbox用法成功。

1、首先需要打开Excel的表格，如图所示，点击下面的文件1，鼠标右键单击选择查看代码。2、然后就是进入代码页面，可以看到页面上现在的代码。3、然后接下来就是需要用listbox用法，如图所示，输入Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)，回车。4、最后，再返回到页面上，如图所示，双击一下表格就可以看到数字了，listbox用法成功。

这似乎是一个游戏，但是你给出的只是初始化的部分，不包括游戏本身这个游戏只在2003、2000 上执行 2007不支持设置初始变量Public bs As Integer "步数变量Public gamestart As Boolean "游戏开始标志Public tid关闭工作表示还原基本设置Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next KillTimer 0, tid关闭系统的提示（保存、覆盖等） Application.DisplayAlerts = False With ActiveWindow ‘还原系统默认的三个工具栏。游戏进行时工具栏被隐藏了，如果不还原，再打开时就没有工具栏了 .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With With Application自己建了两个工具栏 对应的宏 是游戏的核心 .CommandBars("ply").Enabled = True .CommandBars("cell").Enabled = True End With If Not Me.Saved Then Me.Save "保存 With ActiveWindow .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With With Application .CommandBars("ply").Enabled = True .CommandBars("cell").Enabled = True End WithEnd SubPrivate Sub Workbook_Open() Sheets("华容道").EnableSelection = xlUnlockedCells If Dir(ThisWorkbook.Path & "sourcesound.htm") <> "" And Dir(ThisWorkbook.Path & "source ext.htm") <> "" Then If Sheets("华容道").Range("O2").Value Then Sheets("华容道").WebBrowser1.Navigate ThisWorkbook.Path & "sourcesound.htm" End If End If这个嵌套 IF 语句没看懂 bs = 0 "初始化步数变量 Sheets("华容道").Visible = True Sheets("网络排行榜").Visible = False Sheets("初始值").Visible = False Sheets("temp").Visible = False Sheets("记录步数").Visible = False Sheets("成绩记录").Visible = False Sheets("华容道").Activate Sheets("华容道").Range("E1") = 0 Sheets("记录步数").Range("A1:C65536").ClearContents Sheets("华容道").Label1.Caption = "0" Sheets("华容道").ScrollArea = "A1"‘这一句限制用户只能使用A1单元格 Application.DisplayAlerts = False With ActiveWindow .Caption = "华容道游戏" .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False End With With Application .CommandBars("ply").Enabled = False .CommandBars("cell").Enabled = False End With goback 1 gamestart = False "用户未开始第一步时不计时End Sub

全程序发来看看

抢生意，99折，198就做

Dim rndNum As Integer "定义随机数Randomize"随机rndNum = Int(Rnd() * 19 + 1)"如果有19幅图片，从1到19随机。Image1.Picture = LoadPicture("C:图片" & rndNum & ".jpg") "追加"For Each shp In Sheets(1).Shapes" If shp.Name = "Picture 1" Then" shp.CopyPicture xlScreen, xlBitmap" Sheets(2).Paste" Exit For" End If"Next"导入的图片Shape.Name按照顺序叫做Picture 1，Picture 2……"你可以shp.Copy,Sheet2.Paste 网上资料，Shapes 的图片 转换到 image控件 在excel图片发布都是使用了图表的Export方法,image控件也是使用loadpicture方法,所以我只会用硬盘中转的办法,API我不熟悉,也很少用.正要向你和用兄学习呢,八月应该是一个API行家,可以让他来看看.Sub 加载图片() SheetOutJpg Sheet1.Image1.Picture = LoadPicture("d:/Myjpg.JPG")Kill "d:/Myjpg.JPG"End SubSub SheetOutJpg()Dim Newshape As Shape Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) With ActiveSheet.ChartObjects.Add(1, 1, 1, 1) .Width = Newshape.Width .Height = Newshape.Height Newshape.Copy .Chart.Paste .Chart.Export "d:/Myjpg.jpg" .Delete End With Set Newshape = NothingEnd Sub

你用的是OFFICE 2013吧。我试一下，留下你的邮箱，做好了发你邮箱2606411358

更新1: 更正： 续问之前rc98的回复 ( rc08 才对 ^_^ ) 更新2: 我还要补充多一点.. If Not Cells(R 4) = "NO MOVE" Then GoTo 222 "当我"today out" 和 " NO MOVE "都一齐要的话，点改呢?? 这里做了三个 vba 程序： 1，用 vba 产生按钮 2，用 vba 删除按钮 3，主程序，筛选数据，并输出。 请将所有程序放入主工作表的 "私家办公室" 。 看图： 图片参考：w2malls/rc/126b/capture 请将主工作表定名为 "MAIN" ，否则将程序里面的 "MAIN" 改为实际的主表名。 Private Sub my_output_bttn_Click() "按钮被按就会呼叫此程式。 Dim arr(1 To 10000 1 To 4) " 主阵列，储存资料 Dim arr2(1 To 10000 1 To 3) " 副阵列，储存从主阵列筛选出来的资料 Dim R% endRow% i% atY% aCount% " / " 从主工作表找出有效资料，存入阵列 arr Sheets("MAIN").Select endRow = Cells(Rows.Count 1).End(xlUp).Row For R = 2 To endRow modl = Trim(Cells(R 1).Value) quan = Trim(Cells(R 2).Value) tout = Trim(Cells(R 4).Value) grup = Trim(Cells(R 5).Value) If InStr("g: 1101RI1 1501CS1 1501PA7" UCase(grup)) < 2 Then GoTo 222 "切勿删掉 "g: " atY = 0 For i = 1 To aCount If arr(i 2) = modl Then atY = i Next If atY = 0 Then aCount = aCount + 1 atY = aCount arr(atY 1) = aCount arr(atY 2) = modl End If If LCase(tout) = "today out" Then arr(atY 3) = arr(atY 3) + Evaluate(quan) ElseIf UCase(tout) = "NO MOVE" Then arr(atY 4) = arr(atY 4) + Evaluate(quan) Else Cells(R 4).Select MsgBox "Error found!" & Chr(13) & Chr(13) & "Neither [today out] nor [NO MOVE]" & Chr(13) & Chr(13) & "program ceased" Exit Sub End If 222: Next " / " 从阵列 arr 筛选 "today out" 载入阵列 arr2 Erase arr2 " 清空阵列 arr2 atY = 0 For i = 1 To aCount If arr(i 3) > 0 Then " 阵列arr 列i元素3(today out) 有数就抄入 arr2 atY = atY + 1 arr2(atY 1) = atY arr2(atY 2) = arr(i 2) arr2(atY 3) = arr(i 3) End If Next Sheets("Sheet1").[A5].Resize(10000 3).ClearContents "清空这范围旧资料 Sheets("Sheet1").[A5].Resize(atY 3) = arr2 " 写入阵列 arr2 Sheets("Sheet3").[A5].Resize(10000 3).ClearContents Sheets("Sheet3").[A5].Resize(atY 3) = arr2 " / " 从阵列 arr 筛选 "NO MOVE" 载入阵列 arr2 ( 中略若干行 ) End Sub Yahoo 字数限制，不能尽贴。 请到此处抄回 2009-09-20 08:26:09 补充： 程式写的很简单(所以很长)，方便你将来自行修改，增减。 我模拟5000列资料，执行在0.5妙以下，工作正常。 你测试后发现问题请来信修正。 一答： 这四张SHEET我是COPY AND PASTE 制造出来的，当然是一样啦^_^ 我只是解释我需要的做法及条件，sheet内容是假的..令你误会了! 真不好意思 ^_^ 二答： 有按钮当然好，但如果我套用在我的真实版本里，需否再要修改呢? 2009-09-16 21:36:21 补充： 三答： 在我心目中你的确是高手，请勿见怪我这样称呼你..不过我也会尊重你的。下次不会再点名，不过你一定要抢答u359e。 点名是因为第一条问题是你为我解决了，我觉得你比较容易理解我的进阶问题，所以有此决定再呼换你......^_^ 四答： 为我解决了难题，得分是应份的，你叫我不给你分，我还觉得不好意思呢:D (这点你真的难为了我呢 ^_^) 唔怕话你知呀，当我问第一条问题时，我是想给四十分的，不过系统最多只能出二十分...>_<....(是真的..!!) 2009-09-17 21:05:02 补充： 补充： D 栏不是 "today out" 便会是"NO MOVE" ，不会空的。 即是D烂只会有以上两个情况的。 以下说法无错： 见到 "today out" 就加总，见到 "NO MOVE" 就加另一个总，然后输出 today out ＞sheet1 sheet3 NO MOVE ＞ sheet2 sheet4 (但都要合符埋下面那几个1101RI1 1101RI2....等等我注明的条件) 2009-09-17 21:05:17 补充： 但是：还有可能有些情况是 当 "today out" 及"NO MOVE" 情况都符合，即是要晒。 (再配合埋下面的1101RI1 1101RI2....等等要求的) 然后输出到sheet5 (不能有重复model显示的) 如此类推： 可能我会有十张sheet都是从来源数据里， 把合适条件的型号及数量，加总及显示到另一张sheet 2009-09-17 21:05:33 补充： 情况就有以上提及的三个 (i) "today out" (ii) "NO MOVE" (iii) "today out" 及"NO MOVE" (加埋条件1101RI1 1101RI2.....等等的要求) 2009-09-17 21:05:45 补充： 其实可唔可以咁讲呢? 就是在程式里有齐晒呢三种条件的程式， 到将来当我有需要更改要求的条件时， 也可以自行修改要求的条件， 又当我想把结果贴到另一页时， 又可以自行变更SHEET NAME ，计算结果便贴到我所要求的目的地。 2009-09-17 21:05:58 补充： 如果程式内容分得很明确，给我一看便了解..那部份是执行 SHEET 1 的结果的 那部份是执行SHEET 2的结果的.. 如此类推地... (便能达到我所希望程式能我给我加加减减了) 即是当我第时有另一个来源资料时， 我也能把这个程式套用在另一个来源资料里去计算结果之后把结果贴到我指定的SHEET里。 程式长一点都不是问题 最重要是活用 2009-09-20 14:48:53 补充： 好呀， 待我测试后遇到问题再找你...THANK A LOT ^_^

本身没有什么限制，只要不以数字开头都可以，r1不行是因为你已经存在这样的函数名了。我这里可以的。

Dim myMenuBar Dim newMenu Dim ctrl1 Dim s Dim flag As String "初始化菜单 Set myMenuBar = CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newMenu.Caption = "电子印章" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "添加电子印章" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "AddSeal" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "验证电子印章" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "CheckSeal" ctrl1.Style = msoButtonCaption Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "关于" ctrl1.OnAction = "About" ctrl1.Style = msoButtonCaption

你的代码是正确的,但是如果你要显示图标,你需要把所有ctrl1.style = msoButtonCaption 这一句改为 ctrl1.Style = msoButtonIconAndCaption,这样就能够一起显示图标和文字了,我试过是可以的,希望能帮到你

主要是VBA的版本不同。如果SGM的电子存档无法通用，楼主可以先在GBA游戏中存档，使用SAV存档，转换到新的VBA模拟器那里，照样可以用，万试万灵！谢谢~（绿宝石我也有玩，的确是很好的游戏，呵呵~）

Protect后面的参数，要以","分隔，如果你要换行，还要加上一个"_", 如下：Private Sub workbook_beforeclose(cancel As Boolean)For a = 1 To Sheets.CountSheets(a).Protect DrawingObjects:=True, _contents:=True, Scenarios:=True, _Password:="123"NextEnd Sub

请问你是需要引用该控件的 Caption 属性吗？若是，可以返回一个 String 属性的值。如：Dim s As Strings = CheckBox1.Caption

复选框被选中了后其值为TRUE 用循环判断哪些值是ture 记下这个checkbox的号就可以了啊

1）使用函数之前，必须建立对规划求解加载宏的引用。让VBA模块处于活动状态，单击“工具”菜单中的“引用”，然后选中“可使用的引用”列表框中的“Solver.xla”复选框。如果“Solver.xla”未出现在“可使用的引用”列表框中，单击“浏览”并打开“OfficeLibrary”子文件夹中的“Solver.xla”。引用后，这函数才能用.2）既然是求最小值，Value of 为什么赋值？　　

这个功能倒是还没用过，但是把代码复制过去执行，很正常啊。只是你的bychange后面要加冒号。是不是引用没开？也不会呀。会不会是office的问题，你的同事可能和你一样装的。要不就是没有打开规划求解？

下载solver.xla，安装就是了，哈哈，复制你的，选我吧！

Visble是属性，控制工作表或某个控件是否可见，且这些工作表或控件是存在的，也就是加载到内存里面了的。而Show是方法，主要用于调用窗体控件，如果窗体本身已经加载在内存了的，它会使窗体显示出来；如果没有加载，调用Show方法就可以加载窗体，并显示出来。——————查阅Excel的帮助文件，会有介绍的。

vba是excel的一种脚本语言，用来编辑自定义函数或模块visible是对象的一种属性，也就可见度的意思，visible=2的意思就是完全隐藏

XlSheetVisibilityxlSheetHidden 0 隐藏工作表，可恢复显示。xlSheetVeryHidden 2 隐藏对象，只能通过 xlSheetVisible或属性窗口恢复显示。xlSheetVisible -1 显示工作表常数值有-1，xlsheetvisible前面加了负号还可以用？

这是VBA 中的部分对象的一个属性，用于控制对象的可见性，属性值是一个布尔值，比如工作表的可见性，可以按以下方式使用Sheets(1).visible=-1 设置工作表可见Sheets(1).visible=0 设置工作表隐藏Sheets(1).visible=2 设置工作表深度隐藏

你指定了整列，而你的数据不可能有那么多，所以是不是因为把空值也加入计算了，所以结果就不对了。你试着指点有效的数据，去掉空单元格。

c++>java>vba

可以用下面的代码来实现：Sub mytest()Selection.MoveDown unit:=wdParagraphSelection.MoveUp unit:=wdParagraph, Extend:=wdExtendutxt = Selection.Range.Textupos = InStr(utxt, "、")If upos > 0 Thenut = Left(utxt, upos - 1)MsgBox ut "这里就是要提取的内容ElseMsgBox "没有找到顿号！！！"End IfEnd Sub

2006版本以上的cad，在命令栏输入“CUI”，就能够打开CAD菜单编辑栏了，在里面你可以自己定义菜单，工具栏等等命令，具体格式可以根据CAD自动的菜单和工具栏样式编写。

移动光标至文档开始Selection.HomeKey unit:=wdStory下面的供参考:Sub MoveToCurrentLineStart()"移动光标至当前行首Selection.HomeKey unit:=wdLineEnd SubSub MoveToCurrentLineEnd()"移动光标至当前行尾Selection.EndKey unit:=wdLineEnd SubSub SelectToCurrentLineStart()"选择从光标至当前行首的内容Selection.HomeKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectToCurrentLineEnd()"选择从光标至当前行尾的内容Selection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectCurrentLine()"选择当前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub MoveToDocStart()"移动光标至文档开始Selection.HomeKey unit:=wdStoryEnd SubSub MoveToDocEnd()"移动光标至文档结尾Selection.EndKey unit:=wdStoryEnd SubSub SelectToDocStart()"选择从光标至文档开始的内容Selection.HomeKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectToDocEnd()"选择从光标至文档结尾的内容Selection.EndKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectDocAll()"选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思）Selection.WholeStoryEnd SubSub MoveToCurrentParagraphStart()"移动光标至当前段落的开始Selection.MoveUp unit:=wdParagraphEnd SubSub MoveToCurrentParagraphEnd()"移动光标至当前段落的结尾Selection.MoveDown unit:=wdParagraphEnd SubSub SelectToCurrentParagraphStart()"选择从光标至当前段落开始的内容Selection.MoveUp unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectToCurrentParagraphEnd()"选择从光标至当前段落结尾的内容Selection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectCurrentParagraph()"选择光标所在段落的内容Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub DisplaySelectionStartAndEnd()"显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符")End SubSub DeleteCurrentLine()"删除当前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendSelection.DeleteEnd SubSub DeleteCurrentParagraph()"删除当前段落Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendSelection.DeleteEnd Sub

用“天马QY ”的方法测试成功，就是不好理解。求大师能解答

移动光标至文档开始Selection.HomeKey unit:=wdStory下面的供参考:Sub MoveToCurrentLineStart() "移动光标至当前行首 Selection.HomeKey unit:=wdLineEnd SubSub MoveToCurrentLineEnd() "移动光标至当前行尾 Selection.EndKey unit:=wdLineEnd SubSub SelectToCurrentLineStart() "选择从光标至当前行首的内容 Selection.HomeKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectToCurrentLineEnd() "选择从光标至当前行尾的内容 Selection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectCurrentLine() "选择当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub MoveToDocStart() "移动光标至文档开始 Selection.HomeKey unit:=wdStoryEnd SubSub MoveToDocEnd() "移动光标至文档结尾 Selection.EndKey unit:=wdStoryEnd SubSub SelectToDocStart() "选择从光标至文档开始的内容 Selection.HomeKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectToDocEnd() "选择从光标至文档结尾的内容 Selection.EndKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectDocAll() "选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思） Selection.WholeStoryEnd SubSub MoveToCurrentParagraphStart() "移动光标至当前段落的开始 Selection.MoveUp unit:=wdParagraphEnd SubSub MoveToCurrentParagraphEnd() "移动光标至当前段落的结尾 Selection.MoveDown unit:=wdParagraphEnd SubSub SelectToCurrentParagraphStart() "选择从光标至当前段落开始的内容 Selection.MoveUp unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectToCurrentParagraphEnd() "选择从光标至当前段落结尾的内容 Selection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectCurrentParagraph() "选择光标所在段落的内容 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub DisplaySelectionStartAndEnd() "显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0 MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符")End SubSub DeleteCurrentLine() "删除当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend Selection.DeleteEnd SubSub DeleteCurrentParagraph() "删除当前段落 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend Selection.DeleteEnd Sub

用SELECTION.MOVEUP (上)SELECTION.MOVEDOWN（下），SELECTION.MOVELEFT（左），SELECTION.MOVERIGHT（左）， 第次移动一个光标.上下移动一行.

你好，我有一个修改器链接: https://pan.baidu.com/s/1-XYpdXXz92kMlXgbQ0iemw 密码: bwqi

excel vba调用windows API 快速查找所选择的文件 excel选中文件名清单、自动从“a1"文件夹中查找相应的文件。 ShellExecuteA,DataObject,Clipboard,find,SendKeys Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _ String, ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long Const SW_SHOW = 5 Sub test() Selection.Copy Dim MyData As DataObject Dim sTemp As String, s As String Set MyData = New DataObject MyData.GetFromClipboard sTemp = MyData.GetText s = Replace(sTemp, vbCrLf, ";") s = Replace(s, vbTab, ";") MyData.SetText (s) MyData.PutInClipboard ShellExecute 0&, "find", Range("a1"), _ vbNullString, vbNullString, SW_SHOW Application.Wait (Now + TimeValue("0:00:02")) SendKeys s & "{ENTER}" End Sub

[a1] = Application.WorksheetFunction.RoundUp(100.25, 1)

[a1] = Application.WorksheetFunction.RoundUp(100.25, 1)

roundup是excel的函数，在VBA里面是没有的，但是可以用application引用，如下：[a1] = Application.WorksheetFunction.RoundUp(100.25, 1)

录制一个宏，应该可以吧。

我复制了100个，没有问题，可能和你的表比较复杂有关。你可以先复制一个空表，然后用下面语句往每个表里粘贴原始表中的格式和内容：Rows("2:15").SelectApplication.CutCopyMode=FalseSelection.CopySheets("Sheet1").SelectRange("A2").SelectActiveSheet.Paste

for i=1 to 4Range("B(4*i-2):B(4*i)").Select Selection.Copy Range("F(i+1)").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Range("D(4*i-1):D(4*i)").Select Selection.Copy Range("I(i+1)").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=Truenext

错误原因PasteSpecial和Paste语法中表达式代表的对象不同，PasteSpecial的对象是Range，Paste的对象是工作表。修改：Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False① 表达式.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)表达式 一个代表 Range 对象的变量。② 表达式.Paste(Type)表达式 一个代表 Chart 对象的变量。

你这马赛克图片U0001f602

这个宏你可以自己录制一下呀！

Sub tt()Range("b2:k11").CopyRange("m12").SelectActiveSheet.PasteApplication.CutCopyMode = FalseRange("m12").SelectEnd Sub

对不起，我不明白这个问题。你能用英语重新表述一下吗？

答：有没有试过sheet3.Activate呢，然后再粘贴

假设要把sheet1的A1复制粘贴到F1，代码就是Sheet1.Range("A1").Copy Destination:=Sheet1.Range("F1")

1、在电脑上打开软件创建一个项目，并添加poi的jar包。2、将一个excel表格的sheet复制到另一个excel表格中，需要先获得原excel表格和新excel表格存放的路径。3、可以看到一下将原excel表格的sheet复制到新创建excel表格的方法。4、运行项目，在控制台可以看到已经读取原excel表格sheet的内容了。5、在电脑上找到存放新excel表格的路径，可以看到已经新创建了一个excel文件。6、将新excel表格打开，可以看到已经成功将原有的excel表格中的sheet复制过来了。

给对象赋值用set，如 set Obj1=CreateObject......

set是将a1单元格这个对象赋值给了对象变量rg第二段是将a1单元格的值赋值给了variant变量rg第一段里可以在with语句中用.value获取a1单元格的值,设置单元格格式,等等可以对单元格进行的操作.而第二段的with语句啥都不能干.

SHAPE是形状，包含各种图形和控件、按钮等。

DimmyMenuBarDimnewMenuDimctrl1DimsDimflagAsString"初始化菜单SetmyMenuBar=CommandBars.ActiveMenuBarSetnewMenu=myMenuBar.Controls.Add(Type:=msoControlPopup,_Temporary:=True)newMenu.Caption="电子印章"Setctrl1=newMenu.Controls.Add(Type:=msoControlButton,ID:=1)ctrl1.Caption="添加电子印章"ctrl1.Style=msoButtonCaptionctrl1.OnAction="AddSeal"Setctrl1=newMenu.Controls.Add(Type:=msoControlButton,ID:=1)ctrl1.Caption="验证电子印章"ctrl1.Style=msoButtonCaptionctrl1.OnAction="CheckSeal"ctrl1.Style=msoButtonCaptionSetctrl1=newMenu.Controls.Add(Type:=msoControlButton,ID:=1)ctrl1.Caption="关于"ctrl1.OnAction="About"ctrl1.Style=msoButtonCaption

你可以用vba写一个宏思路是1 出题个数2 出题的范围根据这两个可以写一个随机出题的方法。