lpk187

回復 8# idnoidno

讓他比對成功後結束程序Sub

1. Sub finddate()
   
2. myrows = Worksheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
   
3. 日期 = [i2] & "/" & [j2]
   
4. For i = 2 To myrows
   
5.     A欄儲存格 = Format(Cells(i, "A"), "yyyy/m")
   
6.     If 日期 = Format(Cells(i, "A"), "yyyy/m") Then
   
7.         Cells(2, 12) = Cells(i, 2)
   
8.         End '加這個End比對成功後就結束程序
   
9.     End If
   
10. Next
    
11. End Sub

複製代碼

idnoidno

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

idnoidno

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

idnoidno

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

複製代碼

回復 13# idnoidno

有點問題
請大大指點
謝謝

idnoidno

1. Sub caldata()
   
2. Dim myrow As Integer
   
3. Dim mycolumn As Integer
   
4. Dim i As Integer
   
5. Dim j As Integer
   
6. myrow = Worksheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
   
7. mycolumn = Worksheets("工作表1").Cells(1, Columns.Count).End(xlToLeft).Column
   
8. mydate = Worksheets("工作表2").Cells(1.2) & "/" & Worksheets("工作表2").Cells(2.2)
   
9. For i = 2 To myrows
   
10.     If mydate = Format(Worksheets("工作表1").Cells(1, i), "yyyy/m") Then
    
11.      For j = 4 To mycolumn
    
12.         Worksheets("工作表2").Cells(1, j) = Left(Worksheets("工作表1").Cells(1, j - 2), 2) & "日平均量"
    
13.         Worksheets("工作表2").Cells(2, j) = Worksheets("工作表1").Cells(1, i + 1)
    
14.      Next
    
15.     End If
    
16. Next
    
17. End Sub

複製代碼

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

lpk187

回復 15# idnoidno


    For i = 2 To myrows
多了一個S

lpk187

回復 15# idnoidno


    mydate = Worksheets("工作表2").Cells(1.2) & "/" & Worksheets("工作表2").Cells(2. 2)應該最 " , "逗點

idnoidno

請問
一、mydate = mysheet2.Cells(1,2) & "/" & mysheets.Cells(2,2)中，Cells(1,2)和[a2]會不一樣嗎
二、11~13好像沒辦法在工作表運算寫入要的文字

idnoidno

回復 18# idnoidno


    把檔案附上
請幫忙，謝謝

lpk187

回復 19# idnoidno
[A2]=Range("A2")=Cells(2,1),這三種寫法都可以

1. Sub caldata()
   
2. Dim myrow As Integer
   
3. Dim mycolumn As Integer
   
4. Dim i As Integer
   
5. Dim j As Integer
   
6. myrow = Worksheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
   
7. mycolumn = Worksheets("工作表1").Cells(1, Columns.Count).End(xlToLeft).Column
   
8. mydate = Worksheets("工作表2").Cells(2, 1) & "/" & Worksheets("工作表2").Cells(2, 2)
   
9. For i = 2 To myrow
   
10.     If mydate = Format(Worksheets("工作表1").Cells(i, 1), "yyyy/m") Then
    
11.      For j = 4 To mycolumn + 2
    
12.         Worksheets("工作表2").Cells(1, j) = Left(Worksheets("工作表1").Cells(1, j - 2), 2) & "日平均量"
    
13.         Worksheets("工作表2").Cells(2, j) = Format(Worksheets("工作表1").Cells(i + 1, 1), "yyyy/m/d")
    
14.      Next
    
15.      End '結束程序
    
16.     End If
    
17. Next
    
18. End Sub

複製代碼