VBA ขอวิธีลดจำนวน Code เพื่อง่ายต่อการแก้ไข

[Jirawat namrach]

มีอธิบายรายละเอียดในไฟล์นะครับ แต่ตัว Code มีรายละเอียดเยอะ โดยมีการกำหนด if - then ไปในแต่ละเซล ("c8") ทำให้เวลาแก้ไขลำบาก ขอสอบถามครับ
1. จะพอมีวิธีเขียน Code ที่สามารถแก้ไขได้ง่ายกว่านี้หรือเปล่าครับ
2. มี Code ที่สามารถ run ได้ทันที ที่มีการเพิ่ม หรือลด เลข 1 ในกรอบ โดยไม่ต้องไปกดที่ ปุ่ม หรือเปล่าครับ

Code: Select all

        If .Range("c8") = "1" Then
                For i = 11 To 30
                    If Sheets("LIST").Range("A" & i) > "" Then
                    For k = 5 To r
                        g = .Range("p" & .Rows.Count).End(xlUp).Offset(1, 0).Row
                        If Sheets("LIST").Range("A" & i) = Sheets("data bom").Range("B" & k) Then
                            .Range("p" & g).Resize(, 17).Value = Sheets("data bom").Range("b" & k, "R" & k).Value
                        End If
                    Next k
                    End If
                Next i
        End If

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub bom()
    Dim i As Long
    Dim l As Long
    Dim r As Long
    Dim j As Long
    Dim k As Long
    Dim g As Long
    Dim arra As Variant
    Dim arrb As Variant
    Dim m As Integer
    
    arra = Array("c8", "c11", "f11", "f12", "c14", _
        "f14", "c16", "c17", "f16", "c19", _
        "f19", "c21", "f21", "c23", "c24", _
        "c25", "f23", "f24", "f25", "c27", _
        "c33", "f33", "c35", "c37", "f39")
    arrb = VBA.Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,u,s,t,u,v,w,x,y", ",")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Range("p7:af51").ClearContents
    
    With Sheets("Production Order")
        If .Range("L2") <> "AIR CONTROL" Then
           .Range("L2") = "ELECTRIC CONTROL"
        End If
        l = Sheets("LIST").Range("b" & .Rows.Count).End(xlUp).Offset(1, 0).Row
        r = Sheets("data bom").Range("b" & .Rows.Count).End(xlUp).Offset(1, 0).Row
        For m = 0 To UBound(arra)
            If .Range(arra(m)) = "1" Then
                For i = 11 To 30
                    If Sheets("LIST").Range(arrb(m) & i) > "" Then
                    For k = 5 To r
                        g = .Range("p" & .Rows.Count).End(xlUp).Offset(1, 0).Row
                        If Sheets("LIST").Range("A" & i) = Sheets("data bom").Range("B" & k) Then
                            .Range("p" & g).Resize(, 17).Value = Sheets("data bom").Range("b" & k, "R" & k).Value
                        End If
                    Next k
                    End If
                Next i
            End If
        Next m
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
End Sub

[Jirawat namrach]

จากที่ลองใช้ดูแล้ว ข้อมูล Bom ที่ได้ มาแค่เฉพาะคอลัม A sheet "List" ครับ ไม่ว่าจะกด 1 ที่ช่องไหนก็ตาม ต้องแก้ไขตรงไหนครับอาจารย์

[snasui]

กรุณาแก้มาเองก่อน จากนั้นแจ้งผลว่ายังผิดพลาดตรงไหน ต้องการคำตอบเป็นเท่าใด จะได้เข้าใจตรงกันครับ

[Jirawat namrach]

ได้แล้วครับอาจารย์ ขอสอบถามเพิ่มเติมหน่อยครับ ถ้าอยากให้รายการ Bom อัพเดททันที ที่มีการเพิ่ม หรือลด เลข 1 ในกรอบ โดยไม่ต้องไปกดที่ ปุ่ม

Code: Select all

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Code นี้ใช้แล้วสามารถทำได้หรือเปล่า มีผลเสียอะไรมั้ยครับ

[snasui]

ใช้ Worksheet_Change น่าจะตรงกว่า ดู Link นี้ประกอบครับ Worksheet_Change

[Jirawat namrach]

ขอบคุณมากครับอาจารย์