Snasui Excel Forum

ขอบคุณมากครับ

แต่ก่อนใช้ For each...Next
ตัวแปรที่กำหนดให้ล็อคเซลล์ใช้ Target ก็ใช้ได้ครับ
Range(Cells(Target.Row + 1, Target.Column), Cells(Target.Row + 1, Target.Column + 1)).Locked = True
ลืมไปว่าไม่ต้องใช้ For each...Next ก็ได้(มั่วอยู่หลายวัน)
ตอนนี้สงสัยเรื่องการประกาศช่วงให้แต่ละเซลล์
ทำไมต้องเป็น Target ...

ทำได้เฉพาะเซลล์ที่เลือกครับ อยากให้รันวนรอบได้หมดทุกตัว
แต่ก่อนเคยกำหนดให้เงื่อนไขเซลล์ที่เลือกเป็น Target เหมือนกันครับ
พอทำแลวเซลล์ด้านล่างจะเปลี่ยนได้เฉพาะเซลล์ที่เราเลือกเหมือนที่อาจารย์แนะนำ
ก็เลยเปลี่ยนมาใช้ค่า Cell1 แทน และกำหนดคำสั่ง For Each Cell1 In Range("C2:N2").Cells เข้าไป
เพื่อที่จะให ...

เซลล์ K2 รายการคือ "เน่า" เซลล์ด้านล่างจะต้องแสดง Validation และไม่ล็อค --> ถูกต้อง
แต่ถ้าลบเซลล์ K2 เป็นช่องว่าง เซลล์ด้านล่างจะไม่เปลี่ยนแปลง(จะยังมีรายการให้เลือกและเซลล์ไม่ล็อค)
ที่ถูกต้อง เซลล์ด้านล่างจะต้องไม่มีค่าใดๆ เลย และเซลล์จะต้องถูกล็อคครับ

"เซลล์เป้าหมาย" คือเซล์แถวที่ 2
"เซลล์ด้านล้าง" คือเซลล์ที่ต้องการให้เปลี่ยนแปลงและล็อค/ไม่ล็อค
ค่าที่ต้องการไม่ให้เซลล์ด้านล่างล็อค คือ "เน่า" --> สามารถเลือกผลที่เน่าได้ว่ามีกี่ผล
จากคำสั่งที่เขียนต้องการให้ค่าวน loop ตามเงื่อนไขไปเลื่อยๆ
- กำหนดให้เป้าหมายเป็นแถวที่ 2 ในช่วง Range("C2:N2")
- เง ...

วิธีการที่ลองเดาๆ ดูมาหลายวันและยังทำไม่ได้ ปัญหาน่าจะมาจาก .Locked ไม่เข้าใจเงื่อนไข ดังนี้
1) ต้องการให้เซลล์ด้านล่างล็อคเมื่อเมื่อเซลล์เป้าหมายไม่ใช่ค่าที่ต้องการหรือค่าที่ต้องการให้ล็อค(กำหนดเงื่อนไขถูกต้อง) --> ผลที่ได้ .Validation ทำได้ตามเงื่อนไข(เป็นจริง)แต่ .Locked เซลล์ด้านล่างไม ...

แก้ไขได้แล้วครับแค่ Clear Locked ก็รัน Macro ได้แล้ว(ไม่ต้องใช้ Code)
แต่ปัญหาคือว่า ถ้าหาก Save ไฟล์เมื่อไหร่แล้วเปิดใหม่ขึ้นมาจะเจอข้อความแบบนี้

"Excel found unreadable content in '........................xlsm'. Doyou want to remove the content of this workbook? If you trust the source of this ...

ปัญหาใหม่ครับ ลองปรับสูตร Protect Sheet ไปเรื่อย(กำลังจะได้)
ลองปิดไฟล์แล้วเปิดใหม่กลับเจอข้อความแจ้งเตือนครับ

"Excel found unreadable content in '........................xlsm'. Doyou want to remove the content of this workbook? If you trust the source of this workbook, clik Yes."
'
'
'
'
"Removed ...

มีปัญหาเพิ่มเติมเรื่องการ Protect Sheet ไม่สามารถเปลี่ยนรูปได้ครับ
ได้ลองเปลี่ยนจากใช้ฟังก์ชั่นการ Protect Sheet ของ Excel มาเป็น Code(ด้านล่าง) ก็ไม่สามารถเปลี่ยนรูปได้ตามรายการครับ
Sub MyMacro()
Sheet1.Unprotect Password:="Secret"
'YOUR CODE
Sheet1.Protect Password:="Secret"
End Sub

เรียน อาจารย์

ปัญหาดังกล่าวข้างต้นสามารถแก้ไขได้(นาน)แล้วครับ แต่มีปัญหาใหม่เพิ่มเติมได้ลองทำ/เดามาหลายครั้งแต่ก็ทำไม่สำเร็จสักที รบกวนอาจารย์ช่วยดูให้หน่อยครับ
1. ซ่อน Comment ถ้าหากแถวนั้นไม่มีข้อความ เช่น การ Delete แถวให้ว่างไม่มีรายการ หรือ เลือกรายการว่างที่เตรียมไว้ใน List ที่ทำได้คือไม ...

เรียน อาจารย์

ปัญหาดังกล่าวข้างต้นสามารถแก้ไขได้(นาน)แล้วครับ แต่มีปัญหาใหม่เพิ่มเติมได้ลองทำ/เดามาหลายครั้งแต่ก็ทำไม่สำเร็จสักที รบกวนอาจารย์ช่วยดูให้หน่อยครับ
1. ซ่อน Comment ถ้าหากแถวนั้นไม่มีข้อความ เช่น การ Delete แถวให้ว่างไม่มีรายการ หรือ เลือกรายการว่างที่เตรียมไว้ใน List
2. ให้แสดง Comment ...

สงสัยปัญหาเพิ่มเติมครับ
1.ทำไมทำ cell เดียว --> แสดงรูปภาพใน comment แล้วไม่มีกรอบขยาย
แต่ทำใน merged cell --> แสดงรูปภาพใน comment แล้วมีกรอบขยาย
มีเทคนิคหรือวิธิเพิ่ม code ให้ไม่แสดงกรอบขยายเหมือนทำใน cell เดียวไหมครับ เพราะเวลาเลือกรายการจะได้ดูรูปง่ายๆ
3.การเปลี่ยนรูปไม่ค่อยราบรื่นเหมือน cell เด ...

ก่อนส่งก็เดาไปหลายกระบวนท่า
รบกวนช่วยด่านแรกให้ผ่านหน่อยนะครับ (แสดงรูปในรายการ comment)
ด่านต่อไปแสดงรูปแบบมีเงื่อนไข IF
"ตาบอดถามทาง" ต้องขออภัย

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

2. เพิ่มสูตรให้กับหลายแถว ทำกับ cell เดียวได้แต่ cell ผสามทำไม่ได้เช่นเดียวกันครับ(อันนี้ก็เดาจนปวดหัวเหมือนกันก็ยังไม่สำเร็จเลย)
ช่วยชี้แนะด้วยครับ
Sub AddPics ...

ใช้สูตรเหมือนเดิมกับกระทู้ข้างบนครับแต่เปลี่ยนแค่ตำแหน่งจากเซลล์เดียวเป็นเซลล์ผสานแทนแต่ไม่แสดงผลครับ
เช่น ผสานเซลล์ A1:C1 ตำแหน่งเซลล์คือ A1 (เหมือน excel ระบุ) แต่ VBA ไม่รู้จักมั๊งครับ
ผมก็เลยลองเดาเปลี่ยนตำแหน่งแหน่งเซลล์ไปเลื่อยแต่ก็ทำไม่ได้ครับ หาทางออกไม่เจอเลยมาขอคำปรึกษาครับ
(มือใหม่หัดทำ ...

สอบถามปัญหาเพิ่มเติมครับ
1. ผสานเซลล์ A B C แถวที่ 1 เข้าด้วยกัน เขียน code เลือกเซลล์ไม่ถูกต้องแก้ไขยังไงครับ (แต่ถ้าไม่ผสานเซลล์สามารถแสดงผลได้ครับ)
2. คัดลอกเซลล์ข้อ 1 วางซ้ำกันหลายแถว(ข้อมูลชุดเดียวกัน) เขียน code ให้แสดงผลยังไงครับ

ขอบคุณมากครับ

snasui wrote: การจะให้ภาพแสดงใน Comment ได้ต้อง Add Comment เอาไว้ก่อนครับ

ลองคลิกขวาที่ A1 แล้วเลือก Insert Comment จากนั้นทดสอบเลือก Validation ดูครับ

ทำสำเร็จแล้วครับ
ขอบคุณมากครับ

สมาชิกใหม่...มือใหม่หัดทำ
ทดสอบทำตาม http://snasui.blogspot.com/2011/06/comment-dynamic.html แต่ทำไม่ได้ครับ :?:
รบกวนช่วยแนะนำข้อผิดพลาดให้หน่อยนะครับ

Sheet1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ChangePicInComment
End If
End Sub

Private Sub ...