|
Login
  • Page:
  • 1
  • 2

TOPIC: Come recuperare un Numero predefinito in Excel

Come recuperare un Numero predefinito in Excel 8 years 1 month ago #8130

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Buon Giorno , mi Chiamo Maurizio ; Ho un Problema che vorrei Risolvere in Excel.
Il problema e Questo : Con L'uso di una Macro o un Modulo che sia ; Ipotizziamo che nelle Celle che vanno da " A1 : J9 " ci siano dei Numeri Progressivi che vanno Per L'appunto ( da 1 al 90 ) .

Ora il Discorso e Questo : Io Desidero sapere come Far Apparire nelle Celle che vanno ( da A15 alla Cella J15 Dei numeri da me scelti con L'ausilio di un Semplice Click fatto nelle Celle Dall' dall' 1 al 90 Per un massimo di Dieci Numeri , Presi a caso .

Spero di Essere Stato Abbastanza Chiaro Visto tra le altre cose che sono un Autodidatta ! .
Però vi prego di chiedermi Ulteriori Spiegazioni nel caso no lo sia Stato a sufficienza .
Sinceri Saluti e Grazie per Tutto L'aiuto che riuscirete a darmi in Merito da A.Maurizio

(N.B) Vi Invio Mio Prospetto di Gioco
Attachments:
The administrator has disabled public write access.

Come recuperare un Numero predefinito in Excel 8 years 1 month ago #8132

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Maurizio,
se non ho capito male, prova con questa:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Zona = Range("a1:J9")
If Not Intersect(Target, Zona) Is Nothing Then
VCELL = Target.Value
If Range("a15") <> "" Then
Range("K15").End(xlToLeft).Offset(0, 1).Value = VCELL '.Select
Else
Range("A15").Value = VCELL
End If
Cells(1, 1).Select
End If
End Sub

va inserita nel codice del foglio che ti interessa e si attiva con doppio click (purtroppo con xl VBA non è prevista l'attivazione con il solo click della cella)
Ciao, Lo
PS: ovviamente questa piccola procedura non gestisce il numero di doppi click; devi fermarti dopo 10 doppi click
Last Edit: 8 years 1 month ago by lorenzo1957.
The administrator has disabled public write access.

Come recuperare un Numero predefinito in Excel 8 years 1 month ago #8133

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
...invece può funzionare anche solo su selezione cella:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Zona = Range("a1:J9")
If Not Intersect(Target, Zona) Is Nothing Then
VCELL = Target.Value
If Range("a15") <> "" Then
Range("K15").End(xlToLeft).Offset(0, 1).Value = VCELL '.Select
Else
Range("A15").Value = VCELL
End If
End If
End Sub

sempre nel codice del foglio desiderato.
Ciao, Lo
The administrator has disabled public write access.

Come recuperare un Numero predefinito in Excel 8 years 1 month ago #8137

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Grazie di Tutto Cuore Lorenzo 1957 ; Sia per la Tua Tempestività , che per la Modalità di procedura , che mi hai Gentilmente proposto .
Era proprio quella che stavo Cecando Io ! Sinceri Saluti e Grazie ancora di Tutto da A. Maurizio
The administrator has disabled public write access.

Come recuperare un Numero predefinito in Excel 8 years 1 month ago #8138

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao Lorenzo 1957 , Sono Sempre Io Maurizio ; Ascolta Il Tuo Programma e Talmente bello che vorrei Chiederti Ancora una Cosina in Merito , Sempre che tu sia d'accordo .
Il Problemino e Questo : Se io Volessi Far si che' ad Ogni Doppio Click Fatto su una determinata cella dai Numeri Presi dall' 1 al 90 ; quindi dalle Celle che Vanno da A1 a J9 , Volessi fare in modo che si Evidenziassero di Colore Giallo una Volta Fatto il Fatitico Doppio Click Cosa Dovrei Aggiunge a questo Codice , e in che modo ! Ho non è possibile ?
Grazie Nuovamente di Tutto l'aiuto che riuscirai a darmi .
Sinceri saluti da A.Maurizio
The administrator has disabled public write access.

Come recuperare un Numero predefinito in Excel 8 years 1 month ago #8140

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Maury,
se rileggi il mio secondo post, non parliamo più di doppio click, ma di semplice selezione della cella.
Colorare di un determinato colore la cella selezionata, se hai il 2007 potrebbe andare questo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Zona = Range("a1:J9")
If Not Intersect(Target, Zona) Is Nothing Then
VCELL = Target.Value
Target.Interior.Color = 65535 'questo è il codice per colorare la tua cella, ma il numero dipende dalla tua versione di XLS
If Range("a15") <> "" Then
Range("K15").End(xlToLeft).Offset(0, 1).Value = VCELL '.Select
Else
Range("A15").Value = VCELL
End If
End If
End Sub
Ciao, Lo
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.429 seconds