Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Selezionare Colonne ogni tot

Ultimo Aggiornamento: 03/06/2016 16:34
Post: 18
Registrato il: 29/05/2016
Utente Junior
2013
OFFLINE
02/06/2016 12:50

Salve, doveri selezionare per graficare, le colonne di una tabella in questo modo: le prime due colonne selezionate, le due successive no, qeulle ancora successive si e così via.
Qualcuno sa come fare? [SM=x423017]
Grazie :)
Post: 663
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Senior
365
OFFLINE
02/06/2016 22:53

Ciao

se non sono centinaia di colonne
perché non ti registri una macro selezionando le colonne interessate
utilizzando CTRL

una volta fatta la abbini ad un pulsante ed il gioco è fatto.

ciao
Post: 380
Registrato il: 02/08/2015
Utente Senior
Excel 2013
OFFLINE
03/06/2016 16:34

Ciao a tutti,
con il suggerimento di federico (un saluto) potresti capire meglio come "sbrigartela" con le tue mani, comunque sei stato troppo "sintetico" nello descrivere il tuo problema...

Un esempio di codice per selezionare le colonne a 2 a 2 inserendo in 2 apposite InputBox le colonne di inizio e fine selezione:

Sub Seleziona()
Dim Inizio As Long, Fine As Long, iCol As String, lCol As String, i As Long
Dim Colonne As Range, uLettera As String, appoggio() As String

appoggio() = Split(Cells(1, Cells.Columns.Count).Address, "$")
uLettera = appoggio(1)
On Error GoTo errore

iCol = InputBox("Lettera della colonna di inizio selezione:", "COLONNA INIZIO")
lCol = InputBox("Lettera della colonna di fine selezione:", "COLONNA FINE")
Inizio = Range(iCol & 1).Column
Fine = Range(lCol & 1).Column

Set Colonne = Columns(Inizio)

For i = Inizio To Fine Step 4
    Set Colonne = IIf(Columns(i + 1).Column <= Fine, Uni0n(Colonne, Columns(i), Columns(i + 1)), Uni0n(Colonne, Columns(i)))
Next i

Colonne.Select
Set Colonne = Nothing
Exit Sub

errore:
MsgBox "Per le colonne, inserire le lettere che le identificano (da A a " & uLettera & ")!", vbCritical, "ATTENZIONE"
Set Colonne = Nothing
End Sub


Il codice puoi richiamarlo con la combinazione di tasti:
CTRL + s

Ti lascio un file d'esempio...


"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 20:56. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com