lmmp.net
当前位置:首页 >> 关于EXCEL vBA的一个很简单的问题 >>

关于EXCEL vBA的一个很简单的问题

应该是,你这段代码是放在worksheet下的,不是模块里的。 放在worksheet里Range其实指的是,thissheet.range而非activesheet.range 把代码改成 Public Sub fd()with activesheet M = .Range("A10000").End(xlUp).Row .Range("B1:B" & M).Copy .C...

很简单的,你只距成功差一点 Dim ma ma = Array(37, 11, 3, 0, 1, 5, 31, 10, 35, 16) MsgBox ma(0) 这样试试看!!!

我有这个,需要可以百度云联系(这里贴链接会被删除) 共314页,最后1页:

您好,代码改成这样 Sub CommandButton1_Click()Open "D:\new.txt" For Output As #1Print #1, Right(Sheets(1).Cells(1, 1).Value, 2)Close #1End Sub

亲,首先将你的统计文件和所有人的总结文件放在同一个文件夹中。 打开你的Excel统计文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“...

Dim arr(1 To 10, 1 To 100)是10行,100列的2维数组 行就是第一维,列是第二维。行的最大值是10,行和列的最小值都是1,所以第一维的最大索引号是10,第二维的最小索引号是1

京东价46.6 http://item.jd.com/11094550.html?cu=true&utm_source=baidu-search&utm_medium=cpc&utm_campaign=t_262767352_baidusearch&utm_term=3394102291_0_a46a71ca4e214454bd2ab512154abbdd 当当网电子书0,99 http://detail.dangdang.com/...

电子书没有,不过可以上EXCELHOME看看, 里面资料很多的,有个知识树板块,可以自学。 该书内容比较简单,有问题可以发上来,帮忙看看

定义一个开关变量,默认值为false,有匹配值后赋值true,循环结束后判断变量值,为fasle就执行其它条件。

Public Sub del() Dim arr arr = Sheets("sheet1").Cells(1, 1).CurrentRegion For i = 1 To UBound(arr, 1) If arr(i, UBound(arr, 2)) < 40 And arr(i, UBound(arr, 2)) > 0 Then Sheets("sheet1").Rows(i).Delete shift:=xlUp End If Next En...

网站首页 | 网站地图
All rights reserved Powered by www.lmmp.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com