로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2013.05.07 09:57
시나브로님..
거즘 일년만이시군요.. ㅎㅎ 잘 지내셨나요? ^^
엑셀 첨부파일은 언제쯤 올릴 수 있으실까요? ^^;
이렇게 데이터라도 긁어서 올려주시니 다행입니다.
1. 쉽게 하시려면.. 사용자 정의 함수를 정의해서 사용하시면 됩니다.
Alt+F11누르시고.. VBE편집창에서 모듈을 하나 삽입하시구요.. 아래 코드를 넣으시면 사용자 정의 함수가 만들어집니다.
Function addtwo(rng As Range)
Dim v As Variant, i As Integer
v = Split(rng.Value, ",")
For i = LBound(v) To UBound(v)
v(i) = Format(Val(v(i)) + 2, "00")
Next i
addtwo = Join(v, ", ")
End Function
첨부파일을 참고하세요..
다운받기 : abyul.com_20130507_UDF_Add2.xlsm
아참!! 사용자 정의함수로 만든 결과는
호환성 문제가 생길 수도 있으므로.. 값으로 만들어서 저장하는 것을 추천합니다.
2. 각 셀들을 &연산자로 묶으면 되겠습니다.
텍스트 나누기 하시고.. 2씩 더한 결과 값이 A1:E1셀에 있다고 하면.. 아래처럼 수식을 넣으시면 됩니다.
=TEXT(A1,"00"","" ")&TEXT(B1,"00"","" ")&TEXT(C1,"00"","" ")&TEXT(D1,"00"","" ")&TEXT(E1,"00")
도움이 되셨기를..
새 창으로
선택한 기호
시나브로님..
거즘 일년만이시군요.. ㅎㅎ 잘 지내셨나요? ^^
엑셀 첨부파일은 언제쯤 올릴 수 있으실까요? ^^;
이렇게 데이터라도 긁어서 올려주시니 다행입니다.
1. 쉽게 하시려면.. 사용자 정의 함수를 정의해서 사용하시면 됩니다.
Alt+F11누르시고.. VBE편집창에서 모듈을 하나 삽입하시구요.. 아래 코드를 넣으시면 사용자 정의 함수가 만들어집니다.
Function addtwo(rng As Range)
Dim v As Variant, i As Integer
v = Split(rng.Value, ",")
For i = LBound(v) To UBound(v)
v(i) = Format(Val(v(i)) + 2, "00")
Next i
addtwo = Join(v, ", ")
End Function
첨부파일을 참고하세요..
다운받기 : abyul.com_20130507_UDF_Add2.xlsm
아참!! 사용자 정의함수로 만든 결과는
호환성 문제가 생길 수도 있으므로.. 값으로 만들어서 저장하는 것을 추천합니다.
2. 각 셀들을 &연산자로 묶으면 되겠습니다.
텍스트 나누기 하시고.. 2씩 더한 결과 값이 A1:E1셀에 있다고 하면.. 아래처럼 수식을 넣으시면 됩니다.
=TEXT(A1,"00"","" ")&TEXT(B1,"00"","" ")&TEXT(C1,"00"","" ")&TEXT(D1,"00"","" ")&TEXT(E1,"00")
도움이 되셨기를..