lpk187

¦^´_ 2# idnoidno
¸Õ¸Õ

1. Sub finddate()
   
2. myrows = Worksheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row
   
3. ¤é´Á = [i2] & "/" & [j2]
   
4. For i = 2 To myrows
   
5.     If ¤é´Á = Format(Cells(i, "A"), "yyyy/mm") Then
   
6.         Cells(2, 12) = Cells(i, 2)
   
7.     End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 7# idnoidno

¤U¹Ï¬O§A¤W¶ÇªºÀɮרS­×§ï¹L¡A
¥i¥H¤ñ¹ï¦¨¥\
¸Ì­±§Ú¦h¤@­ÓÅܼÆ"AÄæÀx¦s®æ"¬OÆ[¹îÅܼƥΪº,¥i§R°£
   

¤U¸ü (90.91 KB)

2015-4-16 13:49

lpk187

¦^´_ 8# idnoidno


    ­Y¤£­n0X¤ë¡A¤]¥i¥H"yyyy/m"
´N·|¬O3¤ë¤F¤£·|¬O03¤ë¡A10¤ë¤]·|¬O10¤ë

lpk187

¦^´_ 8# idnoidno

Åý¥L¤ñ¹ï¦¨¥\«áµ²§ôµ{§ÇSub

1. Sub finddate()
   
2. myrows = Worksheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row
   
3. ¤é´Á = [i2] & "/" & [j2]
   
4. For i = 2 To myrows
   
5.     AÄæÀx¦s®æ = Format(Cells(i, "A"), "yyyy/m")
   
6.     If ¤é´Á = Format(Cells(i, "A"), "yyyy/m") Then
   
7.         Cells(2, 12) = Cells(i, 2)
   
8.         End '¥[³o­ÓEnd¤ñ¹ï¦¨¥\«á´Nµ²§ôµ{§Ç
   
9.     End If
   
10. Next
    
11. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 15# idnoidno


    For i = 2 To myrows
¦h¤F¤@­ÓS

lpk187

¦^´_ 15# idnoidno


    mydate = Worksheets("¤u§@ªí2").Cells(1.2) & "/" & Worksheets("¤u§@ªí2").Cells(2. 2)À³¸Ó³Ì " , "³rÂI

lpk187

¦^´_ 19# idnoidno
[A2]=Range("A2")=Cells(2,1),³o¤TºØ¼gªk³£¥i¥H

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("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row
   
7. mycolumn = Worksheets("¤u§@ªí1").Cells(1, Columns.Count).End(xlToLeft).Column
   
8. mydate = Worksheets("¤u§@ªí2").Cells(2, 1) & "/" & Worksheets("¤u§@ªí2").Cells(2, 2)
   
9. For i = 2 To myrow
   
10.     If mydate = Format(Worksheets("¤u§@ªí1").Cells(i, 1), "yyyy/m") Then
    
11.      For j = 4 To mycolumn + 2
    
12.         Worksheets("¤u§@ªí2").Cells(1, j) = Left(Worksheets("¤u§@ªí1").Cells(1, j - 2), 2) & "¤é¥­§¡¶q"
    
13.         Worksheets("¤u§@ªí2").Cells(2, j) = Format(Worksheets("¤u§@ªí1").Cells(i + 1, 1), "yyyy/m/d")
    
14.      Next
    
15.      End 'µ²§ôµ{§Ç
    
16.     End If
    
17. Next
    
18. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 20# lpk187

°õ¦æµ²ªG¦p¤U¡A¬O³o¼Ë¶Ü¡H
   

¤U¸ü (5.94 KB)

2015-4-16 21:25

°õ¦æ®Éµ½¥ÎF8³æ¦æ°õ¦æ¡A¶}±Ò°Ï°ìÅܼƵøµ¡¨ÓÆ[¹îÅܤƷ|§ó®e©öÁA¸Ñ¿ù¦b­þ¸Ì¡I
§â¤£ª¾¹Dªº­È¤Æ¦¨ÅܼƨÓÆ[¹î¨Ò¦p:AAA=Left(Worksheets("¤u§@ªí1").Cells(1, j - 2), 2) & "¤é¥­§¡¶q"