| | Post: 2 | Registrato il: 20/10/2017
| Città: MILANO | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
03/11/2017 18:53 | |
Ciao a tutti ragazzi,
la mia è una fissa piuttosto banale, ma che non mi lascia dormire...
premetto che con il VBA non ci capisco niente, ma mi stò innamorando, e quindi vorrei impegnarmi dapprima con le cose semplci.
La questione è questa: ho un elenco di numeri in una colonna, e delle macro mi piacerebbe farle apparire oppure farle sparire, ma sempre con lo stesso pulsante, io invece ne avrei 2 diversi. Si potrebbe fare ?
Se qualcuno mi illumina non si dimentichi che dovrebbe spiegarmi passo passo cosa dovrei fare per il motivo sopraindicato.
Un grazie grande. |
|
| | Post: 588 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
03/11/2017 19:17 | |
Elimina il pulsante SPEGNI, rinomina il pulsante ACCENDI in ACCENDI/SPEGNI e usa queste macro modificate: Option Explicit
Sub ACCENDI()
'
' ACCENDI Macro
'
Range("C4:C23").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
Selection.onAction = "SPEGNI"
Range("A1").Select
End Sub
Sub SPEGNI()
'
' SPEGNI Macro
'
Range("C4:C23").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
Selection.onAction = "ACCENDI"
Range("A1").Select
End Sub
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 583 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
03/11/2017 19:25 | |
Ciao,
prova così:
Sub On_Off()
Dim MyRng As Range
Set MyRng = Range("C4:C23")
If MyRng.Font.ColorIndex = xlAutomatic Then
MyRng.Font.ColorIndex = 2
Else
MyRng.Font.ColorIndex = xlAutomatic
End If
End Sub
Ciao
Tore
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
| | Post: 584 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
03/11/2017 19:26 | |
rollis13, 03/11/2017 19.17:
Elimina il pulsante SPEGNI, rinomina il pulsante ACCENDI in ACCENDI/SPEGNI e usa queste macro modificate:
Ops...
scusa rollis, non ho fatto il refresh della pagina
[Modificato da cromagno 03/11/2017 19:27]
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
| | Post: 585 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
03/11/2017 19:38 | |
@FOX99
in questo forum il cross-posting è "tollerato" (non da me) ma se avessi visto prima la discussione uguale aperta sull'altro forum:
http://www.forumexcel.it/forum/7-domande-su-excel-vba-e-macro/12055-bottone-macro-in-excel-con-doppia-funzione
di sicuro non ti avrei risposto!
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
| | Post: 3.541 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
03/11/2017 19:54 | |
Fare sempre il controllo prima di rispondere
Alfredo |
| | Post: 589 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
03/11/2017 22:17 | |
Un saluto a tutti.
@cromagno, meglio così, io mi sono limitato a riciclare le macro presenti mentre tu ti sei impegnato a migliorare.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 2 | Registrato il: 20/10/2017
| Città: MILANO | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
03/11/2017 23:03 | |
scusate ragazzi, colpa mia, mea culpa!!!
non era mia intenzione trasgradire alle regole, mi dispiace tanto!
Mi crederebbe qualcuno se dichiaro che non sono stato io, ma il mio fratellino ? No, lo so, ma è lo stesso colpa mia, perchè io sono il responsabile del mio Pc,
non so come fare per farmi perdonare. Vi prego di non odiarmi, non succederà più, perchè natale è vicino, ed è mia intenzione di regalargli un pc a Marco, così non toccherà più il mio.
Immagino che il mio problema rimane anche se sono innocente!
Ok, ciao a tutti, e grazie lo stesso.
|
| | Post: 3.542 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
03/11/2017 23:50 | |
Qui nessuno odia nessuno ma direi che come giustificazione è quanto meno fantasiosa.
E poi il tuo fratellino dove avrebbe scritto? Su questo o sull'altro forum?
Alfredo |
| | Post: 3 | Registrato il: 20/10/2017
| Città: MILANO | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
04/11/2017 16:57 | |
Carissimo alfrimpa, non c'è mica bisogno di fare retorica o di calcare sulla piaga direi, ne abbiamo parlato assieme, e mentre io o postato il problema quì, e mi sono assentato, lui lo ha postato li. Mi sembra di aver chiesto anche scusa e come vedo non c'è nessuno che mi crede e mi voglia aiutare, questa è la realtà dei fatti. Salute a tutti |
| | Post: 586 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
04/11/2017 17:09 | |
Ma di che cavolo stai parlando?
1) Di soluzioni ne hai ricevute ben 2... alle quali non hai dato ancora riscontro.
2) Se come scritto nel tuo profilo hai 47 anni, quanti anni dovrebbe avere il tuo "fratellino"???
E se anche fosse vero... il tuo fratellino ha scritto la.stessa identica tua spiegazione del problema? E perchè mai avrebbe dovuto fare la domanda per te?
Senti, lasciamo perdere che è meglio!
Le soluzioni le hai, ora fanne ciò che vuoi.
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
| | Post: 4 | Registrato il: 20/10/2017
| Città: MILANO | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
04/11/2017 17:19 | |
scusa, adesso non capisco, in primis sarei ben felice di ospitarti a casa mia, così "interroghi di persona" mio fratello, è non è che scherzo.
e poi, se ho scritto che non so come fare, anche se mi avete dato 2 soluzioni, senza le spiegazioni necessarie, mi dici come posso fare ?
E poi, scusa, tu sei sposato ? vivi da solo ? Bè, io no, vivo di nuovo con i miei genitori, cosa c'è di strano? Vuoi che ti racconti la mia storia ? Non tutti sono fortunati a questo mondo...
|
|
|