ppts.net
当前位置:首页>>关于excel vba 来做一个心理测试的小程序的资料>>

excel vba 来做一个心理测试的小程序

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

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

我也是初学者,相互学习 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)...

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...

样表发 joy.008@163.com 注明VBA 可以的话就接

假设表名分别为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...

你的描述太过简单,“汇总表的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...

要用余弦定理求角度,至起码要知道另外两边的距离吧?没有距离如何算? 我不才,首先无法确定风速那个角的距离

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