共 13 篇文章 |
|
For i = 0 To nDir - 1 FindFilesAPI = FindFilesAPI + FindFilesAPI(path &dirNames(i) _ &"\", SearchStr, FileCount, DirCount) Next i End If End Function Private Sub CommandButton1_Click() Dim SearchPath As String, FindStr As String Dim FileSize As Long Dim NumFiles As Integer, NumDirs As Integer ListB... 阅32 转自JT_man 公众公开 16-06-12 17:12 |
SelectEnd SubSub Select_from_ActiveCell_to_Last_Cell_in_Column()Dim topCel As RangeDim bottomCel As RangeOn Error GoTo errorHandlerSet topCel = ActiveCellSet bottomCel = Cells((65536), topCel.SelectEnd SubSub SelectActiveColumn()If IsEmpty(ActiveCell) Then Exit SubOn Error Resume NextIf IsEmpty(ActiveCell.Offset(1, 0)... 阅881 转11 评1 公众公开 07-04-25 15:03 |
Sending A File To The Recycle Bin.If you want to empty the Recycle Bin for a specific drive, change vbNullString to "C:\" where "C:\" is the root of the drive whose Recycle Bin you want to empty. The following code will empty the Recycle Bin. The code shown below uses the API functions, types, an... 阅278 转3 评1 公众公开 07-04-25 14:53 |
In order to use the InsertRowsAndFillFormulas macro, the formulas must be entered naming only the cellnames found on the current row. By referencing cells in the current row any insertion or deletion of lines will cause formulas to be updated. In order to refer to cells elsewhere but to name only cell addresses in t... 阅450 转2 评1 公众公开 07-04-25 14:39 |
=IF(ROW()-ROW(NoBlanksRange)+1>ROWS(BlanksRange)- COUNTBLANK(BlanksRange),"",INDIRECT(ADDRESS(SMALL((IF(BlanksRange<>"",ROW(BlanksRange),ROW()+ROWS(BlanksRange))),ROW()-ROW(NoBlanksRange)+1),COLUMN(BlanksRange),4))) 阅181 转1 评1 公众公开 07-04-25 14:32 |
If you need to determine whether a list in Excel has duplicate entries, you can use the following formula. It will display "Duplicates" if the list in Range1 has duplicate entries, or "No Duplicates" if the range does not have any duplicates.Instead of highlighting duplicate entries, you may want ... 阅260 转1 评1 公众公开 07-04-25 13:38 |
Preventing Duplicates On Entry.In Excel97 and later versions, you can use the Data Validation feature to prevent a user from entering a number (or text) in a cell, if that number already exists in a list. This feature is not available in versions of Excel before Excel97. 阅137 转1 评1 公众公开 07-04-25 11:54 |
Deleting Rows.Remember, these macros delete entire rows from your worksheet. They do not delete individual cells.This macro will delete duplicate rows in a range. To use, select a single-column range of cells, comprising the range of rows from which duplicates are to be deleted, e.g., C2:C99. To determine whether ... 阅222 转0 评1 公众公开 07-04-25 11:19 |
总结了一下:姑称《Excel数据透视表使用方法精要12点》1、Excel数据透视表能根据时间列和用户自定时间间隔对数据进行分组统计,如按年、季度、月、日、一周等,即你的数据源表中只需有一个日期字段就足够按照(任意)时间周期进行分组了;。6、通过双击透视表中汇总数据单元格,可以在一个新表中得到该汇总数据的明细数据,对其可以进行格式化... 阅2255 转76 评0 公众公开 07-04-21 11:05 |
说明:当调用 FileLen 函数时,不需要打开文件,如果所指定的文件已经打开,则返回的值是这个文件在打开前的大小。mode 指定打开文件的方式。GetFileType 在给出文件句柄的前提下,判断文件类型 GetFileVersionInfo 从支持版本标记的一个模块里获取文件版本信息 GetFileVersionInfoSize 针对包含了版本资源的一个文件,判断容纳文件版本信... 阅8199 转163 评1 公众公开 07-04-13 10:50 |