satır yüksekliği ve sütun genişliği formülle bulunur mu

[modoste]

merhaba sayın hocalarım
satır yüksekliği yada sütun genişliğini bulduran bi formül varmı
ölçekli bi akış diyagramı yada buna benzer bir şey çizmek istediğimde
bu verileri formüllerde kullanmak aklıma geldi
yapılabilirliği var mı

 

[Merhum İdris SERDAR]

merhaba sayın hocalarım
satır yüksekliği yada sütun genişliğini bulduran bi formül varmı
ölçekli bi akış diyagramı yada buna benzer bir şey çizmek istediğimde
bu verileri formüllerde kullanmak aklıma geldi
yapılabilirliği var mı

.


Bulunur. Ancak yerleşik fonksiyonlarla değik de, Kullanıcı Tanımlı Fonksiyonlarla mümkün.

Option Explicit

Public Function Satyuk(ByVal alnyuk As Range) As Single
 
    Dim alnsat As Range
    
    For Each alnsat In alnyuk.Rows
        Satyuk = Satyuk + alnsat.RowHeight
    Next

End Function


Public Function Sutgen(ByVal alngen As Range) As Single
 
    Dim alnsut As Range
    
    For Each alnsut In alngen.Columns
       Sutgen = Sutgen + alnsut.ColumnWidth
    Next

End Function

Örnek dosya ekte.

 

[emraha]

Teşekkür ederim, ellerinize sağlık. Bu makroyu piksel olarak sonuç verecek şekilde nasıl değiştirebiliriz?