作者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