請指導VBA語法，謝謝 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請指導VBA語法，謝謝

返回列表下一主題上一主題發帖

[發問] 請指導VBA語法，謝謝

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2015-4-16 11:50 | 顯示全部帖子

回復 1# idnoidno
若你所謂的日平均指的是每個人的抄表數字
則可使用此程式碼,引用樓上大大的程式碼做增加

Sub finddate()
myrows = Worksheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
日期 = [i2] & "/" & [j2]
For i = 2 To myrows
If 日期 = Format(Cells(i, 1), "yyyy/mm") Then
temp = 0
For j = 2 To 7
temp = temp + Cells(i, j)
Next
[k2] = temp / 6
End If
Next
End Sub

複製代碼

PKKO

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題