< návrat zpět

MS Excel


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

Zaslal/a 26.5.2021 10:31

Merlin99Zdarvim 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: rar50738_test.rar (16kB, staženo 13x)
Zaslat odpověď >

#050739
Stalker
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 Select
citovat
#050741
Merlin99
Stalker
jooo to je onooo DÍKY moc 5 5 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00