网站首页

N-sheets

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

 0  348

下载积分: 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 个回复

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

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

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

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

积分：1
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
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
chuti
基于VFP的出题小系统，以前做的，传上来分分享一下(Test system based on VFP, before doing, Chuan up points to share)

2014-08-27 18:40:49下载

积分：1
produce
access vba 公司自己用的生产管理(access vba)

2012-01-05 09:37:18下载

积分：1
SetAccessData
对已经存在的Accsess数据库表添加新字段并复值(right Accsess already existing database table and add a new field of Complex)

2006-08-10 21:15:31下载

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

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

积分：1
EXCELtoMDB
VisualBasic实现EXCEL数据的批量导入,(EXCEL data batch import to mdb based on VB)

2012-05-07 21:40:29下载

积分：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

696516资源总数
106428会员总数
7今日下载

N-sheets

0 个回复

热门标签

热门下载