จะทำให้หน้าต่าง 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 แล้วคลิก วิ่ง ปุ่ม
4. จากนั้นหน้าต่าง Excel ของคุณจะอยู่ด้านบนของแอปพลิเคชันอื่นเสมอ
หมายเหตุ: ถ้าคุณต้องการให้หน้าต่าง Excel กลับมาเป็นปกติให้กด F5 กุญแจสำคัญในการเปิด แมโคร โต้ตอบเลือก ตั้งค่า XNormal และคลิก วิ่ง.
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!