MS Excel

Téma: ID označených řádků

Zaslal/a LumberMan 27.10.2021 16:18

Dobrý den,

potřeboval bych nějakým způsobem vypsat ID řádků které jsou označené a nejsou po sobě jdoucí např. označím B1, B5:B6 a B10:B15.

Potřebuji získat ID(číslo těchto řádků) a uložit do Array.

Předem děkuji za každou radu a pomoc.

Zaslat odpověď >

Onykl(27.10.2021 20:02)#051405

Zkus tohle, snad je to ono.

Set IdAddressList = CreateObject("System.Collections.ArrayList")

tmp_Addrss_In = Selection.Address
tmp_Addrss = Array("$", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U")

For Each tA In tmp_Addrss
tmp_Addrss_In = Replace(tmp_Addrss_In, tA, "")
Next tA

tmp_Addrss_Out = tmp_Addrss_In

Dim TextStrng As String
Dim Result() As String
Dim DisplayText As String
TextStrng = tmp_Addrss_Out
Result = Split(TextStrng, ",")
For i = LBound(Result()) To UBound(Result())
IdAddressList.Add Result(i)
Next i

For Each Name In IdAddressList
Debug.Print Name
Nextcitovat

elninoslov(1.11.2021 10:13)#051421

AK ide o všetky čísla riadkov:
Sub IDRadku()
Dim Oblast As Range, ARE As Range, aID(), Count As Long, IDCount As Long, i As Long, R As Long

Set Oblast = Selection
For Each ARE In Oblast.Areas
Count = ARE.Rows.Count
R = ARE.Row - 1
ReDim Preserve aID(1 To IDCount + Count)
For i = 1 To Count
aID(IDCount + i) = R + i
Next i
IDCount = IDCount + Count
Next ARE
End Sub
Ak ide o adresy riadkov (1 riadok znamená "1:1"):
Sub IDRadku2()
aID = Split(Replace(Selection.EntireRow.Address, "$", ""), ",")
End Sub

Ak ide o označenia riadkov podoblastí (1 riadok znamená "1"):
Sub IDRadku3()
Dim i As Long, aID() As String, tmpID() As String
aID = Split(Replace(Selection.EntireRow.Address, "$", ""), ",")
For i = 0 To UBound(aID)
tmpID = Split(aID(i), ":")
If tmpID(0) = tmpID(1) Then aID(i) = tmpID(0)
Next i
End Subcitovat

Téma: ID označených řádků

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje