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

Domanda VB

Ultimo Aggiornamento: 14/07/2018 19:09
Post: 52
Registrato il: 23/06/2015
Città: TORINO
Età: 31
Utente Junior
2013
OFFLINE
11/07/2018 13:39

Ciao,
risolta la prima parte, ora mi chiedo se è possibile sostituire il Range individuato come intervallo specifico ("A1:B10,D1:E10") con un intervallo variabile, ovvero che consideri tutte le celle che al loro interno contengono una formula:


With Range("A1:B10,D1:E10").Font
  .Color = 00000
  .TintAndShade = 0
End With
Post: 3.601
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
11/07/2018 15:08

Forse dovresti spiegarTi bene cosa intendi fare?
Ora che hai recuperato le coordinate della cella di partenza
Puoi spostarti di righe/colonne e fare il "tutto"

Però premere un bottone su una cella "ERRATA", Ti vedo male.
Excel 2013
Post: 53
Registrato il: 23/06/2015
Città: TORINO
Età: 31
Utente Junior
2013
OFFLINE
11/07/2018 15:51

Re:
raffaele1953, 11/07/2018 15.08:

Forse dovresti spiegarTi bene cosa intendi fare?
Ora che hai recuperato le coordinate della cella di partenza
Puoi spostarti di righe/colonne e fare il "tutto"

Però premere un bottone su una cella "ERRATA", Ti vedo male.




Quella parte iniziale è a posto ora (grazie ancora!)

Ora, però, se vengono inserite nuove colonne e/o righe che cambiano il range da prendere in considerazione, in VB questo non si aggiorna: allego file d'esempio
Post: 3.607
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
12/07/2018 15:16

Giusto, nel VBA il range "scritto" non cambia. Il fatto d'inserire colonne/righe non è contemplato
Comunque tenendo premuto CTRL basta selezionare le varie aree e nella cella sopra A1 inserirgli un nome
Non serve più recuperare le coordinate della cella iniziale
vb
Application.Goto Reference:="aaa"
With Selection.Font
  .Color = 0
  .TintAndShade = 0
End With
[Modificato da raffaele1953 12/07/2018 15:19]
Excel 2013
Post: 57
Registrato il: 23/06/2015
Città: TORINO
Età: 31
Utente Junior
2013
OFFLINE
14/07/2018 13:17

Re:
raffaele1953, 12/07/2018 15.16:

Giusto, nel VBA il range "scritto" non cambia. Il fatto d'inserire colonne/righe non è contemplato
Comunque tenendo premuto CTRL basta selezionare le varie aree e nella cella sopra A1 inserirgli un nome
Non serve più recuperare le coordinate della cella iniziale
vb
Application.Goto Reference:="aaa"
With Selection.Font
  .Color = 0
  .TintAndShade = 0
End With




No, non funge
Post: 3.611
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
14/07/2018 15:23

>>>No, non funge

Se permetti, prima di dire che non funge. Dovresti "pensarci bene"
Adesso vedi come risolvere il Tuo problema (di quanto hai scritto)...
Desideri un'allegato. OK = 100 euro. Bonifico bancario =61... (Sei, un, ...)
Excel 2013
Post: 1.891
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
14/07/2018 15:38

Ciao
assegna inizialmente un nome all'insieme di celle che compongono il tuo range, es:

- seleziona con il mouse A1:B10, tenendo premuto ctrl selezioni anche D1 e D4:E4

- da formule > gestione nomi inserisci il nome che vuoi, es: MioRange, nella sub:

With Range("MioRange").Font
.Color = 0
.TintAndShade = 0
End With

Inserendo righe e/o colonne il nome si sposta e....

saluti



Domenico
Win 10 - Excel 2016
Post: 3.613
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
14/07/2018 16:04

>>>es: MioRange, nella sub:

Nella Sub?
Io credo che vada "prima" inserito come nome nel file?
Poi dalla Sub, posso richiamarla (idem nel post4).
Però posso sbagliare?
[Modificato da raffaele1953 14/07/2018 16:06]
Excel 2013
Post: 705
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
ONLINE
14/07/2018 18:25

Un saluto a tutti.

@raffaele1953, dopo MioRange c'è una virgola; ci stava meglio un punto e virgola o un accapo [SM=g27811]
[Modificato da rollis13 14/07/2018 19:30]

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 3.614
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
14/07/2018 19:09

Scusa dodo47 (ciao)
Mi dà fastidio i vari>>>>No, non funge
Excel 2013
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:49. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com