我正在尝试将²显示在字符串中。例如，我的输出应位于ActiveX文本框内，并应显示为R² = 50。
我尝试了以下两个陈述：
Selection.Characters.Text = "R&ChrW(&HB2)&" = " & variable
但是这会在文本框中显示0作为输出。这个：
Selection.Characters.Text = "R² = " & variable
还会显示0。
答案 0 :(得分：3)
不确定您所引用的文本框类型。但是，我不确定您是否可以在用户表单的文本框中执行此操作。
您可以在工作表上找到一个文本框。
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
如果这不是你想要的，那么你需要在你的问题中提供更多信息。
编辑：在评论抱歉后发布此内容
答案 1 :(得分：1)
无需太复杂。如果您只需要²，那么请使用unicode表示。
http://en.wikipedia.org/wiki/Unicode_subscripts_and_superscripts
（这就是我假设你的问题出现在你的问题中。）
答案 2 :(得分：0)
我在VBA中创建具有随机数的方程，并且在x ^ 2中创建x平方。
我将每个方块（或文本框）文本读成字符串。
然后我依次读取字符串中的每个字符并记下每个字符的位置（＆＃34; hats＆＃34;）。
说帽子位于第4,8和12位。
然后我＆＃34;砍掉＆＃34;第一个帽子 - 要上标的角色的位置现在是4，其他帽子的位置现在是7和11。 我砍掉了第二顶帽子，上标的字符现在是7，帽子已经移到了10。 我砍掉了最后一顶帽子......上标字符现在位于第10位。
我现在依次选择每个字符并将字体更改为上标。
因此，我可以使用^填充代数的整个电子表格，然后调用例程来整理它。
对于像x到23这样的大国，我建造x ^ 2 ^ 3并且上面的例程就可以了。