Excel Forum

:D Code นี้จะต้องมีเซลล์หลักในการใช้ตัดสินใจเพื่อที่จะแสดง Drop down หากว่าใช้งานได้ก็ไม่จำเป็นต้องหาวิธีอื่น การปรับ Code ในทุกความต้องการจำเป็นต้องเขียนมาเองก่อนเสมอ ติดปัญหาแล้วค่อยมาถามกันครับ ขอบคุณมากๆนะครับ สำหรับการช่วยเหลือในการพัฒนา Code VBA แค่นี้ก็ถือว่าช่วยผมได้เยอะมากๆ เลยครับ แต่ผมเข...

:lol: Code นั้นสามารถใช้ได้กับทุกเซลล์ที่มีสภาพเหมือนกับตัวอย่างที่ทำมา กรณีนำไปใช้กับเซลล์อื่นให้แนบไฟล์พร้อม Code ที่ปรับปรุงแล้วมาใหม่ ชี้ให้เห็นว่าต้องการใช้กับเซลล์ใด การใช้สีตัวอักษร ให้เน้นสีเท่าที่จำเป็น อย่าใช้สีเดียวกันหมดทุกข้อความจะสะดวกในการอ่านมากกว่าครับ ขอโทษนะครับ ตอนนี้ผมรู้เหตุผล...

:lol: Code นั้นสามารถใช้ได้กับทุกเซลล์ที่มีสภาพเหมือนกับตัวอย่างที่ทำมา กรณีนำไปใช้กับเซลล์อื่นให้แนบไฟล์พร้อม Code ที่ปรับปรุงแล้วมาใหม่ ชี้ให้เห็นว่าต้องการใช้กับเซลล์ใด การใช้สีตัวอักษร ให้เน้นสีเท่าที่จำเป็น อย่าใช้สีเดียวกันหมดทุกข้อความจะสะดวกในการอ่านมากกว่าครับ ขอโทษนะครับ ที่ใช้สีตัวอักษรเ...

:D ตัวอย่าง Code ครับ '...other code Cancel = True Application.EnableEvents = False If InStr(Target.Offset(0, -1).Value, " ") Then str = Replace(Target.Offset(0, -1).Value, " ", "_") Else str = Target.Offset(0, -1).Value End If With cboTemp 'show the combobox with the ...

:D ตัวอย่าง Code ครับ '...other code Cancel = True Application.EnableEvents = False If InStr(Target.Offset(0, -1).Value, " ") Then str = Replace(Target.Offset(0, -1).Value, " ", "_") Else str = Target.Offset(0, -1).Value End If With cboTemp 'show the combobox with the ...

snasui wrote: ยินดีด้วยครับ

คำว่า "อะครับ" ให้ใช้คำว่า "ครับ" แทนตามกฎข้อ 1 ด้านบนครับ

ขอโทษนะครับ พอดีติดมือไปหน่อย ขอบคุณมากๆนะครับ

snasui wrote: กรุณาโพสต์ Code ให้แสดงเป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ขอบคุณมากๆนะครับ ที่ให้คำแนะนำ

พอดีผมทำ Drop Down list ขึ้นมา 2 ชั้นครับ =indirect(A1) โดยสูตรนี้ใช้กับ Drop Down list ครับ แต่รายการเลือกของ Drop Down list มันเล็กเกินไปไม่สามารถปรับขนาดตัวอักษรได้ ผมเลยเอา Combo Box เข้ามาช่วยครับ โดยใช้ Code VBA ให้ Combobox ทับ Drop Down list ทุกอันและใช้ข้อมูลจาก Drop Down list ครับ (ซึ่ง Co...

ผมอยากทราบครับ ว่า Code VBA สามารถที่จะใส่ Code แล้วพิมพ์ แนวตั้ง และ แนวนอนใน Sheet เดียวกันได้ไหมครับ
คือ ผมต้องการให้ หน้า 1 เป็นแนวตั้ง และ หน้า 2 เป็นแนวนอน แล้วสามารถใส่ Code ให้ Zoom ได้ด้วยเหมือนตอนตั้งค่าหน้าพิมพ์ปกติครับ สามารถทำได้หรือไม่ครับ

ถ้ามี ผมต้องใช้ Code ยังไงครับ

ผมลองทำไปทำไม ผมทำได้แล้วนะครับ โดยการเปลี่ยนจาก Code นี้ Private Sub CommandButton1_Click() ActiveSheet.Unprotect "Secret" ActiveSheet.PivotTables("pivotTable1").PivotCache.Refresh ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Secret&...

ไฟล์แนบครับ

ได้ทำ input sheet ให้ผู้ใช้ใส่ข้อมูล จึงต้องการ protect บาง cell ที่มีสูตรไว้ไม่ให้แก้ไขได้ และเหลือบาง cell สำหรับใส่ หรือ เลือกข้อมูล การ protect sheet โดยเลือก Edit Objects ไว้ด้วย เพื่อให้ Combo box ที่มี vba ทำงาน และการเลือกส่วนที่จะให้ใส่ data จะได้ข้อมูลดิบเพื่อไปทำตาราง Pivot table เพื่อหาข...