Snasui Excel Forum

อาจารย์ครับผมใช้คำสั่ง Call Mudule เอานะครับจะได้ตัดไปหาไปเลยครับ
ตอนนี้ save ได้แล้วครับขอบคุณครับ

ปัญหาของผมคือ ผม lock sheet ไว้
พอ run คำสั่ง macro เสร็จแล้วมันขึ้น Error ว่า read only ครับ
ถ้าปลดล็อกจะสามารถ copy data ได้

มันไม่มี code สำหรับการ save แต่ใช้คำสั่ง Copy แล้วค่อยไป Save ใน โปรแกรม Excel อีกทีไม่ได้เลอครับ

อาจารย์ครับผมลองดูหลายๆ กระทู้แล้วไม่เห็นมีใครใส่คำสั่ง save เลย
viewtopic.php?f=3&t=1590&p=11080&hilit=protect#p11080
ช่วยเกรินนิดๆ ได้ไหมครับ

อาจารย์คับผมงงครับ
ช่วยพูดภาษาเถือนๆ ได้ไหมคับผมงงครับ

Public Sub SaveJig() '' Form
ActiveSheet.Unprotect Password:="1111"
If Range("C4") <> "" And Range("E4") <> "" And Range("C5") <> "" And Range("E5") <> "" Then
Sheets("temp").Range("A2:K2").Copy
Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets ...

ครับอาจารย์ผมเขียน macro แล้ว
อันนี้เป็นคำสั่ง save ครับ

Public Sub SaveJig() '' Form
ActiveSheet.Unprotect Password:="1111"
If Range("C4") <> "" And Range("E4") <> "" And Range("C5") <> "" And Range("E5") <> "" Then
Sheets("temp").Range("A2:K2").Copy
Sheets("Database").Range("A" & Rows.Count).End ...

ไป insert Button มาแล้วเขียน code vba เลอครับ

เดี๋ยวผมแนบไฟล์ไปให้ใหม่นะครับ

ผมต้องการที่จะ Protect sheet ไว้แต่พอเวลา save แล้วมันก็ขึ้น Error ตอน Save ทุกทีครับ
ลองทำตามกระทู้นี้แล้วแต่ก็ไม่ได้ผลครับ
viewtopic.php?f=3&t=404&p=4419&hilit=Protect
มันต้องมี code อะไรเพิ่มหรือเปล่า???

ขอบคุณมากครับอาจารย์..

ผมต้องการให้ user ใส่รหัส PR เพื่อให้สามารถ Reprint ได้ ตามที่ค้นหา
ผลปรากฏว่าดึงข้อมูลมาได้ แต่ว่า ได้ข้อมูลเพียง record เดียว
เราจะมีวิธีดึงข้อมูลอย่างไรว่า ถ้าจะหาหมายเลข ID นั้น ๆ ให้มันวนแสดงทั้งหมดเลย

อ้อ ครับ เข้าใจแล้วครับ

ผมลองศึกษาจากสูตรพี่ๆ ในเว็ปแล้วเขาใส่สูตรที่มีปีกกา "{}" ผมลองใส่สูตรนี้ดูแล้วปราฏกว่ามันใส่ไม่ได้
แล้วคนที่เขาทำมาเขาใส่ได้อย่างไร มันมีไว้ทำไมครับ

ขอบพระคุณมากครับท่านอาจารย์

อยากให้เลือก datavalidation แล้วไปปรากฏที่ option button อัตโนมัติ

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

="NO."&A1&"/"&Text(B1+1,"0000")

สุดดดดดดดดดดยอด อาจารย์
ขอบคุณครับ

คือผมลองปรับ format cell เป็น 0000 แล้วก็ไม่ได้นะครับ
อยากให้เป็นตัวเลข 4 ตำแหน่งนะครับ

bank9597 wrote: เพิ่มเติมอีกนนิดครับ

จากสูตร =right(max(PurchaseOrder!$A:$A),4)+0 ให้เพิ่ม +0 เข้าไปอีกครับ เป็น

=right(max(PurchaseOrder!$A:$A),4)+0

+ 0 เพิ่มทำไมครับ หรือว่าต้องการให้อ้างอิงจากตำแหน่งที่ 0 ครับ

ได้แล้วครับ สุดยอดเลยครับคุณChoBkuN