[VBA ] 求救!!想讓程式套用到其他欄位
第一次寫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
→
03/17 05:50, , 1F
03/17 05:50, 1F
→
03/17 05:51, , 2F
03/17 05:51, 2F
→
03/17 05:52, , 3F
03/17 05:52, 3F
→
03/17 05:52, , 4F
03/17 05:52, 4F
→
03/17 05:53, , 5F
03/17 05:53, 5F
→
03/17 05:53, , 6F
03/17 05:53, 6F
→
03/17 05:54, , 7F
03/17 05:54, 7F
→
03/17 14:50, , 8F
03/17 14:50, 8F
→
03/17 14:52, , 9F
03/17 14:52, 9F
→
03/17 14:53, , 10F
03/17 14:53, 10F
→
03/17 14:54, , 11F
03/17 14:54, 11F
→
03/17 17:25, , 12F
03/17 17:25, 12F
→
03/17 18:15, , 13F
03/17 18:15, 13F
→
03/17 18:16, , 14F
03/17 18:16, 14F
→
03/17 18:17, , 15F
03/17 18:17, 15F
→
03/17 18:19, , 16F
03/17 18:19, 16F
→
03/18 02:44, , 17F
03/18 02:44, 17F