-
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
-
key_strike
后台发送按键小程序。可以将指定按键命令发送到指定窗口。(Background Send button applet. Designated key commands can be sent to the specified window.)
- 2013-03-10 10:44:12下载
- 积分:1
-
814649VB031014sms
通过Modem传输数据 (Modem transmission of data through)
- 2009-01-05 16:16:07下载
- 积分:1
-
二次开发Mach3官方宏指令集
说明: mach3软件的二次开发的助手,尤其是对cnc控制板的拓展(The assistant of secondary development of Mach3 software, especially the expansion of CNC control board)
- 2020-06-19 20:00:02下载
- 积分:1
-
gen_mon
使用万德QuantApi (vba) 实现的自选股监控器, 纯vba实现, 目前支持自定义量比指标AAR(The use of QuantApi (VBA) to achieve the memtech zishuagu monitor, pure VBA implementation, the current support for custom ratio index AAR)
- 2018-02-25 21:07:41下载
- 积分:1
-
Elingcs
说明: EXCEL精灵 反编译原代码 ,这段代码幸亏不是全球数据,要不会把编译器气冒烟的(EXCEL Wizard Decompiles Original Code)
- 2020-06-21 21:00:02下载
- 积分:1
-
AJAX
AJAX基礎範例,月曆,拖曳,收合面板,動畫,連動下拉選單(AJAX-based examples, calendar, drag, collapse panels, animation, and even dynamic drop-down menu)
- 2009-12-06 21:26:59下载
- 积分:1
-
ZCOBRANZAXVEND
说明: Reporte de cobranza detallada por vendedor
- 2020-06-16 04:00:01下载
- 积分:1
-
QQ-leave-message
VB qq空间留言工具,init模拟发送数据包,模拟腾讯MD5加密传输账号密码(VB the qq space Message tool, init simulated send packets analog Tencent MD5 encrypted transmission account password)
- 2012-11-01 13:50:11下载
- 积分:1
-
udnqm
这个软件是本人学习VB的一点小成果,由于技术问题,有很多不足()
- 2017-11-05 08:01:04下载
- 积分:1