Excel Forum

snasui wrote: ลองปรับ For...Next เป็นด้านล่างครับ

Code: Select all

For i = 1 To a
    Range("J3").Value = Range("J3").Value + 1
Next i

ได้แล้วค่ะ ขอบคุณมากค่ะ

ต้องการให้เลขที่เอกสาร +1 ทุกครั้งเมื่อกดสั่งพิมพ์ และหยุดที่หมายเลขสุดท้ายที่สั่งพิมพ์ไป
เมื่อเปิดไฟล์ขึ้นมาใหม่ ก็สามารถ พิมพ์ต่อจากเลขครั้งสุดท้ายได้เลยค่ะ

เช่น วันนี้ พิมพ์ 3 ฉบับ เลขที่เอกสารเป็น 1 , 2 , 3
วันต่อมา พิมพ์เพิ่มอีก 2 ฉบับ เลขที่เอกสารเป็น 4 , 5

ลองแก้จากโค๊ดของอาจารย์แล้วทำไม ...

ขอบคุณทุกท่านนะคะ

สูตรของคุณ joo -- ใส่สูตรแล้ว enter แสดงผลตามที่ต้องการดี แต่พอลากลงมาเรื่อยๆค่าจะเพี้ยนและขึ้น #value

วิธีของคุณ tupthai -- จะจำโครงสร้างเอาไว้นะคะ

สูตรของอาจารย์ -- ใช้ได้ดี ไม่ติดปัญหาค่ะ

แนบไฟล์แล้วค่ะ

ใส่สูตรแล้วได้แบบนี้ค่ะ

ยังแสดง 0 อยู่บางช่อง

=IF(ISNA(MATCH($E4,รายชื่อ!$B$4:$B$28,0)),"",IF(INDEX(รายชื่อ!$B$4:$E$28,MATCH($E4,รายชื่อ!$B$4:$B$28,0),2)=0,"",INDEX(รายชื่อ!$B$4:$E$28,MATCH($E4,รายชื่อ!$B$4:$B$28,0),3)))

ขอบคุณค่ะ ดูแล้วไม่น่ายาก แต่จะงงมากกว่า

ถ้าสูตรนี้ ต้องแก้ยังไงคะ ที่ไม่แสดงทั้งค่า 0 และ N/A

=INDEX(รายชื่อ!$B$4:$E$28,MATCH(E34,รายชื่อ!$B$4:$B$28,0),2)

snasui wrote: ลองปรับสูตรเป็นตามด้านล่างคับ

= IF($I16="","",IF(VLOOKUP($I16,Product,5,FALSE)=0,"",VLOOKUP($I16,Product,5,FALSE)))

ขอบคุณอาจารย์ค่ะ ได้เอกสารที่สมบูรณ์แล้ว
แนบไฟล์ไว้ด้วยเผื่อใครเอาไปประยุกต์ได้

ขอบคุณมากค่ะ ทำได้แล้ว เพราะทำไม่เป็นเลยค่ะ เลยไม่รู้ว่าต้องแก้จุดไหนบ้าง Name manager ยังไม่รู้เลยว่ามันอยู่ตรงไหน
ถามต่ออีกนิดค่ะ

เลขบัตรประชนถ้าไม่มี จะให้แสดงเป็นช่องว่าง ต้องกำหนดรูปแบบเซลส์ยังไงคะ ตอนนี้แสดงเป็น 0 0000 00000 00 0 อยู่ค่ะ

อยากทราบว่า จะกำหนดสูตร Useform ตรงไหนให้ เสิร์ทข้อมูล ในชีท "รายชื่อ"
เพราะก๊อบสูตรทั้งหมดมา แล้วนำมาปรับใช้ ปรับสูตรทั้งหมดแล้วเท่าที่เห็น แต่หาสูตรของ useform ไม่เจอ
ทำให้ ข้อมูลไม่แสดงใน listbox

แนบไฟล์ใหม่นะคะ

ช่วยดูให้ทีนะคะ หาโค๊ดที่ต้องปรับแก้ไม่เจอแล้ว เพิ่งหัดใช้ พยายามศึกษาอยู่ค่ะ

ไฟล์ที่แนบมา ใช้ useform เสิร์ทหาชื่อบริษัท แล้วนำข้อมูลมาแสดง ในช่องที่ต้องการค่ะ

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

:D จากที่ถามมา แบบง่ายที่สุดให้เอา 56000 เข้าไปบวก ลองปรับ Code มาดูครับ

ได้แล้วค่ะ แต่ไม่ใช่วิธีที่อาจารย์แนะนำ .. ปรับแบบง่ายๆเลย
บันทึกบิลที่ 1 เลขที่บิล จะเป็น 1
หลังจากนั้นเปลี่ยนเลขที่บิล ใน Database ให้เป็น 560001 เมื่อบันทึกบิลที่ 2 เลขที่บิลจะเป็น 560002
เนื่องจากสูตร เป็น MAX ใน ...

:D กรณีปรับเองไม่ได้เลย ไม่ควรใช้ VBA ครับ

VBA ต้องเขียนมาเองหรือปรับมาเองแล้วติดปัญหาจึงค่อยมาถามกัน จากไฟล์ที่แนบมานั้น ตรงส่วนไหนที่ปรับเองแล้วยังไม่ได้ครับ

ไฟล์ที่แนบ ปรับเรียบร้อยแล้วค่ะ ติดตรงที่
1. เลขที่บิล จากเดิม รันแบบ 1,2,3,... อยากให้เป็น 560001,560002,...
2. สงสัยตรงการแสดงผลของต ...

สวัสดีค่ะ

อยากถามสูตรเกี่ยวกับการ running เลขที่บิลค่ะ ตอนนี้ รันเลขได้เป็น 1,2,3,..
แต่ต้องการให้มีหลายตำแหน่ง เป็น 560001 จะต้องแก้สูตรยังไงคะ

เปลี่ยนการแสดงผล ตัวเลือก เงินสด-เช็ค ได้มั้ยคะ ในชีส Template

ใช้ VBA ไม่เป็นนะคะ สูตรในไฟล์แนบ ก๊อบของคนอื่นมา แล้วมาปรับเอาค่ะ
พยายามทำเองอยู่นาน แต ...