Non credo che si possa fare usando normali funzioni. Dovrai quindi trovare un' alternativa per caricare la descrizione non direttamente nella cella ma, ad esempio, in un textbox di una form; userai poi l' evento TextBox1_Change per dare indicazioni all' utente.
Ad esempio:
Uploaded with
ImageShack.usLa form dell' esempio contiene un oggetto TextBox1 e una Label1. Il codice di controllo e':
- Codice: Seleziona tutto
Private Sub TextBox1_Change()
maxCrt% = 230
Label1.Caption = "Inserire Descrizione" & vbCrLf & "Disponibili ancora " & maxCrt - Len(TextBox1.Text) & " caratteri"
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Cells(2, 2).Value = TextBox1.Text
UserForm1.Hide
End If
End Sub
Tramite la Proprietà "caption" e' stata inserita l' intestazione "Caratteristiche dell' oggetto" sulla Form e "Inserire descrizione" come valore iniziale della Label1; il primo codice inserisce l' informazione sulla disponibilita' residua di caratteri, il secondo posiziona il contenuto all' interno della cella B2 (Cells(2,2)) e chiude la form quando viene pigiato Enter.
Si tratta di un esempio che ovviamente dovrai completare con altre prestazioni.
Una cosa analoga la potresti fare con il controllo "Casella di testo" degli Strumenti di controllo, visto che anche loro sono oggetti programmabili.
Ciao