W tym artykule pokażemy, jak dodać kontrolkę RefEdit w formularzu użytkownika i odnieść się do zakresu komórek za jego pomocą.
W tym przykładzie stworzyliśmy formularz użytkownika zakreślacza, którego możemy użyć do podświetlenia zakresu komórek żółtym kolorem.
Pobraliśmy przykładowe dane, na które składają się imię i nazwisko oraz godzina logowania członka zespołu.
Dodawanie RefEdit w formularzu użytkownika
Dodaj formularz użytkownika, kliknij kontrolkę RefEdit w przyborniku i wybierz i upuść kontrolkę na formularzu użytkownika.
Wyjaśnienie logiczne
Aby podświetlić komórkę, kliknij przycisk Podświetlacz. Otworzy się formularz użytkownika. Wybierz zakres za pomocą RefEdit. Kliknij znak myślnika, aby wybrać komórki.
Aby zaznaczyć sąsiednie komórki, naciśnij klawisz Shift podczas przechodzenia do innej komórki. Aby zaznaczyć nieprzylegające komórki, naciśnij klawisz Control podczas zaznaczania innych komórek. Wybrane komórki zostaną otoczone kropkowanymi liniami, aw polu pojawi się adres komórki.
Wybrane komórki zostaną podświetlone na żółto po naciśnięciu przycisku Ok. Zdarzenie kliknięcia przycisku Ok zawiera kod VBA do podświetlania wybranych komórek.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub running() UserForm1.Show End Sub 'Dodaj poniższy kod w przycisku "OK" na formularzu użytkownika Option Explicit Private Sub CommandButton1_Click() Dim SelectRange As Range Dim Address1 As String Przy błędzie GoTo Last 'Pobierz adres z kontrolki RefEdit Address1 = RefEdit1.Value 'Ustaw obiekt SelectRange Range na zakres określony w kontrolce RefEdit Set SelectRange = Range(Address1) 'Podświetl wybrany zakres żółtym kolorem SelectRange.Interior.Color = RGB(255, 255, 0) 'Zwolnij formularz użytkownika. Wyładuj mnie na koniec: Koniec Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail