satır ve sütun genişlikleri

[SAYGILI]

mearaba arkadaşlar malumunuzdurki excel i açtığınızda sütun aralıkları
8,43(64 piksel) satır aralıkları ise 12,75(17 piksel) standart olarak karşımıza çıkar. şimdi bu sütun ve satır genişlikleri mm ile karşılaştırıldığında değer olarak kaça tekamül ediyor (örneğin 1 inç 2,45 mm dir peki 64 piksel kaç mm yapıyor ) bilgisi olan arkadaş varmı şimdi siz diyeceksinizki ne yapacaksın yap hesabını bak işine ya nokta aralıkları belirlemem gerekiyor 6mmx4mm-6mmx3mm-6mmx6mm gibi buna benzer aralıklar yardımlarınızı bekliyorum hepinize kolay gelsin
saygılar

 

[veyselemre]

zamanın birinde page setupla ilgili uğraşmıştım bilmiyorum işini görür mü?

 

[cako]

Ben de başka bir siteden alıntı yapayım dedim.

Kod:
Sub satir()
Dim yukseklik As Single, mevcut As Single, text As String, cevap As String
'mevcut satır yüksekliğini bul
mevcut = Selection.RowHeight / 29.5
'mesaj içriğini hazırla
text = "Mevcut satır yüksekliği: " & Format(mevcut, "###0.00 cm") & Chr(13) & "Yeni satır yüksekliğini girin (cm):"
'InputBox göster
cevap = InputBox(text, "Yeni satır yüksekliği belirle", Format(mevcut, "###0.00"))
'cevaba göre yeni satır yüksekliği değiştir
If cevap <> "" Then
yukseklik = CSng(cevap)
Selection.RowHeight = yukseklik * 29.5
End If
End Sub

Kod:
Sub sutun()
Dim genislik As Single, mevcut As Single, text As String, cevap As String
'mevcut sütun genişliğini bul
mevcut = (Selection.ColumnWidth + 0.71) / 5.1425
'mesaj içriğini hazırla
text = "Mevcut satır genişliği: " & Format(mevcut, "###0.00 cm") & Chr(13) & "Yeni sütun genişliğini girin:"
'InputBox göster
cevap = InputBox(text, "Yeni satır genişliğini girin (cm)", Format(mevcut, "###0.00"))
'cevaba göre yeni sütun genişliğini değiştir
If cevap <> "" Then
genislik = CSng(cevap)
Selection.ColumnWidth = -0.71 + 5.1425 * genislik
End If
End Sub




yukarıdaki kodu boş bir modüle kaydedin.daha sonra bu excel dosyasını istediğiniz bir isimle xla olarak kaydedin.yukarıdaki kod başka bir internet sitesinden alınmıştır.

selamlar.....

 

[SAYGILI]

sayın veyselemre ve cako yardımlarınız ve paylaşımlarınız için teşekkürler ellerinize sağlık
kolay gelsin