Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63697 Skopiuj do schowka Kolor z TexBox do komórki
Autor Wiadomość
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 566
Wysłany: 06-01-2019, 09:25   Kolor z TexBox do komórki

Poniższe makro wstawia do komórki miesiąc i kolor TextBox.
Kod:
Sub pobierz()
Dim i&, mies&
With UserForm2
For i = 1 To 4
If Len(.Controls("TextBox" & i)) > 0 Then
mies = Month(.Controls("TextBox" & i))
Cells(i, 1) = mies
Cells(i, 2).Interior.Color = .Controls("TextBox" & i).BackColor
End If
Next
End With
End Sub
Kiedy TextBox są kolorowe, to jest OK, ale kiedy TextBox nie ma koloru, to do komórki wstawiany jest czarny kolor (a wtedy komórka powinna być bez koloru).
Co dodać do makra?

Probny.xlsm
Pobierz Plik ściągnięto 12 raz(y) 19.7 KB

ID posta: 359788 Skopiuj do schowka
 
 
ąćęłńóś
ExcelSpec


Pomógł: 186 razy
Posty: 847
Wysłany: 06-01-2019, 10:28   

Można by tak:
Kod:
Sub pobierz()
    Dim i%
    With UserForm2
        For i = 1 To 4
            With .Controls("TextBox" & i)
                If Len(.Value) > 0 Then
                    Cells(i, 1) = Month(.Value)
                    Cells(i, 2).Interior.Color = IIf(.BackColor = -2147483643, xlNone, .BackColor)
                End If
            End With
        Next
    End With
End Sub

, ale barwę tła jednego z pól masz ustawioną na "-2147483628", a nie na "-2147483643", tak więc jedna z komórek będzie czarna mimo wszystko. Jak tego nie uporządkujesz, to trzeba przez "Select Case"
ID posta: 359789 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 258 razy
Posty: 1395
Wysłany: 06-01-2019, 10:31   

Kod:
Private Sub CommandButton1_Click()
Dim i&, mies&

With UserForm2
For i = 1 To 4
    If Len(.Controls("TextBox" & i)) > 0 Then
        mies = Month(.Controls("TextBox" & i))
        Cells(i, 1) = mies
        If .Controls("TextBox" & i).BackColor <> -2147483628 _
        And .Controls("TextBox" & i).BackColor <> -2147483643 Then
            Cells(i, 2).Interior.Color = _
            .Controls("TextBox" & i).BackColor
        Else
            Cells(i, 2).Interior.Pattern = xlNone
        End If
    End If
    Next i
End With
End Sub


Kopia Probny.xlsm
Pobierz Plik ściągnięto 10 raz(y) 22.09 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 359790 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 566
Wysłany: 06-01-2019, 14:04   

Dzięki.
ID posta: 359805 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 258 razy
Posty: 1395
Wysłany: 06-01-2019, 14:23   

W załączniku masz dodatkowo wybór koloru.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 359807 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe