• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: BackColor On TextBox

Zaslal/a nio313 6.4.2011 20:25

Ahoj

Mam mensi prohlemik s formatom textboxu podla zadanej hodnoty. Vse slape ako ma pokial nezmenim podmienku v comboboxe. treba nejak resetovat textbox aby to znovu prebehlo cez makro pls tuje kod :

Private Sub TextBox145_Change()
Dim x
x = ComboBox10.Value
If x = DTS Then
End If
If [TextBox145] > 31 Then
[TextBox145].BackColor = vbGreen
End If
If [TextBox145] = 31 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 30 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 29 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] < 29 Then
[TextBox145].BackColor = vbRed
End If

x = ComboBox10.Value
If x = NTB Then
End If
If [TextBox145] > 59 Then
[TextBox145].BackColor = vbGreen
End If
If [TextBox145] = 59 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 58 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 57 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] < 57 Then
[TextBox145].BackColor = vbRed
End If

x = ComboBox10.Value
If x = AiO Then
End If
If [TextBox145] > 19 Then
[TextBox145].BackColor = vbGreen
End If
If [TextBox145] = 19 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 18 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 17 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] < 17 Then
[TextBox145].BackColor = vbRed
End If

End Sub

Zaslat odpověď >

---

Poki(12.4.2011 11:16)#004605

asi by to chtelo blize vysvetlit, ceho chcete dosahnout a jaky mate presne problem (kdyz k nemu dochazi) a nejlepsi bude navic prilozit soubor.
Nechce se mi studovat kod a odvozovat si z nej pozadi problemu...citovat

nio313(14.4.2011 20:35)#004665

Ahoj k niecomu som sa prepracoval ale pri zadani jednej podmienky to neformatuje. Neviem kde mam chybu v makre.

Příloha: 4665_farba.rar (13kB, staženo 18x)

citovat

Roman(15.4.2011 8:11)#004670

D nefunguje, jelikož

Private Sub TextBox2_Change()
Dim X
X = Cells(1, 2).Value
If X = "D" Then
If TextBox2 >= 32 Then
[TextBox2].BackColor = vbGreen
End If
If TextBox2 = 31 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 30 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 29 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 28 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 < 28 Then
[TextBox2].BackColor = vbRed
End If
Else
[TextBox2].BackColor = vbWhite
End If
If X = "N" Then
If TextBox2 >= 60 Then
[TextBox2].BackColor = vbGreen
End If
If TextBox2 = 59 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 58 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 57 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 < 57 Then
[TextBox2].BackColor = vbRed
End If
Else
[TextBox2].BackColor = vbWhite
End If
If X = "A" Then
If TextBox2 >= 20 Then
[TextBox2].BackColor = vbGreen
End If
If TextBox2 = 19 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 18 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 = 17 Then
[TextBox2].BackColor = vbYellow
End If
If TextBox2 < 17 Then
[TextBox2].BackColor = vbRed
End If
End If
End Sub
Else u "N" ji udělá vždy bezbarvou.citovat

nio313(15.4.2011 12:00)#004675

Dik uz to jede citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse