yazı yazarken otomatik satır aralığı bırakma

[qiqirdeq]

örneK : excel yazarken; e x c e l olarak yazılabilirmi?

 

[Levent Menteşoğlu]

Yazarken değilde yazdıktan sonra aşağıdaki kod ile aralık verilebilir. Kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:38fdfb6612]Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For a = 1 To Len(Target)
deg = deg & Mid(Target, a, 1) & " "
Next
Target = deg
Application.EnableEvents = True
End Sub
[/vb:1:38fdfb6612]

 

[L_M]

zorlama bi yöntem olucak ama onkey ile yapılabilir mi acaba ama şu an vaktim yok test etmeye.

 

[qiqirdeq]

teşekkür ederim leventm bu işimi görür