Cần công thức để lấy tỷ lệ zoom trong Excel

[hung2412]

Xin chào các bạn GPE!
Tôi có 1 file Excel, có công thức nào để lấy tỷ lệ zoom trong Excel không? Ví dụ tỷ lệ zoom là 70%, 90%, ...
Mong các bạn giúp tôi với.

 

[ppc0312]

Xin chào các bạn GPE!
Tôi có 1 file Excel, có công thức nào để lấy tỷ lệ zoom trong Excel không? Ví dụ tỷ lệ zoom là 70%, 90%, ...
Mong các bạn giúp tôi với.

Cần công thức làm gì, khi nhìn vào màn hình là biết tỷ lệ bao nhiêu rồi?
File đưa lên cũng không chỗ nào thấy công thức liên quan tỷ lệ zoom

 

[hung2412]

Cần công thức làm gì, khi nhìn vào màn hình là biết tỷ lệ bao nhiêu rồi?
File đưa lên cũng không chỗ nào thấy công thức liên quan tỷ lệ zoom

Ah, nếu tỷ lệ zoom >= 100% thì tôi sẽ cho in dạng giấy nằm dọc, còn < 100% thì tôi sẽ cho in dạng giấy nằm ngang.

 

[Vô danh Tiểu tốt]

Xin chào các bạn GPE!
Tôi có 1 file Excel, có công thức nào để lấy tỷ lệ zoom trong Excel không? Ví dụ tỷ lệ zoom là 70%, 90%, ...
Mong các bạn giúp tôi với.

Sub test()
    If ActiveWindow.Zoom < 100 Then
        Debug.Print ActiveWindow.Zoom & "zoom in"
    Else
        Debug.Print ActiveWindow.Zoom & "zoom out"
    End If
End Sub

 

[hung2412]

Sub test()
    If ActiveWindow.Zoom < 100 Then
        Debug.Print ActiveWindow.Zoom & "zoom in"
    Else
        Debug.Print ActiveWindow.Zoom & "zoom out"
    End If
End Sub

Thế này là sao hả bạn? Tôi chạy thử mà chả thấy gì?

 

[ppc0312]

Ah, nếu tỷ lệ zoom >= 100% thì tôi sẽ cho in dạng giấy nằm dọc, còn < 100% thì tôi sẽ cho in dạng giấy nằm ngang.

Vẫn không liên quan gì đến công thức cả
Tôi không hiểu, vậy đợi người khác, hoặc theo bài #4 (không phải công thức)

 

[hung2412]

Vẫn không liên quan gì đến công thức cả
Tôi không hiểu, vậy đợi người khác, hoặc theo bài #4 (không phải công thức)

Có gì đâu. Ví dụ tôi đặt công thức lấy tỷ lệ zoom ở ô C1 chẳng hạn (Nếu có công thức đó hoặc là chạy băng VBA gì đó) => Lúc đó ở ô C1 hiển thị là 70% chẳng hạn.

 

[ppc0312]

Có gì đâu. Ví dụ tôi đặt công thức lấy tỷ lệ zoom ở ô C1 chẳng hạn (Nếu có công thức đó hoặc là chạy băng VBA gì đó) => Lúc đó ở ô C1 hiển thị là 70% chẳng hạn.

Nhưng tôi không thấy liên quan gì giữa việc công thức lấy % Zoom với việc đặt giấy in dọc/ngang, còn chỉ xem bao nhiêu % thì nhìn vào status là thấy đâu phải đặt ở C1

 

[hung2412]

Nhưng tôi không thấy liên quan gì giữa việc công thức lấy % Zoom với việc đặt giấy in dọc/ngang, còn chỉ xem bao nhiêu % thì nhìn vào status là thấy đâu phải đặt ở C1

Chẳng qua đây chỉ là 1 giai đoạn khi chạy VBA. Mà đã là VBA thì nó chạy từ đầu đến cuối mà không phải động tay vào.

 

[ppc0312]

Chẳng qua đây chỉ là 1 giai đoạn khi chạy VBA. Mà đã là VBA thì nó chạy từ đầu đến cuối mà không phải động tay vào.

Thế thì càng khó hiểu nếu chỉ mô tả 1 góc / 1 đoạn như thế, và VBA thì khác xa Công thức
Nếu VBA thì hãy theo bài #4 trên

 

[batman1]

Thế này là sao hả bạn? Tôi chạy thử mà chả thấy gì?

Vì người ta "in" kết quả vào cửa sổ Immediate mà. Phải nhìn "ở đấy"
Cái bạn cần là ActiveWindow.Zoom.

vd.

Sub test()
    MsgBox "Hien tai Zoom = " & ActiveWindow.Zoom & "%"
End Sub

 

[ndu96081631]

Có gì đâu. Ví dụ tôi đặt công thức lấy tỷ lệ zoom ở ô C1 chẳng hạn (Nếu có công thức đó hoặc là chạy băng VBA gì đó) => Lúc đó ở ô C1 hiển thị là 70% chẳng hạn.

Thì viết thành Function thôi bạn

Function GetZoom(Optional ByVal sWin As String) As Single
  Dim win As Window
  Application.Volatile
  If sWin = vbNullString Then
    Set win = ActiveWindow
  Else
    Set win = Windows(sWin)
  End If
  GetZoom = win.Zoom
End Function

Đại khái vậy!
Bạn gõ công thức vào C1 thế này là được: =GetZoom()

 

[hung2412]

Xin lỗi mọi người, mọi người hiểu nhầm ý tôi rồi. Chỗ tôi muốn lấy tỷ lệ zoom là ở chỗ này:
Không phải ở chỗ này:

 

[ndu96081631]

Xin lỗi mọi người, mọi người hiểu nhầm ý tôi rồi. Chỗ tôi muốn lấy tỷ lệ zoom là ở chỗ này:View attachment 231417
Không phải ở chỗ này:
View attachment 231418

Thế thì vầy:

Function GetZoom() As Single
  GetZoom = ActiveSheet.PageSetup.Zoom
End Function

 

[hung2412]

Thế thì vầy:

Function GetZoom() As Single
  GetZoom = ActiveSheet.PageSetup.Zoom
End Function

Dạ nhưng nếu để hiện trạng như vầy thì GetZoom không lấy được 52% ạ.

 

[ndu96081631]

Dạ nhưng nếu để hiện trạng như vầy thì GetZoom không lấy được 52% ạ.View attachment 231419

Đã "Fit to..." rồi thì con số phần trăm ở "Adjust to" còn có tác dụng gì nữa mà lấy?

 

[hung2412]

Đã "Fit to..." rồi thì con số phần trăm ở "Adjust to" còn có tác dụng gì nữa mà lấy?

Chính vì thế em mới muốn lấy % zoom để nếu % zoom<100% thì sẽ in ngang, còn % zoom >= 100% thì sẽ in dọc

 

[ndu96081631]

Chính vì thế em mới muốn lấy % zoom để nếu % zoom<100% thì sẽ in ngang, còn % zoom >= 100% thì sẽ in dọc

Trên mạng thấy có vài người thắc mắc giống bạn. Thử search google theo từ khóa:
Get Zoom Factor
Sẽ thấy một vài giải pháp