Snasui Excel Forum

snasui wrote: เราสามารถเขียน Code ไม่ให้ฟ้องได้ซึ่งจะต้องทราบว่าต้องการที่จะให้เกิดผลอย่างไร เช่น ปิดโดยไม่ Save ปิดโดย Save แต่ไม่ต้องถาม เป็นต้น ศึกษาตัวอย่างได้จาก Link นี้ครับ http://www.ozgrid.com/VBA/prevent-save-prompt.htm

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

พอจะมีโค้ดที่ใช้ตอบเจ้า Pop up แบบนี้บ้างไหมครับ

:D ค่อย ๆ ถามตอบกันไปครับ

ที่บอกว่า Update ทุกวันมีขั้นตอนอย่างไรบ้าง Update อะไรบ้าง

จากตัวอย่างกราฟที่แนบมามีหลายเส้นกราฟ แต่จาก Code ที่เขียนมานั้นเป็นการสร้างกราฟใหม่ ไม่ได้ Update กราฟเดิม

ลองอธิบายถึงสิ่งที่ต้องการมาอีกรอบ และสำหรับ Code ใน Module 3 ได้กำหนดช่วงข้อมูลที่ใช้ทำกราฟมาไม่ถูกต ...

snasui wrote: ช่วยแนบไฟล์ที่มีชีทตามที่เขียน Code

ใน Code อ้างถึงชีท AAV แต่ในไฟล์ไม่มีชีทนั้นครับ

ขออภัยด้วยครับอาจารย์ พอดีผมตั้งใจจะเขียนโค้ดให้มันลบชีทและสร้างชีทขึ้นมาใหม่แทนที่ไปเลย.

snasui wrote: ลองแนบไฟล์ตัวอย่างมาด้วย จะได้ช่วยทดสอบได้ครับ

รบกวนด้วยครับอาจารย์ โค้คจะอยู่ใน โมดูล3.

ผมมีตารางข้อมูลและกราฟเส้นที่ต้องมีการอัพเดททุกๆวัน ซึ่งผมลองเขียนโค้ดให้อัพเดทกราฟอัตโนมัติแล้ว แต่โค้ดไม่ทำงานครับ รบกวนแนะนำด้วยครับ.

Sheets("Graph").Select
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.ChartArea.Copy
Range("AK2 ...

:D ที่เครื่องผมทำงานได้เป็นปกติ คือสามารถ Filter ได้ Sort ได้ครับ

ลองอ่านที่ผมแนะนำไปช้า ๆ อีกครั้งว่าก่อน Sort ให้ทำอย่างไร

กรณีที่ต้องการ Protect แล้วให้ Sort ได้ คอลัมน์ที่ต้องการ Sort จะต้องปลด Locked ทั้งหมดก่อน สำหรับ Code นี้เป็นการใช้การ Protect และยกเลิกการ Protect มาช่วย หากไม่เลือกบรรท ...

:D นำ Code นี้ไปใส่ไว้ที่ชีท Lis Name ก่อน Sort ให้คลิกบรรทัดที่ 2 ซึ่งเป็นหัว Field ก่อนเสมอครับ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
If Target.Row = 2 Then
.Unprotect Password:=2112
Else
.Protect Password:=2112, AllowSorting:=True, AllowFiltering ...

ตัวปัญหาอยู่ใน Module 6 ครับ


Sub AddNewEmp()

:D ลองตามนี้ครับ ไปที่แท็บ Review > protect sheet แล้วก็ใส่รหััสผ่าน > OK

หากจะล็อคด้วยโค๊ด ตัวอย่างเช่น

Worksheets("TimeLog").Protect Password:="1234"

ครับ พอลองใส่โค้ดนี้ลงไปแล้ว แผ่นงานถูกป้องกันแล้วครับ แต่คลิกเลือกเซลล์ไหนไม่ได้เลยครับและก็กรองข้อมูลไม่ได้ด้วยครับ :o :o

bank9597 wrote: ต้องป้องกันแบบไหน เช่น ป้องการคีย์ข้อมูลลงในเซลล์และป้องกันการเปลี่ยนแปลงรูปแบบต่างๆ ลองอธิบายมาอีกครั้งครับ

ป้องกันโดยอนุญาตให้เลือกเซลล์ที่ล็อคไว้ได้ แต่แก้ไขข้อมูลในเซลล์ไม่ได้ และ อนุญาติให้กรองข้อมูลครับ

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




With ActiveSheet
.Protect Password:="xxxx ...

:D ขั้นต่อไปคือการ add calendar เข้าใน excel ของเรา (เฉพาะเวอร์ชั่น 2010) วิธีแก้ปัญหา ให้ทำตามขั้นตอนตามลิงค์นี้ครับ

http://snasui.com/viewtopic.php?f=9&t=2994

จากนั้น โหลดไฟล์แนบออกไปดู ซึ่งเป็นโปรแกรมที่ผมเขียนแจกไว้ โดยมีฟังก์ชั่นการเรียกใช้ปฏิทินอยู่ในชีท Report ของไฟล์แนบครับ

ศ ...

bank9597 wrote: ผมไม่มีไฟล์ตัวอย่างเลยครับ ต้องลองทำไฟล์ตัวอย่างมา พร้อมโค๊ด เดี๋ยวผมจะช่วยดูให้ครับ

ตามไฟล์ที่แนบมาเลยครับ อยากให้ userform มีแบบรูปด้านบน คือ ในส่วนของตัว Combobox ให้แสดงวันที่ปัจจุบันและมีปฏิทินโผล่ขึ้นมาเมื่อคลิกครับ. รบกวนช่วยดูหน่อยนะครับ.

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

ตามภาพเลยครับ คลิกที่ คอมโบ้บ๊อก ในยุสเซอร์ฟอร์ม แล้วมี ปฏิทินโผล่ขึ้น แถมเปิดมาตอนแรกแล้วโชว์วันที่ปัจจุบัน ในช่องคอมโบ้บ๊อกเดียวกันด้วยครับ. :shock:
แนบไฟล ...

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

ตามภาพเลยครับ คลิกที่ คอมโบ้บ๊อก ในยุสเซอร์ฟอร์ม แล้วมี ปฏิทินโผล่ขึ้น แถมเปิดมาตอนแรกแล้วโชว์วันที่ปัจจุบัน ในช่องคอมโบ้บ๊อกเดียวกันด้วยครับ.