รบกวนสอนวิธีเขียน Dynamic Range (มือใหม่)

[MRK_9000]

ช่วยด้วยครับถ้าเราจะกำหนด Range บรรทัดสุดท้าย "AutoFill Destination:=Range("L4:AJ7")" ตามตัวอย่างด้านล่างให้เป็น Dynamic Range ต้องเขียน Code อย่างไร

Sub SUBMIT()
'
' SUBMIT Macro
'
' Keyboard Shortcut: Ctrl+s
'
Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False

Range("L4:AJ4").Select
Selection.AutoFill Destination:=Range("L4:AJ7")[/color]
End Sub

[snasui]

การทำให้ Dynamic สามารถปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Selection.AutoFill Destination:=Range("L4", Range("AJ" & Rows.Count).End(xlup))

สำหรับการโพสต์ Code ให้เป็น Code ดูตัวอย่างที่นี่ครับ viewtopic.php?f=2&t=1187

[MRK_9000]

การทำให้ Dynamic สามารถปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Selection.AutoFill Destination:=Range("L4", Range("AJ" & Rows.Count).End(xlup))

สำหรับการโพสต์ Code ให้เป็น Code ดูตัวอย่างที่นี่ครับ viewtopic.php?f=2&t=1187

ขอบพระคุณอาจารย์มากครับที่ตอบกระทู้นี้ และมีเรื่องเรียนสอบถามเพิ่มเติมครับเนื่องจากผมต้องการให้ AutoFill L4:AJ4 ให้มีจำนวนเท่ากับ ข้อมูลที่ Filter ได้จากช่วง E1:K1 ซึ่งจะมีจำนวน Row ที่ไม่แน่นอน ผมจะต้องเขียน Code เพื่ออ้างอิงได้อย่างไรบ้างครับ

[snasui]

แนบไฟล์ตัวอย่างและอธิบายด้วยว่า ปัญหาคืออะไร ต้องการคำตอบที่ชีทไหน เซลล์ไหน หน้าตาเป็นอย่างไร เพื่อจะได้เข้าใจตรงกันครับ

[MRK_9000]

แนบไฟล์ตัวอย่างและอธิบายด้วยว่า ปัญหาคืออะไร ต้องการคำตอบที่ชีทไหน เซลล์ไหน หน้าตาเป็นอย่างไร เพื่อจะได้เข้าใจตรงกันครับ

[snasui]

ช่วยทำมาเป็นไฟล์ตัวอย่าง ซึ่งไม่ควรมีขนาดใหญ่ครับ

[MRK_9000]

ช่วยทำมาเป็นไฟล์ตัวอย่าง ซึ่งไม่ควรมีขนาดใหญ่ครับ

[snasui]

4. สิ่งที่ต้องการให้พื้นที่สีเหลืองนั้น AutoFill สูตรบรรทัดที่ 3 L4: AJ4ผันแปรตาม ข้อมูลที่ Filter ได้ในคอลัมน์ E:K ครับ โดยให้ AutoFill ถึงแค่ Row สุดท้ายที่ E:K มีข้อมูล

อ่านแล้วไม่เข้าใจครับ สูตรในบรรทัดที่ 3 คืออะไร อยู่ในชีทไหน ช่วงเซลล์ไหนครับ

ในพื้นที่สีเหลือง ช่วยโยงให้เห็นว่ามาจากข้อมูลใด ด้วยเงื่อนไขใด จะได้เข้าใจตรงกันครับ

[MRK_9000]

4. สิ่งที่ต้องการให้พื้นที่สีเหลืองนั้น AutoFill สูตรบรรทัดที่ 3 L4: AJ4ผันแปรตาม ข้อมูลที่ Filter ได้ในคอลัมน์ E:K ครับ โดยให้ AutoFill ถึงแค่ Row สุดท้ายที่ E:K มีข้อมูล

อ่านแล้วไม่เข้าใจครับ สูตรในบรรทัดที่ 3 คืออะไร อยู่ในชีทไหน ช่วงเซลล์ไหนครับ

ในพื้นที่สีเหลือง ช่วยโยงให้เห็นว่ามาจากข้อมูลใด ด้วยเงื่อนไขใด จะได้เข้าใจตรงกันครับ

ขอโทษครับพอดีทำชีทใหม่ไม่ได้ล้อสูตรติดมาด้วยทำให้ใหม่แล้วครับรบกวนดูให้ด้วยนะครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub SUBMIT()
    Dim FillRow As Integer
    With Sheets("REPORT6")
        FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
            .Range("L" & Rows.Count).End(xlUp).Row + 1
    End With
    Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
    Range("E5:K5").Select
    Range("L" & Rows.Count).End(xlUp).Resize(FillRow, 25).FillDown
End Sub

[MRK_9000]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub SUBMIT()
    Dim FillRow As Integer
    With Sheets("REPORT6")
        FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
            .Range("L" & Rows.Count).End(xlUp).Row + 1
    End With
    Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
    Range("E5:K5").Select
    Range("L" & Rows.Count).End(xlUp).Resize(FillRow, 25).FillDown
End Sub

ขอบคุณมากครับ
ผมลองปรับตามดูแล้วครับอาจารย์ แต่มันยังมี bug อยู่เมื่อเลือกตัวแปรใน Report6 "C2" สลับไปสลับมาครับ
ผมขออนุญาตรบกวนให้ข้อมูลเพิ่มเติมนะครับ คือว่าตัวแปรใน Report6 "C2" อาจจะมีมากกว่านี้ตามข้อมูลใน Sheet "GUI" ซึ่งคอลัมน์ E:K นั้นข้อมูลจริงอาจจะมีตั้งแต่ 10 ถึง 1000 Row หรือมากกว่านั้นครับ (ผมลองพยายามปรับจากที่อาจไกด์มาแล้วแต่เนื่องจากไม่มีพื้นฐาน VBA เลย และอยากจะศึกษาเป็นเรื่องเป็นราวอาจารย์มีคำแนะนำอย่างไรบ้างครับ)

[niwat2811]

Code: Select all

Sub SUBMIT()
Dim FillRow As Integer
Dim lr As Long
    Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
lr = Cells(Rows.Count, 12).End(xlUp).Row
    With Sheets("REPORT6")
        Range("L5:AJ" & lr).Clear
        FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
            .Range("L" & Rows.Count).End(xlUp).Row + 1
    End With
    Range("E5:K5").Select
    Range("L" & Rows.Count).End(xlUp).Resize(FillRow, 25).FillDown
End Sub

ลองแบบนี้ดูว่าได้ตรงตามความต้องการไหมครับ ถ้าไม่ได้คงต้องรอให้ท่านอาจารย์หรือผู้รู้ท่านอื่นช่วยครับ

[MRK_9000]

ขอบคุณอาจารย์และ niwat2811 ครับ
ทำได้ตามที่ต้องการแล้วครับ ^_^

[MRK_9000]

Code: Select all

Sub SUBMIT()
Dim FillRow As Integer
Dim lr As Long
    Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
lr = Cells(Rows.Count, 12).End(xlUp).Row
    With Sheets("REPORT6")
        Range("L5:AJ" & lr).Clear
        FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
            .Range("L" & Rows.Count).End(xlUp).Row + 1
    End With
    Range("E5:K5").Select
    Range("L" & Rows.Count).End(xlUp).Resize(FillRow, 25).FillDown
End Sub

ลองแบบนี้ดูว่าได้ตรงตามความต้องการไหมครับ ถ้าไม่ได้คงต้องรอให้ท่านอาจารย์หรือผู้รู้ท่านอื่นช่วยครับ

รบกวนครับถ้าผมจะเป็นเปลี่ยนเงื่อนไขการ AutoFill สูตร ตามไฟลที่แนบเพิ่มมา ควรจะเขียน CODE อย่างไรครับ

[snasui]

จาก

4. ต้องการให้ข้อมูลสูตรบรรทัด L2:AJ2 เมื่อกดปุ่ม SUBMIT นั้น Autofill ผันแปรตามข้อมูลตราง E:K ตามข้อ 3โดยมี (ข้อยกเว้น) ไม่ต้อง Autofill สูตรบรรทัด L2:AJ2 ในกรณีถ้าหาก
4.1 E:K ไม่มีข้อมูล หรือ
4.2 E:K มีข้อมูลแค่ 1 รายการหรือ 1 ROW

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub SUBMIT()
    Dim FillRow As Integer
    Dim lr As Long
    Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
    lr = Rows.Count
    With Sheets("REPORT6")
        Range("L3:AJ" & lr).Clear
        FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
            .Range("L" & Rows.Count).End(xlUp).Row + 1
    End With
    If Range("E3") <> "" Then
        Range("L" & Rows.Count).End(xlUp).Resize(FillRow, 25).FillDown
    End If
End Sub

ในคราวหน้าให้ลองปรับ Code มาเองดูก่อนครับ กรณีที่ปรับเองไม่ได้เลย ไม่แนะนำให้ใช้ VBA ครับ

[MRK_9000]

จาก

4. ต้องการให้ข้อมูลสูตรบรรทัด L2:AJ2 เมื่อกดปุ่ม SUBMIT นั้น Autofill ผันแปรตามข้อมูลตราง E:K ตามข้อ 3โดยมี (ข้อยกเว้น) ไม่ต้อง Autofill สูตรบรรทัด L2:AJ2 ในกรณีถ้าหาก
4.1 E:K ไม่มีข้อมูล หรือ
4.2 E:K มีข้อมูลแค่ 1 รายการหรือ 1 ROW

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub SUBMIT()
    Dim FillRow As Integer
    Dim lr As Long
    Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
    lr = Rows.Count
    With Sheets("REPORT6")
        Range("L3:AJ" & lr).Clear
        FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
            .Range("L" & Rows.Count).End(xlUp).Row + 1
    End With
    If Range("E3") <> "" Then
        Range("L" & Rows.Count).End(xlUp).Resize(FillRow, 25).FillDown
    End If
End Sub

ในคราวหน้าให้ลองปรับ Code มาเองดูก่อนครับ กรณีที่ปรับเองไม่ได้เลย ไม่แนะนำให้ใช้ VBA ครับ

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

"คราวหน้าจะปรับ Code เอง และถ้าติดช่วงไหนแล้วถึงจะขอคำแนะนำครับ เนื่องจากเดิมผมใช้งานแต่ Funtion บน Excel
เพิ่งจะเริ่มใช้งานการบันทึก Macro เพื่อศึกษาการเขียน Code VBA ครับ และกระทู้นี้เป็น Case Study แรกของผม"