liuxf196921的专栏

Sub Sort() Dim iCounter As Integer Dim LastNum As Integer '生成随机数，作为测试数据。第一列是原来数据，第2列和第3列是生成的随机数 LastNum = 50 For iCounter = 1 To LastNum Cells(iCounter + 1, 3) = Int(Rnd() * LastNum) + 1 Next iCounter For iCounter = 1 To LastNum...

Option Explicit Sub buttonClick() Call otherSheetSerch(ThisWorkbook.Worksheets("合同管理"), ThisWorkbook.Worksheets("Sheet1"), 1, 1, 1, 1, 2, 2) End Sub '不同表间关联查找：表workSheet1的keyColumn1与workSheet2的keyColumn2关联，在workSheet2中找到srcColumn列，写入workSheet1的destCol..

注意：qq邮箱要开启smtp协议 Sub sendMail(strTo As String, strSubject As String, strMsg As String, strFrom As String, strPassword As String) Set objEmail = CreateObject("CDO.Message") '创建对象 objEmail.From = strFrom '设置发信人的邮箱 objEmail.To = strTo '设...

Sub SequenceRandom() '在A列产生随机排序 Randomize Timer Dim DataPool(65535) As Integer rowNum = Range("B65535").End(xlUp).Row - 1 'MsgBox rowNum Sheets("Sheet1").Columns(1).Range("A2:A65535").ClearContents For i = 1 To rowNum DataPool(i) = i Next Las...