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

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

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

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

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^# 跳轉到 »

發表於 2015-4-16 10:20 | 只看該作者

回復 2# idnoidno
試試

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

複製代碼

中學生 Rank: 2

帖子: 52
主題: 12
精華: 0
積分: 63
點名: 0
作業系統: window
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-8-15
最後登錄: 2023-3-24

2^#

發表於 2015-4-15 23:26 | 只看該作者

資料如表格，計算某年某月的日平均量。
I2和J2填入後，自動搜尋數據(當然數據可以再逐筆增加)可以在K2得到 ...
idnoidno 發表於 2015-4-15 23:14

補上附件

YM-test1.rar (16.2 KB)

YY

靜思自在 : 人要知福、惜福、再造福。

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