-
-
4
-
3原代码是用窗格列出匹配项,手动选择自动填充的,我现在想要修改下。 求助大佬修改下代码,不胜感激! 如果没有选择候选窗格的内容,就清空输入值。 如果选择了候选窗格的内容,就把该内容填充到D列最后一个有内容的单元格的下一格位置,并且把该内容最后两个字的拼音首字母填充到E列对应位置。 填充内容后,检查D列的数值是否有超过6个字符相同,就弹出窗口列出有多少数值是超过6字符相同的。 网盘上有附件,里面有详细说明。求大佬
-
0[url]http://看了excel工具-》选项-》编辑器格式确实没有配置上。但是选宋体之后不生效。[/url]
-
0麻烦熟悉的大佬给看看。用api函数给frame控件背景弄成透明的,frame控件里的label控件上的字会跟着变透明吗?
-
0
-
6
-
2我做测试,需要通过GPIB连接测试器,另一台电脑上的excel里有一个VISA COM 1.0 library,但是自己的excel里面没有,这个可以手动添加嘛
-
2
-
0Excel里,J列下拉框选择“A”,则同一行的K~P列就会变成灰色的。百度出来的VBA代码都跑不了
-
8线上答疑,英语要好,985/211本科大三以上,研究生更好
-
8之前写的代码一直都运行好好的,今天突然运行很慢很慢,不知道是什么原因。期间把文件换了存储位置,其他也没有别的操作。谢谢高手指教
-
5
-
3有没vba代码,自动登陆sap,下载文件并合并到excel文档内的,求大佬
-
1为什么这个代码直接放进去跑不了? Private Sub WorksheetChange(ByVal Target As Range) Dim cell As Range ' 确保只在J列进行操作 If Not Intersect(Target, Me.Range("J:J")) Is Nothing Then 网页链接= False ' 关闭事件以避免无限循环 For Each cell In Intersect(Target, Me.Range("J:J")) If 网页链接= "A" Then ' 将K到P列的单元格设为灰色 Me.Range(cell.Offset(0, 1), cell.Offset(0, 6)).网页链接= RGB(192, 192, 192) ' 灰色 Else ' 将K到P列的单元格清除背景颜色
-
13求助,有什么办法把数量排一起,金额排一起?
-
8现在exel里已经有一个答题系统的成品了,需要追加一个倒计时的功能。 一次答题有30道选择题,每道题限时5s,5s没答记为错误然后自动切换下一题。 关键在于这里倒计时的同时允许在用户窗体上进行作答要怎么弄
-
6
-
13哪位大佬可以帮忙写一下或者接单的呀,自己录制的总是出错,而且总会有没用的代码出现
-
0VBA列表框里的数据怎么添加边框
-
2
-
2wps2019如何让自己写的代码能在任意一个工作簿的功能区(菜单栏)上运行
-
4
-
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 求解!
-
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给了个方案,无法实现,哪位大侠指点一下,能实现吗,谢谢啦