|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
홀짝인쇄하려고 하는데 lot no 가 101.103.105이면 c43에 입력 인쇄..
102.104.106이면 a43에 입력되면서 인쇄할려고 합니다.
연속 등록,인쇄이므로 101이면 c43 그리고 102 이면은 c43지워지면서 a43열에 입력되면서 인쇄 또다시 103이면..a43지워지면서 c43열에 입력되면서 인쇄되게끔 할려고 합니다..
Application.ScreenUpdating = True
Dim 홀짝 As Integer
홀짝 = Val(Right(Iotnumber, 1)) Mod 2
If 홀짝 = 0 Then
With Worksheets("지시서")
.Range("a43") = lotnumber
메인.a7.Value = Empty
.Range("c43") = a7.Value
End With
Application.ScreenUpdating = True
Else
With Worksheets("지시서")
.Range("c43") = Iotnumber
메인.a7.Value = Empty
.Range("a43") = a7.Value
End With
Application.ScreenUpdating = True
End If
여기서 홀수는 되는데 짝수102.104.106.....인쇄부분이 안되는데..
고수님들 부탁드립니다...날씨 추운데 회원여러분 감기 조심하세요 |
|