-
6excel中已知某行,求该行第n列单元格的数值
-
11FOR i=0 to 10 i每增加1那么在 0,1,0,-1,0,1,0,-1。。。里面循环怎么写代码呢?
-
51
-
236本来刚刚突发其想,想到了一个可以无限压缩的方法。就是一般我们压缩的文件都只能压缩一遍就不可以压缩了,但是你把一个压缩文件放到一个空的文件夹再
-
11如图 别人合并转发给我的聊天记录。我用电脑版微信打开后。我想把它复制到电脑粘贴板里。有什么方法可以做到?麻烦路过的大神帮帮忙 出出注意,有偿也可以商量。
-
8
-
5
-
14
-
14
-
9
-
3
-
7vb6.0精简迷你版,缺少组件,vb6.0企业版,试了各种方法,都安装不上,报错,所以问一下,有没有VB6.0企业版(免安装)的绿色压缩包,解压完就能直接用,又不至于缺少组件
-
4
-
2画一个有颜色的球,让它从某个高度落到地面上,然后再弹起,弹多高都行,别超过原来的高度,然后再落下,再弹起,别超过原来的高度,再落地上,并向右滚动一段距离。鼠鼠刚上VB课老师就讲了个制作按键让小球向右移动一点,就布置这么个做页,人都麻了,根本无从下手#VB#
-
907先前的提问帖现在已经有三十多页的回复了,不太方便大家提问以及快速收到回答。 故开此新楼作为提问帖。有问题都请放到这里。 请注意,此贴禁水。 ---贴吧极速版 For UWP
-
1
-
4如题,用line画出了一个立方体,我想用代码的方式给能看见的三个面着色,分别是红绿黄 谢谢各位了!
-
7
-
11怎么在窗体里面快速插入多个控件,并分布均匀
-
8打个比方,给用户一个版本为1.0的程序,我们更新为2.0时,在用户的程序上提示:新版本已更新!是否更新? 然后用户点击是,则更新为2.0版本,点击否,则继续使用1.0版本。求大佬指导!
-
1
-
24
-
8
-
6比如说我动态添加了一个文本框,怎么才能让它显示出滚动条?求大佬帮忙
-
6With ws lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '获取该工作表最后一行的行号 For I = 1 To lastRow '从第一行开始遍历每一行 If .Range("F" & I) = 0 And .Range("F" & I) <> "" Then (这儿报类型不匹配) '判断指定列(此处示例为F列)数值为0并且不为空 .Rows(I).Copy Destination:=newWs.Cells(newWs.Rows.Count, "A").End(xlUp).Offset(1) '将符合条件的行复制到新建工作表的下一行 End If Next I End With
-
36
-
5
-
9
-
6
-
41
-
10VB是最早的面向对象的语言之一,我用了多年VB,却没怎么掌握它面向对象的特点,什么封装、继承之类的。请教各位,从你们的经验,面向对象用处大吗?用的多吗?是你们选择VB的重要影响因素吗?
-
80vb6等其他软件终于可以完美支持h5网页了。
-
7
-
22
-
43
-
2
-
3VBA编辑邮件正文时,正文由自定义文本和粘贴的对应表格内容构成,粘贴表格内容时总是覆盖会掉文本信息,如何让表格粘贴在正文换行后。 Sub SendEmail() Dim objOL As Object ' Outlook Application object Dim objMail As Object ' Mail item object Set objOL = CreateObject("Outlook.Application") Set objMail = objOL.CreateItem(0) ' 创建新的电子邮件项目 '获取收件人邮箱地址 Dim subjectwords As String subjectwords = Sheets("main").Range("C7").Value '将"main"改为你所需的
-
2Shell "cmd.exe /c " & "net use Z: /delete " 想关闭网络映射驱动器,但是资源管理器打开的情况下,会提示: 用户打开了共享文件夹上的文件,继续此项操作会强制关闭文件 你确定要这样做吗[y/n]: 请问在不使用bat文件的情况下,仅仅修改上面的语句,可以默认回答 y强制执行吗?
-
1
-
11
-
3请问vb的400号错误怎么解决? 400 窗体已经显示,不能显示为模式窗体 有无高手遇到类似问题? 多谢~
-
13马上要考vb考试了现在基本都不会,怎么能迅速提分啊,有没有什么资料啥的,考试都题目就从模拟考试里出吗
-
9我是做机械设计的,用的软件是SOLIDWORKS,比如我的文件名是: M20125-外壳-20240125 我需要将文件名分成三部分, 代号:M20215 名称:外壳 版本号:20240125 下面是网上找的一些类似的程序,求好人看下,添几句代码 Dim swApp As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object Dim a As Integer Dim b As String Dim m As String Dim e As String Dim k As String Dim t As String Dim c As String Dim j As Integer Dim strmat As String Dim tempvalue As S
-
2wps打开两个表格文件,用wps自带的vb编辑器,获取Workbooks.Count,可以返回结果2。但是在vb6.0中,首先创建了Excel. Application 对象,然后用Application. Workbooks.open(xls文件)后再用其Count获取数据,只会显示为1。我猜是open方法只打开了一个文件所以才会显示为1。但是不用open方法打开文件,直接获取Count就是0。有什么方法可以获取到正确的工作簿数量吗?
-
8
-
1有偿求助,登陆器需要VB进行WIN10,11优化以及内置。红月3.8C客户端的登陆器需要VB进行兼容性优化以及内置挂机,有会的大神留言!!!
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!