ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 7249|回复: 15

有人可以帮我讲讲 用拼音首字母录入姓名 吗?{已经搞定}

[复制链接]

TA的精华主题

TA的得分主题

发表于 2007-5-26 20:05 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:窗体

我在里面新建了一个表,怎么样才可以实现和表1一样的功能    有重复拼音首字母姓名是的输入状态   谢谢!!

重复的名字 可以显示,但不能输入.

etmCFLCt.rar (93.94 KB, 下载次数: 347)


[此贴子已经被作者于2007-5-26 21:27:19编辑过]

点评

知识树索引内容:7楼。拼音首字母代码有缺陷,只供参考。  发表于 2013-9-24 17:21

TA的精华主题

TA的得分主题

发表于 2007-5-26 21:32 | 显示全部楼层

删除你所有的模块及工作表的代码和控件,在SHEET1添加一个combobox控件,复制以下代码到SHEET1 CODE:

Private Sub ComboBox1_Change()
Dim arr, i As Long, n As Long, s() As String
arr = Sheets("sheet2").[c5].Resize(Sheets("sheet2").[c65536].End(xlUp).Row - 4, 1)
If Len(ComboBox1.Text) = 0 Then
ComboBox1.List = arr
Exit Sub
End If
For i = 1 To UBound(arr)
If pinyin(arr(i, 1)) Like UCase(ComboBox1.Text) & "*" Then
n = n + 1
ReDim Preserve s(1 To n)
s(n) = arr(i, 1)
End If
Next
If n = 0 Then
ComboBox1.Interior.Color = vbRed
ComboBox1.Visible = False
Exit Sub
End If
ComboBox1.List = WorksheetFunction.Transpose(s)
ComboBox1.DropDown
If n = 1 Then ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
 ComboBox1.TopLeftCell = ComboBox1.Text
 ComboBox1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim arr
arr = Sheets("sheet2").[c5].Resize(Sheets("sheet2").[c65536].End(xlUp).Row - 4, 1)
If Target.Cells.Count = 1 And Target.Column = 2 And Target.Row > 2 Then
With ComboBox1
.Visible = True
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
.Text = ""
End With
ComboBox1.Clear
ComboBox1.List = arr
ComboBox1.Activate
End If
Application.ScreenUpdating = True
End Sub

Function pinyin(ByVal r As String) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim i As Long, j As Byte, temp As String
For i = 1 To Len(r)
For j = 1 To 24
If Asc(Mid(r, i, 1)) >= Asc(Mid(hanzi, j, 1)) Then temp = Mid(hanzi, 23 + j, 1)
Next
pinyin = pinyin & temp
Next
End Function

TA的精华主题

TA的得分主题

发表于 2007-7-13 02:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-7-13 21:40 | 显示全部楼层

这个贴子,里面的表格,能不能加代码实现这样的功能(按输入的拼音不同逐渐提示sheet2表当中的姓名栏内容?)

比如姓名栏那不单是姓名,我改成商品名了,因为商品名有些比较长,要全部输入正确拼音才能出现商品名来,容易出错,也慢,

例如:表sheet2表中有:“今天(JT)”“今天来(JTL)”“今天来吗(JTLM)”,当我在sheet1姓名栏输入 J时会提示:今天、今天来、今天来吗。当我输入JTL,会提示今天来、今天来吗供选择.......

TA的精华主题

TA的得分主题

发表于 2007-7-13 21:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
多谢各位指导

TA的精华主题

TA的得分主题

发表于 2007-9-6 08:35 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-11-29 17:23 | 显示全部楼层
QUOTE:
以下是引用northwolves在2007-5-26 21:32:10的发言:

删除你所有的模块及工作表的代码和控件,在SHEET1添加一个combobox控件,复制以下代码到SHEET1 CODE:

我测试了怎么不行呢,我把自定义放在模块里也不行!

请狼版主看看!

 

piVmcayR.rar (85.23 KB, 下载次数: 745)

TA的精华主题

TA的得分主题

发表于 2007-11-29 17:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-1-17 11:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-1-18 11:19 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 01:53 , Processed in 0.040943 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表