DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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