EXCEL - náhrada znaků, dle přiložené tabulky

Zdravím, potřeboval bych zautomatizovat jeden krok v Excelu, ale netuším jak na to. Zkoušel jsem hledat, ptát se AI, ale nic.

Pomocí čtečky RFID načtu kód v DEC 0013059293, ten převedu na HEX C744DD. Potom musím podle tabulky přehodit nible, dostanu HEX 3E22BB a to převedu zpět na DEC 4072123.

Nevím, proč je to takhle komplikované, ale je to jediný způsob, který funguje.

Tabulka pro převod je:

0 0
1 8
2 4
3 C
4 2
5 A
6 6
7 E
8 1
9 9
A 5
B D
C 3
D B
E 7
F F

Potřeboval bych tento převod nějak zautomatizovat. Zbytek je v pohodě.

Nemáte někdo nějakou radu, tip? Děkuji

Předmět	Autor	Datum
Potom musím podle tabulky přehodit nible Tohle děláš jak? Pro lepší pochopení přilož ukázku souboru… JoDiK 12.10.2023 16:14	JoDiK	12.10.2023 16:14
Aha, tak zřejmě právě toto potřebuješ vyřešit... JoDiK 12.10.2023 18:27	JoDiK	12.10.2023 18:27
Hm, deja vu. Neřešil si to už v roce 2021? Siki83 12.10.2023 18:35	Siki83	12.10.2023 18:35
Nedaří se mi najít původní dotaz, ale našel sem na disku soubor, který odpovídá zadání s převodní ta… Siki83 12.10.2023 19:30	Siki83	12.10.2023 19:30
Potenciálně nebezpečné makro bylo zablokováno. JoDiK 12.10.2023 20:02	JoDiK	12.10.2023 20:02
Ó ano, velice nebezpečné Function Prevod_Z_NA(source As Variant) As String Const Z As String = "012… Siki83 12.10.2023 20:16	Siki83	12.10.2023 20:16
No, já se nebál, jen jsem chtěl naznačit, že s aktuálním nastavením Office 365 si to nějak nemůžu vy… JoDiK 12.10.2023 21:27	JoDiK	12.10.2023 21:27
A právě proto je zbytečné na takové jednoduché věci používat takové kanony jako je VBA... touchwood 13.10.2023 06:42	touchwood	13.10.2023 06:42
Ne, neřešil. rokator 13.10.2023 11:03	rokator	13.10.2023 11:03
Nevím, jestlis už na svůj dotaz zapomněl, že nereaguješ, ale vzal jsem to jako inspiraci pro cvičení… JoDiK 12.10.2023 19:15	JoDiK	12.10.2023 19:15
Na dotaz jsem nezapomněl, ale nestíhal jsem to vyzkoušet. Teď jsem se k tomu dostal. Použil jsem tv… rokator 13.10.2023 11:02	rokator	13.10.2023 11:02
Rádo se stalo, maticové vzorce mi zatím moc nejdou a není nad příklady z praxe. poslední JoDiK 13.10.2023 13:04	JoDiK	13.10.2023 13:04
Jo, podobné překódování jsem už taky jednou analyzoval. :-) hexa převeď na binárku a votoč :-) 000… touchwood 12.10.2023 20:10	touchwood	12.10.2023 20:10
Děkuji všem zúčastněným. rokator 13.10.2023 11:02	rokator	13.10.2023 11:02

Potom musím podle tabulky přehodit nible

Tohle děláš jak? Pro lepší pochopení přilož ukázku souboru...

Aha, tak zřejmě právě toto potřebuješ vyřešit...

Hm, deja vu.
Neřešil si to už v roce 2021?

Nedaří se mi najít původní dotaz, ale našel sem na disku soubor, který odpovídá zadání s převodní tabulkou.
Do původního zadání sem doplnil ten dnešní.

prevod-podle-tabulky.xlsm 18.74 KiB

Potenciálně nebezpečné makro bylo zablokováno.

Ó ano, velice nebezpečné

Function Prevod_Z_NA(source As Variant) As String

Const Z As String = "0123456789ABCDEF"
Const NA As String = "084C2A6E195D3B7F"

Dim TmpS As String
Dim OutS As String

Dim i As Integer

OutS = ""
If IsNull(source) Or source = "" Then
    Prevod_Z_NA = ""
Else
    For i = 1 To Len(source)
        TmpS = Mid(source, i, 1)
        If InStr(1, Z, TmpS, vbBinaryCompare) > 0 Then TmpS = Mid(NA, InStr(1, Z, TmpS, vbBinaryCompare), 1)
        OutS = OutS & TmpS
    Next i
    Prevod_Z_NA = OutS
End If

End Function

Doporučuji počítač již nezapínat, polít hořlavinou a zapálit, poté zakopat 5 metrů pod zem a zalít betonem.

No, já se nebál, jen jsem chtěl naznačit, že s aktuálním nastavením Office 365 si to nějak nemůžu vyzkoušet.
A jak jsem teď zkusil, dokonce ani po vypnutí chráněného zobrazení a povolení maker s VBA se mi to tvoje makro nespustilo, takže až po chvíli googlení jsem našel, že se ještě musí vypnout blokování "nebezpečných souborů" z jiného počítače ve vlastnostech souboru.
Rád bych viděl, jak nad tímhle úspěšně zvítězí BFU...

A právě proto je zbytečné na takové jednoduché věci používat takové kanony jako je VBA...

Ne, neřešil.

Nevím, jestlis už na svůj dotaz zapomněl, že nereaguješ, ale vzal jsem to jako inspiraci pro cvičení s maticovými vzorci včetně maticových konstant.
Třeba to někdo vyřeší ještě elegantněji...

nible-tab-matrix.xlsx 12.43 KiB

Na dotaz jsem nezapomněl, ale nestíhal jsem to vyzkoušet. Teď jsem se k tomu dostal.

Použil jsem tvoji první variantu (převod přímo ve vzorci).

Moc děkuji, je to přesně to, co jsem potřeboval.

Rádo se stalo, maticové vzorce mi zatím moc nejdou a není nad příklady z praxe.

Jo, podobné překódování jsem už taky jednou analyzoval.

hexa převeď na binárku a votoč

0001 -> 1000 (1->8)
0010 -> 0100 (2->4)
0011 -> 1100 (3->C)

atd.

Takže nějak jako HODNOTA.NA.TEXT(HEX2BIN(D8);"0000")

Následně otočit text: tady máš několik variant jak na to, mělo by to jít všechno v rámci jedné formule: https://exceljet.net/formulas/reverse-text-string

následně zase převést na hexa. (BIN2HEX)

Děkuji všem zúčastněným.

Zpět do poradny Odpovědět na původní otázku Nahoru