Discussione:
dividere indirizzo ip su 4 colonne
(troppo vecchio per rispondere)
Mario Pagano
2010-05-14 10:31:16 UTC
Permalink
Buon Giorno al NG.

ho questo problema.
Su un foglio di excel in una colonna ho una seriedi indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.

esempio
10.39.1.10 10 39 1 10
192.168.1.1 192 168 1 1
200.20.32.4 200 20 32 4


Grazie per una cortese risposta
Mario
ivano
2010-05-14 12:29:48 UTC
Permalink
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi indirizzi IP, avrei
la necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
10.39.1.10 10 39 1 10
192.168.1.1 192 168 1 1
200.20.32.4 200 20 32 4
Grazie per una cortese risposta
Mario
Ciao
Dati testo in colonna
separatore .
ivano
Andrea M.
2010-05-14 12:41:37 UTC
Permalink
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
10.39.1.10 10 39 1 10
192.168.1.1 192 168 1 1
200.20.32.4 200 20 32 4
Grazie per una cortese risposta
Mario
Ciao, selezioni la colonna, poi scegli "testo in colonne" dal menu dati,
poi "delimitati", metti la spunta solo su altro e scegli ".", poi avanti.

Per farlo con una formula ti lascio in altre mani, che io non ci sono
riuscito.

Ciao, Andrea
Andrea M.
2010-05-14 13:48:19 UTC
Permalink
Post by Andrea M.
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi indirizzi IP,
avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
10.39.1.10 10 39 1 10
192.168.1.1 192 168 1 1
200.20.32.4 200 20 32 4
Grazie per una cortese risposta
Mario
Ciao, selezioni la colonna, poi scegli "testo in colonne" dal menu dati,
poi "delimitati", metti la spunta solo su altro e scegli ".", poi avanti.
Per farlo con una formula ti lascio in altre mani, che io non ci sono
riuscito.
Ciao, Andrea
Se vuoi *provare* con le formule:

In A1 il tuo IP

in B1: =SINISTRA(A1;TROVA(".";A1)-1)

in C1:
=STRINGA.ESTRAI(A1;TROVA(".";A1;1)+1;TROVA(".";A1;VALORE(TROVA(".";A1;1))+1)-TROVA(".";A1;1)-1)

in D1:
=STRINGA.ESTRAI(A1;TROVA(".";A1;VALORE(TROVA(".";A1;1))+1)+1;TROVA(".";A1;TROVA(".";A1;VALORE(TROVA(".";A1;1))+1)+1)-TROVA(".";A1;VALORE(TROVA(".";A1;1))+1)-1)

in E1:
=DESTRA(A1;LUNGHEZZA(A1)-TROVA(".";A1;TROVA(".";A1;VALORE(TROVA(".";A1;1))+1)+1))

Ciao, Andrea
Tiziano Marmiroli
2010-05-14 13:31:49 UTC
Permalink
Post by Mario Pagano
Su un foglio di excel in una colonna ho una seriedi indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
10.39.1.10 10 39 1 10
192.168.1.1 192 168 1 1
200.20.32.4 200 20 32 4
Seleziona la tua colonna quindi usa menu Dati> Testo in colonne.

Facci sapere se e come hai risolto, grazie.
--
Tiziano Marmiroli
Microsoft MVP - Office System
http://www.riolab.org
r
2010-05-14 21:00:04 UTC
Permalink
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
per gioco e sicuramente migliorabile ...
le scrivo come sfida ... insomma con una sola formula
da trascinare a destra e in basso ...
=STRINGA.ESTRAI("."&$A1&".";1+PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1));PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(B1))-
PICCOLO(SE(STRINGA.ESTRAI("."&$A1&".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1)));1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1))-1)

da confermare con Ctrl+Maiusc+Invio
ripeto è solo che mi sono detto si potrà fare con una sola ...
poi non sono io il perfezionista ... cedo la parola :-)
saluti
r

http://groups.google.it/group/excel_vba_free/topics?hl=it
http://sites.google.com/site/e90e50/
eliano
2010-05-14 21:12:07 UTC
Permalink
Post by r
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
per gioco e sicuramente migliorabile ...
le scrivo come sfida ... insomma con una sola formula
da trascinare a destra e in basso ...
=STRINGA.ESTRAI("."&$A1&".";1+PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1));PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(B1))-
PICCOLO(SE(STRINGA.ESTRAI("."&$A1&".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1)));1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1))-1)
da confermare con Ctrl+Maiusc+Invio
ripeto è solo che mi sono detto si potrà fare con una sola ...
poi non sono io il perfezionista ... cedo la parola :-)
saluti
r
http://groups.google.it/group/excel_vba_free/topics?hl=ithttp://sites.google.com/site/e90e50/
Diciamola tutta Roby: hai letto il nick, hai pensato al Poker-maniaco
e ti è venuta voglia di giocare-:-))
r
2010-05-14 21:15:28 UTC
Permalink
Post by eliano
Post by r
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
per gioco e sicuramente migliorabile ...
le scrivo come sfida ... insomma con una sola formula
da trascinare a destra e in basso ...
=STRINGA.ESTRAI("."&$A1&".";1+PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1));PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(B1))-
PICCOLO(SE(STRINGA.ESTRAI("."&$A1&".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1)));1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1))-1)
da confermare con Ctrl+Maiusc+Invio
ripeto è solo che mi sono detto si potrà fare con una sola ...
poi non sono io il perfezionista ... cedo la parola :-)
saluti
r
http://groups.google.it/group/excel_vba_free/topics?hl=ithttp://sites...
Diciamola tutta Roby: hai letto il nick, hai pensato al Poker-maniaco
e ti è venuta voglia di giocare-:-))- Nascondi testo citato
sfide ... sfide ... se non ci fossero
saremo fuori ... o forum :-)

r
eliano
2010-05-14 21:48:55 UTC
Permalink
Post by r
Post by eliano
Post by r
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
per gioco e sicuramente migliorabile ...
le scrivo come sfida ... insomma con una sola formula
da trascinare a destra e in basso ...
=STRINGA.ESTRAI("."&$A1&".";1+PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1));PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(B1))-
PICCOLO(SE(STRINGA.ESTRAI("."&$A1&".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1)));1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1))-1)
da confermare con Ctrl+Maiusc+Invio
ripeto è solo che mi sono detto si potrà fare con una sola ...
poi non sono io il perfezionista ... cedo la parola :-)
saluti
r
http://groups.google.it/group/excel_vba_free/topics?hl=ithttp://sites...
Diciamola tutta Roby: hai letto il nick, hai pensato al Poker-maniaco
e ti è venuta voglia di giocare-:-))- Nascondi testo citato
sfide ... sfide ... se non ci fossero
saremo fuori ... o forum :-)
r- Nascondi testo citato
- Mostra testo citato -
forum ? No, grazie.
r
2010-05-14 21:12:37 UTC
Permalink
Post by r
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
per gioco e sicuramente migliorabile ...
le scrivo come sfida ... insomma con una sola formula
da trascinare a destra e in basso ...
=STRINGA.ESTRAI("."&$A1&".";1+PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1));PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1)));
1)=".";RIF.RIGA(SCARTO($A$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(B1))-
PICCOLO(SE(STRINGA.ESTRAI("."&$A1&".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1)));1)=".";RIF.RIGA(SCARTO($A
$1;;;2+LUNGHEZZA($A1))));RIF.COLONNA(A1))-1)
da confermare con Ctrl+Maiusc+Invio
ripeto è solo che mi sono detto si potrà fare con una sola ...
poi non sono io il perfezionista ... cedo la parola :-)
saluti
r
http://groups.google.it/group/excel_vba_free/topics?hl=ithttp://sites.google.com/site/e90e50/
intanto accorcio io un pochino :-)
=STRINGA.ESTRAI("."&$A1&".";1+PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA($A$1:$A$20);1)=".";RIF.RIGA($A$1:$A
$20));RIF.COLONNA(A1));PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA($A$1:$A$20);1)=".";RIF.RIGA($A$1:$A
$20));RIF.COLONNA(B1))-PICCOLO(SE(STRINGA.ESTRAI("."&
$A1&".";RIF.RIGA($A$1:$A$20);1)=".";RIF.RIGA($A$1:$A
$20));RIF.COLONNA(A1))-1)

saluti
r

http://groups.google.it/group/excel_vba_free/topics?hl=it
http://sites.google.com/site/e90e50/
eliano
2010-05-14 21:18:17 UTC
Permalink
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
Ciao Mario.
Se conosci un po' di Vba, puoi provare con la funzione Split.
Eliano
eliano
2010-05-14 21:47:54 UTC
Permalink
Post by eliano
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
Ciao Mario.
Se conosci un po' di Vba, puoi provare con la funzione Split.
Eliano
Urca, partito un colpo.

Che nella versione la più sintetica e la più artigianale possibile,
con i tuoi IP in colonna A, potrebbe essere:

Sub DividiIP()
Dim rng As Range
Dim cl As Variant
Set rng = Sheets("Foglio1").Range("a1:a100")
For Each cl In rng
If cl.Value = "" Then Exit Sub
cl.Select
Range(ActiveCell(1, 2), ActiveCell(1, 5)).Value = Split(ActiveCell,
".")
Next
End Sub

Se funziona cambia i riferimenti con i tuoi.
Saluti
Eliano
eliano
2010-05-14 22:00:24 UTC
Permalink
Post by eliano
Post by eliano
Post by Mario Pagano
Buon Giorno al NG.
ho questo problema.
Su un foglio di excel in una colonna ho una seriedi  indirizzi IP, avrei la
necessità di riportare i 4 numeri di ogni indirizzo IP su 4 colonne.
esempio
      10.39.1.10  10 39 1 10
      192.168.1.1  192 168 1 1
      200.20.32.4  200 20 32 4
Grazie per una cortese risposta
Mario
Ciao Mario.
Se conosci un po' di Vba, puoi provare con la funzione Split.
Eliano
Urca, partito un colpo.
Che nella versione la più sintetica e la più artigianale possibile,
Sub DividiIP()
Dim rng As Range
Dim cl As Variant
Set rng = Sheets("Foglio1").Range("a1:a100")
For Each cl In rng
If cl.Value = "" Then Exit Sub
cl.Select
Range(ActiveCell(1, 2), ActiveCell(1, 5)).Value = Split(ActiveCell,
".")
Next
End Sub
Se funziona cambia i riferimenti con i tuoi.
Saluti
Eliano- Nascondi testo citato
- Mostra testo citato -
Ancora più sintetica e artigianale:

Sub DividiIPIP() 'urrah :-))
Dim rng As Range
Dim cl As Variant
Set rng = Sheets("Foglio1").Range("a1:a100")
For Each cl In rng
If cl.Value = "" Then Exit Sub
Range(cl(1, 2), cl(1, 5)).Value = Split(cl, ".")
Next
End Sub

Loading...