• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım excel hesaplama seçenekleri

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
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..
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Merhaba,

Aşağıdaki parçacık işinizi görecektir.

Selamlar.

Application.Calculation = xlManual 'Hesaplama el ile
Application.Calculation = xlAutomatic 'Hesaplama otomatik
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Öncelikle teşekkürler hocam. Peki mevcut hesaplamanın otomatikmi yoksa manual olduğunun sorgusunu yapan komut varmıdır?

Aşağıdaki şekilde 3 denetimi de tespit edebilirsiniz.

Saygılarımla.

Sub Ege()
kontrol = Application.Calculation
Select Case kontrol
Case Is = -4105
MsgBox "Otomatik"
Case Is = -4135
MsgBox "Manuel"
Case Is = 2
MsgBox "Veri tabloları dışında otomatik"
End Select
End Sub
 
Üst Alt