EXCEL - automatické vypĺňanie

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 20 bře 2022 14:35

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

Reklama
Uživatelský avatar
atari
Level 5.5
Level 5.5
Příspěvky: 2947
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod atari » 21 bře 2022 08:16

Co je index a co je model? Je potřeba abys přesně popsal jak ta automatizace má fungovat.

28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 25 bře 2022 22:44

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.

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13
Guru Level 13
Příspěvky: 22421
Registrován: březen 10
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod ITCrowd » 26 bře 2022 01:56

Makro:

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říklad je pro písmeno A, zbytek už si určitě zvládneš dodělat sám. Soubor přikládám.
Nemáte oprávnění prohlížet přiložené soubory.
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

28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 26 bře 2022 05:52

Veľká vďaka :-) si super, ani si nevieš predstaviť koľko času mi ušetriš :-)

28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 26 bře 2022 18:32

Ak by som chcel vynechať v reťazci určité indexy ako napr. čísla 6,9,66,69,96,99 dá sa to naprogramovať?

Uživatelský avatar
atari
Level 5.5
Level 5.5
Příspěvky: 2947
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod atari » 26 bře 2022 20:57

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

28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 26 bře 2022 21:11

Veľká vďaka chlapy :-) ste moji zachrancovia

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 152
Registrován: září 17
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod Grimm » 26 bře 2022 22:07

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.

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

28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 27 bře 2022 14:10

Ď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 :-)

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 152
Registrován: září 17
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod Grimm » 27 bře 2022 17:12

Chápu správně, že ty vynechané indexy 6,9,66,69,96,99 platí pro A i B?
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


28_nitro_28
Level 2
Level 2
Příspěvky: 236
Registrován: prosinec 15
Bydliště: Dolná Lehota
Pohlaví: Muž

Re: EXCEL - automatické vypĺňanie

Příspěvekod 28_nitro_28 » 27 bře 2022 17:42

Á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 :-)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Automatické odhlašování či restartování
    od Darthvitus » 26 dub 2022 18:27 » v Problémy s hardwarem
    14
    1336
    od meda2016
    05 kvě 2022 19:11
  • program pro automatické zmáčknutí tlačítka po spuštění
    od simon385 » 08 led 2022 07:15 » v Programy ke stažení
    1
    529
    od zeus
    08 led 2022 12:28
  • Excel - derivace
    od FooDMasteR » 17 lis 2021 22:43 » v Kancelářské balíky
    2
    675
    od FooDMasteR
    18 lis 2021 21:02
  • Excel - odrážky
    od many11 » 07 lis 2021 21:58 » v Kancelářské balíky
    1
    599
    od elninoslov
    09 lis 2021 14:36
  • Excel - Zoradenie
    od 28_nitro_28 » 18 srp 2021 09:34 » v Kancelářské balíky
    0
    584
    od 28_nitro_28
    18 srp 2021 09:34

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host