Hsieh

¦^´_ 19# am0251
x = Application.Match(ItemName, Sheet2.["A1", "A" & myRowCount], 0)
³o¬O¿ù»~»yªk¡A§ï¬°
x = Application.Match(ItemName, Sheet2.Rnage("A1:A" & myRowCount), 0)

¤é´Á¦b¤u§@ªí¤º³Qµø¬°Double¸ê®Æ«¬ºA
©Ò¥HÀ³«Å§i¬°
Dim ShipDate As Double
³o¼Ë§Aªºy­È¤~·|§äªº¨ì

Hsieh

¦^´_ 21# am0251
¬JµM¤w¸g«Å§i¦¨DOUBLE«¬ºA
ShipDate = Format(Calendar1.Value, "d-mmm-yy")
³o¼Ë¤SÂন¤F¦r¦ê¡A·íµM«¬ºA¤£²Å
ª½±µShipDate =Calendar1.Value
¥u°w¹ï»yªk¸ÑÄÀ¡A¨ä¥L¤£¤F¸Ñ§Aªº¥Øªº¬O¬Æ»ò?µLªkµ¹§A¥ô¦ó·N¨£

Hsieh

¦^´_ 23# am0251

1. Private Sub Start_Click()
   
2. Dim mydate#
   
3. mydate = Calendar1.Value
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. With Sheet1
   
6. sh = .[E1] '¤u§@ªí¦WºÙ
   
7. For Each a In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
   
8.    d(a.Value) = a.Offset(, 1).Value
   
9. Next
   
10. With Sheets(sh)
    
11.   k = Application.Match(mydate, .Rows(1), 0)
    
12.    If IsError(k) Then MsgBox "The day is not find!": Exit Sub
    
13.       For Each a In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    
14.          .Cells(a.Row, k) = d(a.Value)
    
15.       Next
    
16. End With
    
17. End With
    
18. Unload Me
    
19. MsgBox "Done"
    
20. End Sub

½Æ»s¥N½X

Hsieh

.Cells(a.Row, k) = .Cells(a.Row, k) +d(a.Value)