GoldenLine
Zaloguj się
Jarek K.

Jarek K. Spokojnie - to już
było ;)

Temat: zarządzanie nazwami w arkuszu

Witam,

mam arkusz, w który występuje kilka tysięcy nazw typu "AAA_xxxx" dla komórek w poszczególnych zakładkach.
Potrzebuję odczytać listę nazw albo z menedżera nazw albo z arkusza, jak i adres dla komórki o konkretnej nazwie.
Link do wypowiedziLink
Grzegorz C.

Grzegorz C. Specjalista,
Uniwersytet Śląski

Temat: zarządzanie nazwami w arkuszu

Sub nazwy()



Dim ile_nazw As Integer



ile_nazw = ActiveWorkbook.Names.Count

For i = 1 To ile_nazw

Cells(i, 1).Value = ActiveWorkbook.Names(i).Name 'podaje zdefiniowane nazwy

Cells(i, 2).Value = ActiveWorkbook.Names(i) 'podaje zakresy komórek dla poszczególnych nazw

Next i



End Sub
Link do wypowiedziLink
Jarek K.

Jarek K. Spokojnie - to już
było ;)

Temat: zarządzanie nazwami w arkuszu

super

dokładnie o to mi chodziło,

wielkie dziękuję
Link do wypowiedziLink
Jarek K.

Jarek K. Spokojnie - to już
było ;)

Temat: zarządzanie nazwami w arkuszu

a teraz w druga stronę wypełnianie nazw wartościami,
czyli takie małe Wyszukaj.Pionowo w VBA :)
może się komuś przyda



Sub wypelnij()

Dim ilosc_nazw, ilosc_wierszy As Integer

ilosc_nazw = ActiveWorkbook.Names.Count

ilosc_wierszy = 100



For j = 1 To ilosc_nazw

For k = 1 To ilosc_wierszy

    If ActiveWorkbook.Names(j).Name = Cells(k, 1) Then

    ActiveWorkbook.Names(j).RefersToRange.Value = Cells(k, 2).Value

    Else

    End If

Next k

Next j





End Sub
Jarek K. edytował(a) ten post dnia 21.09.11 o godzinie 11:06
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

informatyczne modele wspoma...




Wyślij zaproszenie do
Anuluj