< návrat zpět

MS Excel

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

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.

stop Uzamčeno - nelze přidávat nové příspěvky.
Jeza.m(15.12.2011 16:03)#006714
Jeza.m
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: zip6714_hexbindec.zip (11kB, staženo 128x)
citovat
RomanX(15.12.2011 16:41)#006715
avatar
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
avatar
Díky všem to je přesně ono... 9citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje