엑셀 매크로 VBA

Etc 2008.08.01 14:42 Posted by 파란크리스마스

Sub Macro1()
'
'  For row = 1 To 1000
'    For roworg = 1 To 1000
'      If CWorksheets("Sheet1").Cells(1, 7).Value
'    Next roworg
'  Next row


  For row = 1 To 1000
    If Cells(row, 2).Value <> "" Then
      If Trim(Cells(row, 2).Value) = Trim(Cells(row, 5).Value) Then
        Cells(row, 6).Value = "일치"
      Else
        If Cells(row, 5).Value <> "" Then
          Cells(row, 6).Value = "불일치"
        Else
          Cells(row, 6).Value = "-"
        End If
      End If
    Else
      Cells(row, 6).Value = ""
    End If
  Next row

End Sub



Sub Macro2()
'
  Dim aaa As Integer

  For i = 1 To 400
    For j = 1 To 400
      If Cells(i, 1).Value = Cells(j, 7).Value Then
        Cells(i, 4).Value = Cells(j, 7).Value
        Cells(i, 5).Value = Cells(j, 8).Value
        Cells(j, 9).Value = "O"
        Exit For
      End If
    Next j
   
    If Cells(i, 1).Value = "" Then
      aaa = i
      Exit For
    End If
  Next i


  For Row = 1 To 400
    If Cells(Row, 2).Value <> "" Then
      If Trim(Cells(Row, 2).Value) = Trim(Cells(Row, 5).Value) Then
        Cells(Row, 6).Value = "일치"
      Else
        If Cells(Row, 5).Value <> "" Then
          If Cells(Row, 5).Value = "1234567890" Then
            Cells(Row, 6).Value = "파일누락"
          Else
            Cells(Row, 6).Value = "불일치"
          End If
        Else
          Cells(Row, 6).Value = "파일누락"
        End If
      End If
    Else
      If Cells(Row, 5).Value <> "" Then
        Cells(Row, 6).Value = "목록누락"
      Else
        Cells(Row, 6).Value = ""
      End If
    End If
  Next Row
 
  For i = 1 To 400
    If Cells(i, 9).Value = "O" Then
    Else
      Cells(aaa, 4).Value = Cells(i, 7).Value
      Cells(aaa, 5).Value = Cells(i, 8).Value
      Cells(aaa, 6).Value = "목록누락"
      aaa = aaa + 1
      If Cells(i, 7).Value = "" Then
        Exit For
      End If
    End If
  Next i

End Sub

신고


 

티스토리 툴바