Sanal Klavye açma

[excellkurdu]

Değerli Arkadaşlar,
C sütünunda herhangi bir hücreye tıklayınca Sanal klavyeyi açabilir miyiz?
Aşağıda bir kod buldum ama hata verdi. Hücreye tıklayınca mı çalışıyor anlamış değilim.
Saygılarımla

Sub OpenKeyboard()
'Macro to open virtual keyboard application
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "C:\Windows\system32\osk.exe", "<arguments>", _
"C:\Windows\system32", SW_SHOWMAXIMIZED)
End Sub

 

[turist]

Çalıştırmak istediğiniz sayfanın KOD bölümüne:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
CreateObject("Shell.Application").Open "C:\Windows\system32\osk.exe"
End Sub

şeklinde VBA editörü sayfasını ( ALT ve F11 tuşlarına birlikte basarak ) açın ve soldaki menüden sayfa adını çift tıklayın, sağ tarafında çıkan boş sayfaya KOD'u yazın.

Sayfanıza dönün , sayfada herhangibir hücrede ÇİFT TIKLAMA yaparsanız, klavye açılacaktır.

 

[excellkurdu]

Hocam ekran klavyesi çalıştırılamadı diye bir ikaz alıyorum.
Birde bunu tüm sayfa yerine sadece C sutunu olarak yapmamız mümkün mü?

 

[turist]

Hocam ekran klavyesi çalıştırılamadı diye bir ikaz alıyorum.
Birde bunu tüm sayfa yerine sadece C sutunu olarak yapmamız mümkün mü?

Windows hangi sürüm? ve 32 veya 64 bit hangisi? (Win 7 32 bit gibi)

 

[excellkurdu]

Windows hangi sürüm? ve 32 veya 64 bit hangisi? (Win 7 32 bit gibi)

win7 64 bit
komut dosya yolu gezginde çalışıyor. C:\Windows\system32\osk.exe
excel de çalışmıyor

 

[turist]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
[B][COLOR="Red"]If Not Intersect(Target, Range("c:c")) Is Nothing Then[/COLOR][/B]
CreateObject("Shell.Application").Open "C:\Windows\system32\osk.exe"
End If
End Sub

Sadece C sütununda çift tıklama ile çalışıyor.
(Ben de Win7 64 bit kullanıyorum ve 2013 Excel English. Sorunsuz çalışıyor)

 

[excellkurdu]

Hocam sanırım excelimde sorun var ya da bir yerlerde ayarlar kapalı. Normal de ben de komut "C:\Windows\system32\osk.exe" çalışıyor. Excel de, "Ekran Klavyesi Başlatılamadı" hatası veriyor.
İlginize çok teşekkür ederim. Allah razı olsun.

 

[turist]

Fırsat bulunca başka bir bilgisayarda denerseniz, sonucu bildirin lütfen.

 

[excellkurdu]

Hocam farklı pc de win8, 64bit, ofis ise şuan kullandığımı kurdum (ofis97) gayet güzel çalıştı. teşekkür ederim.