自动填加“MM”或者“点”

winder818

A列      B列
P              2（自动后面加入“点“）
IF             10（自动后面加入”MM“）
如果在A1输入P时,又在B1输入2时,会自动生成"2点"
如果在A2输入IF时,又在B2输入10时,会自动生成"10mm"

kepeng100

不知道什么规律,不过教你怎么自动在A1自动加入MM

设置A1单元格式----自定义-------在里面输入---#&"MM"    ,再到A1去输入数字,即可!

winder818

原帖由 kepeng100 于 2008-12-19 19:50 发表
不知道什么规律,不过教你怎么自动在A1自动加入MM

设置A1单元格式----自定义-------在里面输入---#&"MM"    ,再到A1去输入数字,即可!

这样写，满足不了我的条件

wk123566

C1=IF(AND(A1="P",B1=2),B1&"点","")
C2=IF(AND(A2="IF",B2=10),B2&"mm","")

[ 本帖最后由 wk123566 于 2008-12-20 13:21 编辑 ]

winder818

自动填加“MM”或者“点”
如果在A1输入P时,又在B1输入某值时,会自动生成"某值点"
如果在A2输入IF时,又在B2输入某值时,会自动生成"某值mm"
例：
A列      B列
P              2点(我输入“2”会自动显示出2点，条件是A1必须P）
IF             10mm（我输入“10”会自动显示为10mm,条件是A2必须是IF）

henry3zonehk

利用 VBA 可以達成你的要求, 只需要下面這些簡單的代碼便可以了．

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    If Target.Offset(, -1) = "IF" Then Target.NumberFormatLocal = "0_ ""mm"""
    If Target.Offset(, -1) = "P" Then Target.NumberFormatLocal = "0_ ""點"""
End If
End Sub

winder818

！！！！！！！！！！！！！！！！！！！！！！！！