excel - Excel: セルの内容を CODE に分割する方法

Question

すべての文字に対して ASCII を返すコード関数があります。

細胞を壊すような使い方をしたいa1 = "some string"

ASCIIコードに：

このようなもの: " 23423423434634"

申し訳ありませんが、正確な ASCII はわかりませんが、私の言いたいことはわかります。

VBAではなく式で具体的にこれを行いたいことに注意してください

Answer 1

1 つの方法は、Byte Array を使用して、各文字に Unicode 数値のペアを与えることです。

Sub ByteArray()
    Dim aByte() As Byte
    Dim str1 As String<
    Dim j As Long
    str1 = "ABC"
    aByte = str1
    For j = LBound(aByte) To UBound(aByte)
        MsgBox aByte(j)
    Next j
End Sub

Answer 2

Excel のユーザー定義関数を記述します。

関数の擬似コードは次のとおりです。

string returnValue;
for each ( char c in string)
   returnValue = returnValue + Chr(char)
return returnValue

UDFを Excel の数式の一部として呼び出すことができます。

=StringToASCIICodeValues(A1)

---

式バージョン

Excelの組み込み式のbyを使用して手動で行うことができます（Excelには式のforループ関数がありません）

1. A1="何らかの文字列"
2. A2="=MID($A$1,COLUMN(A2),1)"
3. セル A2 の数式を右にドラッグします。たとえば、K2 にドラッグしsome stringます。
4. A3="=コード(A2)"
5. セル A3 の数式を右にドラッグします。たとえば、K3 にドラッグしsome stringます。
6. A4="=A3"
7. B4="=連結(A4,B3)"
8. セル B4 の数式を右にドラッグします。たとえば、セル K4 にドラッグしsome stringます。
9. 行 4 に値がある右端の列には、最終値が含まれます。some string返されるため:セル11511110910132115116114105110103K4

Answer 3

    string someText = "some string";
    CharEnumerator ce = someText.GetEnumerator();
    int counter = 0;
    while (ce.MoveNext())
    {
        char letter = someText[counter];
        //Call the function to get the ascii
        GetAsciiValue(letter);
        //Do something

        counter++;
    }

これはあなたを助けるかもしれません。

よろしく、 J'Sinh