数字组合

lgzxmlg

数字组合.zip (9.21 KB, 下载次数: 5)

2023-7-25 15:05 上传

点击文件名下载附件

输入数字，将可能出现的组合输入到原单元格。不知能否实现。

DevilW

DevilW

1. Public rngadd '设置公共变量储存触发地址
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
   
4.     If Target.Address = rngadd Then Exit Sub Else rngadd = Target.Address '防止重复触发
   
5.     If Len(Target) > 2 Then
   
6.         a = Left(Target, 1) & "-" & Mid(Target, 2, 1) & "-" & Mid(Target, 3)
   
7.         b = Left(Target, 1) & "-" & Mid(Target, 2, 2)
   
8.         If Len(Target) > 3 Then b = b & "-" & Mid(Target, 4)
   
9.         x = Application.InputBox("1) " & a & Chr(10) & "2) " & b, "请选择输入结果", "请输入1或2确定类型", , , , , 1)
   
10.         If x = 1 Then Target = a
    
11.         If x = 2 Then Target = b
    
12.     End If
    
13. End Sub

复制代码

lgzxmlg

DevilW 发表于 2023-7-25 15:42

谢谢老师。

gwjkkkkk

参与一下。。。

lgzxmlg

gwjkkkkk 发表于 2023-7-25 20:47
参与一下。。。

谢谢老师，DevilW老师的是我想要的结果