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

 참서리 (k5953)

추천:  2
파일:     Left_4_Letters.xlsm (29.5KB) 조회:  1394
제목:   [RE]셀 입력시 불필요자료 삭제하는 방법 문의드립니다.
　 　 　
　 Private Sub Worksheet_Change(ByVal Target As Range)
 
    ' 행 번호, 열 번호
    Dim iR As Long: iR = Target.Row
    Dim iC As Long: iC = Target.Column
    
    ' 행이 2보다 크고 열이 C이고 개수가 1일때만
    If iR >= 2 And iC = 3 And Target.Cells.Count = 1 Then
        
        '이벤트를 멈추고
        Application.EnableEvents = False
        
        ' 앞뒤 공백 제거후 앞 4글자를 반환
        Target.Value = Left(Trim(Target.Value), 4)
        
        ' 이벤트 가동
        Application.EnableEvents = True
        
    End If

End Sub




'---------------------------
Sub left_4_string()
'---------------------------

   ' 대상 범위를 2D 배열로 만듦
    Dim varX As Variant: varX = [C2:C100].Value
    
    ' 각 배열을 돌며
    For i = 1 To UBound(varX, 1)
        ' 앞뒤 공백을 제거한 후 앞 4자를 다시 배열의 값으로 넣기
        varX(i, 1) = Left(Trim(varX(i, 1)), 4)
    Next i
    
    ' 해당 범위의 값으로 배열로 채움
     [C2:C100].Value = varX
    
End Sub


 		　
[불량 게시물 신고]  
참서리다음 YouTube 영상에 자세히 설명되어 있습니다.
https://youtu.be/o1WRT96jJdg		06-11 (00:21)
ⓧ삭제 ■신고
궁금감사합니다.06-11 (10:47)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-06-11(00:20)
최종수정일 : 2019-06-11(00:20)
　


 ◎ 관련글
  제 목   작성자   날짜
셀 입력시 불필요자료 삭제하는 방법 문의드립니다. 궁금 2019-06-10
◎ [RE]셀 입력시 불필요자료 삭제하는 방법 문의드립니다. 참서리 2019-06-11