maybe this code can be converted in any other language except in javascript and VBA: public object Tryme(mycell) { mylen = Strings.Len(mycell); for (j = 1; j <= mylen; j++) { mytest = Strings.UCase(Strings.Mid(mycell, j, 1)); if (Strings.InStr(1, "AIJQY", mytest) > 0) { mysum = mysum + 1; } else if (Strings.InStr(1, "BKR", mytest) > 0) { mysum = mysum + 2; } else if (Strings.InStr(1, "CGLS", mytest) > 0) { mysum = mysum + 3; } else if (Strings.InStr(1, "DMT", mytest) > 0) { mysum = mysum + 4; } else if (Strings.InStr(1, "EHNX", mytest) > 0) { mysum = mysum + 5; } else if (Strings.InStr(1, "UVW", mytest) > 0) { mysum = mysum + 6; } else if (Strings.InStr(1, "OZ", mytest) > 0) { mysum = mysum + 7; } else if (Strings.InStr(1, "FP", mytest) > 0) { mysum = mysum + 8; } } return mysum; }
Zikalkis
Ads