ppts.net
当前位置:首页>>关于EXCEL 初学VBA, 编个小程序;的资料>>

EXCEL 初学VBA, 编个小程序;

我也是初学者,相互学习 Sub test() Dim i%, j%, col% j = 0 col = 2 For i = 1 To 3 If Cells(2, col).Value >= 90 Then j = j + 1 End If col = col + 1 Next If j >= 2 Then Cells(2, 6) = 100 End If End Sub

Sub 木材统计() Dim i&, j&, k&, Sh As Worksheet, Shz As Worksheet Set Sh = Worksheets("木材统计") Set Shz = Worksheets("汇总结果") j = 8: k = 1 Do i = 2 Do While Sh.Cells(i, j) "" Shz.Cells(k, 1) = Sh.Cells(i, j) Shz.Cells(k, 2)...

你的描述太过简单,“汇总表的vba”5个关键字 不足以写出准确的汇总vba代码来 汇总的实现方法和汇总的类型有很多种 具体看你需要汇总的数据类型和需要, 并不是所有汇总都一个vba通吃的,这点希望你明白

做什么不好,偏要搞恶作剧

Sub 宏2() Dim Rng As Range, Sh As Worksheet, Wb As Workbook, i& Set Sh = Workbooks("目录.xlsx").Worksheets("目录") Set Wb = Workbooks("被建立链接的文件.xlsm") Wb.Activate For i = 2 To 6 Sh.Cells(i, 1).Resize(1, 7).Copy Workshee...

程序,即Excel中的VBA,有很多方法可以进入VBA设计界面 这里说一下一种比较傻瓜式的办法,适用于当获得一段代码直接使用的情况 详细步骤如下: 1.开发工具,录制宏 2.注意宏名,这里是Macrol,并点击确定 3.在任意单元格输入任意字符串,点击停...

数据不规范,需要说明如何判断一个数据的开始和结束。

按题号啊,题号唯一就可以了。查到题号之后按照题号的坐标offset就可以了

假设表名分别为SHEET1,SHEET2,SHEET3;如果更改了表名则,SHEET1需改为SHEETS("实际表名") sub fz() dim i,j,k j=1 i=1 do while sheet1.cells(i,6)"" k=1 do while sheet2.cells(k,5)"" if sheet1.cells(i,6)=sheet2.cells(k,5) then sheet3.r...

Sub 表格计算() Application.DisplayAlerts = False Dim fd As FileDialog Dim wb As Workbook With Application.FileDialog(msoFileDialogFilePicker) If .Show = -1 Then Dim vrtSelectedItem As Variant For Each vrtSelectedItem In .Select...

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