| 共 509 篇文章 |
|
Option ExplicitSub mySum() Dim ws As Worksheet, i As Integer, j As Integer Dim lastRow As Integer, lastCol As Integer Dim dic1 As Object, dic2 As Object, dkey1 As Variant, dkey2 Dim maxRow As Integer, maxCol As Integer, iCols As Integer Dim arr(), temp(), rng As Range Set ws = ThisWorkbook.dic(dkey）=dic(dkey）+arr(i,... 阅2 转0 评0 公众公开 24-05-08 00:09 |
教师课时统计：两种方式统计数据！教师课时统计两种方式：二级字典；最直接的方法是使用一个二级字典，分别以班级、教师作为Key，Item用来计数；1、把数据装入数组arr;2、循环数组，把班级作为字典的Key装入字典Dic，Item为一个二级字典；3、把教师作为二级字典的Key，item为一个计数器，统计每个班级、每个教师的上课次数；由于字典没有顺序，... 阅1 转0 评0 公众公开 24-05-06 21:36 |
Sub mySum1() Dim ws As Worksheet, lastRow As Integer, lastCol As Integer Dim rng As Range, arr(), temp() Dim dic As Object, classKey As Variant, teacherKey As Variant Dim maxRow As Integer, maxCol As Integer, iCols As Integer Set dic = CreateObject("Scripting. 阅1 转0 评0 公众公开 24-05-06 21:36 |
Sub print1() Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("数据源") Set ws2 = Sheets("报告打印") For i = 2 To ws1.UsedRange.Rows.Count With ws2 .Range("E4") = ws1.Cells(i, 2) .Range("E5") = ws1.Cells(i, 3) .Range("E6") = ws1.Cells(i, 4) .PrintOut End With Ne... 阅5 转0 评0 公众公开 24-05-05 23:00 |
"End SubSub print2() Dim ws As Worksheet, arr() Set ws = Sheets("数据源") arr = ws.UsedRange Set ws = Sheets("报告打印") For i = 2 To UBound(arr) With ws .Range("E4") = arr(i, 2) .Range("E5") = arr(i, 3) .Range("E6") = arr(i, 4) .PrintOut End With Next MsgBox &quo... 阅2 转0 评0 公众公开 24-05-05 23:00 |
送货单、销售单：分享一个功能强大的纯EXCEL版数据录入、保存、修改、打印模板！关于根据模板录入数据、保存数据的案例，我们分享过：1、送货单：下拉列表录入打印保存一条龙/VBA操作超级表2、超级实用：付款申请单，新增、修改、保存、打印一条龙！1、数据参考录入：客户名称、送货单号、物料名称都采用TextBox+ListBox选择录入，支持模糊查询... 阅1 转0 评0 公众公开 24-05-04 23:54 |
FullName blnUpdateDeliverNumber = TrueEnd SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim lHwnd As Long Dim lDC As Long Dim lCaps As Long Dim lngLeft As Long Dim lngTop As Long Dim sngPiexlToPiont As Single Dim lngTitleBarHeight As Long Dim clsDC As New DateControl On Error ... 阅4 转0 评0 公众公开 24-05-04 23:54 |
Excel版资源管理器，PDF文件、图片文件直接预览，要不要试试？Excel版资源管理器图片文件、PDF文件预览TreeView控件、WebBrowser控件大家好，我是冷水泡茶。1、输入一个文件目录，列出该目录下所有文件和文件夹（包括子文件夹及其中文件）。4、根据CheckBox的值，我们可以只添加顶层文件夹下的一层文件夹和文件，或者是所有文件夹，包括所有子... 阅2 转0 评0 公众公开 24-05-02 23:48 |
VBA【代码】Excel版资源管理器，PDF文件、图片文件直接预览，要不要试试？Node) Dim filePath As String Dim currNode As Node, currPath As String, currFolder As Object WebBrowser1.StatusBar = "正在统计文件数量......" arr = FoldersAndFiles(topFolder) If arr(0) >100 Or arr(1) >1000 Then If Not wContinue("... 阅4 转0 评0 公众公开 24-05-02 23:48 |
工作表拆分，按送货日期、客户名、送货单号进行拆分送货单。实用案例：批量生成送货单！工作表拆分，批量生成送货单用户窗体、ListBox、ComboBox大家好，我是冷水泡茶。昨天在论坛上看到一个求助贴：按送货日期、客户名、送货单号进行拆分送货单需求内容实在太多，截个图吧：后记1、目前的设置，每次拆分，仅能拆分某一天的数据，我们还可以根... 阅1 转0 评0 公众公开 24-05-01 22:21 |
