MS Excel

Téma: Přehození bitů a výpočet

Zaslal/a bach1 15.12.2011 14:14

Dobrý den, mám následující problém..
Mám čísla z RFID čipů v HEX např. B5 AB E3 z jedné čtečky a v jiných čtečkách se mi karty zobrazují v DEC 14310780 k čemuž z toho HEX dojdu takto:

Např.
HEX: B5 AB E3
v bin je to
1011 0101 1010 1011 1110 0011
nyní potřebuji aby se něčím orotovali byty ve čtveřici a to takto:
1101 1010 0101 1101 0111 1100
a následně do dekadiky vznikne ono správné
14310780

V tom HEX kodu může být až 8 znaků FF FF FF FF

potřeboval bych nějakou chytrou hlavu, co by mi to spáchala do makra, páč už nevím , jak dál, ta čísla budou např. ve sloupci C - jako HEX a do sloupce D bych potřeboval ono DEC číslo dle vzoru výše.
Děkuji předem.

Uzamčeno - nelze přidávat nové příspěvky.

Jeza.m(15.12.2011 16:03)#006714

S menší podporou googlu a vyhledání převodů soustav (http://www.visualbasic.happycodings.com/Applications-VBA/code4.html), jsem to nějak spáchal, viz. příloha.

M@

Příloha: zip

6714_hexbindec.zip (11kB, staženo 128x)

citovat

RomanX(15.12.2011 16:41)#006715

Jsem druhý, myslím si že to je jednodušší tak Ti to posílám Vlož funkci Vstup je hexadecimální číslo bez mezer:
Function HexCon(Vstup As String) As Long
Dim a As Integer
Dim Vystup As Long
Vystup = 0
j = 0
For i = Len(Vstup) To 1 Step -1
prac = Format(WorksheetFunction.Hex2Bin(Mid(Vstup, i, 1)), "0000")
For x = 1 To 4
Vystup = Vystup + Mid(prac, x, 1) * 2 ^ j
j = j + 1
Next x
Next i
HexCon = Vystup
End Function
výsledek v tabulce
B5ABE3 14310780
F05B 61613citovat

bach1(16.12.2011 10:07)#006721

Díky všem to je přesně ono...

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.