|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
우편번호를 입력하고 123-456를 일일이 입력하는데 시간이
걸리니까 사용자 정의에서 ###"-"###으로 정리하면 보이는 것은
123-456으로 보이거든요...
그런데
DM 발송 라벨에는 그냥 숫자로 인식되어서 123456붙어서
오른쪽 끝에 정렬이 됩니다
올려주신 수식에서 우편주소로 정리하는 방법을 좀 알려주셨으면
감사하겠습니다.
다음은 올려주신 수식입니다
For intB = 1 To intA
With LbRng
.Cells(4, 1) = AddRng.Cells(intB, 3) '우편번호
.Cells(1, 1) = AddRng.Cells(intB, 4) '주소
.Cells(2, 1) = AddRng.Cells(intB, 2) '회사명
.Cells(3, 1) = AddRng.Cells(intB, 1) & " 귀하" '성명
End With
If intB Mod 2 = 1 Then '홀수일때
Set LbRng = LbRng.Offset(0, 2) '그 줄 2칸 옆
Else '짝수일때
Set LbRng = LbRng.Offset(5, -2) '5칸 아래 왼쪽으로 2칸 이동
End If
Next intB |
|