如何获得方形符号（²）以显示在字符串中

我试图让²显示在字符串中。作为一个例子，我的输出应该在ActiveX文本框中，并且应该是R² = 50。如何获得方形符号（²）以显示在字符串中

我试过下面的两个语句：

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

但这显示0作为文本框的输出。而这个：

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

还显示0。

来源

2012-10-26 aconnelly

什么样的文本框？在一个用户窗体，ActiveX控件，窗体控件，在Msgbox等 – brettdj

不确定你指的是什么样的文本框。但是，我不确定您是否可以在用户表单上的文本框中执行此操作。

您可以通过表格上的文本框。

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-26 01:49:53 Rory

对不起，它在工作表上的文本框，我假设是用户窗体？我使用excel插入文本框并为其分配一个名称，然后我尝试使用vba向其中插入一个字符串。“ActiveSheet.Shapes（”Spring_Calib_Textbox“）。选择” – aconnelly

我的错误我GOOGLE了它，activeX文本框 – aconnelly

无需太复杂的后张贴了这个。如果你需要的只是²，那么使用unicode表示。

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

（这是我认为你必须出现在你的问题²）

来源

2012-10-29 15:45:53 Brad

创建VBA中的随机数方程，对于x的平方放在X^2。

我将每个正方形（或文本框）文本读入一个字符串。

然后我依次读取字符串中的每个字符并记下^（“帽子”）在每个字符中的位置。

说出帽子是在位置4,8和12

我然后“切出”的第一个帽子 - 字符待上标位置现在是4，其它帽的位置现在7和11 我砍从第二帽，字符到标现在是在7和帽已经移动到10分我砍出最后帽子..上标字符现在位置10

我现在依次选择每个字符并将字体更改为上标。

因此，我可以使用^用代数填充整个电子表格，然后调用一个例程来整理它。

对于像x到23这样的大国，我构建了x^2^3，并且上面的例程完成了它。

来源

2014-10-22 16:51:53

帽子的技术术语是“caret” –

如何获得方形符号（²）以显示在字符串中

回答

相关问题