Excel kérdés probléma

2010-02-28T08:23:16+01:00

2010-02-28T18:40:52+01:00

2022-07-25T01:35:31+02:00

Sonich

Sziasztok!

na az lenne a kérdésem, van egy mezőben szöveg meg szám
pl.:A1 mező ABC12345678
ebből a mezőből a B1-be kellene adatot átvinni, úgy hogy nem az egészre van szükség
pl.:B1 mező ABC
és ugyanezt kell megcsinálni a C1 mezőben, csak ott
pl.:C1 mező 12345678

tehát az egyiknél(B1)az első 3 karakter kell a másikban meg a következő 8

szerintem cellaformázásnál meglehet oldani az egyéniben csak nem tudom a kódot megírni, de más egyéb ötletek is érdekelnek....

előre is köszönöm minden válaszolónak

Mutasd a teljes hozzászólást!

Ha állandó a 3+8 db karakter, a B1 képlete: =bal(a1;3)
C1-é pedig =jobb(a1;8)
Ha nem, akkor makró kell hozzá.

Pl.:

Sub Szetszed()
    For sor = 1 To Range("A" & Rows.Count).End(xlUp).Row
        sz = Cells(sor, 1)
        For b = 1 To Len(sz)
            If Asc(Mid(sz, b, 1)) > 64 Then
                sz_k = sz_k & Mid(sz, b, 1)
            Else
                sz_sz = sz_sz & Mid(sz, b, 1)
            End If
        Next
        Cells(sor, 2) = sz_k
        Cells(sor, 3) = sz_sz
        sz_k = "": sz_sz = ""
    Next
End Sub

Mutasd a teljes hozzászólást!

Oszd meg másokkal!

- Sonich
  válasza Delila (08:32) részére
- 2010.02.28. 08:40
- permalink
Szia
köszi a választ, igaz hogy nem állandó mert elég nagy listáról van szó de sok helyen ugyanaz jó. És így már egyszerűbb mint leírni mindegyiket.

Megoldom ezzel és nagyon köszönöm
Mutasd a teljes hozzászólást!
- ⊓≡⊺∧⊓ɢ⋿∟
  válasza Sonich (08:23) részére
- 2010.02.28. 10:05
- permalink
Hali!

A jövőben segítsd annyival a fórum látogatóit - és ezáltal önmagad is -, hogy normális, a problémát jól körülíró címet adsz a témának. Előre is köszönöm (az ő nevükben is).

Ráadásul, ilyen jellegű kérdéssel a jövőben inkább a Prog.hu-t keresd fel!

Mutasd a teljes hozzászólást!
- Delila
  válasza Sonich (08:40) részére
- 2010.02.28. 18:40
- permalink
Szívesen.
Mutasd a teljes hozzászólást!

Oszd meg másokkal!

Címkék