[問題]有關excel vba的問題s
軟體: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)
→
06/09 23:26, , 1F
06/09 23:26, 1F
→
06/09 23:26, , 2F
06/09 23:26, 2F
→
06/09 23:26, , 3F
06/09 23:26, 3F
→
06/09 23:26, , 4F
06/09 23:26, 4F
→
06/09 23:26, , 5F
06/09 23:26, 5F