Page 1 of 1
ปัญหาการดึงข้อมูลแยกด้วย VBA
Posted: Tue Dec 11, 2018 2:07 pm
by minicoz
สวัดดีครับ ผมเพิ่งหัดทำVBA ผมอยากดึงข้อมูลของลูกค้า รายบุคคลไปที่ sheets2 จากไฟล์ order โดยกดปุ่ม
button ดังไฟล์แนบแต่ปัญหาคือ ผมอยากให้ข้อมูลลูกค้าคนนั้นๆๆที่ซื้อสินค้าตามไปด้วยทั้งหมด แต่ทำไม่ได้ครับ
รบกวนช่วยดูcode ให้หน่อยครับ
Re: ปัญหาการดึงข้อมูลแยกด้วย VBA
Posted: Tue Dec 11, 2018 7:59 pm
by snasui
จะทราบได้อย่างไรว่าปัจจุบันต้องการจะดึงข้อมูลลูกค้ารายได้ มีกำหนดไว้ที่เซลล์ไหน ชีตไหน กรุณาแจ้งมาด้วยครับ
Re: ปัญหาการดึงข้อมูลแยกด้วย VBA
Posted: Tue Dec 11, 2018 8:16 pm
by minicoz
กำหนดไว้ใน CommandButton ของไฟล์ order ตาม code นี้ครับใจจริงผมอยากให้ทุกครั้งที่กดปุ่ม เปลี่ยนผู้ซื้อไปไปโชว์ที่ sheets2 ครับ พอจะมีวิธีไหมครับ และอีกปัญหาก็คือ รายการสินค้าของผู้ซื้อนั้นๆขึ้นไม่ครบ ตามไฟล์ order ครับ รบกวนช่วยแนะนำหน่อยครับ
Private Sub CommandButton1_Click()
a = Worksheets("Order").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("Order").Cells(i, 1).Value = "1.Tony" Then
Worksheets("Order").Rows(i).Copy
Worksheets("Sheet2").Activate
b = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("sheet2").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Order").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Order").Cells(1, 1).Select
End Sub
Re: ปัญหาการดึงข้อมูลแยกด้วย VBA
Posted: Tue Dec 11, 2018 9:08 pm
by minicoz
ผมต้องการแบบว่า กดปุ่ม CommandButton 1 ครั้ง ข้อมูล ของคนที่ 1 พร้อม รายการซื้อ ไปโชว์ ใน sheets2 กดอีก 1 ครั้ง ชื่อของคนที่ 2 พร้อมรายการสั่งซื้อ ไปโชว์ใน sheet3 เป็นต้นครับ ในตัวอย่างมีแค่ sheets2 ครับ แต่ไม่รู้ว่าต้องใช้ code แบบไหนในการเรียก ชื่อและรายการสินค้าไปครับ ต้องขอโทษที่ทำไม่ถูกตามกฏและตอบไม่ตรงคำถามครับ เพิ่งหัดทำ VBA ครับเลยไม่มีความรู้มากครับ ขอคำแนะนำด้วยครับ
Re: ปัญหาการดึงข้อมูลแยกด้วย VBA
Posted: Tue Dec 11, 2018 9:58 pm
by snasui
ตัวอย่าง Code ตามด้านล่างครับ
การโพสต์ Code ให้ดูตัวอย่างตามกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้แตกต่างจากข้อความปกติครับ
Code: Select all
Dim rall As Range, i As Integer
Dim rselect As Range, rsectAll As Range
Dim rtarget As Range, round As Long
Dim rw As Long, cl As Long
With Sheets("Order")
.Range("d1").Value = .Range("d1").Value + 1
round = .Range("d1").Value
Set rall = .Range("b2", .Range("b" & .Rows.Count).End(xlUp)) _
.Offset(0, -1).SpecialCells(xlCellTypeConstants)
If .Range("d1").Value > rall.Areas.Count Then
.Range("d1").Value = rall.Areas.Count
Exit Sub
End If
Set rselect = rall.Areas(.Range("d1").Value)
If round < rall.Areas.Count Then
Set rselectAll = .Range(rselect, rselect.End(xlDown).Offset(-1, 0)).Resize(, 3)
ElseIf round = rall.Areas.Count Then
Set rselectAll = .Range(rselect, .Range("b" & .Rows.Count).End(xlUp).Offset(0, -1)) _
.Resize(, 3)
Else
Exit Sub
End If
rw = rselectAll.Rows.Count
cl = rselectAll.Columns.Count
With .Parent.Worksheets("Sheet2")
Set rtarget = .Range("b" & .Rows.Count).End(xlUp).Offset(1, -1)
With rtarget
.Resize(rw, cl).Value = rselectAll.Value
End With
End With
End With