Page 1 of 1
สุ่มเพื่อแก้ไข
Posted: Sun Jul 06, 2014 10:47 pm
by torisan
สวัสดีครับ ผมอยากทราบวิธีที่จุสุ่มหาข้อมูลเพื่อมาแก้ไขทั้งบรรทัดครับ
รบกวนด้วยนะครับ หากการโพสข้อความของผมไม่ถูกต้องก้อต้องขอโทษทุกท่านด้วยนะครับ
ผมพึ่งมาใหม่และพึ่งเรียนรู้เรื่องการใช้งาน EXCEL ครับ
ขอบคุณครับ
Re: สุ่มเพื่อแก้ไข
Posted: Mon Jul 07, 2014 6:32 pm
by snasui
การทำเช่นนั้นต้องใช้ VBA เข้ามาช่วย ต้องเขียนมาก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
Re: สุ่มเพื่อแก้ไข
Posted: Mon Jul 07, 2014 6:51 pm
by torisan
ขอบคุณครับ เดี๋ยวยังไงผมจะลองศึกษาและเรียนรู้เพ่ิมเติมเกี่ยวกับ VBA ครับ ขอบคุณครับ แล้วมาขอความช่วยเหลืออีกรอบครับอาจารย์ครับ
Re: สุ่มเพื่อแก้ไข
Posted: Mon Jul 07, 2014 8:23 pm
by torisan
อาจารย์ครับผมลองทำแล้ว แต่ปัญหาที่เจอเยอะมากเลยครับเพราะไม่รู้จะเริ่มยังงัยดี(พึ่งเริ่มทำความรู้จักกับมันน่ะครับ)
ปัญหาที่1 พอกดบันทึกในครั้งที่2 หรือกรอกข้อมูลในรอบที่2 มันทับกับอันเก่าที่เราบันทึกในครั้งแรกน่ะครับมันไม่บันทึกในบรรทัดถัดไป
ปัญหาที่ 2 คือถ้าผ่านปัญหาที่ 1 ได้แล้ว แล้วถ้าผมมีข้อมูลจนครับแล้วเราจะสุ่มเพื่อนำข้อมูลมาแก้ไขได้อย่างไรครับ
Re: สุ่มเพื่อแก้ไข
Posted: Mon Jul 07, 2014 8:25 pm
by snasui
Code ที่เขียนมาเองแล้วชื่อว่าอะไร ติดขัดบรรทัดใด แนบ Code มาในไฟล์ด้วยเสมอครับ
Re: สุ่มเพื่อแก้ไข
Posted: Mon Jul 07, 2014 10:24 pm
by torisan
Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
Sheets("Form").Range("G2:J1673") _
.Resize(Sheets("Form").Range("N1"), 4).Copy
Sheets("Database").Range("a" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Form").Range("G2:J1673").ClearContents
MsgBox ("Finish")
Else
MsgBox ("Error")
End If
End Sub
อาจารย์ครับที่ผมทำมาน่ะครับ ทุกคนอาจจะมองว่าง่าย แต่มันยากมากสำหรับตัวผมที่พึ่งเรียนรู้เรื่องนี้ครับ
และปัญหาที่เจอเยอะมากเลยครับเพราะไม่รู้จะเริ่มยังงัยดี(พึ่งเริ่มทำความรู้จักกับมันน่ะครับ)
ปัญหาที่1 พอกดบันทึกในครั้งที่2 หรือกรอกข้อมูลในรอบที่2 มันทับกับอันเก่าที่เราบันทึกในครั้งแรกน่ะครับมันไม่บันทึกในบรรทัดถัดไป
ปัญหาที่ 2 คือถ้าผ่านปัญหาที่ 1 ได้แล้ว แล้วถ้าผมมีข้อมูลจนครับแล้วเราจะสุ่มเพื่อนำข้อมูลมาแก้ไขได้อย่างไรครับ
พอทำเข้าไปแล้วการบันทึกยังไม่เป็นเลยครับ
อาจารย์ครับถ้าผมทำไม่ถูกหรือมันต้องแก้เยอะมาก อาจารย์ก้อบอกผมได้เลยนะครับผมจะกลับไปทำความเข้าจัยกับมันอีกครั้งนึงเพื่อที่จะได้มีข้อบกพร่องให้น้อยที่สุดเพื่อที่อาจารย์และท่านผู้รู้จะได้แก้ไขและปรับปรุงให้น้อยมากที่สุด
แต่ยังไงซะผมก็ต้อบขอขอบคุณอาจารย์นะครับที่เสียสละเวลามาตอบคำถามผม ขอบคุณครับผม ขอบคุณอาจารย์จริงๆ
Re: สุ่มเพื่อแก้ไข
Posted: Mon Jul 07, 2014 10:49 pm
by snasui
แนบ Code มาในไฟล์ด้วยครับ สำหรับการโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างที่นี่ครับ
viewtopic.php?style=3&f=3&t=1187