Costcost
Altın Üye
- Katılım
- 3 Ekim 2018
- Mesajlar
- 76
- Excel Vers. ve Dili
- Excel 2003-2007/2010
- Altın Üyelik Bitiş Tarihi
- 03-12-2025
Merhabalar, kolay gelsin,
Aşağıdaki kodu textbox'ı renklendirmek için kullandım. Ama, herhangi bir şekilde renklendirme olmadı. Programı da biraz yavaşlattı.
Programı anlatmam gerekirse, userform üzerinde 100 tane textbox var. listview'den sürükle bırak ile textbox'a bırakıyorum bilgiyi. Bu bilgi A, B, C, D içeriyor. excelde 56. sutuna geliyor bu harfler. Aşağıdaki formülle de renklendirmeye çalışıyorum, ama faydası olmadı.
Fikir veren Üstadlara, Arkadaşlara, yardımlarınından dolayı şimdiden çok teşekkür ederim.
sub xyz()
Dim U As Integer
For U = 1 To 100
ara = Controls("TextBox" & U).Name
Controls("TextBox" & U).MultiLine = True
Sheets("info").Activate
Set R = Sheets("info").Range("A:A").Find(ara) ' "A:A" Kısmında 1-100 e kadar textbox var; textbox1, 2...100)
If Sheets("info").Cells(R.Row, 56) = "A" Then 'A,B,C,D harfleri 56. sutunda,
Controls("textbox" & U).BackColor = &HFF80FF
End If
If Sheets("info").Cells(R.Row, 56) = "B" Then
Controls("textbox" & U).BackColor = &HFFFF00
End If
If Sheets("info").Cells(R.Row, 56) = "C" Then
Controls("textbox" & U).BackColor = &H80FF&
End If
If Sheets("info").Cells(R.Row, 56) = "D" Then
Controls("textbox" & U).BackColor = &H80FFFF
End If
Next U
end sub
Aşağıdaki kodu textbox'ı renklendirmek için kullandım. Ama, herhangi bir şekilde renklendirme olmadı. Programı da biraz yavaşlattı.
Programı anlatmam gerekirse, userform üzerinde 100 tane textbox var. listview'den sürükle bırak ile textbox'a bırakıyorum bilgiyi. Bu bilgi A, B, C, D içeriyor. excelde 56. sutuna geliyor bu harfler. Aşağıdaki formülle de renklendirmeye çalışıyorum, ama faydası olmadı.
Fikir veren Üstadlara, Arkadaşlara, yardımlarınından dolayı şimdiden çok teşekkür ederim.
sub xyz()
Dim U As Integer
For U = 1 To 100
ara = Controls("TextBox" & U).Name
Controls("TextBox" & U).MultiLine = True
Sheets("info").Activate
Set R = Sheets("info").Range("A:A").Find(ara) ' "A:A" Kısmında 1-100 e kadar textbox var; textbox1, 2...100)
If Sheets("info").Cells(R.Row, 56) = "A" Then 'A,B,C,D harfleri 56. sutunda,
Controls("textbox" & U).BackColor = &HFF80FF
End If
If Sheets("info").Cells(R.Row, 56) = "B" Then
Controls("textbox" & U).BackColor = &HFFFF00
End If
If Sheets("info").Cells(R.Row, 56) = "C" Then
Controls("textbox" & U).BackColor = &H80FF&
End If
If Sheets("info").Cells(R.Row, 56) = "D" Then
Controls("textbox" & U).BackColor = &H80FFFF
End If
Next U
end sub