select case สามารถย่อให้สั้นลงได้มั้ยครับ

[Vespaclassic]

select case ของไฟลผม จำนวนเคสเยอะ ประมาณ 20 เคส และที่รับค่ามีประมาณ 10 ค่า
อยากทำให้สั้นลง ใช้วิธีไหนได้บ้างครับ


ตัวอย่างเช่น

รับค่าจากเซล a1
ถ้าเท่ากับ 1
ให้ปริ้นหน้า 1 - 1
ถ้าเท่ากับ 2
ให้ปริ้นหน้า 1 - 2
.
.
ถ้าเท่ากับ 20
ให้ปริ้นหน้า 1 - 20
--------
ถ้าเซล b1 มากกว่า 0
ถ้าเท่ากับ 1
ให้ปริ้นหน้า 1 - 1
ถ้าเท่ากับ 2
ให้ปริ้นหน้า 1 - 2
.
.
ถ้าเท่ากับ 20
ให้ปริ้นหน้า 1 - 20

จาก code ตัวอย่าง ผมยกอย่าง มาแค่ 2 case ปกติจะมี 20 cae รับค่า 10 ค่า

Code: Select all

Sub print1()

    Dim num As Integer
    Dim r6 As Integer
    Dim r9 As Integer
    Dim d10 As Integer

    Dim d As Integer
    
    num = Sheets("BBS").Range("a1")

        Select Case num
            Case 1
                Sheets("bbs").PrintOut From:=1, To:=1, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=1
            Case 2
                Sheets("bbs").PrintOut From:=1, To:=2, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=2
            Case 3
               Sheets("bbs").PrintOut From:=1, To:=3, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=3
            Case 4
                 Sheets("bbs").PrintOut From:=1, To:=4, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=4
            Case 5
                Sheets("bbs").PrintOut From:=1, To:=5, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=5

        End Select

rb9 = Sheets("9").Range("a1")
 
 If rb9 >= 1 Then
   
  Select Case rb9
            Case 1
                 Sheets("9").PrintOut From:=1, To:=1
            Case 2
                 Sheets("9").PrintOut From:=1, To:=2
        End Select
        
    End If
    

rb6 = Sheets("6").Range("a1")
 
 If rb6 >= 1 Then
   
  Select Case rb6
            Case 1
                 Sheets("6").PrintOut From:=1, To:=1
            Case 2
                 Sheets("6").PrintOut From:=1, To:=2
        End Select
        
    End If
    
     
End Sub

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่าง ลองประยุกต์ใช้ดูครับ

Code: Select all

Sub print1()

    Dim num As Integer
    Dim r6 As Integer
    Dim r9 As Integer
    Dim d10 As Integer

    Dim d As Integer
    
    num = Sheets("BBS").Range("a1")
    Sheets("bbs").PrintOut From:=1, To:=num, Copies:=2
    Sheets("tag01").PrintOut From:=1, To:=num

    'Select Case num
    '    Case 1
    '        Sheets("bbs").PrintOut From:=1, To:=1, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=1
    '    Case 2
    '        Sheets("bbs").PrintOut From:=1, To:=2, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=2
    '    Case 3
    '       Sheets("bbs").PrintOut From:=1, To:=3, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=3
    '    Case 4
    '         Sheets("bbs").PrintOut From:=1, To:=4, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=4
    '    Case 5
    '        Sheets("bbs").PrintOut From:=1, To:=5, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=5    '
    'End Select

    rb9 = Sheets("9").Range("a1")
     
    If rb9 >= 1 Then
        Sheets("9").PrintOut From:=1, To:=rb9
    '    Select Case rb9
    '       Case 1
    '           Sheets("9").PrintOut From:=1, To:=1
    '       Case 2
    '           Sheets("9").PrintOut From:=1, To:=2
    '   End Select
    End If
        
    
    rb6 = Sheets("6").Range("a1")
     
    If rb6 >= 1 Then
        Sheets("6").PrintOut From:=1, To:=rb6
    '  Select Case rb6
    '       Case 1
    '           Sheets("6").PrintOut From:=1, To:=1
    '       Case 2
    '           Sheets("6").PrintOut From:=1, To:=2
    '   End Select
    End If
     
End Sub

[Vespaclassic]

ขอบคุณมากๆครับ

สั้นๆ ง่ายๆเลย
ผมลืมไปเลยว่าเอาตัวแปลมาใส่ตรงจำนวนหน้าได้

ผมไปลองทำ loop ตั้งนาน