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

จะทำให้หน้าต่าง excel อยู่ด้านบนเสมอได้อย่างไร?

คุณเคยต้องการให้หน้าต่าง Excel ของคุณอยู่ด้านบนเสมอและไม่มีหน้าต่างอื่นบังหรือไม่ น่าเสียดายที่ Excel ไม่มีฟีเจอร์สำหรับแก้งานนี้ แต่ที่นี่ฉันสามารถให้รหัส VBA เพื่อจัดการกับงานนี้ได้

ให้หน้าต่าง Excel อยู่ด้านบนเสมอด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา ให้หน้าต่าง Excel อยู่ด้านบนเสมอด้วยรหัส VBA


รหัส VBA ต่อไปนี้สามารถช่วยให้คุณเก็บหน้าต่าง Excel ไว้ด้านบนเสมอรหัสนี้จะใช้กับทั้ง office 32 บิตและ office 64- บิต

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ให้หน้าต่าง Excel อยู่ด้านบนเสมอ

'Update 20140909
#If Win64 Then
    Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal hwndInsertAfter As LongPtr, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#Else
    Public Declare Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As Long, _
            ByVal hwndInsertAfter As Long, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
    #If Win64 Then
        Dim xHwnd As LongPtr
    #Else
        Dim xHwnd As Long
    #End If
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และไฟล์ แมโคร กล่องโต้ตอบจะปรากฏขึ้นให้เลือก SetXLOnTop แล้วคลิก วิ่ง ปุ่ม

doc-keep-excel-on-top-1

4. จากนั้นหน้าต่าง Excel ของคุณจะอยู่ด้านบนของแอปพลิเคชันอื่นเสมอ

หมายเหตุ: ถ้าคุณต้องการให้หน้าต่าง Excel กลับมาเป็นปกติให้กด F5 กุญแจสำคัญในการเปิด แมโคร โต้ตอบเลือก SetXNormal และคลิก วิ่ง.


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (11)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณที่ให้รหัสนี้! มีประโยชน์มาก ฉันเคยใช้ปุ่ม Judy ten สำหรับฟีเจอร์นี้ แต่ตอนนี้ฉันสามารถใช้ excel ได้แล้ว สุดยอด ขอบคุณครับ!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รักสิ่งนี้!! รหัสที่ดี ขอบคุณ! ฉันเป็นโปรแกรมเมอร์มือใหม่ ฉันเพิ่งรู้ว่ามันทำอะไร ฉันจะเปลี่ยนโค้ดได้ที่ไหนหากฉันต้องการให้หน้าต่างข้ามไปยังขนาดที่กำหนด ซ่อนริบบอน และ/หรือข้ามไปยังแผ่นงานหรือช่วงเซลล์ที่ต้องการ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับความช่วยเหลือ!!! ฉันต้องใช้สิ่งนี้เป็นวิธีแก้ปัญหาเพราะคุณไม่สามารถเปิดหน้างานสองหน้าพร้อมกันได้ ขอขอบคุณที่คุณแบ่งปันรหัสของคุณ :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสิ่งนี้. มีประโยชน์มากเมื่อถ่ายโอนข้อมูลจากหลายระบบไปยังสเปรดชีต ชื่นชมรหัส!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ .. พระเจ้าอวยพร..!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับสิ่งนี้! ฉันต้องเก็บเอกสารสถิติระบบอัตโนมัติไว้ตลอดเวลาในขณะที่ทำอย่างอื่นโดยพิจารณาจากสิ่งที่แสดงให้ฉันเห็น มีประโยชน์มาก! :D
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อัจฉริยะอย่างแท้จริง สิ่งที่ฉันต้องการ ขอบคุณ!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

ดูเหมือนว่า xHwnd กำหนดให้เก็บ Application.hWnd ก่อนเรียก SetWindowPos ดังนี้:

xHwnd = Application.hWnd
โทร SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE หรือ SWP_NOMOVE)

ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โค้ดนี้ต้องใช้กับไฟล์ excel แต่ละไฟล์แยกกันหรือไม่ หรือสามารถบันทึกมาโครภายใน excel เพื่อเปิด/ปิดทุกครั้งที่เปิดเวิร์กบุ๊ก Excel ใหม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เจ๋ง!!!!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เจ๋ง!!!!!!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ