| Cytat: Witam
Mam plik Ecela. Umieściłem w nim pole tekstowe w którym jest jedno słowo. Po bokach tego słowa mam kółka (po jednym z każdej strony). Chciałbym stworzyć takie makro, które prosi o wpisanie dwóch danych słowa i cyfry 1;2 lub 3. Wpsane słow powinno się w pisywać w polu tekstowym, a w zależności od wstawionej cyfry kółka powinny przybierać rózne kolory
1 czarny
2 czerwony
3 zielony
Czy da się coś takiego zrobić?
Pozdrawiam
Tak np.:
Private Sub TextBox1_Change()
Dim nrKoloru As String
Dim kolor As Integer
nrKoloru = TextBox1.Value
If IsNumeric(nrKoloru) Then
Select Case nrKoloru
Case 1
kolor = 10 'czerwony
Case 2
kolor = 17 'zielony
Case 3
kolor = 12 'niebieski
'....
'....
End Select
ActiveSheet.Shapes("Oval 1").Select
With Selection.ShapeRange.Fill
.ForeColor.SchemeColor = kolor
.Visible = msoTrue
.Solid
End With
End If
End Sub
Fragment kodu zmienia kolor wypełnienia jednego kółka w zależności od tego co jest wpisawane do TextBox1. Dużą pomocą jest kod uzyskany przy rejestracji makra podczas zmiany kolorów - można z nich wyciągnąć nazw obiektów rysunkowych i odpowiednie kolory.
Powodzenia. |
wstecz 1 dalej
otwarty rozpoczął: doktor
postów: 2
