excel单元格中加上背景字
10-12
在Excel单元格中加上背景字?50有时,为了应付不大会使用EXCEL的人操作方便或给填写表格的人说明此处应该填写的内容,但当只用者双击单元格进行编辑的时候该背景文字自动消失。
为满足上述要求应在一个单元格加上字段名或某些提示性的字,EXCEL是否可以?批注不行!数据有效性不行!我需要是一直显示当双击的时候文字才消失!
问题补充:
就像这种提示法,当我要在出生日期后输入文字的时候双击表格, 1985-12-25这些字段就自动消失
数据菜单-有效性
如可以限定输入的范围,提示输入内容,提示错误或警告提醒!比如:
没有直接底纹显示的!
不明白你为什么要这样做,觉得是操作习惯要作调整,在单元格输入内容时,为什么一定要先双击?
只有原单元格有内容,需要对其进行修改时才需要先双击。用有效性吧,最理想了
在B8(你图上好像是B8)设好文字和黄色背景,然后选择“工具”-----“宏”----“VB编辑器”或ALT+F11,
在VB编辑器中,先双击左边窗口的“sheet1(sheet1)“,然后将以下代码复制到右边,OK
-----------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B8], Target) Is Nothing Then
Selection.Clear
End If
End Sub
-----------------------
你的代码只是定义了双击单元格过后颜色和文字自动隐藏 但当光标离开单元格过后颜色和文字不会重新显现
刚才代码的后面再加上这一段,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b8") = "" Then
Range("b8").Select
ActiveCell.FormulaR1C1 = "如1985-12-25"
Selection.Interior.ColorIndex = 6
End If
End Sub
再请教一下,如果我将单元格B8换问B89(第8 9格合并),代码里面应该怎样修改呢?请不吝赐教,我会追加积分,
将第一段代码中的Selection.Clear改成下面的内容:
Range("b8").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
在此非常你的回答。你的专业知识让我钦佩!
不客气,我也是半路出家的野和尚。共同学习
要实现这样的效果,我能想到的是有两种方式来实现:
(1)用楼上几位说的宏来实现。
(2)利用背景来实现。这个背景实现的时候,还是有一定的技巧的。
我知道用宏可以实现,但本人对VBA编程并不感冒。请问下用背景是如何实现的,如果能解决一定加分。
1,制作一张背景图片,和这个单元格差不多大,里面有这个文字。其实这个图片,可以用Excel来做,很简单的,就怕你又要问我了。唉。我这几天烦着呢。
2,将这个图片,插入到背景中。
3,所有单元格底色设为白色。要输入文字的地方,你要边框线就要加边框了。
4,这个单元格,设为无色。