ribut9225的专栏

获取文件属性（File类属性)

【代码】WPS JS宏的使用。

Sheets(1).Range("B" & nStartRow).PasteSpecial '粘贴。Sheets(nSheet).UsedRange.Copy '复制到剪贴板。

自定义格式代码中，颜色部分同样需要使用半角中括号，并且这些颜色不是随意写的，在中文系统里，可以使用红色、黑色、黄色，绿色、白色、兰色、青色和洋红，或者使用格式代码。如果分段数是三个，第一个分号前的代码表示对正数的格式，中间部分的代码表示对负数应用的格式，最后部分的，是对零值应用的格式。，就是将数值按五位数显示，如果单元格中的数值超过5位，就按单元格中的内容显示，如果不够5位，则会在前面加上0。当分段数是两个的时候，分号前面的代码表示对正数和零值应用的格式，分号后面的代码表示对负数应用的格式。

VBA

vba clear清除公式、内容、格式的使用一、清除所有属性Sheet9.Cells.Clear清除默认表Y1:Z10这个范围的所有属性Range("Y1:Z10").Clear所指定的范围的单元格中的格式、值、批注等全部被清空。二、清除指定范围的格式Sheet9.Cells.ClearFormats清除默认表Y1:Z10这个范围的单元格的格式Range("Y1:Z10").ClearFormats注意哦，ClearFormats只清除格式，比如字体、字号、加

Sub aaa() Dim rng As Range Dim index As Long index = 0 For Each r In Range("a1:d5") r.Value = index index = index + 1 NextEnd Sub

VBA语句集100句 (Word VBA)http://you613.blog.163.com/blog/static/59514692009116114431678/- - - - - - - - - - - - - - - - - - - -Application对象- - - - - - - - - - - - - - - - - - - -(301) Application.ActivePrinter ‘获取当前打印机(302) Application.Height '当前应用程序文档

用到的属性Range.MergeArea，返回 Range 对象，代表包含指定单元格的合并的范围。如果指定的单元格不在合并的范围内，则该属性返回指定的单元格。只读。Variant类型。Range.Address，以宏语言返回区域引用。String 类型，只读。如：：$A$3:$A$10o_xls.Visible = TRUEo_xls.WindowState = -4140 //最小化o_WorkBook = o_xls.Workbooks.Open(ls_FileName)o

oleobject o_WorkBooklong ll_Row,ll_RowCount,ll_NewRowString ls_SheetNameo_WorkBook = Message.PowerObjectParmll_RowCount = o_WorkBook.Worksheets.CountFOR ll_Row = 1 TO ll_RowCount ls_SheetName = o_WorkBook.WorkSheets(ll_Row).Name ll_Ne...

用VBA得到EXCEL表格中的行数和列数　　每种方法中上面的是 Excel的行数，下面的是 Excel的列数。方法1:　　ActiveSheet.UsedRange.Rows.Count 　　ActiveSheet.UsedRange.Columns.Count 缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列） 数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。方法2:　　ActiveSheet.Rang...

'获取计算公式，使用Formula属性Sub cb_test()Dim ll_SheetCountDim ls_SheetNameDim ls_gsDim ll_Itemll_SheetCount = Worksheets.Countls_gs = ""''Sheet1 (2)'!B3:C3For ll_Item = 2 To ll_SheetCount    ls...

‘列出表格的目录,并添加超级链接Sub cb_test()Dim ll_SheetCountDim ls_SheetNameDim ll_ItemDim ls_SubAddressDim ls_ryxm '人员姓名 B2ll_SheetCount = Worksheets.CountFor ll_Item = 2 To ll_SheetCount ls_Shee...