Ešte ma napadlo v praxi. Dá sa urobiť aj zápis kde bude číslo od 1 do 10 začínať s 0 na žačiatku? 01H1, 01H2, 02H1, 02H2...
Jedná sa o to, že keď si vyberiem dáta zo stĺpca a nevyberám ich postupne ale na preskačku a prekopírujem ich do iného stĺpca potrebujem ich ďalej zoradiť. Lenže zoraďovanie mi to nezoradí ale rozhádže, 2ku za 20ky atp. Alebo viete poradiť ako nastaviť zoraďovanie aby to zoraďovalo správne?
Prípadne ďalší skript, ktporý by mi to automaticky zoradil?
Jedná sa o to, že potrebujem mať zoradené indexy pretože na tavbu (asi 10indexov) musím urobiť presné mechanické a chemické vlastnosti a keď mi to rozhádže 2ku, 3ku ... na koniec a nezoradí ako má tak by som musel potom zas vkladať zvlášť tieto hodnoty pre každý rozhádzaný index. Je to nepriehľadné a komplikuje to prácu.
Snáď som to vysvetlil zrozumiteľne
Ďakujem za info
EXCEL - automatické vypĺňanie
-
- Level 2.5
- Příspěvky: 268
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Jen nástřel v rychlosti. Otestuj.
Kód: Vybrat vše
Option Explicit
Sub vyplneni_Index_A_B()
Dim posun As Integer
Dim i As Integer, x As Integer
Dim Index()
ReDim Index(1 To 2, 1 To 3)
Index(1, 1) = "A"
Index(1, 2) = 84 'min
Index(1, 3) = 99 'max
Index(2, 1) = "B"
Index(2, 2) = 1 'min
Index(2, 3) = 12 'max
For x = LBound(Index, 1) To UBound(Index, 1)
For i = Index(x, 2) To Index(x, 3)
Select Case i
'zde uvedená čísla budou vynechána, pokud chceme vynechání zrušit zapíšeme 0 (Case 0)
Case 6, 9, 66, 69, 96, 99
Case Else
Range("A2").Offset(posun).Value = Index(x, 1) & Format(i, "00") & "H1"
posun = posun + 1
Range("A2").Offset(posun).Value = Index(x, 1) & Format(i, "00") & "H2"
posun = posun + 1
End Select
Next i
Next x
Erase Index
End Sub
-
- Level 2.5
- Příspěvky: 268
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Ahoj,
Si super funguje dokonale
Ďakujem pekne
Ešte je niečo čo ma napadlo ale prv s tým chcem bojovať sám, či dobre rozumiem tomu kódu a ak budem úplne v koncoch potom napíšem
zatiaľ ďakujem veľmi pekne
Si super funguje dokonale
Ďakujem pekne
Ešte je niečo čo ma napadlo ale prv s tým chcem bojovať sám, či dobre rozumiem tomu kódu a ak budem úplne v koncoch potom napíšem
zatiaľ ďakujem veľmi pekne
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Automatické přehrávání videa Příloha(y)
od fafejt » 09 úno 2024 13:59 » v Internet a internetové prohlížeče - 4
- 2226
-
od fafejt
Zobrazit poslední příspěvek
09 úno 2024 17:30
-
-
- 4
- 5733
-
od ArtisPier
Zobrazit poslední příspěvek
26 zář 2023 12:29
-
- 16
- 8284
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 1465
-
od mmmartin
Zobrazit poslední příspěvek
28 kvě 2024 23:45
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 4666
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 34 hostů