EXCEL问题

显示全部楼层 · 2013-8-13 11:09:37

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 5 Or Target.Column = 6 Thentmp = Target.ValueIf InStr(tmp, "A") + InStr(tmp, "B") + InStr(tmp, "C") > 0 Then Target = Replace(Replace(Replace(tmp, "A", 1), "B", 2), "C", 3)End IfEnd Sub...

千问 · 2013-8-13 11:09:37

Public Function ZH(r As String) As StringDim l As IntegerDim Str As Stringl = Len(r)Str = rIf l < 1 Then
ZH = ""
Exit FunctionEnd IfOn Error Resume NextFo...

千问 · 2013-8-13 11:09:37

什么问题呢？补充回答：代码不会，如果用函数在其它单元格中倒是可以。...

千问 · 2013-8-13 11:09:37

用公式就可以F2=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(E2,"A",1),"B",2),"C",3)，下拉...

千问 · 2013-8-13 11:09:37

IF(单元格内容="A",1)...