Page 1 of 3
เพิ่มข้อมูลใหม่
Posted: Tue Dec 09, 2014 8:23 pm
by san02551
เรียนท่านผู้รู้ทุกท่าน ครับ
ผมต้องแก้ไขสูตรอย่างไรครับ
คือผมต้องการ คัดลอก เฉพาะ ส่วนที่มีข้อมูลเท่านั้น ครับ
"จากที่ผมเขียนไว้ ผมคัดลอกถึง Sheets(""InputData"").Select
Range(""B4:F18"").Select"
ทำให้บางครั้ง ข้อมูลจะเขียนที่ Sheets Alldata ทำให้เป็นช่องว่าง ครับ
และไม่ลบข้อมูลเก่า Sheets All data ทิ้งครับ
Re: เพิ่มข้อมูลใหม่
Posted: Tue Dec 09, 2014 9:58 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Sub copy()
Range("B4:F18").Select
Selection.copy
Sheets("AllData").Select
Range("c" & Rows.Count).End(xlUp).Offset(1, -1).Select
ActiveSheet.Paste
Sheets("InputData").Select
Range("B4:F18").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B4").Select
End Sub
Re: เพิ่มข้อมูลใหม่
Posted: Wed Dec 10, 2014 7:19 am
by san02551
ขอบคุณครับ ใช้งานได้แล้วครับ
Re: เพิ่มข้อมูลใหม่
Posted: Wed Dec 10, 2014 2:09 pm
by san02551
ผมได้เขียนสูตรไว้ที่ Sheets edit =IF(C4="","",menu!$F$3)
ตั้งแต่ column b4:b50 แต่ผมไม่ต้องการ copy สูตร ดังกล่าว มาที่ Sheets AllData
เพราะว่า ผมไปเปลี่ยนตัวเลขที่ Sheets menu (f3) แล้ว ทำให้ข้อมูลที่ column A Sheets Alldata เปลี่ยนไปด้วยครับ
Re: เพิ่มข้อมูลใหม่
Posted: Wed Dec 10, 2014 8:15 pm
by snasui
ช่วยอธิบายมาใหม่อีกรอบว่าต้องการจะทำอะไร ที่ทำไปแล้วคืออะไร ปัญหาคืออะไร เพิ้อเพื่อน ๆ จะได้เข้าใจครับ
Re: เพิ่มข้อมูลใหม่
Posted: Wed Dec 10, 2014 8:29 pm
by san02551
ไม่ต้องการ copy สูตร จาก Sheets edit ไปที่ Sheets AllData ครับ
เพราะที่ Sheets edit column B4 ถึง B50 ผมใส่สูตรไว้ครับ
พอผม คลิกปุ่มบันทึกข้อมูล ที่ sheets edit แล้ว สูตรจะไปเขียนที่ Sheets Alldata column a2 ไปเรื่อยๆ
ทำให้เวลาพิมพ์เลขที่จัดซื้อที่ Sheets menu มันจะเปลี่ยนเป็นเลขที่จัดซื้อเดียวกันครับ
Re: เพิ่มข้อมูลใหม่
Posted: Wed Dec 10, 2014 8:43 pm
by snasui
เนื่องจากไม่พบว่ามี Code ไม่ทราบว่าเขียน Code ไว้ตรงไหน Code ชื่อว่าอะไรครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 7:55 am
by san02551
แนบไฟล์ใหม่ ครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 8:27 am
by snasui
ตามที่เขียนมาในไฟล์แนบ
san02551 wrote:แต่ผมไม่ต้องการ copy สูตร ดังกล่าว มาที่ Sheets AllDataเพราะว่า ผมไปเปลี่ยนตัวเลขที่ Sheets menu (f3) แล้ว
เมื่อไม่ต้องการ Copy ไปก็ต้องไม่เลือกคอลัมน์ B ไปด้วย ให้เริ่มเลือกตั้งแต่คอลัมน์ C เป็นต้นไป
Code ก็จะเปลี่ยนเป็นตามด้านล่างครับ
Code: Select all
Sub Picture3_Click()
Range("C4:F18").Select
Selection.copy
'Other code
End Sub
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 9:38 am
by san02551
ไม่ต้องการ copy สูตร ครับ จะให้มีแต่เลขที่จัดซื้อ
ที่ Sheets Alldata column A จะมีสูตร =IF(B2="","",menu!$F$3) ติดมาด้วยครับ (จากการ copy ครับ)
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 10:21 am
by snasui
ไม่เข้าใจครับ
ช่วยแสดงข้อมูลต้นทาง และข้อมูลปลายทางที่ต้องการหาก Copy ได้อย่างถูกต้องมาด้วย จะได้สะดวกในการทำความเข้าใจ
อย่าพยายามอธิบายว่าเขียนสูตรเช่นไร แต่ให้อธิบายว่าต้องการผลลัพธ์อย่างไรมาแทนครับ
การไม่ต้องการให้ Copy สูตร หมายถึงให้วางค่าที่ Copy มา โดย
วางเฉพาะค่าเท่านั้นใช่หรือไม่ครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 12:21 pm
by san02551
ให้วางเฉพาะค่าตัวเลข เท่านั้น ครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 12:54 pm
by snasui
ปรับ Code จาก
ActiveSheet.Paste เป็น
ActiveSheet.PasteSpecial xlPasteValues ครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 2:03 pm
by san02551
Code: Select all
Sub Picture3_Click()
Range("b4:f18").Select
Selection.copy
Sheets("AllData").Select
Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.PasteSpecial xlPasteValues ' ติดบนทัดนี้ครับ erro
Sheets("edit").Select
Range("c4:F18").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B4").Select
End Sub
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 2:07 pm
by snasui
เปลี่ยนเป็น
Selection.PasteSpecial xlPasteValues ครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 2:24 pm
by san02551
ขอบคุณครับ
และในที่นี้ ผมขออนุญาต นำเว็บบอร์ด snasui.com
ไปทำลิงค์ไว้ที่ เว็บบอร์ด สพป.ครับ
http://www.loei2.go.th/forum57/forum.ph ... lay&fid=63
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 2:27 pm
by snasui
ยินดีครับ
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 3:31 pm
by san02551
Code: Select all
Sub Picture3_Click()
Range("b4:f18").Select
Selection.copy
Sheets("AllData").Select
'Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Select ถ้าเป็น code แถวนี้ จะเขียนเว้นแถว ครับ ทำให้ข้อมูลไม่ต่อแถว ครับ
Range("a" & Rows.Count).End(xlUp).Offset(1, -1).Select 'ถ้าผมใช้ code แถวนี้ จะติด erro ครับ
Selection.PasteSpecial xlPasteValues
Sheets("edit").Select
Range("c4:F18").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B4").Select
End Sub
Re: เพิ่มข้อมูลใหม่
Posted: Sat Dec 13, 2014 3:55 pm
by snasui
แม้จะอธิบายมาใน Code แล้วก็ควรอธิบายมาเป็นข้อความพอสังเขปด้วย เพื่อสะดวกต่อการทำความเข้าใจประเด็นปัญหาครับ
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub Picture3_Click()
Range("b4:f18").Select
Selection.copy
Sheets("AllData").Select
lastrow = Application.Match(9.99999999999999E+307, Sheets("AllData").Range("a:a")) + 1
Range("a" & lastrow).Select
Selection.PasteSpecial xlPasteValues
Sheets("edit").Select
Range("c4:F18").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B4").Select
End Sub
Re: เพิ่มข้อมูลใหม่
Posted: Tue Dec 16, 2014 3:21 pm
by san02551
ขอบคุณครับ ใช้งานได้แล้วครับ