Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Ecovacs DEEBOT T90 PRO OMNI: ora il rullo di lavaggio è ampio
Ecovacs DEEBOT T90 PRO OMNI: ora il rullo di lavaggio è ampio
DEEBOT T90 PRO OMNI abbina un sistema di aspirazione basato su tecnologia BLAST ad un rullo di lavaggio dei pavimenti dalla larghezza elevata, capace di trattare al meglio le superfici di casa minimizzando i tempi di lavoro. Un robot completo che riesce anche ad essere sottile e garantire automazione ed efficienza nelle operazioni di pulizia di casa
Recensione Samsung Galaxy S26 Ultra: finalmente qualcosa di nuovo
Recensione Samsung Galaxy S26 Ultra: finalmente qualcosa di nuovo
Per diversi giorni il Galaxy S26 Ultra di Samsung è stato il nostro compagno di vita. Oltre alle conferme del colosso coreano come la qualità del display e una suite AI senza rivali, arriva il Privacy Display, un unicum nel mondo smartphone. Ci sono ancora alcuni gap che non sono riusciti a colmare lato batteria e fotocamera, seppur con alcuni miglioramenti.
Diablo II Resurrected: il nuovo DLC Reign of the Warlock
Diablo II Resurrected: il nuovo DLC Reign of the Warlock
Abbiamo provato per voi il nuovo DLC lanciato a sorpresa da Blizzard per Diablo II: Resurrected e quella che segue è una disamina dei nuovi contenuti che abbiamo avuto modo di sperimentare nel corso delle nostre sessioni di gioco, con particolare riguardo per la nuova classe dello Stregone
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 20-04-2009, 14:57   #1
swr
Member
 
L'Avatar di swr
 
Iscritto dal: May 2005
Messaggi: 59
[Excel] Intervallo

ciao, c'è un modo per portare in automatico nelle righe successive lo stesso tipo di intervallo? mi spiego meglio...

A1 = ---> R15:R23
A2 = ---> R33:R41
A3 = ---> R51:R59

come vedete l'intervallo comprende sempre 8 celle e fra un'intervallo e l'altro vorrei saltare di 10 come nell'esempio sopra

purtroppo se faccio il copia/incolla di $R15:$R23 in A2 mi diventa $R16:$R24 in A3 $R17:$R25 e così via

consigli per automatizzare il tutto?
swr è offline   Rispondi citando il messaggio o parte di esso
Old 20-04-2009, 15:25   #2
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Non ho chiaro cosa intendi.
In A1 scrivi un indirizzo Range e vorresti creare una regola speciale per l'operazione di trascinamento... ?
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 20-04-2009, 18:42   #3
swr
Member
 
L'Avatar di swr
 
Iscritto dal: May 2005
Messaggi: 59
Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
Non ho chiaro cosa intendi.
In A1 scrivi un indirizzo Range e vorresti creare una regola speciale per l'operazione di trascinamento... ?
esattamente, in modo che in A2 facendo il trascinamento da A1 mi dia lo stesso intervallo ma saltando tra l'intervallo in A1 e quello in A2 di TOT celle, quindi

esempio...

A1=range Q10:Q15 <---> trascinando in A2...
A2=range Q27:Q32 ...come vedi tra Q15 e Q27 ha saltato 12 celle...
A3=range Q54:Q59
A4=range Q71:Q76
swr è offline   Rispondi citando il messaggio o parte di esso
Old 21-04-2009, 09:51   #4
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Quote:
Originariamente inviato da swr Guarda i messaggi
esattamente, in modo che in A2 facendo il trascinamento da A1 mi dia lo stesso intervallo ma saltando tra l'intervallo in A1 e quello in A2 di TOT celle, quindi

esempio...

A1=range Q10:Q15 <---> trascinando in A2...
A2=range Q27:Q32 ...come vedi tra Q15 e Q27 ha saltato 12 celle...
A3=range Q54:Q59
A4=range Q71:Q76
Sì, però tra Q32 e Q54 il salto è di 22 celle, mentre torna a 12 tra Q59 e Q71...
In ogni caso con un semplice trascinamento non risolvi, secondo me l'unica è farsi un pulsante e generare gli indirizzi con VBA.
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 21-04-2009, 11:07   #5
limpid-sky
Senior Member
 
L'Avatar di limpid-sky
 
Iscritto dal: Aug 2004
Messaggi: 1703
Quote:
Originariamente inviato da swr Guarda i messaggi
esattamente, in modo che in A2 facendo il trascinamento da A1 mi dia lo stesso intervallo ma saltando tra l'intervallo in A1 e quello in A2 di TOT celle, quindi

esempio...

A1=range Q10:Q15 <---> trascinando in A2...
A2=range Q27:Q32 ...come vedi tra Q15 e Q27 ha saltato 12 celle...
A3=range Q54:Q59
A4=range Q71:Q76
Come già evidenziato il salto non sembra costante.
Non credo però che con un semplice trascinamento te ne esci.
limpid-sky è offline   Rispondi citando il messaggio o parte di esso
Old 21-04-2009, 13:34   #6
swr
Member
 
L'Avatar di swr
 
Iscritto dal: May 2005
Messaggi: 59
avete ragione perchè ho sbagliato a riportare l'intervallo nell'esempio, cmq dovrebbe essere costante, lo riporto corretto...

A1=range Q10:Q15
A2=range Q27:Q32
A3=range Q44:Q49
A4=range Q61:Q66

x MarcoGG

purtroppo con VBA sto a zero ^^ conosci l'eventuale parametro per lo stesso? oppure se sapete rimandarmi a qualche Tutorial che possa fare al mio caso?
thx
swr è offline   Rispondi citando il messaggio o parte di esso
Old 21-04-2009, 14:53   #7
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Quote:
Originariamente inviato da swr Guarda i messaggi
avete ragione perchè ho sbagliato a riportare l'intervallo nell'esempio, cmq dovrebbe essere costante, lo riporto corretto...

A1=range Q10:Q15
A2=range Q27:Q32
A3=range Q44:Q49
A4=range Q61:Q66

x MarcoGG

purtroppo con VBA sto a zero ^^ conosci l'eventuale parametro per lo stesso? oppure se sapete rimandarmi a qualche Tutorial che possa fare al mio caso?
thx
Ripeto, secondo me non esiste una soluzione "rapida", cmq dato che l'ho messa giù in un minuto, ti posto ugualmente la mia soluzione VBA al problema :

Codice:
    Dim celle() As String
    Dim cellaI As Range
    Dim cellaF As Range
    Dim nuovaCellaI As String
    Dim nuovaCellaF As String
    Dim i As Long
    For i = 1 To 3
        celle = Split(Range("A" & i).Text, ":")
        Set cellaI = Range(celle(0))
        Set cellaF = Range(celle(1))
        nuovaCellaI = Left(cellaI.Address(1, 0), InStr(1, cellaI.Address(1, 0), "$") - 1) & cellaI.Row + 17
        nuovaCellaF = Left(cellaF.Address(1, 0), InStr(1, cellaF.Address(1, 0), "$") - 1) & cellaF.Row + 17
        Range("A" & (i + 1)).FormulaR1C1 = nuovaCellaI & ":" & nuovaCellaF
    Next i
Come al solito, modificabile/personalizzabile a piacere.
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 21-04-2009, 15:34   #8
limpid-sky
Senior Member
 
L'Avatar di limpid-sky
 
Iscritto dal: Aug 2004
Messaggi: 1703
Quote:
Originariamente inviato da swr Guarda i messaggi
avete ragione perchè ho sbagliato a riportare l'intervallo nell'esempio, cmq dovrebbe essere costante, lo riporto corretto...

A1=range Q10:Q15
A2=range Q27:Q32
A3=range Q44:Q49
A4=range Q61:Q66

x MarcoGG

purtroppo con VBA sto a zero ^^ conosci l'eventuale parametro per lo stesso? oppure se sapete rimandarmi a qualche Tutorial che possa fare al mio caso?
thx
La soluzione proposta credo sia migliore.

Ultima modifica di limpid-sky : 21-04-2009 alle 15:43.
limpid-sky è offline   Rispondi citando il messaggio o parte di esso
Old 21-04-2009, 16:02   #9
swr
Member
 
L'Avatar di swr
 
Iscritto dal: May 2005
Messaggi: 59
ok grazie mille Marco adesso provo a personalizzarla e vediamo che ne esce
swr è offline   Rispondi citando il messaggio o parte di esso
Old 30-05-2009, 15:52   #10
ses4
Member
 
Iscritto dal: Aug 2008
Messaggi: 178
Quote:
Originariamente inviato da swr Guarda i messaggi
ciao, c'è un modo per portare in automatico nelle righe successive lo stesso tipo di intervallo? mi spiego meglio...

A1 = ---> R15:R23
A2 = ---> R33:R41
A3 = ---> R51:R59

come vedete l'intervallo comprende sempre 8 celle e fra un'intervallo e l'altro vorrei saltare di 10 come nell'esempio sopra

purtroppo se faccio il copia/incolla di $R15:$R23 in A2 mi diventa $R16:$R24 in A3 $R17:$R25 e così via

consigli per automatizzare il tutto?
Un po' tardi, ma posto ugualmente:
se ho capito bene vorresti, per es. sommare, in A1 i dati compresi nel range R15:R23 quindi trascinando la formula in A2 sommare i dati contenuti in R33:R41 e così via sommando le prime 8 celle ogni 18.
In A1 inserisci la formula:
Codice:
=SOMMA(SCARTO($R$15;(RIF.RIGA()-1)*18;;8))
e trascina in basso.
Ciao
ses4 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Ecovacs DEEBOT T90 PRO OMNI: ora il rullo di lavaggio è ampio Ecovacs DEEBOT T90 PRO OMNI: ora il rullo di lav...
Recensione Samsung Galaxy S26 Ultra: finalmente qualcosa di nuovo Recensione Samsung Galaxy S26 Ultra: finalmente ...
Diablo II Resurrected: il nuovo DLC Reign of the Warlock Diablo II Resurrected: il nuovo DLC Reign of the...
Deep Tech Revolution: così Area Science Park apre i laboratori alle startup Deep Tech Revolution: così Area Science P...
HP OMEN MAX 16 con RTX 5080: potenza da desktop replacement a prezzo competitivo HP OMEN MAX 16 con RTX 5080: potenza da desktop ...
Robot aspirapolvere ECOVACS in offerta: ...
22.000Pa e si pulisce da solo per 75 gio...
Samsung prepara i nuovi Galaxy Tab S12: ...
Virtual C-Suite: gli agenti IA di Master...
WINDTRE alza i prezzi: nuova rimodulazio...
Resident Evil Requiem non si ferma pi&ug...
Pokémon Go: 30 miliardi di foto u...
Samsung Galaxy Z TriFold è gi&agr...
Accessori auto da non perdere su Amazon:...
Robot tagliaerba senza filo perimetrale ...
Blink ancora in forte sconto su Amazon: ...
NVIDIA Vera Rubin è una piattafor...
Nokia al MWC 2026: l'IA entra nella rete...
Troppe violazioni di copyright: sospeso ...
Ancora una rimodulazione da TIM: questa ...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 10:32.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v