有效性代码英文

输入时在000667前加半角单引号就可以了。'000667

在VBA工程浏览器里双击你要控制的工作表，如Sheet1,添加Worksheet的change事件，就是当工作表里文本发生改变时触发该事件，参数是发生改变的区域。代码如下：Private Sub Worksheet_Change(ByVal Target As Range) If Target.Text = "123" Then '如果选择的是123 Target.Interior.Color = RGB(255, 0, 0) '这个是背景色，RGB格式的颜色，可以自己随便改 Target.Font.Name = "黑体" '字体名称 Target.Font.Bold = True '是否为粗体 Target.Font.Color = RGB(0, 255, 0) '这个是文本颜色，RGB格式的颜色，可以自己随便改 End IfEnd Sub

hjehr_codeset_0为该工作簿一个工作表标签名（标签栏看不到的话，就是被隐藏），b1:b57就是你想改或添加的区域。

看看这个例子吧。写了一小段程序。

1、打开Excel软件。

2、在sheet1中的来A1列输入数据源，选中此列，在“公式”选项卡，单击“源定义名称”。

3、输入名称、选择范围、bai引用位置，然后单击“确定”。

4、Sheet2工作表，选中B2单元格，然后在“数据”选项卡下，单击“数据有效性”组的“du数据有效性”。

5、打开“数据有效性”对话框，在“设置”选项卡，允许选择“序列”，来源输入”=阶段“zhi，可以根据需要选择是否将“忽略空值”、“提供下列箭头”勾选，然后单击“确定”。

6、B2列即可通过下拉列表dao来选择数据。EXCEL2010就可以设置选择下拉列表后另一个单元格显示对应值了。

选中单元格-右键-设置单元格格式-数字-选中“文本”

Excel数据有效性如何设置？