我想自動化在同一個單元格上應用圓形公式的程序。因此，如果 A1 是 33.45 并且我應用圓形公式，它會在鍵盤快捷鍵的幫助下變為 =round(33.45,0)。
我運行了一個宏，更改了一些內容，并使用以下公式將圓形函式應用于同一單元格。
Sub Macro3()
'
'Macro3 Macro
'
'Keyboard Shortcut: Ctrl q
'
Active.Cell.FormulaR1C1 = Round(Active.Cell.FormulaR1C1,0)
ActiveCell.Offset(1,0).Range("A1").Select
End Sub
但我無法將最終結果寫為 =round(cell value,0)
先感謝您。
uj5u.com熱心網友回復：
這對我有用：
Sub Macro3()
ActiveCell.Formula = "=round(" Str(ActiveCell.Value) ",0)"
End Sub
uj5u.com熱心網友回復：
Active.Cell.FormulaR1C1 = Round(Active.Cell.FormulaR1C1,0)順便說Active.Cell.FormulaR1C1 = Round(ActiveCell,0)
一句，你應該怎么處理第二個陳述句ActiveCell.Offset(1,0).Range("A1").Select？你想將這一輪應用到當前單元格并且它們移動到下一行嗎？
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/417850.html
標籤：
上一篇：ExcelVBA根據標題組合列