web-dev-qa-db-ja.com

四角記号（²）を文字列で表示する方法

文字列に表示する²を取得しようとしています。例として、私の出力はActiveXテキストボックス内にあり、R² = 50を読み取る必要があります。

次の2つのステートメントを試しました。

Selection.Characters.Text = "R&ChrW(&HB2)&" = " & variable

しかし、これは0をTextboxの出力として表示します。この：

Selection.Characters.Text = "R² = " & variable

0も表示されます。

excelvbaexcel-vbaexcel-2007
4
aconnelly

参照しているテキストボックスの種類がわかりません。ただし、ユーザーフォームのテキストボックスでこれを実行できるかどうかはわかりません。

ただし、シート上のテキストボックス。

Sheets("Sheet1").Shapes("TextBox 1").TextFrame2.TextRange.Text = "R2=" & variable
Sheets("Sheet1").Shapes("TextBox 1").TextFrame2.TextRange.Characters(2, 1).Font.Superscript = msoTrue

Excelセルについても同じこと

Sheets("Sheet1").Range("A1").Characters(2, 1).Font.Superscript = True

もしこれがあなたがあなたのものでなかったら、あなたはあなたの質問でより多くの情報を提供する必要があるでしょう。

編集：コメントの後にこれを投稿して申し訳ありません

3
Rory

複雑になる必要はありません。必要なのが²だけの場合は、Unicode表現を使用します。

http://en.wikipedia.org/wiki/Unicode_subscripts_and_superscripts

（質問で²が表示されるようになったと思います。）

1
Brad

VBAで乱数を使用して方程式を作成し、x ^ 2でxを2乗します。

各正方形（またはテキストボックス）のテキストを文字列に読み取ります。

次に、文字列内の各文字を順番に読み取り、それぞれの^（ "hats"）の位置に注意します。

帽子が4、8、および12の位置にあったとします。

次に、最初の帽子を「切り取る」-上付き文字の位置が4になり、他の帽子の位置が7と11になります。帽子は10に移動しました。最後の帽子を切り取ります。上付き文字は現在位置10です。

各文字を順番に選択し、フォントを上付き文字に変更します。

したがって、^を使用してスプレッドシート全体を代数で埋めてから、それを整理するためのルーチンを呼び出すことができます。

Xの23のような大きな力の場合、x ^ 2 ^ 3を作成し、上記のルーチンで実行します。

0
Jim Beckwith