Problema di SetFocus e Exit nelle Textbox (ActiveX)

[Dondon]

Ciao a tutti,
utilizzo il VBA di Excel 2007 (s.o. Windows 10), e non riesco a gestire il focus sugli oggetti (controlli ActiveX) che uso, in particolare le Textbox. Se scrivo istruzioni tipo "Textbox1.SetFocus" mi dà puntualmente errore (di run-time 438: proprietà o metodo non supportati dall'oggetto). L'istruzione "Setfocus" non appare nell'elenco che si apre in automatico mentre si digita "Textbox.", mentre ne compaiono molte altre. Inoltre, non compare, sempre per le Textbox, la scelta della routine Exit (ci sono Change, Dblclick, ecc, ma Exit no).
Vi chiedo, con umiltà perché non sono certo un grande conoscitore del VBA, un aiuto per poter sistemare le cose. Forse sbaglio in qualcosa di basilare che mi sfugge, oppure serve di installare qualcosa in più che non so...?
Tra l'altro, la cosa si presenta anche su un altro PC (sempre con Office 2007 e Windows 10), ma anche installando Office 2016 le cose non cambiano!
Grazie a chiunque voglia aiutarmi!

[Marius44]

Ciao
Per "indovinare" cosa ti capita ci vorrebbe la "palla di vetro".

A parte la battuta (consentimela in periodo di "prigionia"), prova ad allegare il file (senza dati sensibili).
Ciao,
Mario

[Anthony47]

Intanto, "Benvenuto Dondon"

Eh, Mario, sante parole le tue...

Non sapendo come l'utente sta procedendo faccio un esempio di uno scenario di questo tipo, puramente a scopo dimostrativo:
-un foglio di lavoro contenente un ActiveX TextBox1, che diventa visibile quando si seleziona una cella nell'intervallo B2:B20
-viene posizionato alla destra della cella selezionato, visualizzando in modo automatico il contenuto di questa cella, ma pronto per essere modificato
-quando si preme Enter, il contenuto del textbox viene copiato nella cella che era stata selezionata
-se invece si preme "freccia giù" oppure "freccia su" si passa sulla cella sottostante o soprastante senza copiare il contenuto del textbox

Tutto questo e' gestibile col seguente codice, da mettere sul modulo vba del foglio su cui lavori:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ckArea = "B2:B20"
If Not Application.Intersect(Range(ckArea), Target) Is Nothing And Target.Count = 1 Then
'posizione del Textbox:
    Me.TextBox1.Top = Target.Top
    Me.TextBox1.Left = Target.Offset(0, 1).Left
'Valore Iniziale:
'   Debug.Print Target.Address
    Me.TextBox1.Value = Me.TextBox1.TopLeftCell.Offset(0, -1).Value
    Me.TextBox1.Activate
    Me.TextBox1.SelStart = 0
    Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Else
    Me.TextBox1.Visible = False
End If
End Sub



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Debug.Print KeyCode
If KeyCode = vbKeyReturn Then
    Me.TextBox1.TopLeftCell.Offset(0, -1).Value = Me.TextBox1.Value
    Me.TextBox1.Visible = False
    Me.TextBox1.TopLeftCell.Offset(1, -1).Select
ElseIf KeyCode = 40 Then        'freccia giu'
    Me.TextBox1.Visible = False
    Me.TextBox1.TopLeftCell.Offset(1, -1).Select
ElseIf KeyCode = 38 Then        'freccia su
    Me.TextBox1.Visible = False
    Me.TextBox1.TopLeftCell.Offset(-1, -1).Select
End If
End Sub

Vediamo se Dondon trova lo spunto per il suo caso... Altrimenti seguira' certamente il consiglio di Marius
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[Dondon]

Provo ad allegare un file di esempio che ho fatto

[Dondon]

http://www.filedropper.com/esempio_1

[Dondon]

L'esempio piu' banale del mondo: se la TextBox non contiene nulla, premendo il pulsante ho il msg "NO" da MessageBox, altrimenti ho "OK".
Il mio quesito è: quando chiudo la MessageBox, vorrei poter avere il controllo sulla TextBox, ovvero vorrei essere nella situazione di poterci già scrivere senza dover posizionarmici con mouse o tab. Senza ulteriori istruzioni, infatti, il controllo non sta né su TB, né sul pulsante. Mettendo nel listato del pulsante l'istruzione, che dovrebbe funzionare, "TextBox1.SetFocus" ottengo errore 438 - proprietà o metodo non supportati, che potete verificare.

[Marius44]

Ciao
Non posso scaricare il file perchè Fildropper mi fa andare in crash il PC (non chiedetemi perchè. Non lo so ma oramai evito anche solo di tentare di scaricare)

La TextBox sulla quale vuoi dare il Focus è l'unica o vi sono altri Control nel Foglio (o nella UserForm)?
Se fosse l'unico controllo il Focus non potrà mai riceverlo (a quanto ne so io).

Ciao,
Mario

[Anthony47]

Il TextBox non ha il metodo SetFocus, e' inutile che ci provi; devi invece usare quel che Microsoft ti mette a disposizione (che in genere e' molto di piu' di quello che riusciamo a sfruttare).

Trovi qualcosa che descrive il TextBox qui: https://docs.microsoft.com/en-us/dotnet ... =vsto-2017

Vedrai quindi che esiste il metodo Activate, che "Attiva il textbox"; userai cioe':

Codice: Seleziona tutto

    Me.TextBox1.Activate
    Me.TextBox1.SelStart = 0
    Me.TextBox1.SelLength = Len(Me.TextBox1.Text)

Come ho fatto io nel codice di esempio che ho gia' pubblicato.
Le istruzioni successive all' Activate servono per selezionare il testo nel TextBox, in modo che digitando qualcosa il vecchio contenuto viene sostituito

@Mario: si tratta di un ActiveX posizionato direttamente sul foglio

Ciao a tutti

[Marius44]

Ciao a tutti
Grazie per la precisazione Anthony, ma ero un po' ... fuori strada.
Un chiarimento: invece di TextBox1.Activate si potrebbe usare TextBox1.Select? Avrebbe lo stesso effetto?

Ciao e ancora Grazie,
Mario

[alfrimpa]

Scusate l’intromissione.

Vero è che la Textbox non ha l’evento SetFocus ma se scrivo

Codice: Seleziona tutto

Me.TextBox1.SetFocus

perchè tutto funziona perfettamente?

Anthony illuminaci

Alfredo

[Anthony47]

Alfredo, per rispondere con precisione dovrei appartenere alla categoria degli stregoni...
Quel "Me" a cosa punta?
Copiando una frase letta spesso, mi vien da dire "Pubblica un file di esempio"
Volendo comunque "sparare" qualche ipotesi: stai usando On Error Resume Next? Sei in una Userform invece che su un Foglio?

Mario, immagino che nel frattempo hai gia' fatto la prova e verificato che TextBox1.Select non produce lo stesso risultato di Textbox1.Activate; in particolare ti ritrovi col Textbox "selezionato" (col contorno e gli handle) pronto per farci delle operazioni, ad esempi un Delete, o... un Activate che lo rende attivo quindi pronto per scriverci.
Come per le celle del foglio di lavoro, con Select potresti selezionare anche piu' controlli, ma solo 1 puo' essere poi attivato

Ciao!

[alfrimpa]

Si certo Anthony, e perdonami se l'ho dato per scontato, parlavo di userform.

D'altra parte le textbox su di un foglio e chi le ha mai viste?

Alfredo

[Anthony47]

Si certo Anthony, e perdonami se l'ho dato per scontato, parlavo di userform.

Le proprieta' dei controlli delle form sono diverse da quelle degli activex.
E, cosi' per portare iella, se cerchi textbox setfocus not working vedrai che anche sulle userform spesso fa le bizze.

D'altra parte le textbox su di un foglio e chi le ha mai viste?

Eh he, forse hai impostato

Codice: Seleziona tutto

TextBox1.Visible = False

Ciao!

[alfrimpa]

Codice: Seleziona tutto

TextBox1.Visible = False

Spiritoso