作者bottle0130 (米米)
看板Office
標題[文件] 有關excel vba的find問題,請高手幫忙
時間Sun Jan 6 12:59:55 2008
軟體:excel
版本: XP版
因為我程式學的很差..想請問一下..我想讓s的值等於mysource時,
會回傳firstday和lastday並讓電腦自動到stockdate的i去找出相到於fistday和lastday的值
請各位高手幫忙...我該怎麼做?..謝謝
Dim c As Date
Dim Myran As Date
Dim i As Date
Dim b As Integer
Dim yy, mm, dd As Integer
Dim d As Integer
Dim j As Integer
Dim mySource As String
Dim yyyy As String, m As String
Dim mymon As String
c = Workbooks("return0.xls").Worksheets("stockdate").Range("C1")
b = Workbooks("return0.xls").Worksheets("stockdate").Range("C65536").End(xlUp).Row
Myran = Workbooks("return0.xls").Worksheets("stockdate").Range("C" & CStr(b))
d = Workbooks("return0.xls").Worksheets("fund").Cells(1, 256).End(xlToLeft).Columm
For j = 1 To d Step 2
mySource = Workbooks("return0.xls").Worksheets("fund").Cells(1, j)
Next j
yyyy = Mid(mySource, 1, 4)
m = Mid(mySource, 5, 2)
Season = yyyy & m
Debug.Print Season
For i = c To Myran
Next i
yy = Year(i)
mon = Month(i)
dd = Day(i)
s = Workbooks("return0.xls").Worksheets("lastdate").Range("A65536").End(xlUp).Row
For k = 2 To s
e = k - 1
mymon = Workbooks("return0.xls").Worksheets("lastdate").Range("a" & CStr(k))
Firstday = Workbooks("return0.xls").Worksheets("lastdate").Range("b" & CStr(e)) Lastday = Workbooks("return0.xls").Worksheets("lastdate").Range("b" & CStr(k))
Next k
End If
Debug.Print yy
Debug.Print mon
Debug.Print dd
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.225.152.156
※ 編輯: bottle0130 來自: 61.225.152.156 (01/06 13:12)
※ 編輯: bottle0130 來自: 61.225.152.156 (01/06 13:14)
1F：→ soyoso: 想讓s的值等於mysource的話，變數s要取得最後一筆有筆的列 06/09 23:26
2F：→ soyoso: 號要寫在For j = 1 To d Step 2上面，並在迴圈內判斷是否 06/09 23:26
3F：→ soyoso: 等於，等於回傳變數firstday和lastday，那列號方面就帶變 06/09 23:26
4F：→ soyoso: 數j，因為迴圈step 2而for k=2 to s沒有，所以j加1除2，就 06/09 23:26
5F：→ soyoso: 會是1,2,3... 06/09 23:26