-
-
1通过VBA开发工具--插入切换按钮，双击后查看代码，把代码复制进去。B2单元格为合并的多个单元格。把人员信息放在sheet2第一列A2单元格，sheet2重命名为“名单”。sheet1的B2单元格滚动显示人员信息，M列为抽中的人员，通过对sheet2的B列添加数字1和排序，实现人员不会被重复抽中。程序使用的是随机函数，被抽中全是运气！下次使用时，记得把sheet2的B列的数字1清空。 Private Sub togglebutton1_click() Dim i As Integer, j As Integer, k As Integer, n As Integer i = 2 j = 2 n = Wor
-
3入职测试题 太难了 完全不会
-
00我想插入图片的同时，给图片赋值上超链接。这个要怎么写 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 =9VBA说
2018-11
【VBA经验谈】如何快速学习VBA?(附视频教程)1我们在招聘vba开发工程师，全兼都可，结算灵活。 要求 1.精通vb或vba开发语言。 2.有案例作品。 感兴趣的回复1 然后加v shishihou011office卸载也用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.Wo1x、y的结果明明是一样的，应该是执行else后面的语句才对，为什么总是执行then后面的，是我哪里有问题吗？求解，谢谢各位。0求助大佬系统:WIN10 office:2019 excel打开xlsm后缀的表格会把所有的宏删除，显示报错。 此外利用开发工具进入vba编辑框会有部分标题乱码，编辑框内部输入中文全问号。 在工具——选项中，编辑器那以页缺字，编辑器字体中无法更换字体，而且内部中文部分乱码。 下面放图：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 Next2扫头像有惊喜！2请教大佬们为什么这段代码运行无效？检测A列如果是“1625818003”则D列同一行对应格改为BE。 我是自学的菜鸟，请帮忙指正一下错误谢谢0纯萌新 公司的一个excel 有工作表保护 我想删了他 但改后缀行不通，并且重命名了这个文件就会显示我没有权限访问即使我知道密码 很好奇怎么弄的0020头像3左向
2020-10
Sub print5() ' ' print5 宏 ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub4各位大神，请教一下自己录制的宏为什么会看不到代码？是哪里出了问题吗？谢谢0Excel vba Excel 函数等资料 均在闲鱼有售，价格优惠 Excel VBA 程序开发自学宝典书籍配套学习视频，教材等资料齐全 疑难千寻千解 Excel 2010 VBA 编程与实践 相关视频也有 有需要闲鱼联系共 9 张3大家好！请问在窗体中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 Sub1下图的A列 是音标,我用的字体是 GWIPA。A列最后的两个单元格，有角标。当B列用=IF(ISNUMBER(FIND("E",A1)),A1,"")后，我能做到如B列的形式。但B列最后的两个单元格 就不显示成角标了。请问这个怎么能保留角标呢。2苏州魅品网络科技有限公司专注于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 显示）求解VBA说
3-17
0请问VBA中：的作用。比如UserForm1.Controls（btn2).Enable =True: Call Start 中：的作用是避免换行吗？1求助Vba程序加密的方法。一个excel文件，写了宏程序，想让其它人看不到程序源码，如何做？0如图，求大神帮忙看看，谢谢1我想实现一个功能， 就是当我点击查询的时候，显示所有数据，输入时间的时候显示时间段的数据，2跪求1大佬们问个问题，字典可以直接引用数组么 比如: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么？
