请求各位完善首字母输入问题

zhyduser

工作薄中有4个工作表，其中sheet1为“废钢客户数据库"。现sheet3可以实现首字母输入及将数据库相应内容填入到对应单元格中；sheet2需要首字母输入，将单位名称填入到B列，无需其他数据，请各位帮写代码，谢谢！要求在 表中使用 表同样的功能，输入关键字首字母由“废钢客户数据库"B列筛选出含关键字的单位名称列表。


首字母模糊输入.zip (151.42 KB, 下载次数: 12)

2017-1-14 13:27 上传

点击文件名下载附件

QCW911

Sc什么意思

kmcla

我不知道你想在哪输入，输入几个。给你代码，自己改下
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function
以上是ＶＢＡ
以下在表格输入公式
=getpy(R6)

kmcla

Function 提取数字(s_string As String) As Integer
'--------------
'例如：GGG3.6和，提取“3.6” 点的char＝46 Asc("A")
'--------------------

      For i = 1 To Len(s_string)
          If IsNumeric(Mid(s_string, i, 1)) Or Asc(Mid(s_string, i, 1)) = 46 Then
          提取数字 = 提取数字 & Mid(s_string, i, 1)
         
         End If
      Next i
End Function
这个提取数字 ，改一下也可提字母

zhyduser

要求在 表中使用 表同样的功能，输入关键字首字母由“废钢客户数据库"B列筛选出含关键字的单位名称列表。