Ahojte, narazil som na jeden problém s ktorým si neviem dať rady. Už som prevetral aj google ale nepodarilo sa mi dopátrať pravde.
V práci si potrebujem vypĺňať indexy od odliatkov. Skladá sa s písmena a čísla. No a problém nastáva keď si chcem dať automaticky vyplniť index s pozíciou na modely (sú 2 niekedy aj viac)
Príklad:
A1H1
A1H2
A2H1
A2H2
...
Keď to takto napíšem do excelu a dám automaticky vyplniť tak mi pokračuje vo vypĺňaní za Háčkom. Potreboval by som to mať v tomto tvare a nič inšie ako concatenate ma nenapadlo. Tak by som sa Vás chcel opýtať či by ste mi vedeli poradiť ako by som to mohol aj inak urobiť ak sa dá. vďaka
EXCEL - automatické vypĺňanie
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Co je index a co je model? Je potřeba abys přesně popsal jak ta automatizace má fungovat.
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
No z modelového zariadenia sa do piesku otlačí forma a po naliatí kovu s toho vznikne odliatok, každý má svoje značenie a to pozostáva z písmena a čísla (dvojciferné) takže klasicky začína A1, A2,A3... A99, potom ide B1, B2...
Lenže niektoré odliatky (menšie) sú na jednom modelovom zariadení 2x (kvôli úspore financií) a teda ide A1H1, A1H2 (H1,2 značí pozíciu kde na modeli sa to nachádza (ak by boli nejaké rozmerové problémy, tak je to takto označené)
A teda mne treba zadávať A1H1, A1H2, A2H1, A2H2...A99H1, A99H2
No a tu mi to excel nechce v tomto poradí vypĺňať. Už som skúšal kadečo ale bez úspechu. Vedeli by ste mi poradiť ako na to?
Ďakujem veľmi pekne.
Lenže niektoré odliatky (menšie) sú na jednom modelovom zariadení 2x (kvôli úspore financií) a teda ide A1H1, A1H2 (H1,2 značí pozíciu kde na modeli sa to nachádza (ak by boli nejaké rozmerové problémy, tak je to takto označené)
A teda mne treba zadávať A1H1, A1H2, A2H1, A2H2...A99H1, A99H2
No a tu mi to excel nechce v tomto poradí vypĺňať. Už som skúšal kadečo ale bez úspechu. Vedeli by ste mi poradiť ako na to?
Ďakujem veľmi pekne.
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23605
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Makro:
Příklad je pro písmeno A, zbytek už si určitě zvládneš dodělat sám. Soubor přikládám.
Kód: Vybrat vše
For i = 1 To 99
Cells(2 * i, 1) = "A" & i & "H1"
Cells(2 * i + 1, 1) = "A" & i & "H2"
Next
- Přílohy
-
- AutoFill.xlsm
- (19.97 KiB) Staženo 45 x
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Veľká vďaka si super, ani si nevieš predstaviť koľko času mi ušetriš
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Ak by som chcel vynechať v reťazci určité indexy ako napr. čísla 6,9,66,69,96,99 dá sa to naprogramovať?
Re: EXCEL - automatické vypĺňanie
Kód: Vybrat vše
Sub vyplneni()
posun = 0
For i = 1 To 99
If i = 6 Or i = 9 Or i = 66 Or i = 69 Or i = 96 Or i = 99 Then
posun = posun + 2
Else
Cells(2 * i - posun, 1) = "A" & i & "H1"
Cells(2 * i - posun + 1, 1) = "A" & i & "H2"
End If
Next
End Sub
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Veľká vďaka chlapy ste moji zachrancovia
Re: EXCEL - automatické vypĺňanie
Ahoj, napadla mě taková menší změna v Atariho kódu pro jednodušší zápis vynechaných čísel s nahrazením If za Select Case.
Prostě se jednotlivá čísla zapíší jednoduše za sebou.
Prostě se jednotlivá čísla zapíší jednoduše za sebou.
Kód: Vybrat vše
Sub vyplneni()
Dim posun As Integer
Dim i As Integer
posun = 0
For i = 1 To 99
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
posun = posun + 2
Case Else
Cells(2 * i - posun, 1) = "A" & i & "H1"
Cells(2 * i - posun + 1, 1) = "A" & i & "H2"
End Select
Next
End Sub
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Ďakujem pekne za Váš čas a pomoc.
Napadlo ma ešte ako by sa dalo zapísať keby že chcem skombinovať 2 rozdielne písmená a pre každé z nich iný číselný rozostup?
Príklad: často sa stáva, že tavby odlejú v rozmedzí indexov A84 - B12 teda viem zapísať zvlášť pre A84-99 a zvlášť pre B1-12? samozrejme v zápise by mali ostať tie vynechané indexy 6,9,66,69,96,99
Skúšal som prekopírovať ten kód a pozmeniť A za B ale nefungovalo to a keďže absolútne nepoznám ako sa kóduje tak sa to dalo aj čakať
Ďakujem za info
Napadlo ma ešte ako by sa dalo zapísať keby že chcem skombinovať 2 rozdielne písmená a pre každé z nich iný číselný rozostup?
Príklad: často sa stáva, že tavby odlejú v rozmedzí indexov A84 - B12 teda viem zapísať zvlášť pre A84-99 a zvlášť pre B1-12? samozrejme v zápise by mali ostať tie vynechané indexy 6,9,66,69,96,99
Skúšal som prekopírovať ten kód a pozmeniť A za B ale nefungovalo to a keďže absolútne nepoznám ako sa kóduje tak sa to dalo aj čakať
Ďakujem za info
Re: EXCEL - automatické vypĺňanie
Chápu správně, že ty vynechané indexy 6,9,66,69,96,99 platí pro A i B?
Pokud ano, tak:
Pokud ano, tak:
Kód: Vybrat vše
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) & i & "H1"
posun = posun + 1
Range("A2").Offset(posun).Value = Index(x, 1) & i & "H2"
posun = posun + 1
End Select
Next i
Next x
Erase Index
End Sub
-
- Level 2.5
- Příspěvky: 266
- Registrován: prosinec 15
- Bydliště: Dolná Lehota
- Pohlaví:
- Stav:
Offline
Re: EXCEL - automatické vypĺňanie
Áno, vynechané indexy sú práve kvôli tomu, že sú Anagram, teda keď sa opačne otočia sú identické 6,9...
Bol by problém pretože chemické a mechanické vlastnosti sa robia presne podľa čísla tavby (teda priamo na zvolené indexy)
Koncový zákazník to požaduje protokolovať a teda keby sa to omylom vymenilo už by tam bol problém (ak by sa liali 2x po sebe idúce tavby, s ktorých by jedna obsahovala index 6 a druhá 9) mohlo by sa stať, že by nevyšli skúšky a keďže by to mohlo byť pomiešané tak by sa nevedelo presne, ktorá z kade je.
Pozeral som zápis vyzerá zaujímavo, sám by som to nikdy asi nedal tak obrovská vďaka
Funguje perfektne a stačí už iba údaje pomeniť
Ďakujem pekne za Váš čas
Bol by problém pretože chemické a mechanické vlastnosti sa robia presne podľa čísla tavby (teda priamo na zvolené indexy)
Koncový zákazník to požaduje protokolovať a teda keby sa to omylom vymenilo už by tam bol problém (ak by sa liali 2x po sebe idúce tavby, s ktorých by jedna obsahovala index 6 a druhá 9) mohlo by sa stať, že by nevyšli skúšky a keďže by to mohlo byť pomiešané tak by sa nevedelo presne, ktorá z kade je.
Pozeral som zápis vyzerá zaujímavo, sám by som to nikdy asi nedal tak obrovská vďaka
Funguje perfektne a stačí už iba údaje pomeniť
Ďakujem pekne za Váš čas
-
- 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
- 738
-
od fafejt
Zobrazit poslední příspěvek
09 úno 2024 17:30
-
-
- 4
- 4484
-
od ArtisPier
Zobrazit poslední příspěvek
26 zář 2023 12:29
-
- 16
- 6325
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 2015
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 1
- 421
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 10 hostů