如何在VBA中设置一个变量的小数点位数，代码是什么呢

Round函数
返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。

示例：
b = Round(1.5555, 2)
保留2位小数，结果b=1.56

语法
Round(expression [,numdecimalplaces])
Round函数语法有如下几部分：
expression 必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。

假设变量我a,a=3.1415926
a保留1为小数的代码为:
Application.WorksheetFunction.Round(a, 1)或者Round(a, 1)即可
设置位数的话,可以再定义一个变量i,i可以输入:
代码为:i = Val(Trim(Application.InputBox("请输入小数位数", "提示")))
debug.print Round(b, i)即可

你是要设置Excel显示的设置吗？

'这是把第二行第三列设为保留11位小数
Cells(2,3).NumberFormatLocal = "0.00000000000_ "