如何在指定单元格自动显示一个三位数学的奇偶

xlgibm

请教高手：如何在指定单元格自动显示一个三位数学的奇偶，大小，如：１１６这个三位数，是“奇奇偶”形态，当我输入“１１６”，在右边的单元格中自动显示“奇奇偶”

kuangben8

参考：
book1.zip (12.49 KB, 下载次数: 12)

2013-12-17 16:51 上传

点击文件名下载附件

xlgibm

还没解决。

xlgibm

116右边单元格中直接显示“奇奇偶”，同理：125右边单元格中显示“奇偶奇”，是输入１１６后右边单元格自动显示。

xlgibm

我上传一个附件：

xlgibm

麻烦你帮个忙。

wj2008qy

学习！～留个印，，

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 2 Or Target.Row < 4 Then Exit Sub
   
4. If Target = "" Then Exit Sub
   
5. Dim Arr, i&, d, b$, s$, g$, aa$
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. Arr = [a1].CurrentRegion
   
8. For i = 3 To UBound(Arr, 2)
   
9.     d(Arr(3, i)) = i
   
10. Next
    
11.     b = Left(Target.Value, 1)
    
12.     s = Mid(Target.Value, 2, 1)
    
13.     g = Right(Target.Value, 1)
    
14.     aa = qiou(b) & qiou(s) & qiou(g)
    
15.     Cells(Target.Row, d(aa)) = aa
    
16. End Sub
    

复制代码

蓝桥玄霜

请见附件。

λォSoul、

路过学习！涨涨姿势！