Note: The other languages of the website are Google-translated. Back to English
English English

วิธีซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานใน Excel

ในบางกรณีคุณอาจต้องซ่อนสูตรในแผ่นงานของคุณเป็นส่วนตัว บทความนี้พูดถึงการซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องเวิร์กชีตใน Excel

ซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานด้วยรหัส VBA


ซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานด้วยรหัส VBA

หากต้องการซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานโปรดทำดังนี้

1. ในแผ่นงานคุณต้องซ่อนสูตร แต่กำลังแสดงผลลัพธ์โปรดคลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูคลิกขวา

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัส VBA ลงในหน้าต่างรหัส

รหัส VBA: ซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงาน

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

หมายเหตุ: ในโค้ด C1: C10 คือช่วงเซลล์ที่คุณต้องการซ่อนสูตรไว้ภายใน โปรดเปลี่ยนตามความต้องการของคุณ

3 จากนั้นคลิก เครื่องมือ > เอกสารอ้างอิง…. ตรวจสอบ รันไทม์ Microsoft Script แล้วคลิกไฟล์ OK ปุ่มใน เอกสารอ้างอิง - VBAProject หน้าต่าง. ดูภาพหน้าจอ:

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไปเมื่อคุณคลิกที่เซลล์ในช่วงที่ระบุสูตรจะถูกซ่อนทันทีในแถบสูตร


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (17)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองใช้รหัส VBA และได้รับข้อความแสดงข้อผิดพลาดที่ระบุว่าฉันต้องแก้ไขข้อบกพร่องของรหัสส่วนต่อไปนี้: " ถ้า xDic.Count <> xRg.Count แล้ว"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เจเนสซี่ที่รัก
คุณใช้ Office เวอร์ชันใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับฉันก็มีข้อผิดพลาดเดียวกัน
office รุ่น 2013
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
โปรดคัดลอกสคริปต์ทั้งหมดโดยใส่บรรทัดแรก "Dim xDic As New Dictionary"
พลาดบรรทัดแรกในรหัสจะทำให้เกิดข้อผิดพลาดนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันยังได้รับข้อผิดพลาดเดียวกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันถูกคัดลอกทั้งโลกแต่ยังคงให้ข้อผิดพลาดเนื่องจากไม่ได้กำหนดประเภทที่ผู้ใช้กำหนด ฉันจะทำอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำเครื่องหมายการอ้างอิงไปยังไลบรารีอ็อบเจ็กต์ข้อมูล Microsoft Active X ในตัวแก้ไข VBA


1. เปิดตัวแก้ไข VBA และไปที่เครื่องมือ | ข้อมูลอ้างอิง


2. เลื่อนลงมาจนกว่าคุณจะเห็น Microsoft Active X Data Object Library


3. หากคุณมีหลายเวอร์ชัน ให้ใช้เวอร์ชันล่าสุด เวอร์ชันต่างๆ จะสอดคล้องกับเวอร์ชันของ MDAC ครั้งเดียวที่คุณไม่ต้องการใช้เวอร์ชันล่าสุดคือถ้าคุณแจกจ่ายโครงการไปยังเครื่องที่มีเวอร์ชันเก่ากว่าอยู่ ดังนั้น หากเครื่องที่คุณแจกจ่ายมีเฉพาะ MDAC 2.6 ติดตั้งอยู่ และคุณมี MDAC 2.7 ให้ตรวจสอบการอ้างอิงถึงเวอร์ชัน 2.6 ของ Microsoft Active X Data Object Library เพื่อให้แน่ใจว่าโครงการจะทำงานบนเครื่องที่คุณแจกจ่ายให้
Plus
รันไทม์การเขียนสคริปต์ของ Microsoft
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันบอกแก้จุดบกพร่องและรีเฟรชทุกวินาที...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีที่ง่ายเช่นกัน
เลือกเซลล์หรือเซลล์ที่คุณต้องการซ่อนสูตรหรือข้อมูล
ไปที่หน้าแรก -> รูปแบบ -> รูปแบบเซลล์ -> ตัวเลข -> กำหนดเอง
ภายใต้ประเภท ลบทั่วไป และป้อน """"
ค่าหรือสูตรของเซลล์ไม่ปรากฏบนหน้าจอ
อย่างไรก็ตาม จะปรากฏในแถบสูตรหากคุณเลือกเซลล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองใช้รหัส VBA แต่หลังจากใช้รหัสนี้ excel ของฉันเริ่มช้าและหยุดทำงาน โปรดช่วยฉันแก้ปัญหานี้ด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าเรากดเมาส์ค้างไว้แล้วคลิกซ้ายที่เซลล์ สูตรจะแสดงขึ้นจนกว่าคุณจะปล่อยคลิกซ้าย มิฉะนั้นจะทำงานได้ดี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หลังจากรหัส vba นี้ใช้ผลลัพธ์สูตรผลรวมใหม่ไม่แสดงในเซลล์โปรดช่วย....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ. สูตรทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันเกรซี่ ฉันกำลังพยายามซ่อนสูตรในคอลัมน์ใดคอลัมน์หนึ่งโดยไม่มีรหัสผ่านป้องกันแผ่นงาน ฉันคัดลอกวางรหัสทั้งหมดและเปลี่ยนเซลล์ แต่ยังไม่สามารถซ่อนสูตรได้ คุณช่วยกรุณา.

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตรใช้งานได้ แต่ปัญหาคือเมื่อเราปิดแผ่นงานแล้วเปิดใหม่กว่า VBA ไม่ทำงาน...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี หากต้องการใช้ VBA นี้ต่อไปในอนาคต หลังจากเพิ่มโค้ดแล้ว โปรดบันทึกเวิร์กบุ๊กเป็น Excel Macro-Enabled Workbook คลิก เนื้อไม่มีมัน > บันทึกเป็น. ในกล่องโต้ตอบบันทึกเป็น ให้เลือก สมุดงานที่เปิดใช้งานแมโคร Excel จาก บันทึกเป็น พิมพ์รายการดรอปดาวน์ แล้วคลิก ลด ปุ่มจากนั้นใช้สมุดงานที่เปิดใช้งานมาโคร excel นี้ในอนาคต
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัสนี้ ฉันต้องการสิ่งนี้จริงๆ
ได้รับคะแนน 5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ