作者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