Új hozzászólás Aktív témák

• #2540 vilag tag vilag #2520

  Új Válasz 2014-10-15 13:27:31 #2540

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vilag

  tag

  válasz vilag #2520 üzenetére

  Kis javítás a kódokban:

  1. verzió:

  Public szov As String
  Public h As Long
  
  Private Sub CommandButton1_Click()
  
  vkod = ""
  ossz = 0
  szov = Trim(InputBox("Vonalkód értéke:", "Kód bevitel"))
  ActiveSheet.Cells(3, 3) = szov
  If szov = "" Then GoTo vege
  h = Len(szov)
  If h > 100 Then GoTo vege
  
  Dim vk(2, 100)
  For i = 0 To h
  If i = 0 Then
  vk(1, i) = Chr(204)
  vk(2, i) = 104
  Else
  vk(1, i) = Mid(szov, i, 1)
  vk(2, i) = Asc(vk(1, i)) - 32
  End If
  If i = 0 Then k = 1 Else k = i
  ossz = ossz + vk(2, i) * k
  vkod = vkod + vk(1, i)
  Next
  
  eossz = ossz Mod 103
  ActiveSheet.Cells(2, 2) = eossz
  If eossz < 95 Then
  vkod = vkod + Chr(eossz + 32) + Chr(206)
  Else
  vkod = vkod + Chr(eossz + 100) + Chr(206)
  End If
  ActiveSheet.Cells(2, 3) = vkod
  vege:
  vege = MsgBox("Konverzió vége!", vbOKOnly, "Vége")
  
  End Sub

  Valamiért nem csinálja meg a kiemelést.
  Ez a javítás:
  If eossz < 95 Then
  vkod = vkod + Chr(eossz + 32) + Chr(206)
  Else
  vkod = vkod + Chr(eossz + 100) + Chr(206)
  End If

  2. verzió:

  Public szov As String
  Public h As Long

  Private Sub CommandButton1_Click()

  vkod = ""
  ossz = 0
  szov = Trim(InputBox("Vonalkód értéke:", "Kód bevitel"))
  ActiveSheet.Cells(3, 3) = szov
  If szov = "" Then GoTo vege
  h = Len(szov)
  If h > 100 Then GoTo vege
  j = 1

  Dim vk(2, 100)

  For i = 0 To h

  Select Case i
  Case 0
  vk(1, i) = Chr(204)
  vk(2, i) = 104
  j = i
  Case 1 To 2
  vk(1, i) = Mid(szov, i, 1)
  If Asc(vk(1, i)) < 195 Then vk(2, i) = Asc(vk(1, i)) - 32 Else vk(2, i) = Asc(vk(1, i)) - 100
  j = i
  Case 3
  j = i
  vk(1, i) = Chr(199)
  vk(2, i) = Asc(vk(1, i)) - 100
  Case Else
  ' If Application.WorksheetFunction.IsEven(i) = True Then 'XP alatt nem működik!!!
  If i Mod 2 = 0 Then 'XP alatt is működik
  j = i - ((i - 4) / 2)
  s2 = Val(Mid(szov, i - 1, 2))
  If s2 < 95 Then vk(1, j) = Chr(s2 + 32) Else vk(1, j) = Chr(s2 + 100)
  vk(2, j) = s2
  End If

  End Select
  If j = 0 Then k = 1 Else k = j
  ' If i <= 3 Or Application.WorksheetFunction.IsEven(i) = True Then 'XP alatt nem működik
  If i Mod 2 = 0 Then 'XP alatt is működik
  ossz = ossz + vk(2, j) * k
  vkod = vkod + vk(1, j)
  End If
  Next

  eossz = ossz Mod 103
  ActiveSheet.Cells(2, 2) = eossz
  If eossz < 95 Then
  vkod = vkod + Chr(eossz + 32) + Chr(206)
  Else
  vkod = vkod + Chr(eossz + 100) + Chr(206)
  End If
  ActiveSheet.Cells(2, 3) = vkod
  vege:
  vege = MsgBox("Konverzió vége!", vbOKOnly, "Vége")

  End Sub

  Remélem még hasznos lehet valakinek.

• #2528 vilag tag vilag #2520

  Új Válasz 2014-10-09 11:02:53 #2528

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vilag

  tag

  válasz vilag #2520 üzenetére

  Kiegészítés.

  A betűtípus beágyazásnál a "Csak a dokumentumban használt karakterek beágyazása" pontot ne pipáljuk be!!!!!!, mert tényleg csak az adott dokumentumban szereplő karaktereket viszi magával!!!!

  Ergo a code 128 karaktertábla többi karakterét nem!

• #2522 Delila_1 veterán vilag #2520

  Új Válasz 2014-10-08 14:35:37 #2522

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz vilag #2520 üzenetére

  Egy ismerősöm úgy oldotta meg, hogy a konvertálásnál a szöveg elé és mögé tett egy-egy csillagot.
  A1 tartalmazza a szöveget, a bárkód betűtípust tartalmazó cella képlete pedig ="*" & A1 & "*"

  Nem minden olvasó tudja ezt követni, de náluk a munkahelyén egyikkel sem volt gond.

• #2521 sztanozs veterán vilag #2520

  Új Válasz 2014-10-08 11:37:07 #2521

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz vilag #2520 üzenetére

  Köszi

Új hozzászólás Aktív témák