나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     조회:  940
제목:   [RE]특정 시트에만 vba 적용 방법 질문
     
  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

 
[불량 게시물 신고]  
김진우오 감사합니다10-12 (11:50)
삭제 ■신고
        
  

작성일 : 2018-10-12(09:09)
최종수정일 : 2018-10-12(09:09)
 


 ◎ 관련글

  제 목   작성자   날짜
특정 시트에만 vba 적용 방법 질문 김진우 2018-10-11
[RE]특정 시트에만 vba 적용 방법 질문 dew 2018-10-12