作者：乔山办公网日期：
返回目录：excel表格制作
右键copy 工作表标签百 ---查看代度码知---输入下面道代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then TextBox1.Value = [A1].Value
End Sub
你用的WPS以上的版本的话就是插入--文本框
用的2003版excel的话就是绘图--选择什么样的图形都可以--然后右键输入文字，一般这个是在下面一行
如题所述操作可以借助【条件格式】来实现，本例基于Excel 2010，步骤具体如下：
如图所示，选中要设置格式的单元格，单击“条件格式”按钮，展开下拉菜单，单击“新建copy规则”菜单项，打开“新建格式规则”对话框，“选择规则类型”设置为“只为包含以下内容的单元格设置格式”，“条件”设置为“无空值”，单击“格式”按钮，打开“设置单元格格式”对zhidao话框，切换至“填充”选项卡，设置合适的背景色，单击确定按钮，关闭所有对话框。
在包含条件格式的单元格输入数据
自己建立的窗口内添加的文本框，填充颜色的话需要用到API函数，具体引用比较复杂，去下载一个APILOAD