[已解决]在ComboBox2显示 ComboBox1中的字母部分，其它不显示，效果类似D列公式

iphone9

在ComboBox2显示 ComboBox1中的字母部分，

其它不显示，类似D列公式效果！请老师帮忙~！！！

提取英文2.rar (18.75 KB, 下载次数: 4)

2020-1-14 09:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

scl5801

2020-1-14 11:39

Private Sub ComboBox1_Change()
    ss = ComboBox1.Text
    For I = 1 To VBA.Len(ss)
       If Mid(ss, I, 1) Like "[a-z,A-Z]" Then
           aa = aa & Mid(ss, I, 1)
       End If
   Next I
   ComboBox2.Text = aa
End Sub

跳转到最佳答案楼层

hfwufanhf2006

用一个循环，逐个截取每个字符，然后用ASC码来判断。所有的大些字母和所有的的小写字母的ASC都集中在某个数字区间，你去网上查一下ASC码就会判断了。

scl5801

Private Sub ComboBox1_Change()
    ss = ComboBox1.Text
    For I = 1 To VBA.Len(ss)
       If Mid(ss, I, 1) Like "[a-z,A-Z]" Then
           aa = aa & Mid(ss, I, 1)
       End If
   Next I
   ComboBox2.Text = aa
End Sub

iphone9

scl5801 发表于 2020-1-14 11:39
Private Sub ComboBox1_Change()
    ss = ComboBox1.Text
    For I = 1 To VBA.Len(ss)

谢谢~！完美解答