• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Excel Vba Makro 64 bit hatası

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
vuranoğlu

vuranoğlu

Yeni Üye
Katılım
29 Eki 2021
Mesajlar
67
Aldığı beğeni
5
Excel V
Office 2016 TR
Konu Sahibi
İyi akşamlar.
Ekteki dosya 32 bitte sorunsuz çalışıyor.
Windows10 office2016 da aşağıdaki hata alınıyor.
Nasıl düzeltebiliriz.
Teşekkürler.
Private Sub UserForm_Activate()
hnd = FindWindow(vbNullString, Me.Caption)
SetTimer hnd, 0, 100, AddressOf Timer
End Sub
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
SetTimer hnd, 0, 100, AddressOf Timer satırındaki AddressOf Timer ifadesindeki boşluğu kaldırarak
SetTimer hnd, 0, 100, AddressOfTimer yazınız.
Bende bu şekilde çalıştı.
 
Olumlu oy 0 Negatif oyla
muratboz06' Alıntı:
SetTimer hnd, 0, 100, AddressOf Timer satırındaki AddressOf Timer ifadesindeki boşluğu kaldırarak
SetTimer hnd, 0, 100, AddressOfTimer yazınız.
Bende bu şekilde çalıştı.
Genişletmek için tıkla...
Boşluk kalkmaz çünkü alttaki gibi sub yapılmış abey.
Çözümü bilmiyorum çünkü 32 bit kullanıyorum ve 64 bir için deneyemiyorum.Ama ptrsafe gibi oluyordu yanlış yazmadıysam 64 bit için.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Gerçi kodda zaten ptrsafe yazılmış :)
Benimki 32 bit olduğu halde böyle çalışıyor :unsure:
 
Olumlu oy 0 Negatif oyla
hangi formdaki hangi saat?
 
Olumlu oy 0 Negatif oyla
settimer fonksiyonunu aşağıdaki gibi düzenleyip dener misiniz
ByVal lpTimerFunc As Long yerine ByVal lpTimerFunc As LongPtr yazarak
Public Declare PtrSafe Function SetTimer Lib "user32" ( _
ByVal hnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Userformların üzerlerinde saat var.
Vermiş olduğunuz kodlarda hata verdi.
Yanlış mı düzeltme yaptık?
 
Olumlu oy 0 Negatif oyla
Siz yanlış yerde işlem yapmışsınız
SetTimer fonksiyonu modüllerden birinde bağımsız olarak bulunur
Siz değişikliği başka bir fonksiyonun içine eklemissiniz
 
Olumlu oy 0 Negatif oyla
bahsettiğim SetTimer fonksiyonu Module1'de
 
Olumlu oy 0 Negatif oyla
Ben denediğimde 3 formda saat vardı 2si çalışıyordu
 
Olumlu oy 0 Negatif oyla
aşağıdaki resimde de görebileceğiniz gibi 1i dışında hepsi çalışıyor
x.gif
 
Olumlu oy 0 Negatif oyla
dosyayı ekledim belirttiğim gibi sadece Module1 deki ifade değişti
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst