-
-
0我想插入图片的同时,给图片赋值上超链接。这个要怎么写 Sub LoadImage() Dim HLK As Hyperlink, Rng As Range Dim i As Integer For i = 1 To Sheets.Count For Each HLK In Sheets(i).Hyperlinks '循环活动工作表中的各个超链接 If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HLK.Address) Like "*.PNG" Or UCase(HLK.Address) Like "*.GIF" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断) Set Rng =
-
9【VBA经验谈】如何快速学习VBA?(附视频教程)
-
1我们在招聘vba开发工程师,全兼都可,结算灵活。 要求 1.精通vb或vba开发语言。 2.有案例作品。 感兴趣的回复1 然后加v shishihou01
-
2
-
1
-
0Function filladata(drid As Integer, prid As Integer, pcid As Integer, krs As Integer, kcs As Integer) rid = 1 For i = prid To prid + krs - 1 If rid < 3 Then ThisWorkbook.Worksheets("print").Cells(i, pcid) = ThisWorkbook.Worksheets("data").Cells(drid, rid) ElseIf rid = 3 Then ThisWorkbook.Worksheets("print").Cells(i, pcid + 1) = ThisWorkbook.Worksheets("data").Cells(drid, rid) ElseIf rid = 4 Then ThisWorkbook.Worksheets("print").Cells(i, pcid + 1) = ThisWorkbook.Worksheets("data").Cells(drid, rid) ElseIf rid = 5 Then ThisWorkbook.Wo
-
1
-
0
-
2MsgBox shuzu1(3) Cells(2, 2).Select For i = 0 To 30 Do j = Selection.Value Selection.Offset(1, 0).Select Loop Until j = shuzu1(i) Cells(i + 2, 11).Value = Cells(i + 2, 1).Value Next
-
2扫头像有惊喜!
-
2
-
0
-
002034各位大神,请教一下自己录制的宏为什么会看不到代码?是哪里出了问题吗?谢谢0电脑默认的打印机是打印标签的, excl表格打印需要指定另一个打印机 请问宏中怎么写代码 1、选择指定打印机2、竖向打印、A4 需要加在已经录制的宏里面 Sub test240() ' ' test240 宏 ' ' Columns("B:B").ColumnWidth = 28 Columns("C:C").ColumnWidth = 16 Cells.Replace What:= _ " 销售: 拆单: 财务: 生产: 仓储: ", Replacement:= _ "审核: 主管: 上03大家好!请问在窗体中Application.Run变量宏名怎么用? 我在窗体中写了如下代码,Application.Run 提示 运行错误‘1004’ ,call 则正常, Private Sub CommandButton1_Click() Dim S1, S2 S1 = "UserForm1.A" S2 = "A" Call A '正常 Application.Run S1 ‘提示错误 Application.Run S2 ‘提示错误 End Sub Sub A() MsgBox ("我是A") End Sub Sub B() MsgBox ("我是B") End Sub Sub C() MsgBox ("我是C") End Sub Sub D() MsgBox ("我是D") End Sub16需要教程的来领12苏州魅品网络科技有限公司专注于EXCEL VBA 开发,欢迎联系1请教EXCEL怎么直接导入标准财务报表,需要VBA编译吗?谢谢4a = InputBox("要显示进(退)步多少名的学生?", "名次变化选择", 50) cs = InputBox("这次是第几次考试", "考试次数选择", 2) For j = 3 To 8 Worksheets(j).Activate For i = 7 To 60 If Cells(i, 3 * cs + 2) - Cells(i, 3 * (cs - 1) + 2) > a Then Cells(i, 3 * cs + 2).Interior.Color = RGB(255, 0, 0) End If Next Next 在表格里有多次考试成绩,我希望把这次考试与上次考试名次相差多少名的加亮显示,a是选择名次的,可是这运行后背景颜色没有变。 为什么?是不是>a那不能3请问excel我设置了权限,有一个工作表不能修改,只能查看,我设置了保护,但是点击按钮查询数据库时候,也不能查询了,如何处理,这种情况,谢谢大家0Sub shishi() Range("a9") = Excel.Application.WorksheetFunction.Lookup(1, 0 / (Sheet1.Range("i2:i8") = Sheet1.Range("i2")), Sheet1.Range("c2:c8")) End Sub1编写一段 VBA 窗体程序,根据折扣计算出咖啡的折后价。(要求:咖啡的原价和折扣从文本 框获得,计算结果用 lable 显示)求解00请问VBA中:的作用。比如UserForm1.Controls(btn2).Enable =True: Call Start 中:的作用是避免换行吗?1求助Vba程序加密的方法。一个excel文件,写了宏程序,想让其它人看不到程序源码,如何做?0121大佬们问个问题,字典可以直接引用数组么 比如:dim arr as variant dim i as variant dim dc=createobject("scripting.dictionary") for i = 1to 6 arr(i)=i next i msgbox = (dc(arr(6))) 跳出信息框里会是6么?6精通excel各种功能,表格、函数、vba编程,PowerBI可视化处理302找了代码合并excel文件,但都会提示错误,有没有大神给改一下,用的2016版,想实现合并每个文件的第一个sheet Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\
![](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)