資源描述：
《excel問題解決》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、excel公式中上下標的問題做一個if公式，滿足一個條件顯示公式A，滿足另一個條件顯示公式B，都為文本。公式中有上下標，比方說a=b的平方，都顯示成a=b2，請問怎么解決？不想寫成a=b^2。提問者采納比方說a=b的平方，都顯示成a=b2，要顯示B的平方，用VBA程序修改Cells(i,j).Characters(Start:=2,Length:=1).Font.Superscript=True其中2表示表格中的第2個字符開始，1表示上標的長度，比如B的12次方這個1就要寫成2了?[a1].Characters(Start:=2,Length:=1).Fo
2、nt.Subscript=True(下標)?[a1].Characters(Start:=2,Length:=1).Font.Superscript=True(上標)如何確定那些格變什么的，你描述不太情楚沒看懂，上面是變第2個字符下上標的方法實現(xiàn)在一個單元格中輸入公差（上下標）如下圖效果：代碼如下：Sub輸入公差()?i?=?InputBox("請輸入基數(shù)：")If?i?=?""?Then?MsgBox?"無效！即將推出！"End?End?If?j?=?InputBox("請輸入下標：")If?i?=?""?Then?MsgBox?"無效！即將推出！"En
3、dEnd?If?k?=?InputBox("請輸入上標：")If?i?=?""?Then?MsgBox?"無效！即將推出！"?End?End?If?ii?=?Len(i)?jj?=?Len(j)?l?=?ActiveCell?ll?=?Len(l)ActiveCell.Select?Selection.NumberFormatLocal?=?"@"ActiveCell.FormulaR1C1?=?l?&?i?&?j?With?ActiveCell.Characters(Start:=ll?+?1,?Length:=ii).Font?'基數(shù)字體設置Name?
4、=?"宋體".FontStyle?=?"常規(guī)"?.Size?=?11?End?With?With?ActiveCell.Characters(Start:=ll?+?ii?+?1,?Length:=jj).Font?'下標字體設置Name?=?"宋體".FontStyle?=?"常規(guī)".Size?=?5End?WithSelection.Phonetics.Visible?=?True?With?Selection.Phonetics.Font?‘上標字體設置.Name?=?"宋體".FontStyle?=?"常規(guī)".Size?=?5.Strikethro
5、ugh?=?False?.Underline?=?xlUnderlineStyleNone??.ColorIndex?=?xlAutomatic?End?With?ActiveCell.Characters(ll?+?ii?+?1,?1).PhoneticCharacters?=?k??With?Selection?.HorizontalAlignment?=?xlGeneral?.VerticalAlignment?=?xlBottom?.WrapText?=?False?.Orientation?=?0?.AddIndent?=?False?.Inde
6、ntLevel?=?0?.ShrinkToFit?=?False?.ReadingOrder?=?xlContext?.MergeCells?=?False?End?With?End?Sub?能不能限制按鈕點擊次數(shù)？PrivateSubCommandButton1_Click()Range("A1").Value=Range("a1").Value+1IfRange("a1").Value=3ThenCommandButton1.Enabled=FalseEndIfEndSub在thisworkbook模塊中：PrivateSubWorkbook_Befo
7、reClose(CancelAsBoolean)Application.CommandBars(1).ResetEndSubPrivateSubWorkbook_Open()WithApplication.CommandBars(1).ResetWith.Controls.Add(Type:=msoControlPopup).Caption="測試"Seta(0)=.Controls.Add(Type:=msoControlButton)Witha(0).Caption="按鈕1[5]".OnAction="aaa"EndWithSeta(1)=.Cont
8、rols.Add(Type:=msoControlButton)W
