管理资源吧

当前位置:管理资源吧首页>>>tech>>>c1>>>Excel教程

excel单元格中加上背景字

  在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,这个单元格,设为无色。

tech首页 更多tech