我試圖讓²
顯示在字符串中。作爲一個例子,我的輸出應該在ActiveX
文本框中,並且應該是R² = 50
。如何獲得方形符號(²)以顯示在字符串中
我試過下面的兩個語句:
Selection.Characters.Text = "R&ChrW(&HB2)&" = " & variable
但這顯示0
作爲文本框的輸出。而這個:
Selection.Characters.Text = "R² = " & variable
還顯示0
。
我試圖讓²
顯示在字符串中。作爲一個例子,我的輸出應該在ActiveX
文本框中,並且應該是R² = 50
。如何獲得方形符號(²)以顯示在字符串中
我試過下面的兩個語句:
Selection.Characters.Text = "R&ChrW(&HB2)&" = " & variable
但這顯示0
作爲文本框的輸出。而這個:
Selection.Characters.Text = "R² = " & variable
還顯示0
。
不確定你指的是什麼樣的文本框。但是,我不確定您是否可以在用戶表單上的文本框中執行此操作。
您可以通過表格上的文本框。
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
如果這不是你以後,你需要在你的問題提供更多的信息。
編輯:對不起評論
無需太複雜的後張貼了這個。如果你需要的只是²,那麼使用unicode表示。
http://en.wikipedia.org/wiki/Unicode_subscripts_and_superscripts
(這是我認爲你必須出現在你的問題²)
創建VBA中的隨機數方程,對於x的平方放在X^2。
我將每個正方形(或文本框)文本讀入一個字符串。
然後我依次讀取字符串中的每個字符並記下^(「帽子」)在每個字符中的位置。
說出帽子是在位置4,8和12
我然後「切出」的第一個帽子 - 字符待上標位置現在是4,其它帽的位置現在7和11 我砍從第二帽,字符到標現在是在7和帽已經移動到10分 我砍出最後帽子..上標字符現在位置10
我現在依次選擇每個字符並將字體更改爲上標。
因此,我可以使用^用代數填充整個電子表格,然後調用一個例程來整理它。
對於像x到23這樣的大國,我構建了x^2^3,並且上面的例程完成了它。
帽子的技術術語是「caret」 –
什麼樣的文本框?在一個用戶窗體,ActiveX控件,窗體控件,在Msgbox等 – brettdj