Excel 2010 - ตรึงคอลัมน์เพื่อเลื่อนทั้งแนวนอนและแนวตั้ง

ฉันคุ้นเคยกับฟังก์ชั่นการแช่แข็งพื้นฐาน ถ้าฉันตรึงคอลัมน์แรกด้วย Freeze Pane > Freeze First Columnมันทำงานได้กับการเลื่อนแนวนอน แต่ไม่ใช่การเลื่อนแนวตั้ง

ฉันต้องการให้คอลัมน์ตรึงไม่ว่าฉันจะเลื่อน IE สิ่งที่อยู่ในคอลัมน์แรกควรปรากฏให้เห็นอยู่เสมอไม่ว่าฉันจะเลื่อนส่วนที่เหลือของหน้าต่างอย่างไร เป็นไปได้ไหม

แก้ไข

เพื่อให้ชัดเจน Freeze Panes จะไม่ทำงานเพราะฉันไม่ต้องการให้แถวถูกล็อค ดังนั้นเมื่อฉันเลื่อนแนวตั้งฉันต้องการครั้งแรก คอลัมน์ เพื่อไม่เลื่อน แต่ทุกแถว (นอกเซลล์ใด ๆ ในคอลัมน์แรก) เพื่อเลื่อนตามปกติ

นี่คือสิ่งที่คุณสามารถทำได้

• ขั้นแรกให้ยกเลิกเวิร์กชีทในเวิร์กบุ๊กของคุณโดยคลิกซ้ายที่ไอคอนหน้าต่างสี่เหลี่ยมเล็ก ๆ (สี่เหลี่ยม) ที่เชื่อมต่อกันใต้ไอคอนปิดสีแดงที่มุมบนขวาของหน้าต่าง Excel
• สร้างหน้าต่างที่สองสำหรับสมุดงานของคุณโดยคลิกขวาที่ขอบด้านบนของแผ่นงานของคุณ (เหนือตัวระบุแถว A, B ฯลฯ ) -
• เลือกดู / จัดเรียงทั้งหมดด้วยปุ่มตัวเลือก "แนวตั้ง" และเลือก "Windows ของสมุดงานที่ใช้งานอยู่"
• ปรับขอบเขตแนวตั้งของหน้าต่างทั้งสองเพื่อให้หน้าต่างด้านซ้ายแสดงคอลัมน์ "สรุป" ที่คุณสนใจและส่วนด้านขวาเติมพื้นที่ที่เหลือ
• ในหน้าต่างด้านขวาแทรกคอลัมน์ใหม่ทางด้านขวาของคอลัมน์ที่แสดงในหน้าต่างด้านซ้ายแล้วเลื่อนแผ่นด้านขวาเพื่อให้คอลัมน์นี้เป็นคอลัมน์ซ้ายสุดที่แสดงในหน้าต่างด้านขวา (คอลัมน์ใหม่จะไม่ปรากฏในหน้าต่างด้านซ้าย)
• ลดความกว้างของคอลัมน์เพื่อทำให้ระยะห่างที่แคบลงแล้วตรึงไว้ที่ (ฉันสมมติว่าคุณจะตรึงแถวบนสุดด้วย)

ในท้ายที่สุดมันจะมีลักษณะดังนี้:

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

ตามคำตอบของ chuff ฉันเขียนแมโครต่อไปนี้ มันเป็นสิ่งที่ chuff อธิบาย - และนอกจากนี้ชื่อ "Dashboard" และ "Data" ของ windows สองและซ่อนองค์ประกอบทั้งหมด (แถบเลื่อน, แท็บแผ่นงาน, ส่วนหัวแถว / คอลัมน์) จากแดชบอร์ด

หากต้องการให้มันทำงานให้ทำดังต่อไปนี้:

• คัดลอกรหัสด้านล่าง
• ใน Excel ไปที่ Visual Basic Editor ( Alt - F11 )
• แทรกโมดูลใหม่โดยคลิกขวาที่โครงการในต้นไม้ด้านซ้ายและเลือก แทรก - & gt; โมดูล (ในกรณีที่คุณต้องการใช้เทคนิคนี้กับเวิร์กบุคอื่น ๆ ให้วางไว้ในเวิร์กบุคแมโครส่วนตัวของคุณแทน)
• วางรหัสในโมดูลใหม่
• หากคุณต้องการให้เปลี่ยนจำนวนคอลัมน์หรือชื่อเรื่องของหน้าต่างทั้งสองโดยเปลี่ยนบรรทัดแรกของรหัสที่ขึ้นต้นด้วย Const
• ดำเนินการรหัส - สามารถคลิกในขั้นตอนแรกและกด F5 - หรือกลับไปที่ Excel ( Alt - F11 ) และกด Alt - F8 . เลือกมาโครที่นี่และคลิก วิ่ง . (โปรดทราบว่าคุณสามารถกำหนดทางลัดให้กับมันในกล่องโต้ตอบนี้)

นี่คือแมโคร:

Sub SplitWindows()
    Const cIntPaneColumns As Integer = 2
    Const cStrPaneName As String = "Dashboard"
    Const cStrMainName As String = "Data"

    Dim i As Integer
    Dim wndMain As Window, wndPane As Window
    Dim dblOldWidth As Double, dblPaneWidth As Double

    Set wndMain = ActiveWindow

    If ThisWorkbook.Windows.Count > 1 Then
        If MsgBox("Multiple windows for current workbook are already displayed. Do you want to close/rearrange them?", vbYesNo) = vbYes Then
            For i = 2 To ThisWorkbook.Windows.Count
                ThisWorkbook.Windows(1).Close
            Next
        Else
            Exit Sub
        End If
    End If

    Set wndMain = ActiveWindow
    wndMain.WindowState = xlNormal
    Set wndPane = wndMain.NewWindow

    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical

    dblOldWidth = wndPane.Width
    dblPaneWidth = Range("A1").Resize(, cIntPaneColumns).Width

    ConfigureWindow wnd:=wndPane, blnShowElements:=False, _
        strCaption:=cStrPaneName, dblWidth:=dblPaneWidth, _
        dblLeft:=1

    ConfigureWindow wnd:=wndMain, blnShowElements:=True, _
        strCaption:=cStrMainName, _
        dblWidth:=wndMain.Width + (dblOldWidth - dblPaneWidth), _
        dblLeft:=dblPaneWidth

    With wndMain
        .ScrollColumn = cIntPaneColumns + 1
        .Activate
        .ActiveSheet.Range("A1").Offset(, cIntPaneColumns + 1).Select
        If .FreezePanes Then .FreezePanes = False
        .FreezePanes = True
    End With

End Sub

Private Sub ConfigureWindow(wnd As Window, _
    blnShowElements As Boolean, _
    strCaption As String, _
    dblWidth As Double, _
    dblLeft As Double)

    With wnd
        .Width = dblWidth
        .Left = dblLeft
        .DisplayHeadings = blnShowElements
        .DisplayHorizontalScrollBar = blnShowElements
        .DisplayVerticalScrollBar = blnShowElements
        .DisplayWorkbookTabs = blnShowElements
        .Caption = strCaption
    End With
End Sub

เป็นไปได้:

เพียงแค่เลือกเซลล์ B2 และคลิก บานหน้าต่างตรึง :

วิธีนี้จะทำให้ทุกอย่างปรากฏอยู่ด้านซ้ายและด้านบนของเซลล์เช่นแถว 1 และคอลัมน์ A!

หากคุณต้องการคอลัมน์ซ้ายเพียงเลือกเซลล์ A2 แทน - หรือคลิก ตรึงคอลัมน์แรก .