日志
- 分享 1.0V港股信息分析系统
- 忙了十多天，总算完成了港股信息分析系统1.0V，因为这是远程为网友做的项目，沟通耗费不少时间，也就有感于做项目的艰辛。 项目说明：基于港股网站下载数据，实现不同交易日的数据进行排序查询、图表显示。项目看似简单，但程序要实现不同交易日数据动态比 ...
- 分享 VBA获取其它工作簿数据二法
- 获取其它工作簿数据的方法，实例主要演示两种获取其它工作簿数据方法： 1、显式获取 GetObject 函数 返回文件中的 ActiveX 对象的引用。 2、隐式获取 ExecuteExcel4Macro 方法 执行一个 Microsoft Excel 4.0 宏函数，然后返回此函数的结果。我们可以用此方法获 ...
- 分享 函数实现物品管理实例
- 为公司做的简易的物品管理实例： 1、品名表：为基表必须先输入相关物品的基础数据，编号为自然编号，该编号为唯一识别号，也是实现物品进、出、存的唯一编号。 2、在领用表中黄色区域输入物品编号，通过函数自动显示物品资产类别、品名、规格，其它数据据实填写，特别是领用数量必须填写，该数据影响到库存数据正确性 3、在 ...
- 分享 不利用工具软件实现内码转换
- 我手头有一些日本或是非内地高手的作品，因为内码的问题，打开代码后注释多半是乱码，如：Windows婲摦屻宱夁帪娫庢摼API。这是一段在代码的注释，因为苦于没于内码转换工具，所以无法看懂代码注释，使学习起有一定困难，经过摸索，找到一种利用网页实现转换内码的方法，与大家一起分 ...
- 分享 封装表事件获得列、行首尾数
- 根据欢欢的命题，不用表事件得出列，行首尾数，我用类封装表事件，见如下实例： 实例样本： 类封装表事件.rar
- 分享 VBA创建新工作簿并在内按要求创建新表
- 编程要求: 工作薄A.xls里sheet1 里a1=1001,a2=1002,a3=1003,a4=1004....... 通过VBA实现新建工作薄B.xls里的sheet1命名为1001，sheet2命名为1002，sheet3命名为1003，直至a(i)=""时结束 主要思路: 1、新建一个工作簿 2、在新建工作簿中，建立新表。新建表个数：先得到你A1到AN个单元格个数，来决定新建表 ...
- 分享 为网友做VBA隔行插入标头实现工资条
- 思路: 1、先得到数据区最后一行的数号。 2、从最后一行向第九行循环，并进行插入动作 3、在插入的行逐一复制第七行的标题 Sub inserttitle () Dim IRow As Integer Dim JCol As Integer Dim Drow As Integer App ...
- 分享 在原公司对员工进行培训时做的课件（分享）
- 我原在一家图书联锁企业做过一段时间ＨＲ，以下课件是给基础员工进行培训时做的，拿出来与大家分享 课件实例： 沟通技巧t.rar
- 分享 VBA删除重复项多种方法
- VBA删除重复项，只是不是很完善，得麻烦你多点几次，直到没有重复项哦，点出来的快乐，哈哈........ Sub 删除重复() Dim Lrow As Long Dim I As Integer Dim myCount Lrow = Sheets("sheet1"). .End(xlUp).Row For I = 2 To Lrow myCount = Application.CountIf(She ...
- 分享 QQ2007版全套图标(分享)
- 不说什么,下载自己看 图标下载： 全套QQ图标.rar
