GoldenLine
Zaloguj się
Krzysztof W.

Krzysztof W. :)

Temat: Kod kreskowy EAN-13 w excelu

Witam,

Chciałem zapisać kod kreskowy EAN-13 w excelu i nie moge dojść do tego jak to zrobić.

Proszę o pomoc jeżeli ktoś przerabiał już ten temat.
Link do wypowiedziLink

konto usunięte

Temat: Kod kreskowy EAN-13 w excelu

Krzysztof Wyląg:
Witam,

Chciałem zapisać kod kreskowy EAN-13 w excelu i nie moge dojść do tego jak to zrobić.

Proszę o pomoc jeżeli ktoś przerabiał już ten temat.
Jak dla mnie to kwestia zainstalowania odpowiedniej czcionki. Spróbuj TEGO
Link do wypowiedziLink
Krzysztof W.

Krzysztof W. :)

Temat: Kod kreskowy EAN-13 w excelu

Marcin S.:
Krzysztof Wyląg:
Witam,

Chciałem zapisać kod kreskowy EAN-13 w excelu i nie moge dojść do tego jak to zrobić.

Proszę o pomoc jeżeli ktoś przerabiał już ten temat.
Jak dla mnie to kwestia zainstalowania odpowiedniej czcionki. Spróbuj TEGO


tak też już doczytałem, ale na tej stronie nic mi nie generuje poprawnie EAN-13
Link do wypowiedziLink

konto usunięte

Temat: Kod kreskowy EAN-13 w excelu

Czy możesz rozwinąć temat ? Jakie masz dokładnie oczekiwania do tego kodu EAN w Excelu ??
Link do wypowiedziLink
Krzysztof W.

Krzysztof W. :)

Temat: Kod kreskowy EAN-13 w excelu

Zależy mi na tym aby kod w zapisie np. 5908232294622 była automatycznie zamieniany na kod kreskowy EAN-13. Z tego co się dowiedziałem to rozchodzi się o odpowiednią czcionkę, ale na stronie podanej przez Marcina ani jedna czcionka nie generuje kodu EAN-13 tak jak np na załaczonym obrazku
[obrazek]


Obrazek
Krzysztof Wyląg edytował(a) ten post dnia 29.10.10 o godzinie 14:29
Link do wypowiedziLink

konto usunięte

Temat: Kod kreskowy EAN-13 w excelu

Witam

Kiedyś usiłowałem wstawić kod ean przy tworzeniu adresu do Paczki Pocztowej. I znalazłem coś takiego. Co prawda dotyczy to ean 128, jednakże przy zmianie w formule na ean13 czcionka też się zmiania.

Nie mam niestety czytnika i nie mogę sprawadzić poprawości, ale może tobie się uda.

http://rapidshare.com/files/427777900/ean128.xls

pozdrawiam
Link do wypowiedziLink

konto usunięte

Temat: Kod kreskowy EAN-13 w excelu

Krzysztof Wyląg:
Zależy mi na tym aby kod w zapisie np. 5908232294622 była automatycznie zamieniany na kod kreskowy EAN-13. Z tego co się dowiedziałem to rozchodzi się o odpowiednią czcionkę, ale na stronie podanej przez Marcina ani jedna czcionka nie generuje kodu EAN-13 tak jak np na załaczonym obrazku
[obrazek]


Obrazek
Krzysztof Wyląg edytował(a) ten post dnia 29.10.10 o godzinie 14:29
Dziwne,

jak ściągnąłem tą CZCIONKĘ ze strony którą podałem i ją zainstalowałem, to po wklejeniu numeru 5908232294622 do komórki, zmianie formatowania na liczbę a potem wybraniu z listy czcionek EAN-13 dostałem w komórce kod kreskowy wraz z podanym numerem. Nie znam się na kodach kreskowych, ale chyba ten "wygenerowany" kod jest ok.
Link do wypowiedziLink
Tomasz Gawęda

Tomasz Gawęda Kierownik Zakładu
Produkcyjnego

Temat: Kod kreskowy EAN-13 w excelu

To nie jest tylko kwestia czcionki, pozostaje jeszcze cyfra kontrolna. W twoim przykładzie jest to 2 na końcu ciągu cyferek.

Tu macie gotowe rozwiązanie (nie do użytku komercyjnego).

Sposób użycia: poniższy kod należy wkleić do modułu VBA. Otrzymamy nową funckję o nazwie ean13. W komórce np. A1 wprowadzamy 
=ean13("590823229462";1)


1 jako parametr wyświetla cyfry do odczytu, 0 lub brak - nie wyświetla cyfr.

Kod kreskowy ma wysokość wiersza w którym wstawiono funkcję ean13

Function ean13(dokod As String, Optional hr As Integer) As String

On Error Resume Next

Dim kod(100), arr() As Variant

Dim a As Long, i As Long, j As Long, k As Long

Dim ak As Integer, szer As Integer

Dim shp As Shape, rng As Range

Set rng = Application.Caller

Dim parzystosc, lewn, lewp, praw, drugi, startsentinel, wytworca, srodek

Dim wsp, iloczyn, cyfrakontr, zerojed, prawe, endsentinel, kr



prawe = ""

endsentinel = "111"

szer = 2

parzystosc = Array("NNNNNN", "NNPNPP", "NNPPNP", "NNPPPN", "NPNNPP", "NPPNNP", "NPPPNN", "NPNPNP", "NPNPPN", "NPPNPN")

lewn = Array("3211", "2221", "2122", "1411", "1132", "1231", "1114", "1312", "1213", "3112")

lewp = Array("1123", "1222", "2212", "1141", "2311", "1321", "4111", "2131", "3121", "2113")

praw = Array("3211", "2221", "2122", "1411", "1132", "1231", "1114", "1312", "1213", "3112")



For i = 1 To 12

    wsp = 1

    If i Mod 2 = 0 Then wsp = 3

    iloczyn = Val(Mid(dokod, i, 1)) * wsp

    cyfrakontr = cyfrakontr + iloczyn

Next i

cyfrakontr = (Application.WorksheetFunction.RoundUp(cyfrakontr / 10, 0) * 10) - cyfrakontr

dokod = dokod & cyfrakontr

drugi = parzystosc(Val(Left(dokod, 1)))

startsentinel = "111"

wytworca = ""

srodek = "11111"



For i = 2 To 7

    If Mid(drugi, i - 1, 1) = "N" Then

        wytworca = wytworca & lewn(Val(Mid(dokod, i, 1)))

    Else

        wytworca = wytworca & lewp(Val(Mid(dokod, i, 1)))

    End If

Next i



zerojed = startsentinel & wytworca & srodek

prawe = ""

endsentinel = "111"



For i = 8 To 13

    prawe = prawe & praw(Val(Mid(dokod, i, 1)))

Next i



zerojed = zerojed & prawe & endsentinel





kod(0) = 10

For a = 1 To Len(zerojed)

    kod(a) = Mid(zerojed, a, 1)

Next a

kod(a + 1) = 10



ak = 10 * szer



ActiveSheet.Shapes.Range("kod_" & rng.Address).Delete

With rng.Worksheet.Shapes

    For i = 1 To a + 1 - 1 Step 2

        If i <= 3 Or (i > 27 And i <= 32) Or i > 56 Then

            kr = 0

        Else

            kr = 15

        End If

        If rng.Height < 25 Then kr = 0

        Set shp = .AddShape(msoShapeRectangle, rng.Left + ak, rng.Top, kod(i) * szer, rng.Height - kr)

        ak = ak + (kod(i) * szer) + (kod(i + 1) * szer)

        On Error Resume Next

        j = 0: j = UBound(arr) + 1

        On Error GoTo 0

        ReDim Preserve arr(j)

        arr(j) = shp.Name

    Next i

    With rng.Worksheet.Shapes.Range(arr)

        .Group

        .Line.Visible = False

        .Fill.ForeColor.RGB = RGB(0, 0, 0)

        .Name = "kod_" & rng.Address

    End With

End With



ean13 = ""

If hr = 1 Then

    ean13 = "   " & Left(dokod, 1) & "          "

    For k = 2 To 8

        ean13 = ean13 & Mid(dokod, k, 1) & " "

    Next k

    ean13 = ean13 & "              "

    For k = 9 To 13

        ean13 = ean13 & Mid(dokod, k, 1) & " "

    Next k

End If

End Function
Link do wypowiedziLink
Michał Sasiński

Michał Sasiński ABAP,
www.123Office.pl

Temat: Kod kreskowy EAN-13 w excelu

Tomasz Gawęda:
To nie jest tylko kwestia czcionki, pozostaje jeszcze cyfra kontrolna. W twoim przykładzie jest to 2 na końcu ciągu cyferek.

Święta prawda, kod EAN13 a kod kreskowy to dwie sprawy. Mogę sobie napisać "czterylitery" w wordzie za pomocą odpowiedniej czcionki i przeciętny skaner mi to odczyta i wrzuci do komputera jak tekst wpisany z klawiatury, Z drugiej strony nie jestem pewien czy prawo wymaga żeby na produkcie kod EAN był zapisany kodem kreskowym, ale zarządzanie towarem poprzez spisywanie ręczne było by co najmniej kłopotliwe.

Więc na jakiej zasadzie oceniasz że wygenerowany kod jest zły?

Przede wszystkim musisz zadbać, żeby kod był prawidłowy "technicznie". Funkja podana przez Tomka pewnie działa, ale obiły mi się o uszy prostsze rozwiązania na obliczanie liczby kontrolnej.

http://www.eggheadcafe.com/software/aspnet/31225057/ea...

Ja w każdym razie zawsze pracowałem z gotowymi kodami przedstawionymi przez producentów różnych towarów.

Kolejny krok, czyli czcionka to już kwestia skanera, twój skaner może po prostu nie czytać niektórych czcionek kreskowych. Z tego co pamiętam lepiej dla bezpieczeństwa dodawać przed i po kodzie "*", czyli "*5908232294622*".
Link do wypowiedziLink
Tomasz Gawęda

Tomasz Gawęda Kierownik Zakładu
Produkcyjnego

Temat: Kod kreskowy EAN-13 w excelu

Z drugiej strony nie jestem pewien czy prawo wymaga żeby na produkcie kod EAN był zapisany kodem kreskowym

EAN to rodzina kodów kreskowych

http://www.gs1pl.org
ale zarządzanie towarem poprzez spisywanie ręczne było by co najmniej kłopotliwe.

Zgadzam się :)
Więc na jakiej zasadzie oceniasz że wygenerowany kod jest zły?

Z instrukcji do załączonego fontu EAN-13 (link Marcina) wynika, że ...This font contains only the glyphs to BUILD UPC-A barcodes, which must be assembled manually or through software to obtain the final mechanicaly readable product.

Jeżeli tylko zainstalujesz ten font i wkleisz liczbę jako tekst to dostaniesz paski, ale nie w układzie EAN-13.

To czy kod jest poprawny można bez użycia czytników sprawdzić chociażby używając http://www.onlinebarcodereader.com
ale obiły mi się o uszy prostsze rozwiązania na obliczanie liczby kontrolnej.

U mnie to: 
For i = 1 To 12

    wsp = 1

    If i Mod 2 = 0 Then wsp = 3

    iloczyn = Val(Mid(dokod, i, 1)) * wsp

    cyfrakontr = cyfrakontr + iloczyn

Next i

Z tego co pamiętam lepiej dla bezpieczeństwa dodawać przed i po kodzie "*", czyli "*5908232294622*".

Tak, ale dla czcionki Code39. Przy pomocy tej czcionki można bez problemu napisać w Wordzie "cztery litery" które odczyta każdy czytnik kodów kreskowych.
przeciętny skaner mi to odczyta i wrzuci do komputera jak tekst wpisany z klawiatury

Nie na darmo przez pewien czas czytniki kodów kreskowych podłączało się do przelotki PS-2 idącej od klawiatury.
Link do wypowiedziLink

konto usunięte

Temat: Kod kreskowy EAN-13 w excelu

Polecam stronę:
http://grandzebu.net/index.php?page=/informatique/codb...
Do ean13 - są przykładowe pliki w OOCalcu i Excelu z funkcją oraz czcionka.
===============
http://jacekkotowski.blogspot.com
Link do wypowiedziLink
Grzegorz R.

Grzegorz R. Doświadczony manager
ds. rozwoju
sprzedaży i
marketingu

Temat: Kod kreskowy EAN-13 w excelu

już gdzieś to pisałem, ale napiszę jeszcze raz. Poniżej podaje link do moich wypocin na temat kodu EAN-13
Nie jest to makro, gdyż przy makrach zwykle generowanie kodu dla 500 kodów trwa w nieskończoność.
Utworzyłem więc proste formuły, które można wykorzystać w ten właśnie sposób.
Dla wnikliwych można dość jak zbudowany jest kod EAN-13.

Link: (zmieniam link - poprzedni już usuwam) http://www.rybscy.cba.pl/magazyn/kody%20kreskowe%20gre...

jak link nie będzie działał dawać znać na priva, to wyślę.Grzegorz R. edytował(a) ten post dnia 25.04.11 o godzinie 21:42
Link do wypowiedziLink
Grzegorz R.

Grzegorz R. Doświadczony manager
ds. rozwoju
sprzedaży i
marketingu

Temat: Kod kreskowy EAN-13 w excelu

widzę, że trochę osób było zainteresowanych i zassało sobie plik. Dajcie znać jak działa na czytnikach, czy jest czytelny na skanerach ręcznych i stacjonarnych.

pozdro

dodaje drugi link: http://www.rybscy.cba.pl/magazyn/kody%20kreskowe%20gre...Grzegorz R. edytował(a) ten post dnia 23.01.11 o godzinie 17:23
Link do wypowiedziLink
Grzegorz R.

Grzegorz R. Doświadczony manager
ds. rozwoju
sprzedaży i
marketingu

Temat: Kod kreskowy EAN-13 w excelu

Grzegorz R.:
Dajcie znać jak działa na czytnikach, czy jest czytelny na skanerach ręcznych i stacjonarnych.

jeżeli ktoś skorzystał, to proszę o informację, czy skanery czytają wydrukowany kod.

pozdrawiam
Link do wypowiedziLink
Marcin Sorys

Marcin Sorys Dyrektor
Zarządzający,
Akrybia sp. z o.o.

Temat: Kod kreskowy EAN-13 w excelu

a propos wątku,
kod podany przez Gregora działa bez zarzutu, przy czym ciężko go użyć, zaś czcionka ze strony
http://www.adams1.com/readers.html

u mnie nie działa, ma ktoś inne doświadczenia?

m,
Link do wypowiedziLink
Tomasz N.

Tomasz N. Technik Informatyk,
Elektronik.

Temat: Kod kreskowy EAN-13 w excelu

Marcin Sorys:
..............
u mnie nie działa, ma ktoś inne doświadczenia?

m,

Ostatnio napisałem parę makr.
Wątek tutaj: http://www.goldenline.pl/forum/586212/kod-kreskowy-w-e...
Może będzie przydatne.
Pozdrawiam.Tomasz Niemiec edytował(a) ten post dnia 15.06.12 o godzinie 01:40
Link do wypowiedziLink
Grzegorz R.

Grzegorz R. Doświadczony manager
ds. rozwoju
sprzedaży i
marketingu

Temat: Kod kreskowy EAN-13 w excelu

Troszkę zmodyfikowałem formułę (do jednego okienka), by można było prościej skorzystać

link do pliku: http://przeklej.net/down/74641614252656417866160256704...
Link do wypowiedziLink
Grzegorz R.

Grzegorz R. Doświadczony manager
ds. rozwoju
sprzedaży i
marketingu

Temat: Kod kreskowy EAN-13 w excelu

Grzegorz R.:
Troszkę zmodyfikowałem formułę (do jednego okienka), by można było prościej skorzystać

link do pliku: http://przeklej.net/down/74641614252656417866160256704...


Uwaga!!! poprawiłem plik, bo wkradł się błąd i dodałem czcionkę, która znacznie ułatwia generowanie kodu :)

link do pliku wraz z czcionką:
http://www.przeklej.net/down/8849142883575575309827903...
Link do wypowiedziLink
Grzegorz R.

Grzegorz R. Doświadczony manager
ds. rozwoju
sprzedaży i
marketingu

Temat: Kod kreskowy EAN-13 w excelu

Grzegorz R.:
Grzegorz R.:
Troszkę zmodyfikowałem formułę (do jednego okienka), by można było prościej skorzystać

link do pliku:

ponawiam link do pliku:

http://megawrzuta.pl/download/83d5417c34f2d3f7c7a5bd46...
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Kod kreskowy EAN-13 w excelu

Kiedyś wykonałem taki mechanizm, który nie używa zainstalowanej ekstra czcionki: http://vbatools.pl/kody-kreskowe/
Można zaimportować listę produktów i otrzymać plik XLS/PDF czy JPG dla każdej z etykiet osobno. Zainteresowanych zapraszam do kontaktu.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

widok w tabeli kodu kreskow...




Wyślij zaproszenie do
Anuluj