推荐阅读
word 2010 公式功能的设计、使用
当我们需要在word的文档中插入一个二次公式和创建一个自定义公式。我们可以使用以下方法设计相应的公式。 设计方法 1、单击”插入“ — “公式”，下拉列表中列出了各种常用公式，单击“二次公式”即可加入Word文档。 2、若要创建自定义公式，可单击“插入”—“公式”—“插入新公式”。 3、显示“在此处键入公式”控件。
如何在WPS Text 2013中实现文本添加删除线的效果
给特殊单词添加删除线。记着在做试卷时多使用一点。不要误解。所谓的删除线不仅仅是标记单词，而是根据个人理解的不同而不同。如果我希望文本有删除线效果，我应该怎么做？作为一个新手朋友只能表达困惑。事实上，在WPS文本中有两种方法可以达到这种效果，可以说是相似的。下面是如何操作的详细介绍。不懂的朋友可以借此机会学习。 (1)输入文本后，选择文本，并右键单击字体。 检查字体标签中的删除线，然后确认。 (3)除了这种方法，我们还可以使用另一种方法，并单击开始菜单下的删除线按钮。 最后，这两种方法达到了相同的效果，所以你可以放心使用。
wps文字如何设置撤销步数
如果我们觉得wps文字默认的撤销步数太少，那么，我们可以对其进行修改设置，下面就让小编告诉你wps文字如何设置撤销步数。 wps文字设置撤销步数的方法 1.打开WPS文档，我们可以在工具栏看到撤消和恢复的选项。 2.撤消或者恢复超出次数限制之后就会发现撤消键以及恢复键变暗无法再进行操作。 3.这个时候我们可以点击工具栏的“WPS文字”然后依次进入“工具”→“选项” 4.进入选项后点击工具栏的“编辑”，然后找到“撤销/恢复操作步数”我们可以对步数进行修改，修完完毕后点击确认即可。需要注意的是需要重启WPS程序才能生效。
Excel表格怎么设置半圆饼图数据标签
Excel表格制作，有时候为了我们更直观的看到数据的比较，一般会用饼图形式来形成对比，但是饼图一般都是一整个圆，我们怎样才能制作半圆饼图呢?以下是小编为您带来的关于Excel设置半圆饼图数据标签，希望对您有所帮助。 Excel设置半圆饼图数据标签 1、选中A1：B5区域，点击“插入”选项卡的“图表”选项组，选择“插入饼图或圆环圆”，选中二维饼图。 2、单击两下鼠标左键，再单击右键，弹出快捷菜单，点击“填充”，选中白色。 3、单击鼠标右键，在弹出的快捷菜单中，选择“设置数据点格式”。 4、弹出“设置数据点格式”窗格，将第一扇区起始角度更改为270度。 5、右键单击饼图，在弹出的快捷菜单中选择“添加数据标签”。 OK啦，可以看到半圆饼图上有数据标签了。
最新发布
word怎么利用邮件合并填写表格
在办公过程中可能遇到大量的表格或者类似的文件需要填写，这时就可以利用WORD的信函工具来批量填写。那么下面就由小编为大家分享下word利用邮件合并填写表格的技巧，希望能帮助您。 word利用邮件合并填写表格的步骤如下： 步骤一：打开WORD表格，观察需要录入的数据。 步骤二：然后打开Excel表格，把需要填写的内容录入进去(表格的表头，对应着WORD表格里需要填写的部分，例如：WORD里有姓名，EXCEL表头就填姓名)，然后保存。 步骤三：打开WORD，工具-自定义-工具栏-选择邮件合并。 步骤四：在邮件工具栏里选择打开数据源。 步骤五：找到刚保存的Excel表格，打开。 步骤六：然后选择Sheet1$，确定。 步骤七：在WORD表格需要录入的地方选择插入域(邮件合并工具栏)。 步骤八：在WORD表格需要录入的地方插入相应的域(比如姓名处插入姓名域)
word中怎么做流程图
我们在制作word文档的时候，往往需要添加流程图，将一个业务流程在word中展示，那么下面就由小编给大家分享下word中做流程图的技巧，希望能帮助到您。 的步骤如下： 步骤一：打开word文档，然后选择插入-形状，然后就可以选择流程图。 步骤二：在word中画出流程图的图形，然后调整其位置。 步骤三：接下来在插入形状中选择需要的线条。 步骤四：使用线条连接好图形形成基本流程图。 步骤五：右键单击形状点击添加文字。 步骤六：为每个图形添加好文字，word流程图就画好了。看了“word中怎么做流程图”此文的人还看了：.1.如何用Word制作流程图
word中调大字体的两种方法
在Word使用中，有时候需要放大字体，但是Word本身提供的字体最大就是初号字体，无法满足需求怎么办?那么下面就由小编给大家分享下word中调大字体的技巧，希望能帮助到您。 word中调大字体方法一 步骤一：选择要放大或缩小的内容，右键字体。word中调大字体方法图1 步骤二：全选字体号word中调大字体方法图2 步骤三：输入自己想要的字体号word中调大字体方法图3 word中调大字体方法二 步骤一：光标选中需要进行调整的字体，在上方字体栏，往设置字体尺寸的选项框中填入自己想要设置的尺寸大小，然后回车确定。word中调大字体方法图4
EXCEL VBA 跨表合并多个文件
‘选择一个目录，将目录中的所有EXCEL文件导入当前工作表‘这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式Sub 批量()Dim FD, str$, arrSet FD = Application.FileDialog(msoFileDialogFolderPicker)If FD.Show = -1 Then t = FD.SelectedItems(1) Else Exit Sub ‘如果没选择文件夹则退出Application.ScreenUpdating = FalseCells.NumberFormatLocal = "@"str = Dir(t & "\*.xl*") ‘查找格式为EXCEL的文件While Len(str) > 0 ‘文件名不为空时Workbooks.Open (t & IIf(Right(t, 1) = "", "", "") & str) ‘打开工作簿With ActiveWorkbook.ActiveSheet.Range(.Cells(2, "l"), .Cells(.[a65536].End(3).Row, "l")) = "’" & Left(str, Len(str) – IIf(Right(str, 1) = "x", 5, 4))arr = .UsedRangeWorkbooks(str).Close False ‘关闭工作薄Kill (t & IIf(Right(t, 1) = "", "", "") & str) ’删除工作薄（如果不删除，省去这一步）End WithWith ActiveSheetrw = .[a65536].End(3).Row + 1.Cells(rw, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr ‘将数据写入当前工作表End Withstr = Dir() ‘查找下一个文件WendIf [a1] = "" Then Rows(1).Delete ‘如果A1为空，删除第一行Application.ScreenUpdating = TrueEnd Sub
利用VBA实现Excel表格计算
利用Excel制作电子表格时，有时需要用到计算填充功能，比如某列每种元件的价格合计，就是由E列元件单价乘以D列元件数量得来的。通过分析，发现利用Excel提供的VBA(VisualBasicforApplication)功能，写几行Basic代码即可方便地达到自动填充F列数据的目的，且计算结果为纯数据值，可以自由进行处理。具体实现步骤如下： 1. 建立Excel工作表，分别填入其它相应的数据，包括E列元件的单价和D列元件数量。 2. 点击“视图”→“工具栏”→“VisualBasic”→VB控件工具箱。 3. 在整个工作表的底部或适当的位置放置控制按钮“CommandButton1”。 4. 双击控制按钮，加入语句：PrivateSubCommandButton1_Click()DimiAsInteger’自动填充的行号DimrandAsString’工作表D列的范围参数DimraneAsString’工作表E列的范围参数DimranfAsString’工作表F列的范围参数 Fori=2To12’12为本例中给出的填充结果行号，可由使用者自己设定’该循环主要完成工作表F列计算表格的自动填充rand=″D″＋CStr(i)rane=″E″＋CStr(i)ranf=″F″＋CStr(i)Worksheets(″Sheet1″).Range(ranf)=Worksheets(″Sheet1″).Range(rand)＊Worksheets(″Sheet1″).Range(rane)NextiEndSub 5. 按执行键，就可达到设计要求的计算表格项的自动填充，且填充结果为纯数据。 Excel提供了VBA功能，使我们可以根据需要对其进行适当的二次开发，仔细研究其用法，会使制作电子表格的工作更加轻松。
excel中利用VBA将指定的单元格定位于屏幕*
如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕*，下面是VBA代码：Sub CenterOnCell(OnCell As Range)Dim VisRows As IntegerDim VisCols As Integer‘关闭屏幕更新Application.ScreenUpdating = False‘激活区域所在的工作簿和工作表OnCell.Parent.Parent.ActivateOnCell.Parent.Activate‘获取活动窗口的可视行数和列数With ActiveWindow.VisibleRangeVisRows = .Rows.CountVisCols = .Columns.CountEnd With‘ 确定参考单元格并用GOTO方法将该单元格定位到屏幕左上角。‘ 该参考单元格用给定的单元格的行数和列数分别减去可视行数和可视列数除以2来确定。‘ 用MAX函数确保参考单元格的最小行数和列数为1。With Application.Goto reference:=OnCell.Parent.Cells( _.WorksheetFunction.Max(1, OnCell.Row + _(OnCell.Rows.Count / 2) – (VisRows / 2)), _.WorksheetFunction.Max(1, OnCell.Column + _(OnCell.Columns.Count / 2) – _.WorksheetFunction.RoundDown((VisCols / 2), 0))), _scroll:=TrueEnd With‘选择给定的单元格OnCell.Select‘启用屏幕更新Application.ScreenUpdating = TrueEnd Sub假如给定的区域为M50：N51，可以在VBA中用下面的方法调用上述代码：CenterOnCell Range("m50:n51")
EXCEL 公式 多列转成一行图解教程
EXCEL 公式 2列多行转成1行=OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2))EXCEL 公式 多列转成一行图解教程3列多行转成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0)-1,MOD(COLUMN(C1),3))以此类推，4列以上的呢？大家可以自己试试
EXCEL如何使用VBA一次罗列表中三省的员工姓名？
请罗列“四川省”、“湖南省”、“湖北省”三个省份员工的资料。VBA代码如下：Sub test()‘定义变量Dim rng As Range, RngTemp As Range, firstAddress As StringDim i As Byte, findCell As Range, sh As Worksheet, shtname As String‘将查找的目标设置为C2单元格到C列最后一个非空单元格赋予变量为rngSet rng = Range([C2], Cells(Rows.Count, "C").End(xlUp))‘循环赋予查找数组的每一个元素For i = 0 To UBound(Array("四川省", "湖南省", "湖北省"))‘开始查找数据，按值精确查找，不区分大小写Set RngTemp = rng.Find(What:=Array("四川省", "湖南省", "湖北省")(i), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)‘ 如果找到目标，则赋予该目标的单元格地址给firstAddressIf Not RngTemp Is Nothing ThenfirstAddress = RngTemp.AddressDo‘变量findCell没有初始化，则需要初始化，否则合并查找到的数值If findCell Is Nothing ThenSet findCell = RngTempElseSet findCell = Union(findCell, RngTemp)End If‘查找下一个Set RngTemp = rng.FindNext(RngTemp)‘循环到不为第一个找到的目标地址为止Loop While RngTemp.Address <> firstAddressEnd IfNext i‘如果查找的内容不为空，则选择查找到内容所在行，否则显示提醒If Not findCell Is Nothing ThenfindCell.EntireRow.SelectElseMsgBox "没有找到符合条件的数据!"Exit SubEnd If‘防止错误On Error Resume Next‘把当前工作表的名称赋予shtnameshtname = ActiveSheet.NameSet sht = Sheets("查询结果")‘如果不存在查询结果表，则添加一个“查询结果”工作表If Err.Number <> 0 ThenSheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "查询结果"ElseSheets(Sheets.Count).Cells.ClearEnd IfSheets(shtname).SelectSelection.Copy Sheets(Sheets.Count).[A1]End Sub
如何利用VBA生成一列不重复的随机整数
如果我们要用VBA生成一列不重复的随机整数，可以用下面的VBA代码。本例可以在A1:A100中产生1-100的不重复随机整数。Sub RndNumberNoRepeat()Dim TempArr1(99) As Integer, TempArr2(0 To 99, 1 To 1) As IntegerDim RndNumber As Integer, i As IntegerRandomize (Timer) ‘初始化随机数生成器For i = 0 To 99 ‘产生包含1－100的不重复的随机数列TempArr1(i) = iNext iFor i = 99 To 0 Step -1RndNumber = Int(i * Rnd)TempArr2(99 – i, 1) = TempArr1(RndNumber) + 1TempArr1(RndNumber) = TempArr1(i)Next i‘在A1:A100中输入这些数字Range("a1:a100").Value = TempArr2End Sub
利用VBA批量添加邮件链接
如果Excel表格中的某个区域有许多文本格式的邮件地址需要添加链接，用手工的方式非常繁琐。可以使用下面的VBA代码来快速添加链接，假设该区域为F2:F18。Sub ConvertToEmail()Dim convertRng As RangeSet convertRng = Range("F2:F18")Dim rng As RangeFor Each rng In convertRngIf rng.Value <> "" ThenActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.ValueEnd IfNext rngEnd Sub