Userform dan Sayfaya Geçiş hk.

[mumugul]

Merhaba;

ShowModal False iken Userform dan sayfaya kod ile geçiş mümkün mü?
Mouse ya da klavye ye gerek kalmadan imleci sayfada istediğim hücreye konumlandırmak ve direk yazmaya başlayabilmek istiyorum.
Yardımcı olur musunuz?

Saygılarımla...

 

[Muzaffer Ali]

Merhaba.
İki yöntem ile yapılabilir.
Ekteki dosyayı inceleyiniz.

 

[cems]

.

 

[mumugul]

İmlecin direk sayfaya geçmesini istiyorum. Mouse ile seçmiş gibi.

 

[Muzaffer Ali]

ShowModal özelliği bunun yapılmasını önlemek için var.
ShowModel = False sayfaya manuel ulaşılamasın demek. Aynı zamanda ulaşılsın diyemezsiniz.

Ama eğer siz tam olarak bunu ne için istediğinizi söylerseniz belki farklı bir yöntem bulunabilir.

 

[mumugul]

Userform da iken sayfaya geçmek istiyorum.
Halihazırda bunu yapmak için mouse ile sayfada herhangi bir hücreye tıklıyorum.
İşte tam olarak bu işlemi kod ile yapmak istiyorum.

 

[Muzaffer Ali]

Hücre seçmek için
Range("D5").select

D5 hücresini tıklamış gibi seçer.

Ancak iki kere tıklamış gibi seçmek için ShowModal=True olmalı

 

[Muzaffer Ali]

Bir de ekteki dosyayı inceleyin.

 

[mumugul]

Userform u Hide yapınca imleç sayfaya düşüyor ve ok tuşları ile sayfada gezinebiliyorum ama userform u hide yapmadan direk sayfaya geçmek mümkün değil mi acaba?

 

[Muzaffer Ali]

Hayır mümkün değil.

 

[mumugul]

Teşekkürler...

 

[mumugul]

Siz olmaz diye cevap yazınca başka çare aradım.
Private Sub SingleClick() işimi gördü.
Paylaşmak istedim.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  'Right click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

 

[Muzaffer Ali]

Verdiğiniz kodlar fareyi belirtilen konuma getirip tık, çift tık ve sağ tık yaptırıyor ShowModal False olmadığı müddetçe hiçbir işe yaramaz.

 

[mumugul]

İlk mesajımda ShowModel False diye belirtmiştim. Çözüm biraz kulağı tersten tutmak gibi oldu ama sonuç itibariyle işime yaradı.