:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

เพิ่มข้อมูลใหม่

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

เพิ่มข้อมูลใหม่

#1

Post by san02551 »

เรียนท่านผู้รู้ทุกท่าน ครับ
ผมต้องแก้ไขสูตรอย่างไรครับ
คือผมต้องการ คัดลอก เฉพาะ ส่วนที่มีข้อมูลเท่านั้น ครับ
"จากที่ผมเขียนไว้ ผมคัดลอกถึง Sheets(""InputData"").Select
Range(""B4:F18"").Select"
ทำให้บางครั้ง ข้อมูลจะเขียนที่ Sheets Alldata ทำให้เป็นช่องว่าง ครับ
และไม่ลบข้อมูลเก่า Sheets All data ทิ้งครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#2

Post by snasui »

:D ตัวอย่างการปรับ 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
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#3

Post by san02551 »

ขอบคุณครับ ใช้งานได้แล้วครับ
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#4

Post by san02551 »

ผมได้เขียนสูตรไว้ที่ Sheets edit =IF(C4="","",menu!$F$3)
ตั้งแต่ column b4:b50 แต่ผมไม่ต้องการ copy สูตร ดังกล่าว มาที่ Sheets AllData
เพราะว่า ผมไปเปลี่ยนตัวเลขที่ Sheets menu (f3) แล้ว ทำให้ข้อมูลที่ column A Sheets Alldata เปลี่ยนไปด้วยครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#5

Post by snasui »

:D ช่วยอธิบายมาใหม่อีกรอบว่าต้องการจะทำอะไร ที่ทำไปแล้วคืออะไร ปัญหาคืออะไร เพิ้อเพื่อน ๆ จะได้เข้าใจครับ
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#6

Post by san02551 »

ไม่ต้องการ copy สูตร จาก Sheets edit ไปที่ Sheets AllData ครับ
เพราะที่ Sheets edit column B4 ถึง B50 ผมใส่สูตรไว้ครับ
พอผม คลิกปุ่มบันทึกข้อมูล ที่ sheets edit แล้ว สูตรจะไปเขียนที่ Sheets Alldata column a2 ไปเรื่อยๆ
ทำให้เวลาพิมพ์เลขที่จัดซื้อที่ Sheets menu มันจะเปลี่ยนเป็นเลขที่จัดซื้อเดียวกันครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#7

Post by snasui »

:D เนื่องจากไม่พบว่ามี Code ไม่ทราบว่าเขียน Code ไว้ตรงไหน Code ชื่อว่าอะไรครับ
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#8

Post by san02551 »

แนบไฟล์ใหม่ ครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#9

Post by snasui »

:D ตามที่เขียนมาในไฟล์แนบ
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
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#10

Post by san02551 »

ไม่ต้องการ copy สูตร ครับ จะให้มีแต่เลขที่จัดซื้อ
ที่ Sheets Alldata column A จะมีสูตร =IF(B2="","",menu!$F$3) ติดมาด้วยครับ (จากการ copy ครับ)
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#11

Post by snasui »

:D ไม่เข้าใจครับ

ช่วยแสดงข้อมูลต้นทาง และข้อมูลปลายทางที่ต้องการหาก Copy ได้อย่างถูกต้องมาด้วย จะได้สะดวกในการทำความเข้าใจ

อย่าพยายามอธิบายว่าเขียนสูตรเช่นไร แต่ให้อธิบายว่าต้องการผลลัพธ์อย่างไรมาแทนครับ

การไม่ต้องการให้ Copy สูตร หมายถึงให้วางค่าที่ Copy มา โดยวางเฉพาะค่าเท่านั้นใช่หรือไม่ครับ :?:
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#12

Post by san02551 »

ให้วางเฉพาะค่าตัวเลข เท่านั้น ครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#13

Post by snasui »

:D ปรับ Code จาก ActiveSheet.Paste เป็น ActiveSheet.PasteSpecial xlPasteValues ครับ
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#14

Post 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
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#15

Post by snasui »

:D เปลี่ยนเป็น Selection.PasteSpecial xlPasteValues ครับ
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#16

Post by san02551 »

ขอบคุณครับ
และในที่นี้ ผมขออนุญาต นำเว็บบอร์ด snasui.com
ไปทำลิงค์ไว้ที่ เว็บบอร์ด สพป.ครับ http://www.loei2.go.th/forum57/forum.ph ... lay&fid=63
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#17

Post by snasui »

:D ยินดีครับ
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#18

Post 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
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: เพิ่มข้อมูลใหม่

#19

Post by snasui »

:D แม้จะอธิบายมาใน 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
san02551
Member
Member
Posts: 120
Joined: Fri May 06, 2011 2:15 pm

Re: เพิ่มข้อมูลใหม่

#20

Post by san02551 »

ขอบคุณครับ ใช้งานได้แล้วครับ
Post Reply