การอ่านข้อมูลแบบวน Loop

[pepper_dog]

พี่ครับ วันนี้่ขอรบกวนแต่เช้าหน่อยครับ

ผมอยากทราบวิธีการอ่านค่าข้อมูล excel แบบวน loop ใน vba นะครับ

จากไฟล์ตัวอย่างนะครับ

sheet "paymentbycus" ถ้า cell D1 = "001" แล้วทำการกดปุ่ม "พิมพ์รายงาน" ให้โปรแกรมทำงานดังนี้ครับ

1. code vba CommandButton2_Click ให้โปรแกรมไปอ่าน sheet "data_day"
2. ให้อ่านตั้งแต่ แถวที่ 2 ให้ทำการเลือกรหัสลูกค้าที่ = "001"
3. ถ้ารหัสลูกค้า = "001" ก็ให้เอา data แถวนั้นไปวางที่หน้า sheet "paymentbycus"
4. อ่านวน loop จนจบทุกแถวนะครับ

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

[bank9597]

สามารถใช้สูตรได้เลยครับ

ว่าแต่ชีท PaymentByCus เป็นชีทที่ใช้พิมพ์รายงานไหมครับ แล้วปุ่มชื่อ "พิมพ์รายงาน" ใช้ดึงข้อมูลจาก DataDay หรือให้แสดงตัวอย่างการพิมพ์ครับ

ช่วยอธิบายเพิ่มอีกนิดครับ

[pepper_dog]

ปุ่มชื่อ "พิมพ์รายงาน" ผมต้องการให้ดึงข้อมูลจาก dataday มาโชว์ที่หน้า PaymentByCus นะครับ เพื่อพิมพ์รายงาน แต่ผมคงต้องประยุกต์ใหม่อีกทีครับ เลยอยากได้การอ่านข้อมูลแบบ vba นะครับ

อย่างเช่นถ้าเลือกรหัส 001 ก็ให้ดึงข้อมูลมากจาก dataday ที่เป็นรหัส 001 เท่านั้นนะครับ

[pepper_dog]

สอบถามเพิ่มเติมครับผม

ถ้าใช้สูตรเวลาเลือก List รหัสลูกค้า ใช้สูตรยังงัยครับผม เผื่อเป็นทางเลือกที่ดีกว่าครับ

[bank9597]

สำหรับความคิดผมแล้ว การใช้สูตรคือสิ่งที่เหมาะสมที่สุดในการใช้งานเอ็กเซลล์ครับ และคิดว่าอาจารย์คนควนก็เห็นเช่นเดียวกัน เพราะว่าสูตรเราสามารถแก้ไขปัญหาได้เองบ้าง แต่ VBA จะต้องเรียนรู้ให้รู้จริงๆ ถึงจะทำได้ หากไม่รู้เลย เวลาเกิดปัญหาก็จะแก้ไขอะไรเองไม่ได้เลยครับ อย่างไรก็ตาม VBA ก็ใช้งานได้ดีมากสำหรับผู้ใช้เป็นเช่น ระดับอาจารย์คนควน เป็นต้น ครับ

สูตรที่ว่านั้น สามารถทำได้ แต่สูตรอาจจะยาวหน่อยครับ
ลองตามนี้ครับ
ที่เซลล์ E1 คีย์ =COUNTIF(data_day!$B$2:$B$7,D1) เพื่อนนับรหัสที่เราเลือกครับ
ที่เซลล์ A5 คีย์ =IF(ROWS(A$5:$B5)>$E$1,"",INDEX(data_day!A$2:A$20,SMALL(IF(data_day!$B$2:$B$20=paymentbycus!$D$1,ROW(data_day!A$2:A$20)-ROW(data_day!A$2)+1),ROWS(A$5:$B5)))) กดแป้น Ctrl+Shift+Enter พร้อมกันจะได้เครื่องหมาย{} คร่อมสูตรไว้ ไม่กดปุ่ม Enter เพียงปุ่มเดียวครับ

จากนั้นก็คัดลอกไปทางขวามือจนถึงคอลัมน์ L แล้วคัดลอกลงมาด้านล่างครับ

เบื้องต้นลองดูสูตรก่อนน่ครับ ส่วน VBA ผมค่อยมาตอบให้ในกระทู้ถัดไป ตามสะดวกครับ

[snasui]

สำหรับความคิดผมแล้ว การใช้สูตรคือสิ่งที่เหมาะสมที่สุดในการใช้งานเอ็กเซลล์ครับ และคิดว่าอาจารย์คนควนก็เห็นเช่นเดียวกัน เพราะว่าสูตรเราสามารถแก้ไขปัญหาได้เองบ้าง แต่ VBA จะต้องเรียนรู้ให้รู้จริงๆ ถึงจะทำได้ หากไม่รู้เลย เวลาเกิดปัญหาก็จะแก้ไขอะไรเองไม่ได้เลยครับ อย่างไรก็ตาม VBA ก็ใช้งานได้ดีมากสำหรับผู้ใช้เป็นเช่น ระดับอาจารย์คนควน เป็นต้น ครับ

สำหรับผมแล้วขึ้นอยู่กับงานที่ทำ ผมเน้นว่าให้รู้ความสามารถ Excel ให้มากที่สุดเท่าที่จะมากได้ก่อน เพราะว่าหลายงานไม่จำเป็นต้องใช้ VBA แต่ไม่ได้หมายความว่าสูตรจะเหมาะกว่า VBA เสมอไปครับ

[pepper_dog]

พี่ครับ ตอนนี้ผมหาวิธีการอ่าน แบบวน loop ได้แล้วครับ และนำเอามาประยุกต์ แต่ติดปัญหาอยู่นิดหน่อย ขอสอบถามเพิ่มเติมครับ
ถ้าโปรแกรมเข้าเงื่อนไขที่ต้องการ จะทำการ copy ทั้งแถวตั้งแต่ A ที่ i ถึง L ที่ i ใช้คำสั่งอะไรครับ


Private Sub CommandButton2_Click()
Dim rs As Range, rt As Range, i As Integer
With Worksheets("data_day")
Set rs = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
For i = 1 To rs.Count
If .Range("B" & i) = "1" Then

Set rs = จะทำการ copy ทั้งแถวตั้งแต่ A ที่ i ถึง L ที่ i ใช้คำสั่งอะไรครับ

Set rt = Worksheets("paymentbycus").Range("A" & Rows.Count - 3) _
.End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False

End If



Next


End With

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

[bank9597]

ผมได้ลองทำไว้ให้ครับ โดยสร้างปุ่มใหม่มา 1 ปุ่มไว้ดึงข้อมูลมาแสดง
ลองศึกษาตามไฟล์แนบครับ

[pepper_dog]

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

[pepper_dog]

พี่ครับ

ตอนนี้ติดปัญหาตรงที่ช่อง combobox กรณีรหัสลูกค้า = 101 พอทำการเลือก จะได้ค่า = 5

แก้อย่างไรให้ได้ค่าตามที่เลือกครับ

รบกวนหน่อยครับ ติดตรงนี้มา 2 วันละครับ

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

[bank9597]

อันนี้พูดถึงไฟล์ที่ผมแนบไปให้ล่าสุด หรือไฟล์หรือครับ

[pepper_dog]

ใช่ครับ ไฟล์ล่าสุดก็เป็นนะครับ

ผมทดลอง ใส่รหัส 101 ที่ไฟล์ data_day นะครับ

ผมแนบไฟล์ทดสอบมาให้ดูด้วยครับ เมื่อกี้ลืมแนบไฟล์มานะครับ

[bank9597]

คุณ pepper_dog ลองทำตามนี้ไฟล์แนบได้ไหมครับ ผมคิดว่าน่าจะง่ายกว่า

ส่วนใน Combobox ผมยังหาสาเหตุไม่เจอ ต้องเรียนถามอาจารย์อีกครั้งน่ะครับ

[pepper_dog]

ขอถามเพิ่มเติมครับ

ถ้าที่ data validation

source สามารถใช้ สูตร offset ได้หรือไม่ครับ ผมลองแล้วได้แค่ cell เดียวครับ

ตามตัวอย่างไฟล์นะครับ

ขอบคุณครับ

[bank9597]

ทำได้ครับ

ที่ Range Name ชื่อ Code เปลี่ยนในแถบสูตรเป็น =OFFSET(paymentbycus!$O$2,0,0,COUNTA(paymentbycus!$O:$O)-1)

ก็จะได้ Range Name แบบไดนามิค

[pepper_dog]

โอเคเลยครับผม ลดขั้นตอนลงไปได้พอสมควรครับ ขอบคุณนะครับ

[snasui]

มาตอบเสริมส่วนที่ยังไม่ได้คำตอบนะครับ

Set rs = จะทำการ copy ทั้งแถวตั้งแต่ A ที่ i ถึง L ที่ i ใช้คำสั่งอะไรครับ

สามารถใช้ Code นี้ได้ครับ

Code: Select all

set rs = .range("A" & i),.range("L" & i))

พี่ครับ

ตอนนี้ติดปัญหาตรงที่ช่อง combobox กรณีรหัสลูกค้า = 101 พอทำการเลือก จะได้ค่า = 5

แก้อย่างไรให้ได้ค่าตามที่เลือกครับ

รบกวนหน่อยครับ ติดตรงนี้มา 2 วันละครับ

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

อันนี้คือไฟล์ไหนครับ ตอนนี้ทำงานถูกต้องแล้วยังครับ