帖子: 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

樓主熱帖

idnoidno

中學生 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

TOP

idnoidno

中學生 Rank: 2

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

3^#

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

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

TOP

idnoidno

中學生 Rank: 2

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

4^#

發表於 2015-4-16 13:30 | 顯示全部帖子

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

TOP

idnoidno

中學生 Rank: 2

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

5^#

發表於 2015-4-16 13:37 | 顯示全部帖子

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

TOP

idnoidno

中學生 Rank: 2

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

6^#

發表於 2015-4-16 13:48 | 顯示全部帖子

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

TOP

idnoidno

中學生 Rank: 2

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

7^#

發表於 2015-4-16 14:52 | 顯示全部帖子

謝謝，真的是有問有答有學到

TOP

idnoidno

中學生 Rank: 2

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

8^#

發表於 2015-4-16 15:22 | 顯示全部帖子

再請益，以下的問題
欄位甲乙丙丁戊等等甚至隨時欄位可再增加時
計算符合日期(EX:2014/8)的"(當月抄表量-前一個月的抄表量)/日數"
把計算甲乙丙丁........的"(當月抄表量-前一個月的抄表量)/日數"計算結果寫到下一個工作表內
的解決方法
小弟正在想如何做，晚點會把初想法PO出
謝謝

TOP

idnoidno

中學生 Rank: 2

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

9^#

發表於 2015-4-16 20:07 | 顯示全部帖子

Sub caldata()
mysheet1 = Worksheets("工作表1")
mysheet2 = Worksheets("工作表2")
myrow = mysheet1.Cells(Rows.Count, 1).End(x1updown).Row
mycolumn = mysheet2.Cells(1, colunn.Count).End(x1tpleft).Column
mydate = mysheet2.Cells(1.2) & "/" & mysheets.Cells(2.2)
For i = 2 To myrows
If mydate = Format(Cells(1, "a"), "yyyy/m") Then
For j = 4 To mycolumn
mysheet2.cells(1.j)=left(mysheet1.cells(1,j-2),2) & "日平均量"
Next
End If
Next
End Sub

複製代碼

回復 13# idnoidno

有點問題
請大大指點
謝謝

TOP

idnoidno

中學生 Rank: 2

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

10^#

發表於 2015-4-16 20:22 | 顯示全部帖子

Sub caldata()
Dim myrow As Integer
Dim mycolumn As Integer
Dim i As Integer
Dim j As Integer
myrow = Worksheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
mycolumn = Worksheets("工作表1").Cells(1, Columns.Count).End(xlToLeft).Column
mydate = Worksheets("工作表2").Cells(1.2) & "/" & Worksheets("工作表2").Cells(2.2)
For i = 2 To myrows
If mydate = Format(Worksheets("工作表1").Cells(1, i), "yyyy/m") Then
For j = 4 To mycolumn
Worksheets("工作表2").Cells(1, j) = Left(Worksheets("工作表1").Cells(1, j - 2), 2) & "日平均量"
Worksheets("工作表2").Cells(2, j) = Worksheets("工作表1").Cells(1, i + 1)
Next
End If
Next
End Sub

複製代碼

前一個有錯
這一個請指正
謝謝

TOP