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

작성자:  

 vbav (wer04059)

추천:  2
파일:     조회:  576
제목:   vba 함수 적용 질문
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>

안녕하세요 vba로 함수 적용 질문이 있습니다. 
구현 동작은 w셀에 f셀과 g셀을 concatenate 하는데 g셀의 값이 1~9일 경우 0을 사이에 붙이는 동작입니다.

    Dim ws As Worksheet                             'worksheet 선언
    Dim ws1 As Worksheet
    Dim ws123 As Worksheet
    Set ws = Worksheets("sheet1")
    Set ws1 = Worksheets("sheet2")
    Set ws123 = Worksheets("sheet3")

    Dim vdd3 As Long
    Dim vrng3 As Range

    vdd3 = ws.Cells(Rows.Count, "g").End(xlUp).Row
    Set vrng3 = ws.Range("w2:w" & vdd3)
    vrng3 = "=IF(OR(G2=1, G2=2, G2=3, G2=4, G2=5, G2=6, G2=7, G2=8, G2=9),CONCATENATE(F2,".","0",G2),CONCATENATE(F2,".",G2))"

이렇게 구현시 맨 마지막줄에서 구문오류가 발생해서 이부분을 어떻게 변경해야 할 지 잘 모르겠습니다. 해당 부분 도움을 받고 싶습니다! 		　
[불량 게시물 신고]  
재현vrng3 = "=IF(OR(G2=1, G2=2, G2=3, G2=4, G2=5, G2=6, G2=7, G2=8, G2=9),CONCATENATE(F2,""."",""0"",G2),CONCATENATE(F2,""."",G2))"08-10 (00:06)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2023-08-09(17:25)
최종수정일 : 2023-08-09(17:25)