[原创]excel的另类"封装"

风神

老兄的只支持姓名为中文,如为英文,则编码出错.如下修改后,即使输入中英结合的姓名,编码也不会错.

下列代码是在原来基础上修改的,红色处为修改后的,其它未动

Private Sub jack(x1 As String, x2 As Range) '根据添加的姓名增中编码
Dim jac$, ii%, jac1 As Range, jaca$ 'x1为输入的姓名,X2为当前添加姓名的单元格地址
For ii = 1 To Len(x1)
jac = Mid(x1, ii, 1)
Set jac1 = Sheet2.Cells.Find(what:=jac, lookat:=xlWhole)
If Not jac1 Is Nothing And jac1.Column Mod 2 > 0 Then jaca = jaca & jac1.Offset(0, 1)
If Not jac1 Is Nothing And jac1.Column Mod 2 = 0 Then jaca = jaca & jac
Next ii
x2.Offset(0, -1) = jaca
End Sub

smhf_6

我现在还没有能力制作此类产品，但从我的工作实际来看，我的上级单位下发的一些表格也开始使用窗体输入，因为我们在县市，级别够低的了，上有地区、省、总部，只能是服从，可是：

窗体：花里胡俏，不实用！包括窗体中的下拉框！

理由：操作速度大大降低，必须按部就班地一格一格地处理，有时还要用鼠标、键盘并用，业务必须一笔一笔的处理。

若直接在EXCEL中操作：假设有100笔业务即100行，每行有10列内容，有些列的内容是相同的，可用填充处理；其它内容可以键盘输入内容－回车－键盘输入内容－回车....可以连续操作，特别在同一列，内容相类似，按列输入速度更快，而且回车的方向可以选择。

可是，我实在是太渺小了，我的声音有谁听？如我单位在用的一个“反洗钱”的操作系统，就是一个最糟糕的软件。

最后说明，并不针对本楼主，我是看到了窗体，就想起了这一类问题，可以说我对窗体是深恶痛绝。

newysk

同意第34楼！窗体处理少量数据还可以，处大量的数据可是整死人啊！我曾有个977行的EXCEL文件，每行至少有12个单元格内有数字、文字，要输入到另一个软件中，录入界面是用窗体，窗体内全是TEXTBOX,要命啊！还美其名曰用专业软件处理数据，我晕+吐

jacksonzeng

晕，楼主好，测试完这个贴子的所有封装方法之后，发现我现在不能直接双击打开带有宏的EXCEL文件了，但是却可以通过建立一个新EXCEL文件来打开那个带有宏的EXCEL文件，请问如何解决这个问题吖？？谢谢楼上各位帮忙~是因为没有把变量释放出来吗？

风神

EXCEL VBA二次开发的最大好处就是可以EXCEL传统录入与窗体录入并存,不存在34楼和35楼的问题.关键看你习惯.

cooler999999

看看是什么，谢谢了

向您问好

learning

hhzjxss

QUOTE:

以下是引用jack.zhou在2004-6-25 18:35:00的发言：

用VBScfipt打开excel 文件,这样避免宏被禁止的情况,然后用窗体做前台,用隐藏的excel文件做后台.

不错，强烈支持楼主，谢谢了！

mmgghh

使用出错:

 类不支持操作

TGB

对脚本什么的一一窍不通,但贴应该是好贴,顶!