-
-
2901,简化公式,200个字变成10个字 有很多公式写的很长,看不懂很难维护,如果改成VBA代码,简化成一个超级函数,方便维护,还可以给多个工程共用,实现模块化开发 2,计算提速。有些vba运算很慢,需要几分钟到几小时,用好的方法,运行速度可以减到1分钟以内甚至10秒以内。 这2天做了一个3万个左右的订单表和产品销售统计的算法。 原来的主人,运行后就卡死了,后面按10个产品去查找订单,需要1秒左右,那3万个产品就要3000秒,差不多一个小时23111vb用什么控件显示韩文等UNICODE文字,richtextbox控件吗? 比如:(주)타조0主要是哪些功能 我想开发个工程管理器,DLL,OCX管理的,一键引用,不同版本DLL管理4我想写一个其功能类似于数组的Timer控件的类,定时执行任务;我这里摘抄了部分代码 请教怎么写才能实现类似于ListView那样的集合类。 子集里面给出地址就变成成员,不给地址就是方法这样的语句: 如: ListView1.ListItems.Add().... 子集不赋值给出Add /Clear/Remove等方法 ListView1.ListItems(1).Text = " " 子集赋值后可以更新属性。 我目前的代码 '窗体:frmMain-------------------- Option Explicit Private WithEvents Tsk As clsTask Private Sub cmdClose_Click() Tsk.TaskItem.Remove (1) End S1指定一个textbox文本框控件作为SQL的查询string时: dim sql as string sql=text1.text 在text1文本框输入以下内容 select * from 数据表名 where 中文字段名 like '%关键字%' and 日期字段名=cdate(date()+100) order by 字段名 desc 直接书写代码时: dim sql as string sql = "select * from 数据表名 where 日期字段=cdate('" & Date+100 & "') 另外可以使用datavalue替换cdate0我觉的最主要的还是格局,大方向对了,才不至于走歪路或花了大量时间,效果却不好。 工欲善其事,必先利其器。 像开发软件,有一个配置好一点的电脑,然后把各种模块,工程模板,源码都整理好,开发速度就快了。 如何才能开发大型软件,接大单,让时间都利用起来,利润最大化? 学习的时间,娱乐的时间,各种数据备份,查找等工作。 大家有什么经验可以说说看1我在picture容器中按时间顺序排放很多控件1000多个,由于picture容器的最大宽度限制放不下了,大家有没有其他好的办法。1比如 a="c:\abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd\a.txt b="c:\abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd\b.txt filecopy a,b 提示文件未找到,直接进DOS命令行也提示未找到。这种情况如何处理啊1text多行显示。将各行内容导到msflexgride1🀄️0Set dataExcel = CreateObject("excel.application") wj1path = "AAA.xls" If Dir(wj1path) <> "" Then Set WJ1 = dataExcel.Workbooks.Open(wj1path) End If 读出数据后,这个AAA.xls一直处于锁定状态,怎么释放呢? 用wj1.close 或wj1.quit 都不行呢06怎么用vb6做账号密码并登录呢?0文件链接:https://share.weiyun.com/EbADqUZh22定义a和b为Long b = text1,这个text1的内容不一定什么时候会变,这个已经写好了 需要解决的问题是: 要a等于上一秒的b,然后每秒进行比对,若a=b,则无操作,继续比对,若a不等于b,则弹TextBox 没学过编程,最近在研究一个小工具,求大佬指点!小弟先在这谢谢了!1开发10年的VB6工程,在运行时突然出现:未知的错误(713) 是什么原因? 重装VB6也不行。04dim a(0) redim a(1) 然后错误提示 数组维数已定义.... 我想做的是动态增加数组变量个数,该怎么做呢?比如说我想读取记录存入数组,但我不知道会有多少条记录,我想读到一条就增加一个数组变量1描述:我有两个485通讯查询需求,第一条指令“01 03 00 00 00 01 84 0A”,第二条“01 01 00 00 00 08 3D CC“ 发出第一条指令,接收到一串16进制数据,存到文本框“text1”,间隔1秒,然后发出第二条指令,接收到一串16进制数据,存到“text2”,间隔1秒再发第一条,覆盖到文本框“text1”,间隔1秒再发第二条,覆盖到文本框“text2”,如此一直重复, 用VB6的MSComm控件1各位大侠!请帮忙指导一下,我用VB6写了一个小工具,将300万条旧证件号转换成新证件号,不知道怎么原因运行超级慢,每更新一条记录估计要20秒左右,请帮忙看看是不是代码写错了,有没有更快捷的方法,谢谢! 系统配置:联系i5-7400,64位win10,12G内存,数据库为mysql8.0 代码如下: on.open "DRIVER={MySQL ODBC 8.0 Unicode Driver}......" cn.Cursorlocation=adUseClient rs.open "select count(客户编号) as nm from 客户信息表",cn k=rs.fields(0) '计算客户信息表中总客户0Dim XlsApp As Excel.Application Dim XlsBook As Excel.Workbook Dim XlsSheet As Excel.Worksheet Private Sub Form_Load() Set XlsApp = CreateObject("excel.application") XlsApp.Visible = True Set XlsBook = XlsApp.Workbooks.Add Set XlsSheet = XlsBook.Worksheets.ADD XlsSheet.Name = "01" Set XlsSheet = XlsBook.Worksheets.Add XlsSheet.Name = "02" End Sub 先添加的表在后面,后添加的表在前面,怎样才能让后添加的表在后面呢?13424下面是需要解析的XML,如何能将每一项的name及valueString的values值解析出来 <Parameters xmlns="http://hl7.org/fhir"> <parameter> <name value="code"/> <valueString value="0"/> </parameter> <parameter> <name value="message"/> <valueString value=""/> </parameter> <parameter> <name value="data"/> <resource> <Parameters> <parameter> <name value="virtualCardNum"/> <valueString value="1000001"/> </paramete40这是怎么回事?001老师您好 vb编程中续行符怎么敲不上去,续行实现不了。10为了写另一个工程就把原先的一个工程的一个bas文件拆成两个了,代码没变。没想到生成的exe是以前的2倍。以前700kb,现在1.6mb了。是不是代码一样,bas文件越多exe文件就越大?5都安装到最后一步了,结果他说 注册(中间是所安装位置的链接)失败 求大神
![](http://tb1.bdstatic.com/tb/cms/PC%E7%AB%AF%E5%BA%95%E9%83%A8%E9%80%9A%E6%A0%8F%E5%BC%B9%E5%B1%821000x120.png)
![](http://tb2.bdstatic.com/tb/img/icon_close_1683259.png)