Excel Forum

ขอบคุณอาจารย์มากๆเลยครับ ^_^

รายละเอียดที่ต้องการครับ ขอบคุณครับ

รบกวนสอบถามอาจารย์เรื่อง Protect Sheet Code VBA ครับ เนื่องจากเวลาเรากดส่งข้อมูลไปยัง Sheet ต่างๆ จะทำการส่งข้อมูลไปยัง Sheet ต่างๆ แล้วสามารถล๊อค Sheet ได้ แต่ถ้าเรากดที่ Bottom box เปล่าๆ นั้นมันจะปลดล๊อค Sheet อยากทราบว่ามีวิธีการแก้ไขอย่างไรครับ คืออยากให้มันล๊อคตลอดและก็clear content ได้ด้วยครั...

[code] Sub Counterdata() other code Sheets("Input").Protect Password:="1234" '<==Protect ' ActiveSheet.Unprotect Password:="1234" '<==UnProtect End Sub [/code] คุณลอง Mark ตาม Code ข้างบน อาจจะทำได้ตามความต้องการ ขอบคุณครับ :thup: :thup: :thup: ทำได้ตามที่ท่านบอกครับ ต...

รบกวนสอบถามอาจารย์ทุกท่านครับ เนื่องจากผมต้องการจะล๊อค Sheet แต่พอ ตั้ง คำสั่ง Yes or no พอกด No ปรากฎว่ามันคลายล๊อคเอง มีคำสั่งอะไรเพิ่มเติมหรือเปล่าครับ ที่ทำให้มันล๊อค Sheet ถาวรเลย ขอบคุณมากครับ รบกวนด้วยครับ :?: :?: :?: :?: :?: Sub Counterdata() Dim historyWks As Worksheet Dim inputWks As Works...

ผมทำแบบนี้ครับ ผลลัพธ์ มันได้ ตัวอย่างเช่น 24_3_9:30 เวลาภายใน 9 โมง ถ้ากรอกไม่เกิน 9 โมงจะขึ้น 9:30 ทุกครั้งที่ Add ข้อมูลครับ เพียงแต่ผมติดปัญหาดังกล่าวเลยไม่รู้จะทำยังไงครับ

รบกวนสอบถามเกี่ยวกับเรื่องของคำสั่งเวลาครับ เช่น เราใช้คำสั่ง =Now แต่ถ้าหากเวลาผ่าน เที่ยงคืน 00.00ไป จากวันที่ 23 จะไปเป็นวันที่ 24 พอจะมีคำสั่ง ที่ให้เปลี่ยนวันที่ 24 เวลา7 : 30 บ้างไหมครับ ขอบคุณครับ

:shock: Code นั้นแค่ลบค่าในเซลล์ทิ้งไป ไม่ได้ Cut ครับ สำหรับการปรับปรุง Code ต้องปรับปรุงมาเอง ติดแล้วค่อยถาม ไม่สามารถถามต่อเนื่องโดยไม่ผ่านการลองปรับมาเองในสิ่งที่ต้องการเพิ่มเติมจากเดิมครับ Sub Button7_Click() Dim r1 As Range, r2 As Range Dim rTarget As Range With Sheets("¡ÐàªéÒ") Set...

With inputWks Set myRng = .Range(myCopy) If Not ActiveWorkbook.Saved Then Msg = "ท่านกรอกข้อมูลถูกต้องครบถ้วนหรือไม่? " Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel) Select Case Ans Case vbYes ThisWorkbook.Saved = True Case vbNo Cancel = True Case vbCancel Cancel = True Exit Sub End Select...

รบกวนสอบถามโค้ด VBA ครับ เงื่อนไขดังนี ถ้ากรอกข้อมูลไม่เต็มตารางสิขาวกดปุ่ม Bottombox Add to Evodatabase ให้ขึ้น MSG Box ว่า "กรุณากรอกข้อมูลให้ครบถ้วน" แต่ถ้ากรอกข้อมูลกรอบสีขาวครบถ้วนแล้ว ให้ขึ้น Msg ฺBox ว่า"ตรวจสอบข้อมูลถูกต้อง ครบถ้วนแล้วหรือไม่?" ถ้ากด Yes ให้นำข้อมูลส่งไปท...

:D ตัวอย่าง Code ตามด้านล่างครับ Sub DataM() Dim r1 As Range, r2 As Range Dim rTarget As Range With Sheets("¡ÐàªéÒ") Set r1 = .Range("a30:g30") Set r2 = .Range("b9:j16") End With With Sheets("DataM") Set rTarget = .Range("a" & Rows.Count).End(xl...

:D ตัวอย่าง Code ตามด้านล่างครับ Sub DataM() Dim r1 As Range, r2 As Range Dim rTarget As Range With Sheets("¡ÐàªéÒ") Set r1 = .Range("a30:g30") Set r2 = .Range("b9:j16") End With With Sheets("DataM") Set rTarget = .Range("a" & Rows.Count).End(xl...

:D แนบ Code มาพร้อมไฟล์ จะได้ช่วยทดสอบได้ครับ รบกวนอาจารย์ด้วยครับ :D :D Sub DataM() Dim r1 As Range, r2 As Range Dim rTarget As Range With Sheets("¡ÐàªéÒ") Set r1 = .Range("a30:g30") Set r2 = .Range("b9:j16") End With With Sheets("DataM") Set rTarget = .Rang...

snasui wrote: อ่านที่โพสต์แรกได้เลยครับ ผมเพิ่มเบอร์โทรให้แล้ว สังเกตไอค่อนมีการกรอกตาขึ้นด้านบน เป็นสัญญลักษณ์ว่าให้ดูด้านบนครับ

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

:D ลองปรับให้ Clear มาเองก่อนครับ ปรับแล้วติดตรงไหนสามารถถามมาได้เรือย ๆ ครับ ลองปรับดูตามนี้ไม่รู้ถูกหรอป่าว ผมยงังงๆครับ แต่ไม่ได้ -*- ต้องใส่เพิ่มเติมอย่างไรบ้างครับ ขอบคุณรับ Sub DataM() Dim r1 As Range, r2 As Range Dim rTarget As Range With Sheets("¡ÐàªéÒ") Set r1 = .Range("a30:...

snasui wrote: ผมขอเบอร์มาให้อีกเบอร์แล้ว ลองติดต่อดูครับ

เบอร์อะไรครับ

snasui wrote: ผมทดสอบให้แล้ว สามารถโทรได้ลองพยายามดูอีกครั้งครับ

ลองหลายรอบแล้วครับ "บอกเลขหมายที่เรียกอยู่ขนาดนี้ ไม่เปิดใช้บริการ" ครับ T_T ลองหลายรอบแล้วครับ มีเวปไซด์ หรือ คอร์สการอบรมใหม่ครับ ระยะเวลาเท่าไหร่ เรื่องใดบ้าง ราคา สถานที่ เวลาครับ แฮะๆ ถามอาจารย์มากไป รบกวนด้วยครับ ^^

snasui wrote: สามารถใช้ Code นี้แทน Code เดิมครับ

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

อาจารย์ครับ ติดตรงที่ตารางที่เรากรอกมัน ไม่ ทำการ Clear ครับ อาจารย์ ไม่ทราบว่าใช้คำสั่ง อะไรครับ ขอบคุณครับๆ

อาจารย์ครับ พอดีโทรหาเบอร์นี้ไม่ติด 094-916-3718 รบกวนขอเบอร์ใหม่ด้วยครับ พอดีสนใจ นะครับ ขอบคุณครับ

:D ลองปรับ Code เป็นตามด้านล่างครับ Sub test() Dim r1 As Range, r2 As Range Dim rTarget As Range With Sheets("¡ÐàªéÒ") Set r1 = .Range("a30:g30") Set r2 = .Range("b9:j16") End With With Sheets("DataM") Set rTarget = .Range("a" & Rows.Count).End(...