会VBA就会写你要的软件！！！无需封装！

pp9257 · 发表于 2014-11-7 11:44

先从屌丝在路上捡到一捆芹菜说起：
“中午下班看到路边上有捆芹菜，不知道谁掉的，
捡起来准备回家炒肉，忽然一想需要去买肉，有肉还得要买个锅，
买了锅还要弄个厨房，
有了厨房还得配个媳妇，
有了媳妇就得养丈母娘.
有了丈母娘她就要房要车要彩礼...
我靠赶紧扔掉，吓死了幸亏扔得早，
不然亏大了.回家一想我TM太机智了”

对于有些人来说捡到就是一捆芹菜，对于有些来说，最后真捡一丈母娘。

写代码也是一样，因有所需求，不停的摸索，最后也可能成一民间高手呢

最近逛论坛，还有很多纠结于excel表格公式隐藏、vba代码封装、自杀、隐藏等等
我也是从这一步一步走过来的。

控件：spreadsheet
优点：与excel 表格及vba代码通用性非常强的控件  owc10，owc11（spreadsheet控件）。具体原代码见附件。
用的xml做数据库保存
缺点：不能换行（很致命），不能做下拉框，等等。

vb代码写法步骤：
1、下载一个vb6.0  版本自定吧
2、下载一个owc10 复制到system32（32位电脑），或  syswow64（64位电脑），然后注册一下，具体百度
   建议用owc10，owc11里面spreadsheet输入数据一顿一卡的，具体原因不明，大家可以试试
3、部件引用  下图是必须引用的了!!!!!。
部件.jpg

4、再用vb打开附件的文件
5、按F5 生成程序…………

附件是vb写的，内容有：
1、主菜单
2、窗体内右键菜单
3、spreadsheet表格内右键菜单
4、spreadsheet 工具栏
5、文件打开、保存
6、文件导出excel文件
暂时写这么多吧，大家先捡一捆芹菜，有兴趣娶老婆再说吧

spreadsheet示例.rar (7.9 KB, 下载次数: 569)

pp9257 · 发表于 2014-11-7 11:48

pp9257 · 发表于 2014-11-7 12:08

Private Sub Command1_Click()
With Form1.Spreadsheet1.Sheets("sheet1") '看这一句就可以明白了与excel通用性
r = .Range("b100000").End(xlUp).Row '表格行数超过65536，是262144行哦，而且只认xlup 不认数字3
.Cells(1, 1) = ""
For i = 1 To r '循环求和
If IsNumeric(.Cells(i, 2)) Then
.Cells(1, 1) = .Cells(1, 1) + .Cells(i, 2)
End If
Next
End With
End Sub

复制代码

在窗体上面添加一个按钮吧，在B列填入一些数据
运行试试看……

pp9257 · 发表于 2014-11-7 13:51

本帖最后由 pp9257 于 2014-11-7 13:54 编辑

spreadsheet做的软件示例.rar (16.17 KB, 下载次数: 249)
exe文件
需要owc （spreadsheet控件）支持才能打开
加入了单元格选择触发事件
单元格改变触发事件

yf_home · 发表于 2014-11-7 14:04

有点意思, 支持一下.

.

840205910 · 发表于 2014-11-7 14:48

可以应用到哪些方面？

pp9257 · 发表于 2014-11-7 14:58

840205910 发表于 2014-11-7 14:48
可以应用到哪些方面？

可以跳出 excel ，做成独立的软件了

只要会vba

sunny_8848 · 发表于 2014-11-7 15:23

学vba就是为了更好的用好excel

coby001 · 发表于 2014-11-7 15:40

甚好~，这芹菜我捡了~

wqfzqgk · 发表于 2014-11-7 19:10

呵呵，支持一下

		自动登录	找回密码
密码			免费注册

[原创] 会VBA就会写你要的软件！！！无需封装！

评分