OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    작은악마 (cjh64) 추천:  2 파일:     조회:  1518 제목:   선택인쇄
옵션버튼을 OptB1과 OptB2 두개로 만들어 옵션1은 전체인쇄 옵션2는 2개의 텍스트 박스에 입력받은 페이지로 인쇄를 하고 싶습니다. Private Sub CmdB1_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim n As Integer     TxtB1.Text = Worksheets(1).Range("A1")     TxtB2.Text = Worksheets(1).Range("A2")          j = Application.WorksheetFunction.CountA(Worksheets(1).Columns(1)) - 5     Worksheets(1).Range("A1") = n     Worksheets(1).Range("A2") = k        If OptB1.Value = True Then            For i = 1 To j Step 2                Sheets("sheet1").PrintOut Copies:=1, Collate:=True            Next i         Else            For i = n To k Step 2                Worksheets(1).Range("A1") = i                Sheets("sheet1").PrintOut Copies:=1, Collate:=True            Next i         End If End Sub 도와주세요 　 [불량 게시물 신고]
김종철 안녕하세요? 아래의 코드를    Worksheets(1).Range("A1") = n    Worksheets(1).Range("A2") = k 다음과 같이 바꿔보세요.    n = value(textB1.text)    k = value(textB2.Text) 07-23 (11:47) ⓧ삭제 ■신고 황기성 value란 함수는 VBA에는 없으므로, val 또는 cint 함수를 대신 이용하세요^^* 그럼...행운이 있으시길...! 07-23 (11:50) ⓧ삭제 ■신고 김종철 제가 실수했네요... 오류를 고쳐주셔서 고맙습니다. 07-23 (11:53) ⓧ삭제 ■신고
작성일 : 2003-07-23(11:41) 최종수정일 : 2003-07-23(11:41)