2012-10-26 102 views
4

我試圖讓²顯示在字符串中。作爲一個例子,我的輸出應該在ActiveX文本框中,並且應該是R² = 50如何獲得方形符號(²)以顯示在字符串中

我試過下面的兩個語句:

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

但這顯示0作爲文本框的輸出。而這個:

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

還顯示0

+0

什麼樣的文本框?在一個用戶窗體,ActiveX控件,窗體控件,在Msgbox等 – brettdj

回答

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 

如果這不是你以後,你需要在你的問題提供更多的信息。

編輯:對不起評論

+0

對不起,它在工作表上的文本框,我假設是用戶窗體?我使用excel插入文本框併爲其分配一個名稱,然後我嘗試使用vba向其中插入一個字符串。「ActiveSheet.Shapes(」Spring_Calib_Textbox「)。選擇」 – aconnelly

+1

我的錯誤我GOOGLE了它,activeX文本框 – aconnelly

0

創建VBA中的隨機數方程,對於x的平方放在X^2。

我將每個正方形(或文本框)文本讀入一個字符串。

然後我依次讀取字符串中的每個字符並記下^(「帽子」)在每個字符中的位置。

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

我然後「切出」的第一個帽子 - 字符待上標位置現在是4,其它帽的位置現在7和11 我砍從第二帽,字符到標現在是在7和帽已經移動到10分 我砍出最後帽子..上標字符現在位置10

我現在依次選擇每個字符並將字體更改爲上標。

因此,我可以使用^用代數填充整個電子表格,然後調用一個例程來整理它。

對於像x到23這樣的大國,我構建了x^2^3,並且上面的例程完成了它。

+0

帽子的技術術語是「caret」 –

相關問題