Manuel Calculation Durumunda Olduğu Anlaşılır mı ?

[baydeniro]

Merhaba arkadaşlar. dosyanın "Manuel Calculation" durumunda olduğu makro kodu ile anlaşılır mı ;?

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub facıt_makinem()
If Application.Calculation = xlManual Then
MsgBox "manuel hesap"
Else
MsgBox "otomatik hesap"
End If
End Sub

 

[Necdet]

Merhaba,

Sayın Uzmanamele sorunu çözmüş, bende genelleştireyim dedim. Süleyman Bey'in kodlarını ThisWorkbook'un kod bölümüne kopyalarsanız açılışta sizi uyarır.

Private Sub Workbook_Open()
    If Application.Calculation = xlManual Then
        MsgBox "El İle Hesaplama Seçili"
    Else
        MsgBox "Otomatik Hesaplama Seçili"
    End If
End Sub

 

[baydeniro]

Sayın üstatlarım ilginiz ve yardımlarınız için çok teşekkür ederim. Sağlıcakla kalın.

 

[baydeniro]

2 işlem bir arda nasıl yapılabilir ? Eğer Calculatin manuel ise hem A1 hücresine 0 yazsın hem de ekrana "El İle Hesaplama Seçili" mesajı gelsin. Yani şu 2 kodu nasıl birleştirebiliriz :

[A1] = 0 ve MsgBox "El İle Hesaplama Seçili"


Not : Ben denedim maalesef beceremedim.

 

[Necdet]

Merhaba,

Aşağıdaki kodların yine ThisWorkbook ta olduğunu varsayarsak ve dosya açılışta 1. sayfayı seçerek A1 hücresine el ile hesaplamada 0, diğerinde 1 rakamını yazar.

Kodlarda küçük değişiklik yaparak bir modüle bağlayıp denemekte ya da ilgili sayfanın kod bölümünde çift tıklayarak ta yapmak olası. Yani hangi yöntem size daha uygunsa onu seçebilirsiniz.

Private Sub Workbook_Open()
Sheets(1).Select
    If Application.Calculation = xlManual Then
        MsgBox "El İle Hesaplama Seçili"
        [A1] = 0
    Else
        MsgBox "Otomatik Hesaplama Seçili"
        [A1] = 1
    End If
End Sub

 

[baydeniro]

Sayın Necdet Yeşertener, sizden Allah razı olsun, daha ne diyeyim. Allah işinizi gücünüzü rast getirsin. Sağlıcakla kalın.

 

[Necdet]

Teşekkür ederim Sayın Serdar Okan