<em>Excel</em> <em>vba</em>中怎样填写数值&l

利用VBA代码，添加Worksheet_Change事件

假设要判断的值在A1，改变单元格后触发事件窗口填写代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$1" And [A1].Value > [B1].Value Then   

Target.Interior.ColorIndex = 3Else    

Target.Interior.ColorIndex = xlNone

End If

End Sub

注意一般加个IF来判断当前单元格量是否是指定的单元格，就是执行代码。

扩展资料：

vba中可以触发不同事件的命令：

Publicr/ Private] Const  常量名[As  类型]=表达式7a64e59b9ee7ad94362

Global Const 符号常量名称 = 常量值，定义一个符号常量，并将指定表达式的值赋给符号常量。 

常量名指定符号常量的名字。符号常量名可以由字母、数字和下划线组成，但只能以字母开头，不能含有空格，表达式指定符号常量的值。该表达式通常由数值型、字符型、逻辑型或日期型数据以及各种运算符组成，但在表达式中不能出现变量和函数。 

public用来表示这个常量的作用范围是整个数据库的所有模块。 

private则表示这个常量只在使用该声明常量语句的模块中起作用。

说明：

1、除用户定义的符号常量外，VBA还提供了许多符号常量，我们可以直接使用。

2、对数码比较长，并且在程序中多次使用的常量，通常使用符号常量代替。运行程序时，系统自动把程序中的所有符号常量换为赋给它的值。

参考资料来源：百度百科—VBA

下面是vba的代码，要不你参考一下e5a48de588b67a686964616f362？
Sub Macro2()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

或者
(defun c:a()
(getpoint
(setq a (getpoint "dian"))
(setq b (strcat "("(rtos (car a) 2 0) "," (rtos (cadr a) 2 0) "," (rtos (caddr a) 2 0) ")"))
(command "-text" a "" "" b "")
)
)

把上面的抄东西粘贴到百记事本里度,然后记事本改为.lsp格式文件,打开cad,运行"ap",然后选择刚才的lsp文件加载,返回到cad主界面,在命令行输入知a
然后点选你想要坐标的道点就好了