蒲公英联盟提供ghost win10,ghost win7,xp,装机纯净版,64位旗舰版,绿色软件,免费软件下载基地!

当前位置:主页 > 教程 > 软件教程 > Excel教程 >

代码里面应该怎样修改呢?请不吝赐教

来源:蒲公英系统┆发布时间:2019-04-23 12:04┆点击:

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

尚未注册畅言帐号,请到后台注册