|
:: 게시판
:: 이전 게시판
|
이전 질문 게시판은 새 글 쓰기를 막았습니다. [질문 게시판]을 이용바랍니다.
통합규정 1.3 이용안내 인용"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
12/05/14 02:51
Sub test()
Open "e:\test.txt" For Output As #1 For i = 1 To 10 Print #1, Right(" " & Cells(i, 1), 3) & Right(" " & Cells(i, 2), 10) & Right(" " & Cells(i, 3), 3) Next Close #1 End Sub 간단한 방법으로는 이 정도로 하시면 됩니다. 설명을 간략히 추가하자면 Sub test() Open "e:\test.txt" For Output As #1 <- 그냥 파일을 여는 부분이고요. For i = 1 To 10 Print #1, Right(" " & Cells(i, 1), 3) & Right(" " & Cells(i, 2), 10) & Right(" " & Cells(i, 3), 3) <- 이 부분만 잘 하면 되는데 세칸의 공백인 " "와 Cells(i,1)을 '&'로 묶으면 Cells(i,1)의 값 앞에 공백 세 개가 붙은 문자열이 됩니다. 즉, 만약 (i,1)번째 셀의 값이 3이라면 " 3"이 되죠. Right 함수는 특정 문자열을 오른쪽에서부터 원하는 만큼 잘라주는 함수입니다. Right(str, num) 형식이며 예를들어 Right("abcde", 3)이면 결과는 "cde"가 됩니다. 간단하게 원하는 만큼의 공백이 앞에 붙는 문자열을 만들 수 있습니다. Next Close #1 <- 여긴 파일 닫기. End Sub 줄이 너무 길어진다면 For 구문을 이중으로 해서 행 마다 들어갈 텍스트를 먼저 만들고 기록해도 되는데 열마다 문자열 길이가 달라서 if문을 조금 더 섞어줘야겠네요.
|
||||||||||||