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

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

22^#

發表於 2015-4-16 22:35 | 只看該作者

本帖最後由 idnoidno 於 2015-4-16 22:37 編輯

回復 21# lpk187

剛剛做家事，所以離開
數據是要對應到的月份的(當月超表量減去上一個月的抄表量)除以天數
不是日期
所以我的計算式有點錯誤了

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

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

21^#

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

回復 20# lpk187

執行結果如下，是這樣嗎？

執行時善用F8單行執行，開啟區域變數視窗來觀察變化會更容易瞭解錯在哪裡！
把不知道的值化成變數來觀察例如:AAA=Left(Worksheets("工作表1").Cells(1, j - 2), 2) & "日平均量"

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

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

20^#

發表於 2015-4-16 21:23 | 只看該作者

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

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(2, 1) & "/" & Worksheets("工作表2").Cells(2, 2)
For i = 2 To myrow
If mydate = Format(Worksheets("工作表1").Cells(i, 1), "yyyy/m") Then
For j = 4 To mycolumn + 2
Worksheets("工作表2").Cells(1, j) = Left(Worksheets("工作表1").Cells(1, j - 2), 2) & "日平均量"
Worksheets("工作表2").Cells(2, j) = Format(Worksheets("工作表1").Cells(i + 1, 1), "yyyy/m/d")
Next
End '結束程序
End If
Next
End Sub

複製代碼

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

19^#

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

回復 18# idnoidno

把檔案附上
請幫忙，謝謝

YM-test.rar (24.67 KB)

YMTEST

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

18^#

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

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

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

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

17^#

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

回復 15# idnoidno

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

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

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

16^#

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

回復 15# idnoidno

For i = 2 To myrows
多了一個S

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

15^#

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

複製代碼

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

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

14^#

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

有點問題
請大大指點
謝謝