VBA | Zaczynanie funkcji od danego miejsca w wierszu.

VBA | Zaczynanie funkcji od danego miejsca w wierszu.

Wątek przeniesiony 2024-06-25 14:30 z Inne języki programowania przez cerrato.

SN
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 2
0

Hej, od razu mówię, że jestem kompletnie początkujący w temacie VBA, więc jeśli jest to błahy problem to proszę o wyrozumiałość.
Otóż chciałbym aby moje stworzone makra działały dla każdego wiersza od wcześniej określonego miejsca, to znaczy:

ID;English [en];Finnish (FINLAND) [fi_FI];Polish [pl]
Source[global].UnitGroup[Length].ID[115];millimeter;;
Source[global].UnitGroup[Length].ID[116];mm;;
Source[global].UnitGroup[Length].ID[117];centimeter;;
Source[global].UnitGroup[Length].ID[118];cm;;
Source[global].UnitGroup[Length].ID[119];meter;;
Source[global].UnitGroup[Length].ID[120];m;;
Source[global].UnitGroup[Length].ID[176];inch;;
Source[global].UnitGroup[Length].ID[177];inch;;

Mamy przykładowo takie coś i chciałbym żeby program zaznaczał mi takie same wiersze ale zaczynając patrzeć np już po ID. Wtedy dwa ostatnie wiersze będą takie same. Nie wiem jak do końca przy czymś takim ustawić Range. Z góry dzięki za pomoc.

Marcin.Miga
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 2794
1

Pokaż, co napisałeś...

SN
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 2
0

Mam taki kod, chcę jeszcze żeby nie zaznaczało całych komórek tylko dane słowa, ale z tym już sobie poradzę.

Kopiuj
Sub DuplicateValuesFromSelection() 'Podkreœla dok³adne wartoœci
    Dim MyRange As Range, MyCell As Range
    Dim i As Integer, j As Integer
    Set MyRange = Selection
    For Each MyCell In MyRange
    If WorksheetFunction.CountIf(MyRange, MyCell.Value) > 1 Then
        MyCell.Interior.ColorIndex = 3
    End If
    Next
End Sub

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.