writeline和write的区别(writeline用法)

第一行和第二列有内容。

lr =范围(& # 34；一& # 34；& cells.rows.count)。结束(xlup)。row+1lc = range(单元格(1，columns.count)，单元格(1，columns.count))。end (xltoleft)。列+12数组填充

[E1:F1]= Array(& # 34；产品名称& # 34；, "数量& # 34；) '填写页眉活动页。范围(& # 34；a3:B3 & # 34；)=数组(& # 34；外部库名& # 34；, "描述& # 34；, "文件位置& # 34；) '填充标题3字符串处理函数

S1 = Len(s)求长度s1 = Trim(s)向两边空 grid s1 = Replace(s，A，b) replace string s1 = LCase(s)小写string s1 = UCase(s)大写string s1 = Left(s，N)取出N个字符S1 = right(从左边N)取出N个字符从右边s1 = Mid(s，I，N)取出N个字符从s的第I个字符s1 = Instr(s，A)取出N个字符找出字符串A的位置s1 = Instr(i

合并单元格区域。合并拆分单元格区域。取消合并清除内容范围。ClearContents清除格式范围。ClearFormats内容格式所有清除范围。清除修改字体大小范围。字体。大小修改颜色范围。Font.Color = RGB(2 5，0，0)修改word颜色范围。室内。Color = RGB(255，255，0)5。参考A1和R1C1之间的转换。

'Turn a1r1c1:函数transfer from at(byval range add as string)as string dimstr as string str = application . convert formula(range add，xla1，xlr1c 1)transfer from at = str end function & # 39；R1C1到A1:函数transfer from at(byval range add as string)as string dimstr as string str = application . convert formula(range add，xlr1c1，xla 1)transfer from at = strendfunctionapplication . reference style = xla 1 application . reference style = xlr1c 16清除密码保护

Sub clearPassWord() Dim wkb作为工作簿中每个wkb的工作簿。HasPassword然后wkb。密码= & # 34；"End next WKB end sub7空表判断

如果应用。WorksheetFunction.CountA(单元格)& lt& gt0然后MsgBox & # 34活动工作表包含数据，请选择空工作表！"退出结束if8定时运行程序

sub on time()dNextTime = DateAdd(& # 34；s & # 34，5，现在)& # 39；5秒申请. ontime dNextTime，& # 34；proc & # 34end sub proc()Debug。打印1314End Sub9读取文件

const for reading = 1 const for writing = 2 const for appending = 8 sub read text file example()Dim FSO As Object Set FSO = CreateObject(& # 34；脚本编写。FileSystemObject & # 34)Dim source file As Object Dim my file path As String Dim my file text As String my file path = & # 34；c:\ my path \ to \ my file . txt & # 34；GoalKicker.com-VBA专业人员须知96 Set sourceFile = fso。OpenTextFile(myFilePath，for reading)my file text = source file。ReadAll & # 39myFileText现在包含文本文件sourceFile的内容。关闭& # 39；关闭文件& # 39；做任何你可能需要做的文字& # 39；你也可以像字符串Set sourceFile = fso那样一行一行地读它。OpenTextFile(myFilePath，ForReading)而不是sourceFile。阿滕多流& # 39；虽然我们还没有读完文件line = sourceFile。ReadLine & # 39用绳子做点什么…Wend源文件。创建并写入一个文本文件

sub createtextfile example()Dim FSO As Object Set FSO = CreateObject(& # 34；脚本编写。FileSystemObject & # 34)Dim target file As Object Dim my file path As String Dim my file text As String my file path = & # 34；c:\ my path \ to \ my file . txt & # 34；设置targetFile = fso。CreateTextFile(myFilePath，True)& # 39；这将覆盖任何现有文件目标文件。写& # 34；这是一些新的文本& # 34；目标文件。写& # 34；这段文字会出现在第一段文字之后。"目标文件。WriteLine & # 34这段文本包含一个换行符，以确保每次写入都占一行。"目标文件。关闭& # 39；关闭fileEnd Sub11设置条件格式

将子条件格式()dimrng1设置为range set rn G1 = sheet 1 . range(& # 34；C2:E6 & # 34；) '添加条件格式，format with RNG 1 . format conditions . add(type:= XL cell value，_ operator:= xlgreaterecequal，Formula 1: = 90) with。borders . line style = XL continuous . weight = XL thin . colorindex = 6以with结尾。font.bold = true第四章Range对象105的操作技巧。colorindex = 3 end with end with & # 39；添加条件格式，格式用RNG 1 . format conditions . add(type:= XL cell value，_ operator: = xlless，formula1: = 60) with。font . bold = true . colorindex = 10 end with end with sub 12清除条件格式。

清除Sub conditional format()cells . format conditions . delete end Sub 13排序工作表。

Sub-worksheet () dim I as long，j as long for I = 1 to worksheets . count for j = 1 to worksheets . count-1 ifu case $(worksheets(j)。name) >: Ucase $(工作表(j+1)。名称)，然后是工作表(j)。move after:= worksheets(j+1)end if next j next sub B14重命名工作表。

Sub rename工作表()dimstr1as string do err。clear str 1 = application . inputbox(_ prompt:= & # 34；请为工作表输入一个新名称(输入空 white退出程序):& # 34；，_ Title:= & # 34；重命名工作表& # 34；，键入:=2)如果str1 = & # 34"或者str1 = & # 34假& # 34；然后在出错时退出Do，继续下一个活动工作表。Name = str1 If Err。号码& lt& gt0，则MsgBox出错。编号& & # 34；"&呃。描述错误。当1 = 1 end sub15工作表标签颜色设置和恢复时清除end if循环

为工作表r = rnd()* 255g = rnd()* 255 B = rnd()* 255 sh . tab . color = RGB(r，g，Nextend sub为工作表sht . tab . colorindex = xlcolorindexone NextEnd Sub 16中的每个sht恢复工作表标签color()，判断工作簿是否打开。

私有函数WorkbookIsOpen(WorkBookName为String)为Boolean & # 39如果工作簿是打开的，它将返回true dimwb作为出错时的工作簿继续下一组WB = workbooks(工作簿名称)如果err = 0，则工作簿是打开的= true否则工作簿是打开的= false end函数17工作簿备份:

备份工作簿()dimwb为工作簿，文件名为字符串，I为整数，ok为布尔集WB =活动工作簿& # 39；如果是wb，则获取对当前工作簿的引用。Path = & # 34"然后& # 39；如果您尚未保存application . dialogs(xldialogsaveas)。秀& # 39；如果FileName = wb，则“另存为”对话框结束。全名& # 39；获取工作簿的完整路径名i = InStrRev(文件名，& # 34；。")如果我& gt0那么FileName = Left(FileName，I-1)& # 39；生成扩展名& # 34；。bak & # 34文件名=文件名& & # 34；。bak & # 34OK =在wb应用程序出错时返回错误1。StatusBar = & # 34保存工作簿…"。保存& # 39；保存工作簿应用程序。StatusBar = & # 34备份工作簿…"。将副本另存为文件名& # 39；备份工作簿ok = true end with 1:setwb = nothing application . status bar = false & # 39；如果不正常，恢复状态栏，然后& # 39；如果备份不成功，MsgBox & # 34备份工作簿操作失败！"，vbstimulation，thisworkbook.name end if end sub18工作簿之间的数据引用:

Sub获取其他工作簿数据()Dim wb作为工作簿& # 39；打开工作簿集wb = Workbooks。打开(& # 34；F:\工作簿之间的数据引用\ a \ a.xlsx & # 34，True，True)与此工作簿。工作表(& # 34；第一页& # 34；) '从工作簿中读取数据& # 39；1、参考。范围(& # 34；B2 & # 34；)= wb。工作表(& # 34；第一页& # 34；).范围(& # 34；B2 & # 34；)+ _ wb。工作表(& # 34；第一页& # 34；).范围(& # 34；B3 & # 34；)+ _ wb。工作表(& # 34；第一页& # 34；).范围(& # 34；B4 & # 34) '2、利用公式和绝对路径。范围(& # 34；B3 & # 34；).公式= & # 34；= SUM(& # 39；F:\工作簿之间的数据引用\ b \[b . xlsx]sheet 1 & # 39；！$ C $ 2:$ C $ 4)& # 34；'3、将模式2的使用定义为函数。范围(& # 34；B4 & # 34).formula = GetClosedData(& # 34；F:\工作簿之间的数据引用\ b & # 34, "b.xlsx & # 34, "第一页& # 34；, "D2:D4 & # 34；)以wb结尾。关闭假& # 39；打开工作簿，不保存任何更改设置wb = Nothing & # 39释放内存结束子函数getclosedata (byval路径为字符串，byval工作簿名称为字符串，_ byval工作表名称为字符串，byval范围名称为字符串)& # 39；Path是工作簿路径& # 39；参数WorkbookName是工作簿名称& # 39；参数SheetName是工作表名称& # 39；参数RangeName是单元格区域Dim r r = & # 34= sum(& # 39；"&路径& & # 34；\["&工作簿名称& & # 34；]"r = r & SheetName & & # 34'！"& RangeName & & # 34)"Getclosedata = rendfunction 19锁定和隐藏公式

如果active sheet . protect contents = true thenmsgbox & # 34；工作表受保护！"如果工作表(& # 34；第一页& # 34；).范围(& # 34；A1 & # 34)，CurrentRegion.Select选择。锁定=错误选择。FormulaHidden =错误选择。special cells(xlcelltype formulas)。选择选择。锁定=真实选择。FormulaHidden = True工作表(& # 34；第一页& # 34；).保护绘图对象:=True，内容:=True，场景:=True工作表(& # 34；第一页& # 34；).enable selection = xlnorestrictionsend sub sub unprotect()活动工作表。取消工作表保护(& # 34；第一页& # 34；).范围(& # 34；A1 & # 34).current region . select selection . locked = false selection . formula hidden = false end sub 20现在是整点。

'打开sub start time()应用程序。on time early time:= time serial((hour(now)+1)mod 24，0，0)，_ procedure:= & # 34；starttime & # 34MsgBox & # 34时间就是现在:& # 34；& Hour(现在)& & # 34；点！"结束Sub & # 39出错时的小时结束子结束时间()恢复下一个应用程序。按时提前时间:=时间序列((hour (now)+1) mod 24，0，0)，_ procedure:= & # 34；starttime & # 34，schedule:= false send Subref:

吴永培，成利军，征服Excel VBA: 239个实用技巧让你的工作效率翻倍

-结束-