32-64 Bit macro hakkında

[Hyperhysv]

merhaba
Aşağıda kodları görünen 32 bit bilgisayarlarda çalışan macronun hem 32bit hemde 64bit bilgisayarlarda çalışması için kodlama içerisinde ne türbir değişiklik yapmamız gerekir.

teşekkürler

Option Explicit
Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
    Dim satt, sütt
    satt = Target.Row
    sütt = (Target.Column) + 1
    If Cells(satt, sütt) = "TARGET" Then Exit Sub
    DoEvents
    If Cells(satt, sütt) = "VEKTORDTS" Then Call PlayIt("C:\Windows\Media\SONGEOURO.wav", 0)
    
End Sub

 

[antonio]

Kodlarınızı aşağıdakilerle değiştirerek deneyiniz:

Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
    Dim satt, sütt
    satt = Target.Row
    sütt = (Target.Column) + 1
    If Cells(satt, sütt) = "TARGET" Then Exit Sub
    DoEvents
    If Cells(satt, sütt) = "VEKTORDTS" Then Call PlayIt("C:\Windows\Media\SONGEOURO.wav", 0)
End Sub

 

[Hyperhysv]

Sn.Antonio kodlar çalışıyor gibi görünüyor desteğiniz için teşekkürler

 

[Hyperhysv]

yeniden merhaba,

macrodaki hücreye göre aktif olan dosyasının "2" saniye gecikme ile aktif olmasını istiyorsam kodu nasıl değiştirmem gerekir.

teşekkürler

 

[Korhan Ayhan]

"DoEvents" satırından sonrasına aşağıdaki satırı ekleyip deneyiniz.

Application.Wait Now + TimeValue("00:00:02")

 

[Hyperhysv]

Korhan bey çok teşekkürler.gayet iyi çalışıyor

 

[KuTuKa]

32 bit bilgisayarlarda çalışan macronun hem 32bit hemde 64bit bilgisayarlarda çalışması için kodlama içerisinde ne türbir değişiklik yapmamız gerekir.

aşağıdaki dosya içinde bunu yapabilirmiyiz.

makro şifresi 123 dür


Teşekkürler

 

[Merhum İdris SERDAR]

32 bit bilgisayarlarda çalışan macronun hem 32bit hemde 64bit bilgisayarlarda çalışması için kodlama içerisinde ne türbir değişiklik yapmamız gerekir.

aşağıdaki dosya içinde bunu yapabilirmiyiz.

makro şifresi 123 dür


Teşekkürler

.

Dosyanız ekte.

.

 

[KuTuKa]

İdris ben Merhaba

ne diyeyim en son çare bilgisayarı 32 bite düşürecektim.Elleriniz dert görmesin.

Kolaylıklar
Kutuka