ortala ve tarih saat sorunu

[najamurat]

1- bir hücreye girdiğim değerin biçim durumu ne olursa olsun buton yardımıyla o hücredeki değerin butona basıldıktan sonra hücre biçimlendir seceneğinde olan yatay ortala - dikey ortala seçiminde ki gibi hücre içerisinde ortalanmasını istiyorum
2- yine buton yardımı ile seçili olan hücreye o anki pc tarih ve saatini yazdırabilirmiyim. 20.01.2008 - 15:30 gibi olucak...

yardımlarınız için teşekkür ederim... örnekte düzelterek yaparsanız sevinirim...

 

[mesuttasar]

Ortalama butonuna aşağıdaki kodu kopyalaayabilirsiniz.

Sub ortala()

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Tarih ve saat içinde şu kodları kullanablirsiniz.

Sub tarih_saat()

    ActiveCell.FormulaR1C1 = "=NOW()"
    
End Sub

Dosyanız ektedir.

 

[najamurat]

teşekkürler

çok teşekkür ederim dostum allah razı olsun senden....

 

[mesuttasar]

Amin hepimizden inşallah.

 

[Orion1]

Tarih ve saate alternatif.

Sub tarih_saat()
ActiveCell.Value = Now
ActiveCell.NumberFormat = "dd.mm.yyyy hh:mm:ss"
End Sub

 

[mesuttasar]

Evren hocam, görüyorumki bir problem vba komutları kullanılarak birden fazla yaklaşımla çözülebiliyor. Bunlar arasında seçim yapmak gerekirse en az komutla yapılacak olanı mı seçmeliyiz,sistem performansı açısından.

Bu konuda bilginizi paylaşabilirmisiniz?

 

[Orion1]

Evren hocam, görüyorumki bir problem vba komutları kullanılarak birden fazla yaklaşımla çözülebiliyor. Bunlar arasında seçim yapmak gerekirse en az komutla yapılacak olanı mı seçmeliyiz,sistem performansı açısından.

Bu konuda bilginizi paylaşabilirmisiniz?

Bu konuda benimde fazla bir bilgim yok.Sitede gördüklerimi arasıra uyguluyorum.
İyi çalışmalar.