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

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

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

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

資料如表格，計算某年某月的日平均量。
I2和J2填入後，自動搜尋數據(當然數據可以再逐筆增加)可以在K2得到答案

Sub finddate()
myrows = Worksheets("工作表1").Cells(Rows.Count, 1).End(x1down).Row
For i = 2 To myrows
If Year(Cells(i, 1)) = Cells(2, 9).Value And Month(Cells(j, 1)) = Cells(2, 10).Value 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

高中生 Rank: 3 Rank: 3

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

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

複製代碼

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 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

中學生 Rank: 2

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

5^#

發表於 2015-4-16 11:53 | 只看該作者

收到，消化中，不過真的沒想到這樣可以處理喔，真的十分謝謝

中學生 Rank: 2

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

6^#

發表於 2015-4-16 13:30 | 只看該作者

請問樓上兩位大大
我TRY的結果
日期好像比對不出來耶
是不是我哪邊有狀況沒處理呢

中學生 Rank: 2

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

7^#

發表於 2015-4-16 13:37 | 只看該作者

我的意思是
日期 = Format(Cells(i, "A"), "yyyy/mm")
測試結果好像比對不出來

中學生 Rank: 2

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

8^#

發表於 2015-4-16 13:48 | 只看該作者

Format(Cells(i, "A"), "yyyy/mm")
運算出來是2014/03
日期是2014/3
所以比對不出來

高中生 Rank: 3 Rank: 3

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

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

9^#

發表於 2015-4-16 13:50 | 只看該作者

本帖最後由 lpk187 於 2015-4-16 13:52 編輯

回復 7# idnoidno

下圖是你上傳的檔案沒修改過，
可以比對成功
裡面我多一個變數"A欄儲存格"是觀察變數用的,可刪除

高中生 Rank: 3 Rank: 3

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

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

10^#

發表於 2015-4-16 13:55 | 只看該作者

本帖最後由 lpk187 於 2015-4-16 13:56 編輯

回復 8# idnoidno

若不要0X月，也可以"yyyy/m"
就會是3月了不會是03月，10月也會是10月

靜思自在 : 能幹不幹，不如苦幹實幹。

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