作者cg30535 (下巴有点油)
看板Visual_Basic
标题[VBA ] 求救!!想让程式套用到其他栏位
时间Sat Mar 17 00:02:21 2012
第一次写VBA，整个大卡关
我现在有一个成绩登记表，要算学期总成绩，并进行分等
总成绩要登记在M排，其余的都是已知成绩(K L B E )
我成功算出第一个成绩(於M2)，想让他也能使用在其他栏位中(M3,M4...)
请问该如何写??
Sub test01()
Dim J,Q,Y,Z As Single
With Worksheets("成绩")
J=.Range("K2")*0.2
Q=.Range("L2")*0.2
Y=Application.Sum(Sheet.[B2:E2])
Y=Round(Y/4*0.6)
Z=J+Q+Y
.Range("M2").Value=Z
End With
End Sub
请帮帮我吧!我和同学都已经想破头了
感恩
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.240.58.205
1F：→ MOONRAKER:所有使用range()的地方改用cells() 03/17 05:50
2F：→ MOONRAKER:range("m2")改为cells(2, 13) 03/17 05:51
3F：→ MOONRAKER:sheet.[b2:e2]改为range(cells(2,2), cells(2,5)) 03/17 05:52
4F：→ MOONRAKER:接着把所有的2改成j 03/17 05:52
5F：→ MOONRAKER:外面用一层for j=2 to 50 ... next j包起来 03/17 05:53
6F：→ MOONRAKER:但是老实讲，以这个程式的内容完全不需要用VBA写 03/17 05:53
7F：→ MOONRAKER:直接在worksheet上写公式还比较简单好维护 03/17 05:54
8F：→ cg30535:我会直接在excel上用 这是作业＝＝" 03/17 14:50
9F：→ cg30535:因为我们惹到老师，所以他才出这作业 03/17 14:52
10F：→ cg30535:我们根本没讲过这些东西，上课就是把老师给的东西按表打完 03/17 14:53
11F：→ cg30535:而已 感谢 03/17 14:54
12F：→ MOONRAKER:……不错…你们老师真机车…… 03/17 17:25
13F：→ cg30535:是...请问阿如果要把算出来的数字进行分等，记录在格一排 03/17 18:15
14F：→ cg30535:(n排)请问是要怎麽表示?我手上的范例是If.Range("A"+Trim 03/17 18:16
15F：→ cg30535:(Str(i+1))).value<60 Then.Range("B"+Trim(Str(i+1))). 03/17 18:17
16F：→ cg30535:.Value="不及格" 请问可以以此依样画葫芦吗?? 03/17 18:19
17F：→ cg30535:我会了...哈 03/18 02:44