-
1指定行的最后非空列号:Range("IV1").End(xlToLeft).Column 这里面“IV1”是什么意思?谢谢
-
6
-
1Sub 宏1() Dim b As Integer For b = 3 To 100 Dim x As Integer x = Application.CountIf(Sheet1.Range("A:A"), Sheet2.Cells(b, 3)) Set mrg = Sheet1.Cells(2, 1) For y = 1 To x Set mrg = Sheet1.Range("A:A").Find(Sheet2.Cells(b, 3).Value, mrg) Dim t As Integer t = 3 + y Sheet2.Cells(b, t) = mrg.Offset(0, 1)(运行宏时显示左边代码错误91对象变量或with块变量未设置) Next y Next b End Sub
-
71
-
1哪位大佬有高斯坐标正反算的代码啊 求求求 很急 太难了 孩子真的写不出来😭😭😭
-
9
-
1
-
4
-
5
-
5
-
5谁有VB6的安装包啊,我想下一个(快考试啦)
-
1企微怎么后台定时发送信息
-
11
-
4
-
11
-
243鄙人花了大量心血做了一个远程控制,无论是否能让您满意,都希望你能喜欢吧~毕竟是楼主最后一个VB项目了。 二楼上图,三楼链接。
-
8
-
11:OLE嵌入EXCEL表格后,生成工程文件 2:生成工程文件后,可以打开EXCEL表格 3: 打开表格后,修改SHEET2的数据,如何保存,下次打开数据还在,现在输入,关闭后就消失了
-
1
-
2
-
6vb6 在excel中插入4张图片,总不在指定位置,总在一个固定位置上4张叠放。 xlSheet.Range("A8").Select xlSheet.Pictures.Insert("d:\2.jpg").Select xlSheet.Range("E8").Select xlSheet.Pictures.Insert("d:\3.jpg").Select xlSheet.Range("A10").Select xlSheet.Pictures.Insert("d:\4.jpg").Select xlSheet.Range("E10").Select xlSheet.Pictures.Insert("d:\5.jpg").Select 我是先选中单元格,再插入图片,但是并没有在指定单元格插入
-
4
-
0vb6 在excel中插入4张图片,总不在指定位置,总在一个固定位置上4张叠放。xlSheet.Range("A8").Select xlSheet.Pictures.Insert("d:\2.jpg").Select xlSheet.Range("E8").Select xlSheet.Pictures.Insert("d:\3.jpg").Select xlSheet.Range("A10").Select xlSheet.Pictures.Insert("d:\4.jpg").Select xlSheet.Range("E10").Select xlSheet.Pictures.Insert("d:\5.jpg").Select我是先选中单元格,再插入图片,但是并没有在指定单元格插入
-
4有没有人用vb做彩票统计软件的?
-
5Delphi吧转过来的,请大家多指点
-
0有几二万条记录 8字节名称+integer型数量+single型单价+40字节的备注 除了数据库,想自己创建一个文件格式存储。 请问可以怎么做?
-
23
-
8这是什么原理?不是说x>y>z 应该写成x>y and y>z吗?为什么,vb可以识别这个错误的表达式,好心人给讲讲呗
-
8
-
17
-
6一楼喂度娘
-
2写了个函数用于计算拉格朗日插值,5项以内可以准确表示,6-8项有较小误差,9项以上有很大误差 函数部分,我把多项式分为了系数,正负,x的指数三个部分,例如x^2-2x+3,我就表示为1,2,3_0,1,0_2,1,0。其中三部分中的各个第一项“1_0_2”意思是(-1)^0*1*x^2即多项式第一项的x^2,以此类推。然后多项式计算就变成了单纯的数学计算。 现在的问题是,如果数字过大,或者除不尽的情况,会导致误差增大,请问有什么办法可以避免或者减小误差吗
-
3想做一个显示天气的程序
-
10
-
6
-
4怎么让print过一会显示 先显示一段再显示下一段
-
3我想知道怎么让窗口一直弹出关不了,只能用任务管理器才能关掉,就是像那种坑人程序一直出现文字和按钮让你一直点
-
2
-
3就比如按下按钮时,在指定位置创建一个指定大小的image,并将image1中的图片复制进去 这个image最好可以用index来控制(打算每点击一次会在其下面再生成一个新的)
-
6Private Function getHTTPPage(URL, Cset) Dim http
-
1用vb来操作Excel表,做一个点名器,一共四个字段学号 小组 姓名 次数 要求点过一次就不可以再点 同时改变excel表中数据
-
3
-
1vb中窗体添加了Windows media player 控件,拷到一台新电脑,但是新电脑系统默认使用vlc media player,所以运行vb出错,后来卸载了vlc media player,发现电脑其实也是有Windows media player软件,但是软件点了没反应,后来卸载了一直重装失败。所以现在的结果是vb运行不了,想问一下,vb能使用其他media player 控件吗
-
10我用代码更改了MSFlexGrid单元格背景或文字颜色,想把它用代码再改成别的颜色时,还显示第一次更改的颜色,不知是什么原因,如何解决?谢谢! 同样,设置格式时也是一样,比如第一次用代码设成左对齐生效,下一次再想用代码设成右对齐,却还显示为左对齐。 尝试解决方法: 1、MSFlexGrid1的Redraw属性在设计时就选的TRUE,使用MSFlexGrid1.Redraw = True也还一样 2、用控件的 Refresh 方法试过了,还是一样。 请问大佬们,该怎么解决?感谢!
-
1
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!