§Ö³t¦X¨Ö¬Û¦PªºÄæ¦ì

198188

³B²z«e
20110113        1202
20110113        1202
20110113        1202
20110113        1401
20110113        1401
20110113        1401
20110113        1401
20110113        1401
20110113        1401
20110113        1401
20110113        2101
20110113        2101
20110113        2101
20110113        2101
20110113        2101
³B²z«á
20110103        1201,1202
20110105        1201
20110106        1201,1202,1401,2101,2201,2301,2601,2701
20110107        1201,1202
20110110        1201,1202
20110111        1201
20110112        1201
20110113        1201,1202,1401,2101


Private Sub cmdClear_Click()
    Sheet2.Cells.Clear
End Sub

Public Sub cmdCompareab_Click()
    Dim n As Integer 'Äæ¦ì¼Æ
    Dim count_a As Double  '¸ê®Æabªºµ§¼Æ
    Dim temp As String
    Dim my_range
   
   
    Sheet2.Activate
    count_a = Sheet2.Range("a1").End(xlDown).Row
    n = Sheet2.Range("a1").End(xlToRight).Column


    Sheet1.Activate
    m = Sheet1.Range("b3")  '¦X¨Ö²Äm­ÓÄæ¦ì
    a = 1
    b = 0
    c = Sheet1.Range("b2")
    calc_field1 = Sheet1.Range("b4")
    calc_field2 = Sheet1.Range("b5")
    is_sort = Sheet1.Range("b6")
    is_merger = Sheet1.Range("b7")
   
     symbol = Sheet1.Range("b1") '¦X¨Ö²Å¸¹
   
    If (UCase(is_sort) = "Y") Then
        Sheet2.Activate
        
    ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(count_a, n)).Sort Key1:=ActiveSheet.Cells(2, c), Order1:=xlAscending, Key2:=ActiveSheet.Cells( _
        2, m), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
    End If

    Sheet1.Activate
   
    Sheet3.Cells.Clear
   
   
   

    For j = 1 To n
        Sheet3.Cells(1, j) = Sheet2.Cells(1, j)
    Next