|
Sub kkkkk()
Dim k As Integer
For k = 6 To 999
If InStr(Cells(k, 1), "엄마") Then
Cells(k, 3) = "●"
End If
Next kj
End Sub
Sub jjjj()
Dim j As Integer
For j = 6 To 999
If InStr(Cells(j, 2), "아빠") Then
Cells(j, 4) = "●"
End If
Next j
End Sub
워크시트2에 있는jjjj매크로 실행시켰다가
kkkkk가 있는 워크시트1에 적용될까봐
구분을 해야될거 같은데
kkkk 매크로를 워크시트1에만 적용하고
jjjj를 워크시트2에만 적용하도록 하려면 어떠케 해야 되나요??
==============[김진우님 글에 대한 답변입니다]==============
워크시트 오브젝트 객체을 선언해주고 작성하시면 됩니다.
Sub kkkkk()
Dim k As Integer
Dim shtX As Worksheet ' Worksheet Object 객체 선언
Set shtX = Worksheets("워크시트1")
For k = 6 To 999
If InStr(shtX.Cells(k, 1), "엄마") Then
shtX.Cells(k, 3) = "●"
End If
Next kj
End Sub
Sub jjjj()
Dim j As Integer
Dim shtX As Worksheet
Set shtX = Worksheets("워크시트2")
For j = 6 To 999
If InStr(shtX.Cells(j, 2), "아빠") Then
shtX.Cells(j, 4) = "●"
End If
Next j
End Sub
|
|