- 博客(5)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 Excel VBA 打开超链接
VBA打开超链接文件超链接 Cells(x, y).Hyperlinks(1).Follow网址超链接 URL = Cells(x, y).Hyperlinks(1).AddressSet wshshell = CreateObject(“wscript.shell”)wshshell.Run hyper_link & URL
2021-05-12 11:15:52
2523
原创 Excel VBA一种使userform的右上角关闭按钮失效的方法
一种使userform的右上角关闭按钮失效的方法Private Sub UserForm_queryclose(cancel As Integer, closemode As Integer)If closemode = 0 Then cancel = TrueEnd Sub
2021-05-12 11:10:18
1650
原创 Excel VBA 设置等待时间
Excel VBA 设置等待时间Sub wait(t)Dim firsttime As Variantfirsttime = TimerDo Until Timer - firsttime > tDoEventsLoopEnd Subsub调用 wait(时间-单位毫秒)
2021-05-12 11:07:25
3540
原创 Excel VBA 一种解决sendkey “//~`_=+{}[]|\,.＜＞?/等特殊字符无法输入的方法
Excel VBA 一种解决sendkey “//~`_=+{}[]|,.<>?/等特殊字符无法输入的方法在这里我做了一个subSub repla(teshu)Dim s As Variant, i As Variants = Array("+", “^”, “%”, “~”, “(”, “)”)For Each i In steshu = replace(teshu, i, "{" & i & "}")NextEnd Subsub调用b = Sheet1.
2021-05-12 11:04:04
689
原创 VBA生成和为定值的随机数
VBA生成和为定值的随机数最近完成了一个VBA小程序，生成和为定值的一系列随机数在A1:D4区域生成随机数，每行的和等于E列的值首先我们需要引入第一个函数，计算A1:D4的和Application.Sum(Range(“A1:D1”))Range(“A1:D1”)是对单元格A1:D4的引用（也可以用[A1:D4]代替），可以表示值range().value，也可以表示单元格的宽和高等属性我们加入循环语句，条件为A1:D4的和是否等于E1Do Until Application.Sum(Ran
2020-12-27 19:12:32
1525
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人