ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
keay44
Member
Posts: 114 Joined: Fri Sep 16, 2016 10:14 amExcel Ver: 2019
#1
Post
by keay44 Sat Jul 21, 2018 10:59 pm
สวัสดีค่ะรบกวนสอบถาม Code error เนื่องจากเวลาลงข้อมูลเสนอผลรายได้ แต่ผู้บริหารไม่ต้องการให้ช่อง F ใน Sheet 2 สามารถคลิกหรือดูข้อมูลในช่อง F ได้ เพื่อไม่ให้มีผลกระทบต่อรายได้บริษัท ว่าคิดยอดอย่างไร
สิ่งที่ต้องการคือ ต้องการให้เวลาเลื่อนเมาส์ หรือคลิก ที่ช่อง F ใน Sheet2 แล้วให้ลูกศรดีดกลับไปเริ่มต้นที่ ช่อง A1 ใหม่ทันที
โดยที่ไม่สามารถ Copyหรือดูข้อมูลในช่องนั้นได้ ลองใส่โค๊ดแล้ว ไม่สามารถตั้งค่าได้รบกวนปรับโค๊ดให้หนูหน่อยนะค่ะ
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Selection, Columns("F")) Is Nothing Then [A1].Select
End Sub
Attachments
ไฟล์งาน.xlsb (23.34 KiB) Downloaded 8 times
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#2
Post
by snasui Sun Jul 22, 2018 6:23 am
การไม่ให้เห็นสูตรในพื้นที่ใด ๆ ให้ใช้การ Protect แทนการกำหนดว่าเมื่อเลือกแล้วให้โปรแกรมย้าย Cursor ไปยัง A1 เพราะหากผู้ใช้ยังไม่ปล่อยเมาส์มันก็จะแสดงให้เห็นว่าเขียนสูตรอย่างไร จะเลื่อนไป A1 ได้ก็เมื่อปล่อยเมาส์เท่านั้น
การ Protect และซ่อนสูตรให้ทำตามด้านล่าง
คลุมพื้นที่ที่ต้องการให้แก้ไขได้ > คลิกขวา > Format Cells > ที่แถบ Protection ปลดเครื่องหมายที่ Locked
คลุมพื้นที่ที่ต้องการไม่ให้แก้ไขได้ > คลิกขวา > Format Cells > ที่แถบ Protection ทำเครื่องหมายที่ Locked และ Hidden
คลิกขวาที่แถบชีต > Protect worksheet > เลือกการอนุญาตให้กระทำตามต้องกา > ระบุ Password
keay44
Member
Posts: 114 Joined: Fri Sep 16, 2016 10:14 amExcel Ver: 2019
#3
Post
by keay44 Sun Jul 22, 2018 11:14 am
snasui wrote: Sun Jul 22, 2018 6:23 am การไม่ให้เห็นสูตรในพื้นที่ใด ๆ ให้ใช้การ Protect แทนการกำหนดว่าเมื่อเลือกแล้วให้โปรแกรมย้าย Cursor ไปยัง A1 เพราะหากผู้ใช้ยังไม่ปล่อยเมาส์มันก็จะแสดงให้เห็นว่าเขียนสูตรอย่างไร จะเลื่อนไป A1 ได้ก็เมื่อปล่อยเมาส์เท่านั้น
การ Protect และซ่อนสูตรให้ทำตามด้านล่าง
คลุมพื้นที่ที่ต้องการให้แก้ไขได้ > คลิกขวา > Format Cells > ที่แถบ Protection ปลดเครื่องหมายที่ Locked
คลุมพื้นที่ที่ต้องการไม่ให้แก้ไขได้ > คลิกขวา > Format Cells > ที่แถบ Protection ทำเครื่องหมายที่ Locked และ Hidden
คลิกขวาที่แถบชีต > Protect worksheet > เลือกการอนุญาตให้กระทำตามต้องกา > ระบุ Password
แล้วถ้าเราจะใส่ Code ตามข้างบน ไม่ให้ error สามารถทำได้ไหมค่ะ
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#4
Post
by snasui Sun Jul 22, 2018 11:22 am
ช่วยแจ้ง Error ที่พบมาด้วยว่า Error ลักษณะไหน อย่างไรครับ
keay44
Member
Posts: 114 Joined: Fri Sep 16, 2016 10:14 amExcel Ver: 2019
#5
Post
by keay44 Sun Jul 22, 2018 11:49 am
snasui wrote: Sun Jul 22, 2018 11:22 am ช่วยแจ้ง Error ที่พบมาด้วยว่า Error ลักษณะไหน อย่างไรครับ
error ที่ชีส2นะค่ะ พอกดsave ที่ sheert 1
Attachments
Screenshot_1.png (99.75 KiB) Viewed 29 times
Screenshot_1.png (99.75 KiB) Viewed 25 times
Screenshot_3.png (21.27 KiB) Viewed 25 times
Last edited by
keay44 on Sun Jul 22, 2018 12:13 pm, edited 1 time in total.
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#6
Post
by snasui Sun Jul 22, 2018 12:10 pm
ตัวอย่างการปรับ Code ครับ
If Not Intersect(Target, Columns("F")) Is Nothing Then [A1].Select
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
คำแสดงเจตนา
ไฟล์งาน.xlsb
