Hyperlink, Ẩn hiện nội dung & hiển thị bảng tính

[huangocthanhtam]

Hi ACE GPE,

Chúc cả nhà CN vui vẻ ,

1. Em có 1 file excel mới làm trong đó có phần Layout sẽ link đến 1 file PDF (Trong máy) hiển thị, tuy nhiên nếu mình đính kèm tâp tin excel thì người nhận họ click vào sẽ không thấy được file pdf này phải không ạ, Có cách nào chèn file pdf này vào 1 sheet excel nào đó rồi mình cho nó link tới không, Em đã thử covert ra file hình hoặc file e x cel nhưng thất bại,

2. Trong sheet Xuất Kho có 1 phan flow chart và 1 phan giải thích chi tiết, Em muốn tạo 1 nút buttom Ẩn, Hiện khi click vào nó sẽ ẩn, và hiện phần nội dung chi tiết ấy phù hợp

3. Phần contens (menu) tổng hợp tất cả các sheet, Click vào từng mục nó sẽ link tơi sheet ấy, nhưng nếu mình hide sheet đi thì phần hyperlink sẽ không còn tác dụng, có cách nào mà hide sheet đi nhưng click vào nó vãn nhảy ra sheet đó không nhỉ

4. Tại em làm trên e xcel không phải word nên mỗi khi mở ra xem văn bản cứ bị đổ hết về bên trái và còn quá nhiều chỗ trống (không có nội dung) cũng hiển thị ra nên nhìn văn bản không được nhiều và không đẹp, Trong e xcel có cách nào mà nhìn fullscreen, người nhận mở file lên là fullcreen, click vào phần nào nó cũng hiển thị nội dung còn lại những phần không có nội dung thì mất đi hết,....

Nhiều yêu cầu quá , em là 1 ng yêu e xcel, muốn làm hầu hết các cv trên đó, sắp tới chuyển vào Tp.HCM công tác rồi nhất định sẽ tham dự các khóa học của GPE,

Cảm ơn mọi người giúp đỡ,

 

[patygate591]

1. Hyperlink và để chung nó 1 chỗ... Gửi thì nén 2 file đó chung chỗ và gửi đi...
2. Ẩn hiện cái phần chi tiết thì bạn Mở Select Object... Rồi bỏ chọn/chọn con mắt đi là được :3
3. Cái thứ 3 làm thủ công thì bạn có thể làm như này... File/Option/Advanced... Kéo xuống kiếm cái phần Display options for this workbook: Rồi bỏ chọn cái Show sheet tabs
4​. Bạn chọn qua thẻ View... Click chọn Page break View... Rồi ở đó nó sẽ có những cái line màu xanh biển... Bạn có thẻ kéo để tùy chỉnh cái vùng hiển thị đó... còn những vùng ngoài sẽ là màu xám... Nhưng vẫn gõ vô đó được

 

[huangocthanhtam]

1. Hyperlink và để chung nó 1 chỗ... Gửi thì nén 2 file đó chung chỗ và gửi đi...
2. Ẩn hiện cái phần chi tiết thì bạn Mở Select Object... Rồi bỏ chọn/chọn con mắt đi là được :3
3. Cái thứ 3 làm thủ công thì bạn có thể làm như này... File/Option/Advanced... Kéo xuống kiếm cái phần Display options for this workbook: Rồi bỏ chọn cái Show sheet tabs
4​. Bạn chọn qua thẻ View... Click chọn Page break View... Rồi ở đó nó sẽ có những cái line màu xanh biển... Bạn có thẻ kéo để tùy chỉnh cái vùng hiển thị đó... còn những vùng ngoài sẽ là màu xám... Nhưng vẫn gõ vô đó được

=>1 Cái nén file thì không được vì bảo mật của Cty không thể gửi file zar, Trong excel có 1 phần import file pdf vào nhưng em thử rồi, lúc click vào nó hiện ra lúc thì không

=>4 cái vụ xem full screeen này mình chỉnh bên mình thì được chứ chỉnh xong gửi qua máy người khác nó lại như cũ à

 

[befaint]

Mục 1: Trong excel > insert object > Creat from File > Chọn file pdf ... (check dòng Display as icon). Nó sẽ đóng gói cái file pdf vào file excel luôn. Mở: click đúp vào cái biểu tượng đó.
Mục 2-3-4: Chắc dùng vba.

 

[huangocthanhtam]

Mục 1: Trong excel > insert object > Creat from File > Chọn file pdf ... (check dòng Display as icon). Nó sẽ đóng gói cái file pdf vào file excel luôn. Mở: click đúp vào cái biểu tượng đó.
Mục 2-3-4: Chắc dùng vba.

1.2.3 em đã làm được hết rồi ạ, còn 04 thôi thấy ơi, help me

 

[befaint]

Mục 4. Nếu là fullscreen:
Module:

Sub zoom()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveSheet.UsedRange.Select
ActiveWindow.zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub

ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_Open()
Call zoom
End Sub

Cho các sheet:

Private Sub Worksheet_Activate()
Call zoom
End Sub

 

[huangocthanhtam]

Mục 4. Nếu là fullscreen:
Module:

Sub zoom()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveSheet.UsedRange.Select
ActiveWindow.zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub

ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_Open()
Call zoom
End Sub

Cho các sheet:

Private Sub Worksheet_Activate()
Call zoom
End Sub

Vẫn không được ạ, file pdf em chèn vào 1 số máy không đọc được có phần mềm pdf nhưng khác với phần mềm pdf em đang xài nên nó ko mở dc, nó báo là no source application ?,

File đính kèm ạ,

 

[befaint]

Vẫn không được ạ, file pdf em chèn vào 1 số máy không đọc được có phần mềm pdf nhưng khác với phần mềm pdf em đang xài nên nó ko mở dc, nó báo là no source application ?,
File đính kèm ạ,

Do lỗi phần mềm đọc file pdf. Làm sao nó đọc được thì thôi.
Bạn tải file theo link sau nhé.
https://www.dropbox.com/s/yo51r3ycf8eoift/Bau Bang.xlsb?dl=0