MS Excel

Téma: Kolekce + Select case (nefunguje..)

Zaslal/a Merlin99 26.5.2021 10:31

Zdarvim vsechny,
chci se zeptat jestli nekdo poradi jak skloubit kolekci a select case viz prikald. Kolekce vyzaduje pouzit nekde like ale to se mi nedari nijak nastavit...
Problem je ze select nerozezna zadani ktere jsem mu zadal "*x*"
____________________________________
Sub KOLEKCE()
Dim myCol As Collection
Set myCol = New Collection
Dim Cell As Range
Dim Oblast_FAST As Range
Dim MaxRadek As Long
Dim i As Long
Dim X_X As Long

'Tvorba KOLEKCE
MaxRadek = List1.Cells(Rows.Count, "I").End(xlUp).Row
Set Oblast_FAST = List1.Range("I9:I" & MaxRadek)

For Each Cell In Oblast_FAST
myCol.Add Cell
Next Cell

'Vypsání KOLEKCE
i = 9
For Each Item In myCol

Select Case Item
Case "*A*": X_X = 10
Case "*B*": X_X = 11
Case Else: X_X = 12
End Select

List1.Cells(i, X_X).Value = Item
i = i + 1

Next Item
End Sub

Příloha: rar

50738_test.rar (16kB, staženo 14x)

Zaslat odpověď >

Stalker(26.5.2021 11:49)#050739

Tohle by mělo pomoct:

Select Case True
Case Item Like "*A*": X_X = 10
Case Item Like "*B*": X_X = 11
Case Else: X_X = 12
End Selectcitovat

Merlin99(26.5.2021 13:31)#050741

Stalker
jooo to je onooo DÍKY moc

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.