网站首页

N-sheets

于 2013-05-03 发布文件大小:37KB

 0  237

下载积分: 1 下载次数: 1

我要下载

代码说明：

以G列分成多个工作表(以宏运行VBA) (Sub aa() Dim a As Integer, b As Integer, c As Integer, sh As Worksheet For a = 2 To [g65536].End(3).Row If Cells(a, 7) Cells(a- 1, 7) Then b = a End If c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row Set sh = Sheets.Add(, Sheets(Sheets.Count)) sh.Name = Sheets("sheet1").Cells(a, 7).Value With Sheets("Sheet1") Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2] Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1] a = c End With Sheets("Sheet1").Select Next End Sub )

下载说明：请别用迅雷下载，失败请重下，重下不扣分！

发表评论

0 个回复

N-sheets
以G列分成多个工作表(以宏运行VBA) (Sub aa() Dim a As Integer, b As Integer, c As Integer, sh As Worksheet For a = 2 To [g65536].End(3).Row If Cells(a, 7) <> Cells(a- 1, 7) Then b = a End If c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row Set sh = Sheets.Add(, Sheets(Sheets.Count)) sh.Name = Sheets("sheet1").Cells(a, 7).Value With Sheets("Sheet1") Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2] Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1] a = c End With Sheets("Sheet1").Select Next End Sub )

2013-05-03 08:50:54下载

积分：1
lending-Form
A very simple VB Source that can read / write from access database to Grid

2013-02-24 07:45:01下载

积分：1
Tele
VC进行数据库编程，MFC编写的，可以与CListCtrl控件配合使用(VC database programming, MFC prepared can be used in conjunction with the CListCtrl control)

2009-04-11 17:38:22下载

积分：1
VS2008和Access的数据库连接及操作完整示例
连接access数据库实例，简单的操作access数据库(Connecting access database instance)

2018-08-13 10:14:55下载

积分：1
ADO
这是ACCESS的数据库编程文件，可以容易的用在MFC，VC,DELPH等工程环境(ACCESS ADO DATABASE ,MFC VS2008 AND VS2010)

2013-08-18 10:30:52下载

积分：1
tuishuiguanli
VB编写的退税管理系统，可做毕业设计参考，很适用！(VB prepared the tax rebate management system, can be graduated from the reference design, it is applicable!)

2008-12-29 16:20:26下载

积分：1
testdatabasedll
数据库功能展示，vc连接access数据库，实现增删查找功能(Database function display, vc connection access database, add or delete search function to achieve)

2011-01-24 17:04:23下载

积分：1
SQLite3Develop
Sqlite3 的确很好用。小巧、速度快。但是因为非微软的产品，帮助文档总觉得不够。这些天再次研究它，又有一些收获，这里把我对 sqlite3 的研究列出来，以备忘记。(Sqlite3 really good use. Small, fast. But for the Microsoft products, always feel that not enough to help document. This Some day to study it, and have some harvest, here I study on SQLite3 list, to forget.)

2012-09-25 17:13:03下载

积分：1
Population
c++ 链接access 建立的一个小型人员统计系统管理代码简单(c++ link access to the set of a small staff Biejiao simple statistical system management code)

2014-03-09 10:11:57下载

积分：1
DAO
说明： DAO读写(literacy DAO)

2005-10-29 23:52:58下载

积分：1

696518资源总数
104269会员总数
42今日下载

N-sheets

0 个回复

热门标签

热门下载