大家踊跃发表自己的方法哈

欢欢

问题：比如一个工作表a1:a20区域是要输入订单号的，要在没输入之前让它在此单元格里浅色显示“订单号”，用的人在输入订单号时“订单号”3个字消失，且输入时字体不浅色表示了。

XSL6815

学习中,希望多发一些这种贴子

欢欢

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

[ 本帖最后由 欢欢 于 2008-1-5 15:50 编辑 ]

tmtony

如果未输入订单号,可否强制不能离开单元格?

欢欢

:hug:

tmtony

不错,好方法, 学习了

欢欢

看来你们还没有理解到我的题意，可能我说的不清楚，这个问题是群的虎子提出来的，我回答了，我把我的回答贴一下：期待有更多的方法中。。。。。
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

我会用VBA,但如何在无内容显示 "订单号" 还未想到好办法

pureshadow

哇卡卡卡~~~~~~
我先发表一个：
用条件格式，=“订单号”的时候为浅色字体，其他为正常字体。
貌似单元格内无法插入自定义图片的，不知小爪还有什么高招，期待ING！