摘要：
Sub WorkbooksSheetsConsolidate() Rem 设置求和区域为 sheet名称/单元格区域;sheet名称/单元格区域 Const Setting As String = "Sheet1/A1:G6;Sheet1/A8:E8;Sheet1/F8:G8;Sheet2/A1:G3;Sheet2/A5:G5" Const FOLDER_NAME As ... 阅读全文
摘要：
Excel创建vcf文件，借助百度云助手导入Iphone6PlusSub CreateContractList() Set Wb = Application.ThisWorkbook FilePath = Wb.Path & "\班级通讯录.txt" Set Sht = Wb.Worksheets("处理") With Sht EndRow = .... 阅读全文
摘要：
using System; using System.Collections.Generic; using System.Linq; using System.Text; using Microsoft.Office.Tools.Ribbon; using System.Diagnostics; using Excel = Microsoft.Office.Interop.Excel; usin... 阅读全文
摘要：
using System; using System.Collections.Generic; using System.Linq; using System.Text; using Microsoft.Office.Tools.Ribbon; using Excel = Microsoft.Office.Interop.Excel; using Office = Microsoft.Offic... 阅读全文
摘要：
Sub testCopyModelRange() Set ModelSheet = ThisWorkbook.Worksheets("单据模板") Set PrintSheet = ThisWorkbook.Worksheets("批量打印") CopyModelRange ModelSheet, PrintSheet, 2 End Sub Public Sub Copy... 阅读全文
摘要：
Sub TestAutoAdjustColumnWidthBaseOnModel() Set ModelSheet = ThisWorkbook.Worksheets("单据模板") Set PrintSheet = ThisWorkbook.Worksheets("批量打印") AutoAdjustColumnWidthBaseOnModel ModelSheet, P... 阅读全文
只有注册用户登录后才能阅读该文。 阅读全文
摘要：
'自动设置行高 传入工作表Sht 和 每页打印的行数RowsInOnePage Public Sub AutoSetRowHeight(ByVal Sht As Worksheet, Optional RowsInOnePage As Variant) Dim BreakRow As Range '水平分页符位置 Dim SumHeight As Double '累计首页行高 ... 阅读全文
摘要：
Public Myr&, Arrsj Private Sub CommandButton1_Click() '查询 On Error Resume Next ' Dim k With Sheets("汇总表") 'If [i3] "" Then [b3,b4,i3,i4,a6:h13,j6:j13] = "" ... 阅读全文
摘要：
'提取试卷优化 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal l... 阅读全文