00问答网
所有问题
当前搜索:
excel vba 高手
ExcelVBA
宏有多强大看了这几个Excel功能就服了
答:
1、一次取消所有工作表的隐藏
Excel
可以一次隐藏多个工作表,但取消工作表隐藏却需要一个个的设置,用
VBA
编写一段代码,一秒完成!注意 要想使用VBA功能,需要把代码粘贴到添加的模块中,详见动画演示 要想保存VBA代码,需要把文件另存为xlsm格式文件,详见动画演示 动画演示:代码:Sub 取消隐藏()For x ...
Excel高手
,如何使用
VBA
来合并一个工作表里面的所有工作簿的指定行...
答:
运行主函数
Excels
_2_Sheet Sub deleteCells() Dim s Set s = ThisWorkbook.Sheets("Sheet1") s.Cells.Delete For Each shp In s.Shapes shp.Delete Next shp Set s = Nothing End Sub Sub Excels_2_Sheet() Dim FilesToOpen Dim x As Integer, b, ws, ar 'On Error GoTo ErrHandler...
EXCEL高手
如何用
VBA
实现10秒后关闭
答:
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElaspe As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" ( _ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Dim TID As Long ...
excel高手
请进-用
VBA
输入编号图片自动显示在
excel中
答:
Private Sub CommandButton5_Click() '单击命令按钮 Dim rng As Range, ML, MT, MW, MH, shp As Shape, n%, Myr&, i& On Error Resume Next Sheet1.Activate For Each shp In ActiveSheet.Shapes If shp.Type = msoAutoShape Then shp.Delete End If Next Myr = [a1].CurrentRegion.Row...
EXCEL高手
用
VBA
改写空格用逗号隔开
答:
其实只改写一句就可以了。Private Sub CommandButton1_Click() '输出 双色球红球 所有组合 到 txt Dim a, n, r, col, i, i1, i2, i3, i4, i5, i6, tmp r = 1 col = 2 i = 1 n = 10000 tmp = Application.WorksheetFunction.Combin(33, 6) Cells(1, ...
EXCEL高手
用
VBA
计算两个数的最大公约数用短除法
答:
Sub gcd() Dim a(), b() m = InputBox("输入第一个自然数") n = InputBox("输入第二个自然数") If m > n Then t = m m = n n = t End If ReDim a(1) a(1) = 2 k = 1 For i = 3 To m Step 2 If ss(i) Then k ...
EXCEL高手
用
VBA
统计A列字符个数
答:
Sub 按钮1_单击()Dim a%, c%, l For a = 1 To Application.CountA([a:a])Set b = Cells(a, 1)c = Len(b)l = l + c Next a Range("b1") = l End Sub 我用工作表函数做了,结果也为11550个字符,和
VBA
代码的结果完全相符。
EXCEL高手
用
VBA
画一个太极图案
答:
直接用条件格式就可以完成了,当然了,非要用
VBA
也行,就把条件格式直接写入代码中就是了。下面是我直接用条件格式画出的一张简单的图
EXCEL高手
用
VBA
单元格和数组求和再一次比较速度
答:
都是循环读数应该是数组快,但如果用内置函数 WorksheetFunction.Sum(Range("A1:A32000")),还是函数快。这是我测试得出的
EXCEL高手
用
VBA
如何算200以内输出所有素数
答:
Sub s() Dim ss%(), i% ReDim ss(0) ss(0) = 2 n = 0 For i = 3 To 200 Step 2 For j = 0 To n If i Mod ss(j) = 0 Then GoTo xxx Next n = n + 1 ReDim Preserve ss(n) ss(n) = ixxx: Next For i = 0 To n ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
excel vba实例教程
excel vba代码
excel vba常用实例
excel vba编程能干什么
excel vba有必要学吗
excel vba基础入门
excel的vba功能
excelvba实例800
vba打开excel文件