当前位置:主页 > Office办公

最新发布

word中怎么制作作文格子纸
word中怎么制作作文格子纸

在制作语文试卷时,作文试题要设置成格子稿纸格式。但很多老师不知道如何设置。那么下面就由小编给大家分享下的技巧,希望能帮助到您。  word中制作作文格子纸的步骤如下:  步骤一:首先打开WPS文字处理系统。  步骤二:在菜单栏里找到页面布局,点击稿纸设置。  步骤三:在浮动工具栏“稿纸设置”里进行设置。在稿纸设置前打勾,在规格选择20×20,在网格栏选择网格。根据需要选择。  步骤四:点网格右边下拉箭头,里头有其它样式,如果选择“行线”稿式,则效果如下:  步骤五:如果选择“边框”稿式,则效果如下:看了“word中怎么制作作文格子纸”此文的人还看了:1.Word2007中怎么制作作文稿纸2.办公软件word中如何制作横格作文纸

125 次浏览
word怎么设置组织结构图
word怎么设置组织结构图

组织结构图的主要作用是通过一张简单的图纸非常直观的反映出一个组织的基本架构,PowerPoint,visio,word等软件都可以用来绘制组织结构图,那么下面就由小编给大家分享下word设置组织结构图的技巧,希望能帮助到您。  word设置组织结构图的步骤如下:  步骤一:首先在电脑上打开word 2013办公软件,点击上方菜单栏里的【插入】功能菜单,在下方功能里找到形状,点击弹出下拉菜单,可以选择形状列表里的圆角矩形作为组织结构图的框图,如下图所示。  步骤二:点击形状里的圆角矩形,在word输入区域内居中位置绘制一个圆角矩形,然后选定该图形,点击鼠标右键弹出下拉菜单,选择下拉菜单里的【添加文字】,在插入的形状图形里输入文字,如下图所示。  步骤三:依次方法在word输入区域内添加组织结构图里需要的其它组织部门,并在相应的图形内添加文字注释,如下图所示。  步骤四:组织结构图的基本框图绘制完毕之后,接下来就是在该图形里添加连接线了,连接线的添加方法于插入圆角矩形类似,点击上方菜单栏里的【插入】功能选项,在形状列表里选择直线连接,如下图所示。  步骤五:点击形状列表里的直线功能,可以在每个框图之间添加上连接线作为标注,如下图所示。  步骤六:依次方法在组织结构图的基本框图里绘制所有的连接线,连接线绘制完成后,一张组织结构图就绘制完成了,如下图所示。看了“word怎么设置组织结构图”此文的人还看了:1.word如何做组织结构图

117 次浏览
excel利用VBA批量创建指定名称的文件夹
excel利用VBA批量创建指定名称的文件夹

有时在工作中需要批量创建指定名称的文件夹,如果数量较多,例如要创建几十、甚至几百个文件夹,用手动的方法很难完成。批量创建文件夹的工具有很多,如果一时手头没有这类工具,可以在Excel中用VBA来完成,方法如下:1.新建一个工作簿,在A列中输入要创建的文件夹名称,在B1单元格中输入文件夹所在的有效路径,如“d:\新建文件夹”。 2.按Alt+F11,打开VBA编辑器。在右侧的代码窗口中输入下列代码:Sub BatchCreatFolders()Dim rCel As RangeFor Each rCel In ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns(1).CellsOn Error Resume Next‘B1单元格为新建文件夹所在的路径MkDir Range("B1").Text & "\" & rCel.TextNextEnd Sub3.运行上述代码,即可批量创建指定名称的文件夹。

146 次浏览
excel改变鼠标指针形状的VBA代码
excel改变鼠标指针形状的VBA代码

可以通过设置Application.Cursor属性改变鼠标指针形状。如在XP中下面的语句将鼠标指针的形状改变为沙漏状,这种形状的鼠标指针表示系统比较繁忙。Application.Cursor = xlWait改为I型指针:改变鼠标指针形状后,Excel不会自动恢复,用下面的语句恢复默认指针形状:Application.Cursor = xlDefaultApplication.Cursor = xlIBeam

343 次浏览
excel打开和关闭光驱的宏代码
excel打开和关闭光驱的宏代码

用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是:1.按Alt+F11打开VBA编辑器。2.在代码窗口中输入下列代码:Private Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ByVal hwndCallback As Long)Sub OpenDefaultCDDVD()‘打开光驱mciSendStringA "Set CDAudio Door Open", 0&, 0, 0End SubSub CloseDefaultCDDVD()‘关闭光驱mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0End Sub

113 次浏览
excel利用VBA判断工作表是否存在
excel利用VBA判断工作表是否存在

下面的VBA代码可以判断当前Excel工作簿中的某个工作表是否存在,如果指定的工作表不存在,则以指定的工作表名新建一个工作表,如果指定的工作表已存在,则给出一个提示,并激活该工作表。下例中指定的工作表标签为“一月”,可根据实际进行修改。Sub IsSheetExist()Dim ws As WorksheetDim sName As StringsName = "一月" ‘指定工作表On Error Resume NextSet ws = Sheets(sName)If ws Is Nothing Then ‘指定的工作表不存在Sheets.Add.Name = sNameElse ‘指定的工作表已存在MsgBox "“" & sName & "”工作表已存在。"ws.ActivateEnd IfEnd Sub

199 次浏览
excel利用VBA互换两个单元格或区域中的数据
excel利用VBA互换两个单元格或区域中的数据

有时需要在Excel工作表中互换两个区域中的数据,如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换两列时可以直接单击工作表上方的列标题选择整列,然后执行代码互换数据。在工作表中选择两个形状相同的、无公共部分的区域,然后执行下面的代码,即可互换两区域中的数据。Sub TwoAreasSwap()Dim TheArea1, TheArea2 As VariantIf Selection.Areas.Count <> 2 ThenMsgBox "请选择两个区域!"Exit SubElseIf Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Or _Selection.Areas(1).Rows.Count <> Selection.Areas(2).Rows.Count ThenMsgBox "请选择两个形状相同的区域!"Exit SubElseTheArea1 = Selection.Areas(1).CellsTheArea2 = Selection.Areas(2).CellsSelection.Areas(1).Cells = TheArea2Selection.Areas(2).Cells = TheArea1End IfEnd Sub

133 次浏览
exce利用自定义函数去掉字符串中的数字
exce利用自定义函数去掉字符串中的数字

如果要去掉某个字符串中的所有数字,例如将一个字符串“Excel123”去掉数字后变为“Excel”,可以用自定义函数来实现。按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入自定义函数:Function RemoveNums(theString As String)Dim eachChar, Temp As StringDim i As IntegerTemp = ""For i = 1 To Len(theString)eachChar = Mid(theString, i, 1)If Asc(eachChar) < 48 Or Asc(eachChar) > 57 ThenTemp = Temp & eachCharEnd IfNextRemoveNums = TempEnd Function假如包含数字的字符串在A1单元格,在B1单元格中输入=RemoveNums(A1)即可返回一个去掉数字后的字符串,如果字符串全部由数字组成,则返回空字符串。

116 次浏览
利用excel自定义函数显示单元格内的公式
利用excel自定义函数显示单元格内的公式

在Excel中选择某个单元格后,在编辑栏中会显示单元格内的公式,但编辑栏内不可能同时显示多个单元格中的公式。反复按快捷键Ctrl+`(“`”位于数字键“1”的左侧),可以切换显示工作表中的所有公式,但无法同时显示公式的计算结果和公式本身。复制某个单元格内的公式,然后将其粘贴到其他单元格中,并在“=”号前添加一个英文单引号,可以以文本形式显示该公式,但该方法所显示的公式不能随公式的改变而改变,另外批量操作也稍显繁琐。而用下面的一个简单自定义函数,不仅可以在单元格中显示其他单元格内的公式,而且还能随公式的改变而自动改变,这样就可以快速同时显示公式的计算结果和公式了。步骤如下:1.按Alt+F11,打开VBA编辑器。2.单击菜单“插入→模块”,在代码窗口中粘贴代码:Function ShowFormula(cell As Range)ShowFormula = cell.FormulaEnd Function3.返回Excel工作表界面。假如包含公式的单元格在B2中,在C2输入公式:=ShowFormula(B2)即可显示B2单元格中的公式,然后用填充的方法显示其他单元格内的公式。

117 次浏览
利用excel自定义函数去掉字符串中的重复字符
利用excel自定义函数去掉字符串中的重复字符

如果要在Excel中将单元格内字符串中的重复字符去掉,重复的字符仅保留一个,如将字符串“1232345667”变成“1234567”,可以用自定义函数实现。 步骤如下:1.按Alt+F11,打开VBA编辑器。2.单击菜单“插入→模块”,在代码窗口中粘贴代码:Function RemoveDupChar(theString As String) As StringDim i As IntegerFor i = 1 To Len(theString)If InStr(RemoveDupChar, Mid(theString, i, 1)) = 0 And _Mid(theString, i, 1) <> " " Then _RemoveDupChar = RemoveDupChar & Mid(theString, i, 1)NextEnd Function3.返回Excel工作表界面。假如字符串在A1单元中,在B1单元格中输入公式:=RemoveDupChar(A1)该自定义函数还可以将多个单元格中的字符串合并后去重复,如A6单元格为“12345”,A7单元格为“23456”,在B6单元格输入公式:

179 次浏览
共计75934条记录 上一页 1.. 621 622 623 624 625 626 627 ..7594 下一页