- Tham gia
- 21/12/07
- Bài viết
- 1,900
- Được thích
- 5,277
- Nghề nghiệp
- Kinh doanh các mặt hàng văn phòng phẩm
Mình gửi các bạn một ví dụ về làm cho ứng dụng excel trở nên trong suốt.
Các bạn xem file minh họa nha.
Trời... code đâu mà dài dử vậy Danh?Mình gửi các bạn một ví dụ về làm cho ứng dụng excel trở nên trong suốt.
Các bạn xem file minh họa nha.
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub SpinButton1_Change()
SetWindowLong Application.hwnd, -20, &H80000
With SpinButton1
SetLayeredWindowAttributes Application.hwnd, 0, .Value, 2
[A1] = SpinButton1.Value
End With
End Sub
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub SpinButton1_Change()
SetWindowLong FindWindow("Shell_traywnd", ""), -20, &H80000
With SpinButton1
SetLayeredWindowAttributes FindWindow("Shell_traywnd", ""), 0, .Value, 2
[A1] = SpinButton1.Value
End With
End Sub
Đây chỉ là những thí nghiệm thôi, cũng chẳng biết dùng vào việc gìRất cá tính, nhưng mục đích của cái này để làm gì vậy BÁC???
Thanks a lot!
Link ở bài #4 ấy ---> File Rutthamtrungthuong.xlsCó thể mở excel khi đó nó hiện UF lên thì chỉ thấy UF thôi mà các sheet tàng hình thì ta làm như thế nào ndu96081631 ?
File Rutthamtrungthuong.xls, trong Thisworkbook có đoạn Application.Visible = False ---> Vậy nếu bạn muốn cho trang tính hiện lại, bạn tạo 1 Command Button với code Application.Visible = True là xong chứ gìfile.xls trên là làm ẩn UF thôi mà pác! mình muốn hỏi là khi mình mở file.xls thì UF hiện và kích hoạt luôn cho sheet ẩn ngay khi mở file.xls. Rutthamtrungthuong.xls nó ẩn luôn từ đâu vậy muốn nó hiện lại thì phải làm sao.
file.xls trên là làm ẩn UF thôi mà pác! mình muốn hỏi là khi mình mở file.xls thì UF hiện và kích hoạt luôn cho sheet ẩn ngay khi mở file.xls. Rutthamtrungthuong.xls nó ẩn luôn từ đâu vậy muốn nó hiện lại thì phải làm sao.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2