标题: 大家踊跃发表自己的方法哈 [打印本页] 作者: 欢欢 时间: 2008-1-5 11:51 标题: 大家踊跃发表自己的方法哈 问题：比如一个工作表a1:a20区域是要输入订单号的，要在没输入之前让它在此单元格里浅色显示“订单号”，用的人在输入订单号时“订单号”3个字消失，且输入时字体不浅色表示了。作者: pureshadow 时间: 2008-1-5 12:42
哇卡卡卡~~~~~~
我先发表一个：
用条件格式，=“订单号”的时候为浅色字体，其他为正常字体。
貌似单元格内无法插入自定义图片的，不知小爪还有什么高招，期待ING！作者: tmtony 时间: 2008-1-5 12:59
我会用VBA,但如何在无内容显示 "订单号" 还未想到好办法作者: 欢欢 时间: 2008-1-5 14:07
看来你们还没有理解到我的题意，可能我说的不清楚，这个问题是群的虎子提出来的，我回答了，我把我的回答贴一下：期待有更多的方法中。。。。。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
For h = 1 To 20
If Cells(h, 1) = "" Then
Cells(h, 1) = "订单号"
Cells(h, 1).Font.ColorIndex = 37
End If
Next
If Target.Column = 1 Then
I = Target.Row
Cells(I, 1) = ""
Cells(I, 1).Font.ColorIndex = 1
MsgBox "请输入订单号了"
End If
End Sub作者: tmtony 时间: 2008-1-5 14:12
不错,好方法, 学习了作者: 欢欢 时间: 2008-1-5 14:38 :hug:作者: tmtony 时间: 2008-1-5 15:00
如果未输入订单号,可否强制不能离开单元格?作者: 欢欢 时间: 2008-1-5 15:28
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'先把区域输入"订单号"和浅蓝色字体
For h = 1 To 20
If Cells(h, 1) = "" Then
MsgBox "你还没有输入订单号码"
End If
Next
If Target.Column = 1 Then
I = Target.Row
Cells(I, 1) = ""
Cells(I, 1).Font.ColorIndex = 1
MsgBox "请输入订单号了"
End If
End Sub
