이럴 때 필요해요

엑셀에 내장된 VBA엔진을 이용하여 더 다양한 프로그램을 구축하기위해 사용합니다.

이렇게 사용해요

?다음과 같은 표에서 원하는 사람의 필요한정보만 뽑아서 다른시트로 복사할때는 이식을 이용하면됩니다. 

위사진처럼 성명 셀을 누르고 

Sub Selection_Copy()

 Dim Sht As Worksheet

 Dim rngStsrt As Range

 Dim rngPosition As Variant

 Dim rngCopy As Variant

 Dim i As Integer

     Set Sht = Sheet3

     Set rngStsrt = Sht.Range("B65536").End(xlUp).Offset(1, 0)

    With rngStsrt

      rngPosition = Array(.Offset(0, 0), .Offset(0, 1), .Offset(0, 5), .Offset(0, 8))

     End With

    If Selection.Column <> 2 Or Selection.Row > 21 Then

      MsgBox "데이터의 선택을 잘못하셨습니다!    " & vbCr & vbCr & _

                  "확인후 다시 선택하시기 바랍니다.    ", 32, "선택오류// 김우수 "

      Exit Sub

    End If

      With Selection

       rngCopy = Array(Selection, Range(.Offset(0, 2), .Offset(0, 3)), Range(.Offset(0, 5), _

      .Offset(0, 6)), Range(.Offset(0, 7), .Offset(0, 8)))

       End With

     For i = 0 To UBound(rngCopy)

       rngCopy(i).Copy rngPosition(i)

      Next i

     Sht.Activate

      With ActiveWindow

       .ScrollRow = 1

       .ScrollColumn = 1

      End With

    MsgBox "필요한 부분만 복사하여 원하는 위치에 붙여넣기 작업을 완료하였습니다!   ", _

                  64, "CopyTest // 김우수 "

    Sheets("입원환자").Activate

      End Sub