Page 1 of 1
สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 2:21 pm
by piches
สวัสดีครับอาจารย์เพือนๆทุกท่าน ผมขอความรู้ในการรันเลขที่เอกสารครับ
ผมต้องการ V0001 + 1 =V0002 ใช้สูตรอะไรได้บ้างครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 2:47 pm
by Serverchita
มีไฟล์ไหมครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 2:54 pm
by piches
A2=V0001
A3=RIGHT(A2,4)+1
A4=TEXT(A3,"V0000")ก็ได้ผลลัพธ์ที่ต้องการ คือ V0002
แต่มีวิธีที่บวกกัน เช่น A2+1= V0002 ต้องใช้สูตรอะไรครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 2:58 pm
by piches
ไฟล์ตัวอย่างครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 3:02 pm
by Serverchita
ลองดูนะครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 3:39 pm
by piches
ขอบคุณครับท่านServerchita ผมลองแล้ว
หากเลขที่บิลเกินหลักร้อย เช่น V0228
จะได้ผลลัพธ์ V000229 จะมีเลขศูนย์เพิ่มมาอีก2ตัวครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 4:15 pm
by XDoll

จากไฟล์แนบ ลองสูตรนี้ครับ
ที่ A3 =LEFT(A1,1)&TEXT(MID(A1,2,4)+A2,"0000")
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 8:35 pm
by Serverchita
ลองแบบนี้ดูนะครับ
แล้วลากสูตรลงมาเลื่อยๆ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Thu Jul 14, 2016 10:50 pm
by piches
Serverchita wrote:ลองแบบนี้ดูนะครับ
แล้วลากสูตรลงมาเลื่อยๆ
=IFERROR(LEFT(A1,1)&TEXT(1+RIGHT(A1,4),"0000"),"")ขอบคุณครับสูตรนี้ใช้ได้ตามต้องการเลยครับ

Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Sat Mar 21, 2020 10:00 am
by Aseerom
สอบถามครับอาจารย์ถ้าผมต้องการให้มีกล่องโต้ตอบขึ้นมาให้ใส่เลขที่เราพิมพ์สุดท้ายต้องทำยังไงครับเพราะทุกครั้งต้องเอาเลขสุดท้ายไปกรอกในหน้า code
**ผมพึ่งเริ่มเรียนรู้การทำ VBA ครับ
ขอบคุณครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Sat Mar 21, 2020 11:55 am
by snasui

ในไฟล์ที่แนบมามีตัวอย่าง InputBox อยู่แล้ว ลองเพิ่ม InputBox มาอีกกล่องเพื่อรับตัวเลขสุดท้ายที่เราต้องการ ลองทำเองดูก่อน ติดตรงไหนค่อยแนบไฟล์นั้นมาถามกันต่อครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Mon Mar 23, 2020 3:58 pm
by Aseerom
ขอบคุณครับอาจารย์
ขอสอบถามอีกนิดครับ ถ้าต้องการให้เลขที่พิมพ์ครั้งสุดท้ายให้วนกลับมาใส่ตรง i ได้ไหมครับ อาจารย์
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Mon Mar 23, 2020 5:52 pm
by snasui

ทำได้ครับ
วิธีการคือ เก็บค่า i ไว้ในเซลล์ใด ๆ แล้วค่อยนำมาใช้ในการรันครั้งถัดไปครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Tue Mar 24, 2020 1:52 pm
by Aseerom
ขอโทษครับอาจารย์พอมีตัวอย่างคร่าวๆไหมครับ ผมไม่ค่อยมีพื้นฐานการเขียนสูตรเลยครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Tue Mar 24, 2020 7:05 pm
by snasui

ให้ค่า i มีค่าเท่ากับเซลล์ใด ๆ เช่น
i = Range("s1").Value
การกำหนดให้เซลล์ใด ๆ มีค่าเท่ากับค่า i เช่น
Range("s1").Value = i ครับ
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Wed Mar 25, 2020 1:09 pm
by Aseerom
ขอบคุณครับ อาจารย์
ผมจะลองเอาไปประยุกต์ใช้ครับ ส่วนคำถามแรกผมทำได้แล้วนะครับ InputBox
Re: สอบถามสูตร รันเลขที่เอกสารครับ
Posted: Wed Mar 25, 2020 8:03 pm
by snasui

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