4

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

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

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

ただし、これ0はテキストボックスの出力としてを表示します。この：

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

も表示されます0。

4

3 に答える 3

4

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

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

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

これがあなたの目的ではない場合は、質問でより多くの情報を提供する必要があります。

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

于 2012-10-26T01:49:53.670 に答える
1

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

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

（これが、あなたがあなたの質問に²を表示させたと私が仮定する方法です。）

于 2012-10-29T15:45:53.847 に答える
0

私はVBAでランダムな数を使って方程式を作成し、xの2乗をx^2に入れます。

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

次に、文字列内の各文字を順番に読み取り、それぞれの^（「帽子」）の位置をメモします。

帽子が4、8、12の位置にあったとしましょう。

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

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

したがって、^を使用してスプレッドシート全体に代数を入力し、ルーチンを呼び出して整理することができます。

xから23のような大きな力の場合、私はx ^ 2 ^ 3を構築し、上記のルーチンがそれを行います。

于 2014-10-22T16:51:53.437 に答える