Excel - ป้องกันข้อความเซลล์จากการโอเวอร์โฟลว์ไปยังเซลล์ถัดไป (ว่าง)

เมื่อคุณมีข้อความในเซลล์ Excel ที่ยาวเกินกว่าที่จะแสดงในพื้นที่ที่มองเห็นได้ของเซลล์นั้นและเซลล์ถัดไปทางด้านขวาว่างเปล่า Excel ช่วยให้ข้อความแสดงในเซลล์ถัดไป (และถัดไปและ ถัดไปตามต้องการ) ฉันต้องการเปลี่ยนสิ่งนี้ ฉันต้องการหลีกเลี่ยงข้อความล้น

ฉันรู้ว่าฉันสามารถหลีกเลี่ยงสิ่งนี้ได้โดยการเปิดใช้งาน "การตัดคำ" และปรับความสูงของแถว แต่นั่นไม่ใช่สิ่งที่ฉันต้องการ

ฉันต้องการเปลี่ยนพฤติกรรมเริ่มต้นของ Excel ดังนั้นจึงแสดงค่าของแต่ละเซลล์เฉพาะในพื้นที่ที่มองเห็นได้ของเซลล์นั้น ไม่มีล้นไม่มีคำห่อ

เป็นไปได้ไหม (ฉันใช้ Excel 2010 โดยวิธี)

นี่อาจไม่ใช่ตัวเลือกสำหรับทุกคน แต่ถ้าคุณนำเข้าเอกสารไปยัง Google ชีตการทำงานนี้ได้รับการสนับสนุนโดยค่าเริ่มต้น บนแถบเมนูด้านบนมีการรองรับการตัดข้อความสามประเภท ล้นห่อและคลิป คุณกำลังมองหาคลิป

อาจเป็นตัวเลือกที่เหมาะสมกับบางคนทั้งนี้ขึ้นอยู่กับข้อกำหนด

ใช่คุณสามารถเปลี่ยนพฤติกรรมนี้ได้ แต่คุณอาจไม่ต้องการให้เกิดผลข้างเคียงนี้

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

ปัญหาด้วยวิธีนี้คือที่นี้จริงจะเติมเต็มเซลล์โดยการทำซ้ำเนื้อหาของพวกเขาเมื่อมันสั้นพอที่จะใส่ในมือถือหลายครั้ง ดูภาพหน้าจอด้านล่างสำหรับความหมายนี้ (โปรดสังเกตว่าB7จะเต็มไปด้วย 'ข้อความสั้น'.)

ดูเหมือนว่าคุณจะติดอยู่กับการแก้ปัญหาในโพสต์ของเบเนดิกต์

โปรดทราบว่าคุณสามารถเติมเซลล์ที่อยู่ติดกันด้วยอักขระติ๊ก ( ') โดยใช้วิธีแรกของเบเนดิกต์ซึ่งเป็นวิธีที่ฉลาดมาก วิธีนี้คุณไม่จำเป็นต้องซ่อนอะไรป้องกันเซลล์ส่วนเกินและถ้าคุณคัดลอกเซลล์เป็นข้อความ (สมมติว่าเป็น notepad) คุณยังคงได้รับข้อความว่างเปล่าไม่ใช่ช่องว่างหรือเห็บ

นี่คือวิธีที่ฉันทำ

1. ตัวเลือกที่ 1:เติมเซลล์ว่างทั้งหมดด้วย "N / A" จากนั้นใช้การจัดรูปแบบตามเงื่อนไขเพื่อทำให้มองไม่เห็นข้อความ
2. หรือตัวเลือกที่ 2:เติมเซลล์ว่างทั้งหมดด้วย 0 และใช้การตั้งค่า Excel เพื่อซ่อนค่าศูนย์

เติมเซลล์ว่างทั้งหมด: (ทดสอบบน Mac)

• แก้ไข→ไปที่ ... →พิเศษ ... (บน Windows: หน้าแรก→การแก้ไข→ค้นหาและเลือก→ไปที่พิเศษ ... )
• เลือก "ว่าง" และกดตกลง
• เซลล์ว่างทั้งหมดจะถูกเลือกทันที อย่าคลิกอะไรเลย
• พิมพ์ "N / A" หรือ 0 แล้วกดCtrl+ †Enter สิ่งนี้จะแทรกค่าลงในเซลล์ที่เลือกทั้งหมด

การจัดรูปแบบตามเงื่อนไขเพื่อซ่อน "N / A"

• รูปแบบ→การจัดรูปแบบตามเงื่อนไข
• สร้างกฎใหม่
• สไตล์: คลาสสิกและใช้สูตรเพื่อกำหนดเซลล์ที่จะจัดรูปแบบ
• สูตร: =A1="N/A"
• จัดรูปแบบด้วย: รูปแบบที่กำหนดเอง: สีตัวอักษรสีขาวไม่มีการเติม

ซ่อนเลขศูนย์

• Excel →การตั้งค่า→มุมมอง
• ยกเลิกการเลือก "แสดงค่าศูนย์"

_______________
^†   นั่นคือCtrl+ Enter, ไม่ Ctrl+ShiftEnter +

ลองป้อนสูตร = "" (นั่นคือเครื่องหมายคำพูดสองเท่า) ในเซลล์ที่อยู่ติดกันซึ่งคุณไม่ต้องการเห็นการล้น สิ่งนี้ประเมินว่าเป็น "null" ซึ่งไม่แสดงผลใด ๆ

ใช้การจัดแนวข้อความแนวนอน "เติม" สำหรับเซลล์ คุณสามารถค้นหาได้ในที่เดียวกับตัวเลือกการจัดแนวอื่น ๆ ที่ควรแก้ปัญหาของคุณ

การขยายวิธีแก้ปัญหาการใช้'เพื่อบล็อกข้อความที่หกรั่วไหลของExcelลงในเซลล์ว่างเปล่าที่อยู่ติดกันบางครั้งคุณไม่ต้องการแก้ไข / ทำให้คอลัมน์ข้อมูลของคุณเสียหายโดยการแทรกค่านั้นลงไป

แทนที่จะแทรก'ค่าข้อมูลจริงของคุณคุณสามารถสร้างคอลัมน์แนวตั้งเฉพาะใหม่สำหรับวัตถุประสงค์นี้ซึ่งเต็มไปด้วย'อักขระทั้งหมดจนหมด

1. คอลัมน์สิ่งกีดขวาง

2. แทรกคอลัมน์ "สิ่งกีดขวาง" ทางด้านซ้ายของคอลัมน์ที่คุณต้องการป้องกัน

3. ยุบคอลัมน์อุปสรรคโดยการตั้งค่าความกว้างคอลัมน์เป็นค่าเล็ก ๆ

ตั้งค่าความกว้างคอลัมน์เป็นค่าเช่น.1หรือให้คอลัมน์กั้นกว้างขึ้นเพื่อทำหน้าที่เป็นระยะขอบหรือช่องว่างระหว่างคอลัมน์

โปรดทราบว่าคุณต้องตั้งค่าความกว้างมากกว่าศูนย์ การตั้งค่าความกว้างคอลัมน์กั้นแนวตั้งเป็นศูนย์จะเปลี่ยนกลับไปเป็นลักษณะการล้นของเซลล์ที่ไม่พึงประสงค์

4. Voila!

ใน Excel ปรับคอลัมน์ตามความกว้างที่ต้องการจากนั้นเปิดใช้งานการแปรปรวนของคอลัมน์นั้น (ซึ่งจะทำให้ความสูงของแถวเพิ่มขึ้นทั้งหมด) จากนั้นเลือกแถวทั้งหมดและปรับความสูงของแถวให้สูงตามที่ต้องการ Voila! ตอนนี้คุณมีข้อความในเซลล์ที่ไม่ล้นไปยังเซลล์ที่อยู่ติดกัน

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

ในบรรทัดเดียวกันของการคิดว่าGoogle ชีอาจไม่เหมาะสำหรับทุกคน , แมโครนี้อาจไม่เหมาะสำหรับทุกคน แต่มันอาจจะหาใครสักคน

มันทำงานผ่านช่วงที่เลือกและแทนที่เซลล์ที่ล้นด้วยข้อความที่ถูกตัดทอน

ธงพิจารณาว่า:

• ข้อความที่ละเมิดจะถูกคัดลอกไปยังที่อยู่ญาติเดียวกันในแผ่นงานใหม่หรือถ้ามันถูกทิ้ง

• ข้อความที่ถูกตัดทอนมีการเข้ารหัสยากหรือเชื่อมโยงผ่านสูตรแผ่นงาน =LEFT()

• ข้อความที่ถูกตัดทอนจะเชื่อมโยงหลายมิติกับสตริงแบบเต็มในแผ่นงานใหม่

ค่าเริ่มต้นคือการเก็บข้อมูลและใช้ลิงก์ทั้งสอง

Option Explicit

Sub LinkTruncatedCells()
    Dim rng As Range: Set rng = Selection
    Dim preserveValues As Boolean: preserveValues = True
    Dim linkAsFormula As Boolean: linkAsFormula = True
    Dim linkAsHyperlink As Boolean: linkAsHyperlink = True
    Dim w As Single
    Dim c As Range
    Dim r As Range
    Dim t As Long
    Dim l As Long
    Dim s As String
    Dim ws As Worksheet
    Dim ns As Worksheet
    Application.ScreenUpdating = False
    Set ws = rng.Parent
    For Each c In rng.Columns
        w = c.ColumnWidth
        t = 0
        l = 0
        For Each r In c.Rows
            If Len(r) > l Then
                s = r
                If CBool(l) Then r = Left(s, l)
                Do
                    r.Columns.AutoFit
                    If r.ColumnWidth > w And Len(s) > t Then
                        t = t + 1
                        r = Left(s, Len(s) - t)
                        l = Len(r)
                    End If
                Loop Until t = Len(s) Or r.ColumnWidth <= w
                r.ColumnWidth = w
                If r <> s And preserveValues Then
                    If ns Is Nothing Then
                        Set ns = ws.Parent.Worksheets.Add(after:=ws)
                    End If
                    ns.Range(r.Address) = s
                    If linkAsFormula Then r.Formula = "=LEFT(" & ns.Name & "!" & r.Address & "," & l & ")"
                    If linkAsHyperlink Then ws.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:= _
                            ns.Range(r.Address).Address(external:=True)
                End If
            End If
        Next r
    Next c
    ws.Activate
    Application.ScreenUpdating = True
End Sub

บันทึกสุดท้าย: ฉันได้ใช้มันสำหรับโครงการส่วนบุคคลและพบว่ามันมีความน่าเชื่อถือ แต่โปรดบันทึกและสำรองการทำงานของคุณก่อนที่จะพยายามแมโครที่ไม่คุ้นเคย