เก็บข้อมูล และเรียกข้อมูลมาใช้

[nattanan]

ข้อคำถามครับ
1. ผมอยากบันทึกข้อมูลจาก ฟอร์ม order ไปบันทึกที่ชีท orderdetail โดยข้อมูลเรียกกันไปเรื่อยๆ ไม่ทราบว่าควรทำอย่างไรครับ
2. เมื่อมีการบันทึกจากฟอร์ม order ไปยัง orderdetail แล้ว ถ้าหากต้องการค้นหาข้อมูลที่เราบันทึกไว้ โดยการค้นหาจาก เลขที่ใบเสร็จ ควรทำอย่างไรครับ

[snasui]

การบันทึกข้อมูลต่อท้ายข้อมูลเดิมต้องพึ่ง VBA ในการจัดการ ดูตัวอย่างที่นี่ครับ http://www.snasui.com/viewtopic.php?p=20988#p20988

การค้นหาข้อมูลสามารถใช้สูตรดึงข้อมูลที่ต้องการมาแสดงได้ เช่นใช้ Vlookup เพื่อดูข้อมูลมาแสดง ศึกษา Vlookup ได้จากที่นี่ครับ http://www.snasui.com/viewtopic.php?f=10&t=3670

[nattanan]

ขอบคุณครับ สำหรับข้อมูล
จะลองประยุกต์ใช้ดูครับ ได้ผลยังไงจะเอามาแชร์นะครับ

[nattanan]

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

[snasui]

ลองตามนี้ครับ

1. ที่ชีn Order เซลล์ G3 คีย์สูตร
   =TEXT(IF(OrderDetail!C3="",1,LOOKUP(CHAR(255),OrderDetail!C:C)+1),"000")
   Enter
2. ปรับ Code เป็นด้านล่าง

   Code: Select all

   Sub SaveData()
       Dim a As Range
       Dim b As Range
       Dim c As Range
       Dim d As Range
       Dim e As Range
       Dim f As Range
       Dim g As Range
       Dim dc As Range
       Dim vat As Range
       Dim i As Integer
       Dim r As Range
       
       Dim tg1 As Range
       Dim tg2 As Range
       Dim tg3 As Range
       Dim tg4 As Range
       Dim tg5 As Range
       Dim tg6 As Range
       Dim tg7 As Range
       
       Set a = Worksheets("Order").Range("g2")
       Set b = Worksheets("Order").Range("g3")
       Set c = Worksheets("Order").Range("c4")
       Set d = Worksheets("Order").Range("d4")
       Set e = Worksheets("Order").Range("c5")
       i = Application.Count(Worksheets("Order").Range("b7:b12"))
       Set f = Worksheets("Order").Range("d7:g12").Resize(i)
       Set dc = Worksheets("Order").Range("f14")
       Set vat = Worksheets("Order").Range("f15")
       
       Set tg1 = Worksheets("OrderDetail").Range("b" & Rows.Count) _
           .End(xlUp).Offset(1, 0).Resize(i, 1)
       Set tg2 = tg1.Offset(0, 1)
       Set tg3 = tg1.Offset(0, 2)
       Set tg4 = tg1.Offset(0, 3)
       Set tg5 = tg1.Offset(0, 4)
       Set tg6 = tg1.Offset(0, 5)
       Set tg7 = tg1.Offset(0, 9)
       
       a.Copy
       tg1.PasteSpecial xlPasteValues
       b.Copy
       tg2.PasteSpecial xlPasteValues
       c.Copy
       tg3.PasteSpecial xlPasteValues
       d.Copy
       tg4.PasteSpecial xlPasteValues
       e.Copy
       tg5.PasteSpecial xlPasteValues
       f.Copy
       tg6.PasteSpecial xlPasteValues
       
       For Each r In tg7
           r = r.Offset(0, -1) * dc.Value / 100
           r.Offset(0, 1) = r.Offset(0, -1) * vat.Value / 100
       Next r
       
       c = Clear
       Application.CutCopyMode = False
       
   End Sub
   

[nattanan]

ขอบพระคุณเป็นอย่างสูงครับสำหรับสูตร ครับ แต่......
สูตรที่ในลง G3 (Order) ผมใส่แล้วมันไม่เป็นสูตรครับ กลายเป็นข้อความเฉยเลย

[snasui]

กำหนด Format ให้เป็น General ก่อนแล้วค่อยคีย์สูตรครับ โดย

1. คลิกขวาลงในเซลล์ > Format Cells > แถบ Number เลือก General > OK
2. คีย์สูตรตามที่แนะนำ

[nattanan]

ขอบคุณมากครับ ได้แล้วครับ แต่....
1. หลังจากบันทึกข้อมูล (หลายแถว)แล้ว ที่G3 (Order) orrer (#value!) ครับ
แนบไฟล์มาแล้วครับ

(อย่าเพิ่งรำคาญนะครับ)

[snasui]

แนบไฟล์ที่ Error มาดูกันครับ

[nattanan]

ขอบคุณมากครับ ได้แล้วครับ แต่....
1. หลังจากบันทึกข้อมูล (หลายแถว)แล้ว ที่G3 (Order) orrer (#value!) ครับ
แนบไฟล์มาแล้วครับ

(อย่าเพิ่งรำคาญนะครับ)

[snasui]

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

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

=TEXT(IF(OrderDetail!C3="",1,RIGHT(LOOKUP(CHAR(255),OrderDetail!C:C),3)+1),"K000")

[nattanan]

สาธุ สาธุ ขอบคุณมากครับผม
ผมไปใส่อักษร เลยทำให้ค่ามัน เกิด orrer
ขอบคุณครับ

[nattanan]

มีเรื่องใหม่(สำหรับผมผู้ไม่รู้)นะครับ
1.อยากให้ เคอร์เซอร์ อยู่ตำแหน่งเริ่มต้นที่ C4
2.ถ้าเรากด enter หรือ tab ให้เคอร์เซอร์ ย้ายจาก C4 ไป C7 ไป E7 ไป C8 และ E8 จนถึง F15 (ตามช่องสีแดง) คือให้เคอร์เซอร์อยู่เฉพาะที่ต้องกรอกข้อมูล
ต้องใช้ VBA อย่างไรครับ
ขอบพระคุณมากครับ

[snasui]

1.อยากให้ เคอร์เซอร์ อยู่ตำแหน่งเริ่มต้นที่ C4

เราสามารถใช้ Code ตามด้านล่างได้ครับ

Code: Select all

Range("C4").Select

2.ถ้าเรากด enter หรือ tab ให้เคอร์เซอร์ ย้ายจาก C4 ไป C7 ไป E7 ไป C8 และ E8 จนถึง F15 (ตามช่องสีแดง) คือให้เคอร์เซอร์อยู่เฉพาะที่ต้องกรอกข้อมูล
ต้องใช้ VBA อย่างไรครับ

สามารถใช้การ Protect เข้ามาช่วยได้ แต่หากต้องการใช้ VBA จำเป็นจะต้องเขียนมาก่อน ติดตรงไหนแล้วมาถามกัน

สำหรับการ Protect ช่วย สามารถทำตามด้านล่างครับ

1. เลือกเซลล์ทั้งหมดที่ต้องการให้ Cursor สามารถวางลงในเซลล์ได้
2. คลิกขวา > Format Cells > แถบ Protection ปลดเครื่องหมายที่ Locked > OK
3. คลิกขวาที่แถบชีท > Protect sheet > ทำเครืองหมายเฉพาะ Select unlocked cells > OK

[nattanan]

ขอบคุณครับ
ผมมองข้าม เรื่องพื้นๆๆๆ จริงๆๆเลย มั่วแต่ไปคิดเรื่องเขียนโค๊ด อิอิอิ
นี่ละเขาถึงว่าคนเดียวหัวหาย ขอบคุณจริงๆๆครับ