MsgBox YesNo

[muratgunay48]

Arkadaşlar, sayın hocalarım, bir dosyam var, hatta diğer dosyalarımda da böyle oluyor. InputBox ya da MsgBox neden klasörlerin arkasında açılıyor. Bunun bir yolu var mı?
Mesela koda bir satır eklemek gibi.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[muhasebeciyiz]

Bu Excel VBA’da çok sık görülen bir durumdur. MsgBox veya InputBox, Explorer penceresinin arkasında kalır çünkü Excel aktif pencere değildir. Windows o anda Explorer’ı foreground window olarak görüyor.

MsgBox veya InputBox’tan önce Excel’i aktif yapın.

AppActivate Application.Caption

Sub Test()
    AppActivate Application.Caption    
    MsgBox "Devam edilsin mi?"

End Sub

veya

MsgBox "Mesaj", vbSystemModal

 

[muhasebeciyiz]

Yeni bir Module açın ve bunu ekleyin:

Public Sub FocusExcel()
    On Error Resume Next
    AppActivate Application.Caption
    DoEvents
End Sub

Artık tek satır eklemeniz yeterli
Her MsgBox veya InputBox'tan önce sadece bunu yazın:

FocusExcel

örnek

Sub Test()

    FocusExcel
    MsgBox "Devam edilsin mi?"

End Sub

veya

Sub Test()

    Dim cevap As String

    FocusExcel
    cevap = InputBox("Bir değer girin")

End Sub

veya genelde benim kullandığım

Public Sub FocusExcel()
    On Error Resume Next
    Application.WindowState = xlNormal
    Application.Activate
    AppActivate Application.Caption
    DoEvents
End Sub