Snasui Excel Forum

ได้แล้วครับ

ขอบคุณพี่มากครับ

:D รบกวนอีกแล้วครับ

ผมทำ textbox แล้วให้รับค่าจาก sheet1

ถ้า sheet 1 ที่ cell A1 - A... มีข้อมูล 1 2 3 4 ....... ตามลำดับ

ถ้าผมจะกำหนดค่า textbox.text = A...สุดท้ายที่มีค่า ต้องใช้ vba สูตรอะไรครับ ที่ผมลองทำดูยังไม่ได้ตามที่ต้องการครับ

frmNewCustomer.TextBox1.Text = Sheets("CustomerNM").Range ...

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

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

ถ้าที่ data validation

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

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

ขอบคุณครับ

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

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

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

พี่ครับ

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

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

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

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

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

ขอบคุณครับ ตอนนี้ผม sort ได้แล้วครับ โดยใช้ function หาจากในนี้นะครับ แล้วเอามาแก้ไขนิดหน่อย

ขอบคุณครับผม ตอนนี้เหลือเรื่อง combobox ค่าที่โชว์ไม่ตรงกัน กำลังหาวิธีอยู่ ถ้าไม่ไ้ด้จริงจะสอบถามนะครับ

Sub SortData()
Dim r As Range
With Sheets("paymentbycus")
Set r = .Range("O2", .Range("O" & Rows ...

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


Private Sub CommandButton2_Click()
Dim rs As Range, rt As Range, i As ...

พี่ครับ ถามต่ออีกหน่อยครับ

ถ้าต้องการให้ ComboBox ที่ได้มา sort จากน้อยไปหามากจะต้อง เขียนสูตรยังไงครับ

และถ้าเลือก รหัสใน ComboBox แล้วให้มาแสดงที่ช่อง D1 จะต้องทำยังไงครับ เพราะเวลาที่แสดงไม่ตรงกับที่เลือกครับ

ผมแนบไฟล์เพิ่มเติมมานะครับ

ขอบคุณครับ

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

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

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

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

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

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

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

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

1. code vba CommandButton2_Click ให้โปรแกรมไปอ่าน sheet "data_day"
2 ...

ขอขอบคุณพี่มากๆนะครับ

ไว้ติดปัญหาอะไรจะรบกวนสอบถามใหม่นะครับ

ขอบคุณอีกครั้งครับ

ครับผม

ดังนี้นะครับ

1. ที่ sheet "paymentbycus" ให้ listbox ดึงข้อมูลรหัสลูกค้าจาก sheet "data" ณ วันปัจจุบันมาแสดง โดยตัด dup รหัสที่ซ้ำออกนะครับ

2.หลังจากเลือก รหัสลูกค้าแล้ว ทำการกดปุ่ม "แสดงรายการ" ให้นำข้อมูลมาแสดงที่หน้า paymentbycus นะครับ

ผมแนบไฟล์มาให้ครับ code vba จะทำที่หน้า sheet ...

รบกวนสอบถามครับ เรื่องการ add ข้อมูลลง listbox

ถ้าข้อมูลจาก sheet1(data ไม่สามารถลบรายการใดทิ้งได้) มีข้อมูลซ้ำ และต้องการ add ลง listbox ที่ sheet2

สามารถตัด dup ได้ยังไงครับ

ถ้าเป็นคำสั่ง vba ใช้งานยังไงครับสำหรับการทำงาน listbox

ได้แล้วครับผม
ขอบคุณมากๆนะครับ

อยู่ที่ Private Sub cmdProcess_Click()

addsumpayment 'sum payment sheet

ยังไม่ได้เขียนในส่วนนี้เลยครับ ไปไม่ถูกครับ


ผมแนบไฟล์มาใหม่นะครับ

รบกวนช่วยเหลือหน่อยครับ

ในหน้าบันทึกรายการผมจะทำการ add ข้อมูลลงใน sheet payment นะครับ

หลังจาก add แล้ว ถ้าผมต้องการ sum ค่าตัวเลขแต่ละ รายการ ต้องใช้คำสั่งอะไรครับ

และถ้ามีการ add เพิ่มใหม่ ก็ให้ทำการลบ sum เก่าออก และทำการ sum ใหม่ นะครับ


เพราะจะมีการทำการ add ข้อมูลหลายครั้ง ภายใน 1 วัน ...