Ciao a tutti mi chiamo Maurizio ; Ho un problema che vorrei Risolvere in VBA .
Il mio problema e questo : Su di un Foglio di excel a partire dalla Cella B4:K13 li ho numerati per Ottenere la Tabellina del Nove .
Ora il mio Problema e questo : Io Vorrei che tutte le Volte che Scrivo nella Calla B1 un numero Che varia dall' 1 al 10 ; Idem per la Cella D1 , Entrambi vengano Sommati tra di loro ; e che tale risultato si vada a Collocare nella sua esatta posizione indicandomi il Numero Trovato con il Colore Rosso ; e di Colore Verde le due Traiettorie o coordinate ; come ad Esempio :
Io ho provato a fare Questa Cosa che a dire il Vero in parte mi funziona benissimo e cioè :
X = Range("B1").Value
Y = Range("D1").Value
Z = X * Y
Range("H15").Value = Z
Select Case Range("H15").Value
Case Is = 2
If Not (Range("B1").Value = 1 Or Range("D1").Value = 2) Then ' Uno Per Due ho Viceversa
Uno
Else
UnoBis
End If
Questo per Trovare ed indicare il Numero 2 * 1 Sia in orizzontale che in verticale ; Torno a ripetere Cosi funziona Benissimo ; però il Mio problema e Questo :
Come Faccio a far Visualizzare una terza Incognita quando ad esempio Io voglio Sommare ( 2 * 2 = 4 )
io ho provato anche a fare una Seconda If Then all'interno di questa ma nulla da fare ; come ad Esempio :
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Case is = 2
If Not (Range("B1").Value = 1 Or Range("D1").Value = 2) Then
Due
End If
If Not (Range("B1").Value = 2 Or Range("D1").Value = 1) Then
DueBis
End If
If Not (Range("B1").Value = 2 And Range("D1").Value = 2) Then
Due_Per_Due
End If
Function Due()
On Error Resume Next
Range("B4:K13").Interior.ColorIndex = 2
Range("B4:K13").Font.ColorIndex = 1
Range("C4:K4").Select 'Coordinata Orizzontale
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("C4:C13").Select 'Coordinata Verticale
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("C4").Select 'Coordinata Numero da Identificare
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End Function
Spero di Essere riuscito ad essere abbastanza chiaro , per il Resto lascio a Voi tutte le modifiche del Caso , Grazie per tutto l'aiuto che riuscirete a darmi in merito , Sinceri Saluti da A. Maurizio