Vrácení hodnoty buňky a převod na ord.hodnotu – Visual Basic – Fórum – Programujte.com

Mohl by mi někdo napsat kód pro Excel XP, aby se mi vedle sloupce s textovými hodnotami napsalo, kolik by dělal součet ordinálních hodnot písmen? Znaky mají hodnoty v rozsahu a-z. Ideálně i s posuvem dolů, tak aby a bylo jako 1 a z jako 26. Takže abc = 1+2+3 = 6

#1 oxidián
co třeba tohle

Function asc2ord(ByVal value As Variant)
Dim i, tmp As Integer
Dim text As String
Dim znak As String
Dim ord As Integer

If Not (VarType(value) = 8) Then Exit Function

text = value

tmp = 0
For i = 1 To Len(text)
    znak = Mid(text, i, 1)
    ord = Asc(znak) + 1 - Asc("a")
    If (ord > 0) And (ord < 27) Then tmp = tmp + ord
Next

asc2ord = tmp
End Function

použití v nové bunce jako fuknce "=asc2ord(A1)"

je to hrubý kod, pro rychlou odpověď, šlo by to i o maličko zjednodušit vynechat některý převody a podmínku.

případně tam přidat chybný návrat pokud je v textu jiný znak, ted to funguje tak, že to z jakého koliv textu sečte ordinárky všech malých písmen a-z.

otázkou je k čemu to chceš použít, jestli chceš zakodovat text do cisla tak to nebude fungovat bo ten výsledek může byt stejný pro vice textů

#3 MilanL
Pisnu ti na mail. Napsal jsem to v Delphi.

Udělal jsem to jak si říkal, dal jsem tam ty menší rozsahy 26*26 a 26*26*26, ale zjistil jsem že poslední předpona (zoo) nevyjede. A to ani pokud navýším limity:

const FROM = 26*26+26+1;
const UPTO = 17576; // 26*26*26
const MAXIMUM = 354080;

#5 oxidián
Netuším sice, k čemu to potřebuješ, ale nechtěl bys místo toho zkusit třeba CRC32 nebo MD5?

#6 Kit
Řídím se filosofií že kód napsaný přesně na míru je nejvýkonnější, protože ho přizpůsobím specifickým zvyklostem daného jazyka. Mě jde o zkrácení stringu. MD5 k tomu není vhodný.

Přišel jsem na chybu. Limity pro smyčku mají být:

const FROM = 26*26+26+1;
const UPTO = 26*26*26+FROM;