Page 1 of 1
รบกวนปรับข้อมูล Vba ในไฟล์รายได้
Posted: Sat Jul 21, 2018 10:59 pm
by keay44
สวัสดีค่ะรบกวนสอบถาม 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
Re: รบกวนปรับข้อมูล Vba ในไฟล์รายได้
Posted: Sun Jul 22, 2018 6:23 am
by snasui
การไม่ให้เห็นสูตรในพื้นที่ใด ๆ ให้ใช้การ Protect แทนการกำหนดว่าเมื่อเลือกแล้วให้โปรแกรมย้าย Cursor ไปยัง A1 เพราะหากผู้ใช้ยังไม่ปล่อยเมาส์มันก็จะแสดงให้เห็นว่าเขียนสูตรอย่างไร จะเลื่อนไป A1 ได้ก็เมื่อปล่อยเมาส์เท่านั้น
การ Protect และซ่อนสูตรให้ทำตามด้านล่าง
- คลุมพื้นที่ที่ต้องการให้แก้ไขได้ > คลิกขวา > Format Cells > ที่แถบ Protection ปลดเครื่องหมายที่ Locked
- คลุมพื้นที่ที่ต้องการไม่ให้แก้ไขได้ > คลิกขวา > Format Cells > ที่แถบ Protection ทำเครื่องหมายที่ Locked และ Hidden
- คลิกขวาที่แถบชีต > Protect worksheet > เลือกการอนุญาตให้กระทำตามต้องกา > ระบุ Password
Re: รบกวนปรับข้อมูล Vba ในไฟล์รายได้
Posted: Sun Jul 22, 2018 11:14 am
by keay44
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 สามารถทำได้ไหมค่ะ
Re: รบกวนปรับข้อมูล Vba ในไฟล์รายได้
Posted: Sun Jul 22, 2018 11:22 am
by snasui
ช่วยแจ้ง Error ที่พบมาด้วยว่า Error ลักษณะไหน อย่างไรครับ
Re: รบกวนปรับข้อมูล Vba ในไฟล์รายได้
Posted: Sun Jul 22, 2018 11:49 am
by keay44
snasui wrote: Sun Jul 22, 2018 11:22 am
ช่วยแจ้ง Error ที่พบมาด้วยว่า Error ลักษณะไหน อย่างไรครับ
error ที่ชีส2นะค่ะ พอกดsave ที่ sheert 1
Re: รบกวนปรับข้อมูล Vba ในไฟล์รายได้
Posted: Sun Jul 22, 2018 12:10 pm
by snasui
ตัวอย่างการปรับ Code ครับ
If Not Intersect(Target, Columns("F")) Is Nothing Then [A1].Select