123
返回列表 上一主題 發帖

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

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
11# 跳轉到 »
發表於 2015-4-16 14:00 | 只看該作者
回復 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
複製代碼

TOP

idnoidno

帖子
52 
主題
12 
精華
0 
積分
63 
點名
0  
作業系統
window 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-8-15 
最後登錄
2023-3-24 
12#
發表於 2015-4-16 14:52 | 只看該作者
謝謝，真的是有問有答有學到

TOP

idnoidno

帖子
52 
主題
12 
精華
0 
積分
63 
點名
0  
作業系統
window 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-8-15 
最後登錄
2023-3-24 
13#
發表於 2015-4-16 15:22 | 只看該作者
再請益，以下的問題
欄位甲乙丙丁戊等等甚至隨時欄位可再增加時
計算符合日期(EX:2014/8)的"(當月抄表量-前一個月的抄表量)/日數"
把計算甲乙丙丁........的"(當月抄表量-前一個月的抄表量)/日數"計算結果寫到下一個工作表內
的解決方法
小弟正在想如何做，晚點會把初想法PO出
謝謝

TOP

idnoidno

帖子
52 
主題
12 
精華
0 
積分
63 
點名
0  
作業系統
window 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-8-15 
最後登錄
2023-3-24 
14#
發表於 2015-4-16 20:07 | 只看該作者
  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

有點問題
請大大指點
謝謝

TOP

idnoidno

帖子
52 
主題
12 
精華
0 
積分
63 
點名
0  
作業系統
window 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-8-15 
最後登錄
2023-3-24 
15#
發表於 2015-4-16 20:22 | 只看該作者
  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
複製代碼
前一個有錯
這一個請指正
謝謝

TOP

lpk187

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

TOP

lpk187

帖子
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)應該最 " , "逗點

TOP

idnoidno

帖子
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好像沒辦法在工作表運算寫入要的文字

TOP

idnoidno

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

TOP

lpk187

帖子
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),這三種寫法都可以
  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
複製代碼

TOP

        靜思自在 : 不怕事多，只怕多事。
123
返回列表 上一主題