Condividi:        

A.A.A. cercasi macro per dividere numero per 1000

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

A.A.A. cercasi macro per dividere numero per 1000

Postdi rauri71 » 03/03/20 18:20

Ciao a tutti!

non sono più riuscito a recuperare per qualche misterioso motivo il vecchio account Paloma e vi scrivo pertanto con questo nuovo per un quesito che mi sta facendo impazzire: ho diverse centinaia di numeri su più fogli di lavoro excel ciascuno dei quali devo dividere per mille.

Volendo impostare un paio di tasti sulla tastiera per fare questo lavoretto di cesello pensavo di impostare una macro solo che con le mie conoscenze pari a zero virgola mi viene sempre fuori il numero della macro che ho registrato!

Come faccio a fare in modo che mi divida per mille il numero della cella su cui punto esattamente il cursore (e poi premo la sequenza di tasti prevista)?

Grazie mille in anticipo!!
Morris
rauri71
Newbie
 
Post: 2
Iscritto il: 03/03/20 18:13

Sponsor
 

Re: A.A.A. cercasi macro per dividere numero per 1000

Postdi alfrimpa » 03/03/20 23:07

Con una macro di questo tipo da inserire nel moduli del foglio interessato basta fare doppio clic su una cella e il valore in essa contenuto verrà automaticamente diviso per 1000.

Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Value = Target.Value / 1000
    Cancel = True
End Sub
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: A.A.A. cercasi macro per dividere numero per 1000

Postdi Francesco53 » 04/03/20 09:53

Ciao rauri, la più semplice che conosco è questa:

Codice: Seleziona tutto
Sub DivMille()
    riga = ActiveCell.Row
    colonna = ActiveCell.Column
    Cells(riga, colonna) = Cells(riga, colonna) / 1000
End Sub


Poi la richiami con i tasti che vuoi programmare per l'avvio esempio: Ctrl+m

Selezioni la cella che vuoi dividere per mille poi Ctrl+m e restituisce il risultato nella stessa cella.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: A.A.A. cercasi macro per dividere numero per 1000

Postdi rauri71 » 04/03/20 10:48

FANTASTICOOOO
Grazie mille!!!
rauri71
Newbie
 
Post: 2
Iscritto il: 03/03/20 18:13

Re: A.A.A. cercasi macro per dividere numero per 1000

Postdi Zer0Kelvin » 08/03/20 12:13

Francesco53 ha scritto:
Codice: Seleziona tutto
Sub DivMille()
    riga = ActiveCell.Row
    colonna = ActiveCell.Column
    Cells(riga, colonna) = Cells(riga, colonna) / 1000
End Sub

Basta
Codice: Seleziona tutto
Sub DivMille()

    ActiveCell = ActiveCell / 1000
   
End Sub
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23


Torna a Applicazioni Office Windows


Topic correlati a "A.A.A. cercasi macro per dividere numero per 1000":


Chi c’è in linea

Visitano il forum: Nessuno e 53 ospiti