satır sütun genişliği hakkında

[mehmethoca]

üstatlar bana satır ve sütun genişliklerini mm olarak belirlemem gerekiyor otomatik optik form kodlama programı yapmaya çalışacağım

her türlü fikir yönlendirmeye açık bir proje amaç ufak sınıflar yanlış kodluyor bunun için önceden kodlanmış form vermek istiyorum

isteyen arkadaş olursa scan edilmiş boş bir form gönderebilirim


teşekkürler

 

[tahsinanarat]

istediğiniz kodlar aşağıdadır

thiswork kısmına yapıştırılacak
Private Sub Workbook_Open()
Dim SutGen As CommandBarControl
Dim SatYuk As CommandBarControl
Set SutGen = Application.CommandBars("Cell").Controls.Add
With SutGen
.Caption = "Sütun Genişliği Cm"
.OnAction = "Module1.sutun"
End With
Set SatYuk = Application.CommandBars("Cell").Controls.Add
With SatYuk
.Caption = "Satır Yüksekliği Cm"
.OnAction = "Module1.satir"
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Controls("Sütun Genişliği Cm").Delete
Application.CommandBars("Cell").Controls("Satır Yüksekliği Cm").Delete
End Sub
Modüle kısmına yapıştırılacak

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

Sağ clik yaptığınızda satır genişliği ve yüksekliği seçenekleri görülecektir

 

[mehmethoca]

te&#351;ekk&#252;rler &#252;stat

 

[vitaminb1]

bende sutun geni&#351;li&#287;ini h&#252;cre i&#231;eriesine yaz&#305;lan yaz&#305;n&#305;n uzunlu&#287;una g&#246;re otamatik olarak geni&#351;leyip daralmas&#305;n&#305; istiyorum.&#214;rne&#287;in A2 h&#252;cresine Ali AY veya Ali KARAKOCAMANO&#286;LU yazaca&#287;&#305;m buna g&#246;re 1 isme g&#246;re h&#252;cre daralacak 2 isme g&#246;re isim uzun oldu&#287;undan h&#252;cre geni&#351;leyecek otamatik olarak.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A:A").EntireColumn.AutoFit
End Sub

Tüm sütunlar için.

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.EntireColumn.AutoFit
End Sub

 

[vitaminb1]

te&#351;ekk&#252;rler.&#231;ok h&#305;zl&#305; cevap geldi. Fakat bu kod nas&#305;l yaz&#305;l&#305;r nereye yaz&#305;l&#305;r. k&#305;saca bir a&#231;&#305;klarm&#305;s&#305;n&#305;z. Art&#305;k daha fazla dirnmeyecek ve kafam ne kadarda basmasada bu kod yazmay&#305; u&#287;ra&#351;&#305;p &#246;&#287;renecem. mecburen.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayın vitaminb1 sayfa sekmesine sağ klik yapıp kod görüntüle yazan yere tıklayınız açılan bölüme kodlamayı yapıştırınız.

 

[vitaminb1]

tamam dedi&#287;iniz &#351;ekilde yapt&#305;m ve oldu. &#231;ooooooooooooooooooook Te&#351;ekk&#252;rler. kod yazmay&#305; bu g&#252;n &#246;&#287;renmi&#351;tim. ALT+F11......yerden yazmay&#305;.ama sizin s&#246;yledi&#287;iniz yol daha k&#305;sa te&#351;ekk&#252;rler.

 

[kayserciyes]

üstatlar bana satır ve sütun genişliklerini mm olarak belirlemem gerekiyor otomatik optik form kodlama programı yapmaya çalışacağım

her türlü fikir yönlendirmeye açık bir proje amaç ufak sınıflar yanlış kodluyor bunun için önceden kodlanmış form vermek istiyorum

isteyen arkadaş olursa scan edilmiş boş bir form gönderebilirim


teşekkürler

bana da Optik Form kodlama programı lazım oldu eğer yaptıysanız gönderirseniz sevinirim.