Bir excel sayfasındaki satır ve sütunların genişliğini piksel olarak değildi cm yada mm olarak ayarlamam gerekiyor. Bu değişikliği nasıl yapabilirim..?
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.