作者:乔山办公网日期:
返回目录:excel表格制作
您这个问题非常好解决,举个例子如下图,这是一个百典型的销售报表,在B6单元格度中输入公式:=IF(A6="","",''请输入地址");在C6中输问入公式答:=IF(A6="","","请输入姓名"),在D6中输入公式:=IF(A6="","","请输入品名");在E6中输入公式:=IF(A6="","","请输入数量");在F6中输入公式:=IF(A6="","","请输入单价"),选取B6:F6单元格区域,把光标置于该区域右下内角,当十字变成实心的时候,下拉诸公式,到您需要的地方,如此这般,就大功容告成了,
用宏可复以实制现,zdPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.ClearContents
End Sub
为满足上述要求应在一个单元格加上字段名或某些提示性的7a686964616fe58685e5aeb9336字,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,这个单元格,设为无色。
插入注释就可以了