ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创]逐步提示的输入(2006.1.7更新,增加注释)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2004-9-17 19:17 | 显示全部楼层
本帖已被收录到知识树中,索引项:数据验证
不错!

TA的精华主题

TA的得分主题

发表于 2004-9-17 20:07 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 00:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 06:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 07:54 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 11:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
UP

TA的精华主题

TA的得分主题

发表于 2004-9-18 15:47 | 显示全部楼层

1."在输入过程中在文本框中单击或双击,EXCEL出错关闭。“该现象我好象,没发现请楼主详细说明一下。

2.”数据表中Worksheet_Change事件出错。见代码说明。“可按下法解决:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range

If Target.Column = 1 Then Columns("G:G").Clear '清除原内容 Columns("H:H").Clear '清除原内容 Columns("I:I").Clear '清除原内容 '产生不重复名称列G列 Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True '高级筛选 '形成拼音辅助列H\I列 For Each Cell In Range("G2:G1000") strText = Cell.Value STRLEN = Len(strText) TText = "" TTEext = "" If STRLEN = 0 Then Exit Sub For I = 1 To STRLEN TEMP = Asc(Mid$(strText, I, 1)) If TEMP > 255 Or TEMP < 0 Then TText = TText & PinYin(Mid$(strText, I, 1)) TTEext = TTEext & Mid$(strText, I, 1) Else TText = TText & LCase(Mid$(strText, I, 1)) TTEext = TTEext & LCase(Mid$(strText, I, 1)) End If Next I 'Stop Cells(Cell.Row, 8).Value = TText Cells(Cell.Row, 9).Value = TTEext Next Cell End If

End Sub

TA的精华主题

TA的得分主题

发表于 2004-9-18 15:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 15:53 | 显示全部楼层

对Function PinYin(Tstr As String) As String的改进意见:

把所有类似Asc("啊")的值全算出来

再用SELECT CASE进行付值,速度可能会快点。

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-18 16:14 | 显示全部楼层

谢谢大家的鼓励. 以下是引用luck_for在2004-9-17 17:14:00的发言: 不错,支持。 循环的问题,只要把activecell改成target即可。 原因为你向8、9列赋值后又触动了change 谢谢你,我确实忽略了这个事件。

to :8楼 以下是引用CCHH在2004-9-17 16:20:00的发言: 真是高手,能否改为五笔输入法吗。

可以,我试过.不过,五笔实用性不大,因为有的一个字可以字有简码,有二级码等.要把五笔的编码与汉字对照表完全倒入。如果你要做,就给个参考给你吧,这是论坛里的一位前辈做的,不是我做的:

to :19楼: 不知道你所说的速度慢,是不是指加了我的VBA后同原文件相比速度慢很多,还是指在加了你的两个改进之后慢了很多? 你的第一个方案要全部清空三个辅助列,我觉得太可惜了,这样虽然保证了准确性,重生成不重复记录,那时间。。。。。。。。。。,哎有利有蔽吧 你的第二个方案我还没试,不知道效果怎么样。 如果有结论了,一定要告诉我哦。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-28 23:15 , Processed in 0.043995 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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