Soru excel hesaplama seçenekleri

[incsoft]

Arkadaşlar Excelde hesaplama seçenekleri bazen otomatik modundan el ile moduna dönmektedir. Bunu her seferinde sayfasına girip değiştirmek yerine bir butona otomatik ve el ile şeklinde ayarlamak için kodları varmıdır? Tıkladığımda otomatik moduna tıkladığımda el ile moduna alacak. Hangi modda olduğunu öğrenmek için kodda varsa oda faydalı olur.

Teşekkürler..

 

[kulomer46]

Merhaba

Excelde Dosya-Seçenekler-Formüller-Hesaplama Seçenekleri kısmındaki Çalışma Kitabı Hesaplaması ayarını

Otomatik yapan Makro Kodu

Application.Calculation = xlAutomatic
cells(1,1)="Çalışma Kitabı Hesaplaması OTOMATİK olarak ayarlandı"


El ile yapan Makro Kodu

Application.Calculation = xlManual
cells(1,1)="Çalışma Kitabı Hesaplaması EL İLE olarak ayarlandı"


Selamlar...

 

[incsoft]

Merhaba

Excelde Dosya-Seçenekler-Formüller-Hesaplama Seçenekleri kısmındaki Çalışma Kitabı Hesaplaması ayarını

Otomatik yapan Makro Kodu

Application.Calculation = xlAutomatic
cells(1,1)="Çalışma Kitabı Hesaplaması OTOMATİK olarak ayarlandı"


El ile yapan Makro Kodu

Application.Calculation = xlManual
cells(1,1)="Çalışma Kitabı Hesaplaması EL İLE olarak ayarlandı"


Selamlar...

Teşekkürler hocam. Kontrol eden kod varmıdır acaba? Mesela hesaplamanız otomatik modda,hesaplamanız el ile ayarlı şeklinde?

 

[Korhan Ayhan]

Deneyiniz.

MsgBox Application.Calculation

 

[incsoft]

Deneyiniz.

MsgBox Application.Calculation

olmadı hocam

 

[Korhan Ayhan]

Ne olmasını bekliyordunuz? Ne oldu?

 

[kulomer46]

Merhaba

Konu hakkında alternatif çalışma Ek 'tedir.

Selamlar...

 

[muratboz06]

Aşağıdaki kodu herhangi bir butona atayabilirsiniz.

Sub HesaplamaModuDeğiştir()
    
    If Application.Calculation = xlCalculationManual Then
        hesaplama = "Elle"
    ElseIf Application.Calculation = xlCalculationAutomatic Then
        hesaplama = "Otomatik"
    End If
    cevap = MsgBox("Hesaplama modunuz: " & hesaplama & vbCrLf & "Değiştirmek ister misiniz?", vbYesNo + vbQuestion, "Hesaplama modu")
    If cevap = vbYes Then
        If hesaplama = "Elle" Then
            Application.Calculation = xlCalculationAutomatic
        ElseIf hesaplama = "Otomatik" Then
            Application.Calculation = xlCalculationManual
        End If
    End If
    
End Sub