-
-
8现在exel里已经有一个答题系统的成品了,需要追加一个倒计时的功能。 一次答题有30道选择题,每道题限时5s,5s没答记为错误然后自动切换下一题。 关键在于这里倒计时的同时允许在用户窗体上进行作答要怎么弄
-
2
-
4
-
2
-
9Option Compare Database Sub a() Set 路径 = CurrentDb.OpenRecordset("字根路径", 2) 路径.Edit Set 图 = 路径!图示.Value For oi = 1 To 路径.RecordCount If 路径![no-] Mod 1000 <> 0 Then 图.AddNew 图.Fields("FileData").LoadFromFile "D:\时时乱码\AssetsOf醚芪\" & 路径![地址] 路径.Update 路径.Close End If 路径.MoveNext Next End Sub 在图.AddNew 报对象无效。3420 求解!
-
1有没vba代码,自动登陆sap,下载文件并合并到excel文档内的,求大佬
-
12求助,有什么办法把数量排一起,金额排一起?
-
0
-
9设置vba事件,e4:e15是原价,f4:f15是折扣,g4:g15是折后价 判断1、检查g4:f15发生变化是手动更改,还是因为判断2引起的更改,如果是因为判断2引起的那么此次变化不处理,如果是手动更改的那么g4:g15=e4:e15*f4:f15,判断2、检查f4:f15发生变化是手动更改,还是因为判断1引起的更改,如果是因为判断1引起的那么此次变化不处理,如果是手动更改的那么那么f4:f15=g4:g15/e4:e15。
-
10Sub 打印28天报告1() Sheets("导入").Select a = Sheet1.Range("V12") b = Sheet1.Range("V13") Application.Workbooks.Open a Sheets("28天").Activate 'ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印水泥28天报告 ActiveWorkbook.Save ActiveWindow.Close End Sub
-
4
-
14
-
16
-
2
-
3
-
1
-
11想用VBA调用API函数,然后获取一张图片每个像素点的RGB值
-
6
-
3
-
7在一个共同题库中,随机抽取5道题,然后分别在5个label上显示,要求5次题目不能重复。下一个人再随机抽取五道题,也是要求不能重复,同时上一个人抽取过的题不能再次出现。一共有10个人 这个情况的话,到底是用抽取过的题移除还是给题库加一个标识符,抽过的标0,没抽过的标1。那种容易实现?又怎么实现啊? 求大佬指导!
-
7
-
11
-
4代码如下: Sub 显示成交() Dim t As Date Dim txtBox As Shape Dim txtbox1 As Shape Do t = Time ' 获取时间 ' 添加文本框 Set txtBox = ActiveSheet.Shapes.AddTextbox( _ msoTextOrientationHorizontal, _ Left:=1, Top:=1, Width:=370, Height:=170) ' 设置文本框的字体大小 txtBox.TextFrame2.TextRange.Font.Size = 48 ' 设置文本框背景颜色 txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160) txtBox.Fill.Visible = msoTrue ' 设置文本框字体加粗 txtBox.TextFrame2.TextRange.Font.Bold = msoTrue For i = 1 To Range("A1").End(xlDown).Row If Range(&quo
-
4
-
18这个lastr在2万左右。 主要是在第6列第3行单元格,插了个vlookup公式。 然后运行后就猛转圈,转了好久,有时候把表格卡无响应了。是不是写的有问题。
-
3
-
7
-
4
-
2excel 中power query,可以连接外部数据。 现在用vba可以实现自动刷新所有查询连接。 希望:用vba更新某一组中的查询连接 AI给了个方案,无法实现,哪位大侠指点一下,能实现吗,谢谢啦
-
7
-
2问题:一段代码运行后,d列呈现选中状态 目的:希望定位到a列非空单元格的下一行。 例如A列有数据100行,定位到A101这个空单元格,实现取消d列选中状态的目的 ------------------------------------------------------------------------ 用 Range("A1").Select可以运行,能实现需求 希望把[“A1”]替换为变量 Set nextRowCell = ws.Range("A" & lastRow + 1) 这个代码如何修改 --------------------------------------------------------------------------- AI提示【nextRowCell.Activate】【nextRowCell.Sele
-
5怎么将a列的重复值数量填写到b列,没有重复的b列就写1,重复的就在b列累加求和,并删除重复行
-
9
-
3
-
3下面是一段代码,复制工作表中最后一行公式,在下面粘贴5行。 引发 一个小问题,d列设置了条件格式,d1:d1000(1000是最后一行)。 复制粘贴了5行后,这5行单独应用了同一个范围d1001:d1005.前面的d1:d1000没有变。相当于两个独立的条件格式。 现在希望用vba达到效果:复制粘贴5行后,修改条件格式应用范围,将d列已经设定的(1-1000)和新复制的(1001-10005)统一为d1:d列最后一行 哪位大侠帮帮忙,谢谢 AI给出的代码,提示对象不支持该属性或方法
-
20
-
5有没有大佬帮忙修改一个程序,加一个密码解锁的功能,模块已经弄好,有偿帮忙,谢谢
-
6
-
6求注释以下代码,前面的看懂了,就是把数据放入字典,后面的是啥意思啊?只会简单的匹配小白。能解释通俗点。谢谢大神 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim arr Dim i Dim d As Object Dim Rng1 As Range arr = Worksheets("咖啡因数据源").Range("D1").CurrentRegion Set d = CreateObject("scripting.dictionary") For i = 2 To UBound(arr) d(arr(i, 2)) = arr(i, 3) Next i For Each Rng1 In Target If 网页链接 = 12 Then If d.exists(Rng1.Value) Then Rng1.Offset(0, 1).Value = d(Rng1.Value) El
-
6
-
0发附件,附件中或回帖中说明需求。附件可以上传至自己的网盘或其他办法,然后链接发给我