File excel trong suốt

[hoangdanh282vn]

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.

 

[Hoàng Trọng Nghĩa]

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.

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!

 

[ndu96081631]

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?
Chỉ vài dòng là đủ:

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

 

[ndu96081631]

Và đây là TaskBar trong suốt

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

Và rất nhiều.. rất nhiều thứ trong suốt khác mà ta có thể làm được, Tùy thuộc vào đoạn này:
SetWindowLong FindWindow("Shell_traywnd", ""), -20, &H80000
-------------
Xem chi tiết tại đây:http://www.giaiphapexcel.com/forum/showthread.php?t=24123

 

[ndu96081631]

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!

Đây chỉ là những thí nghiệm thôi, cũng chẳng biết dùng vào việc gì
Nhưng với 1 chương trình lớn thì hiệu ứng trong suốt này có tác dụng đấy ---> Hãy xem Lạc Việt Từ điển người ta làm trong suốt cửa sổ chương trình ấy, bạn nghĩ nó có tác dụng gì?
Từ đây, giả sữ rằng ta cũng xây dựng 1 chương trình TÌM KIẾM gần giống như Lạc Việt từ điển, ta "áp" cái code trong suốt này vào, có phải là chương trình hoành tráng hơn nhiều không (mà cũng chẳng tốn bao nhiêu dòng code) ---> Vừa tìm kiếm lại vừa có thể theo dỏi những gì diển ra ở bên dưới cửa sổ ---> Thú vị chứ?

 

[ongtrungducmx25]

Có 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 ?

 

[ndu96081631]

Có 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 ?

Link ở bài #4 ấy ---> File Rutthamtrungthuong.xls

 

[ongtrungducmx25]

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.

 

[ndu96081631]

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 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ì

 

[linhdt]

khá hay, thú vị thật

 

[Hoàng Trọng Nghĩa]

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.

Muốn cái File rút thăm trúng thưởng đó hiện lên thì phải vào VBA (đương nhiên), nhưng làm thế nào vào đó trong khi cái Form chưa thoát? Mà thoát rồi nó thoát luôn cái File, vậy thì làm sao mà vào VBA để đặt cái Application.Visible = True , ý BÁC là vậy phải không?
Mẹo vặt đây: Mở 1 file Excel nào đó, chọn Macro Securities ở chế độ Low thành High, OK rồi thoát, mở lại File Rút thăm, tha hồ mà chỉnh CODE. hehehehe.

 

[tranduyphucvt]

Danh ơi mình thấy cái này cũng khá hay nhưng mà chuyển bảng tính sang autocad mà trong suốt được thì hay hơn,Danh thử làm mất luôn cái nền của file excel đi. Thank Danh một phát

 

[tranduyphucvt]

nhờ anh em cao thủ làm mất cái background file excel luôn mà để khi chuyển sang cad nó lấy nền của cad nha. thanks các cao thủ