精华内容
下载资源
问答
  • 要用VBA实现。 打开excel,按Alt+F11,双击左边一个工作表,例如Sheel1,将下面代码粘贴到右边框中,在关掉弹出这个右边框,再点击右上角X号,那么这个工作表就能实权现你要求。 Private Sub Worksheet...

    方法

    要用VBA实现。

    打开excel,按Alt+F11,双击左边的一个工作表,例如Sheel1,将下面代码粘贴到右边框中,在关掉弹出的这个右边的框,再点击右上角的X号,那么这个工作表就能实权现你的要求。

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    Rows(Target.Row).Interior.ColorIndex = 8
    End Sub

     

    图示

     

     

    展开全文
  • 说明 常用快捷键 alt+F11 打开VBA编辑窗口 F9 刷新 F2 进入编辑模式 ...其中row()表示单元格行号,cell(“row”)表示选中单元格行号,也就是说所有和选中单元格在同一行的单元格都会得到True,其他都会为Fa...

    说明

    常用快捷键

    alt+F11 打开VBA编辑窗口
    F9 刷新
    F2 进入编辑模式
    alt+V+U 全屏(esc退出全屏)

    怕看错行?设置当前行高亮!

    第一步 设置条件格式
    开始—条件格式—新建规则—使用公式确定要设置格式的单元格,输入公式:

    =(row()=cell(“row”))

    其中row()表示单元格的行号,cell(“row”)表示选中单元格的行号,也就是说所有和选中单元格在同一行的单元格都会得到True,其他都会为False,为True的单元格就会被执行条件格式所设置的格式,这里就可以设置一个护眼的颜色
    第二步 设置自动刷新
    Excel刷新会有延迟,这样就不能实时显示当前行高亮了。启用Excel的VBA编程权限(选项—信任中心—信任中心设置—启用所有宏),打开VBA编辑窗口(alt+F11),在代码块中输入Caluculate,它的效果就是F9刷新。【1】保存的时候可能会弹出“请注意!您的文档部分内容可能…”,这时候就要打开选项—信任中心—信任中心设置—隐私选项—取消勾选“保存时从文件属性中删除个人信息”
    另外保存的时候要另存为“Excel启用宏的工作表”,否则所作的宏设置在下次打开后会失效

    参考文献

    【1】Excel中设置条件格式高亮显示行和列,老板不担心我看错数据了
    【2】Excel弹出 请注意!您的文档部分内容可能……

    展开全文
  • 一:提高效率①如何快速选中文字1、鼠标放在左侧页边距处:单击可以选中鼠标点击位置整行文字;...按住Alt键再点选文字,可以不受行的限制选中矩形区域内文字。(如藏头诗)3、按住Shift键再点选...

    一:提高效率

    ①如何快速选中文字

    1、鼠标放在左侧页边距处:单击可以选中鼠标点击位置的整行文字;双击可以选中整段文字;三击可以选中整篇文档中的文字(不过全选一般都用快捷键Ctrl+A)。

    73e42d0ca801b022b28af940f4f69aed.png

    2、点文字时,按住Ctrl键,可以选中不连续的多个文字。(比如一段里面需要选中不连续的多个文字加粗或变换颜色时使用);按住Alt键再点选文字,可以不受行的限制选中矩形区域内的文字。(如藏头诗)

    0ebc91cbef3f9e30ed42a8ea62dd0a02.png

    3、按住Shift键再点选另外一个位置,可以选中开始光标位置到后来光标位置间的所有文字。(比如需要改变其中一段内容的字体、颜色时使用)

    a54fc06f73c2d0de2487c5870add2cdb.png

    Shift这个功能其实鼠标左键拖住也能实现,不过很多高手用Word根本不用鼠标,所以Shift还是很常用的。

    ②更方便地使用格式刷

    在office操作中用快捷键,很好记,我们都知道Ctrl+C是复制,Ctrl+V是粘贴。那么格式刷其实就是复制格式,快捷键在普通复制粘贴的基础上加上Shift,也就是Ctrl+Shift+C=复制格式,Ctrl+Shift+V=粘贴格式。(PPT里也是这个快捷键)

    b0d0d0e7ec851a1d1495a3d3f876fabe.png

    如果是习惯鼠标流的话,还有个格式刷的技巧,双击格式刷可以让格式刷被鼠标记住,可以连续对多段文字内容进行设置格式,不需要格式刷的时候再按ESC键或者鼠标再点击一下格式刷,就可以解除格式刷的记忆。

    ③如何快速调整文字大小

    鼠标流可以点击顶部开始菜单栏里面字号右边的那两个A进行放大缩小;键盘流点击快捷键Ctrl+【和Ctrl+】来进行放大缩小。(就是键盘P右边那两个中括号)(PPT里这个方法也适用)

    8f49c7b25f7632e62c03a671cf918cc9.png

    ④表格无需EXCEL协助

    有时候我们在Word里面需要用到SUM、COUNT、AVERAGE等Excel函数进行计算,菜鸟只会打开Excel列好表之后再复制粘贴,其实用Word完全可以搞定。

    ➤方法:

    插入表格,输入好原始数据后,在菜单栏表格工具——布局——数据——公式,然后设置好公式和编号格式,点击确定就好啦。

    0db5bd426a0a6f993f0f3e9c1376adb0.png

    需要注意的是,如果原始数据修改了,公式的数字是不会自动刷新的,手动刷新的方法也很简单,选中公式的数字,右键——更新域,就刷新成功啦!

    ⑤让表格每页都自动生成表头

    有时候我们会尴尬的发现,Word里面要插入的表格有点长,正好赶上表格出现的位置在某一页的下半部分,结果延长到了下一页,但是下一页没有表头又会显得不专业,设置的方法很简单。

    ➤方法:

    选中表头——表格工具——布局——数据里面的重复标题行点一下,就可以啦,如果想要取消,再选中第一个表头然后再点一下重复标题行就好了。

    ede5dc27b0d05d046251773601ddc32e.png

    ⑥表格最后多出一行怎么办?

    大家曾经应该都遇到过这样的事情,发现表格最后一行是空行,但是怎么删也删不掉,甚至多出了一页,每次打印的时候都有一种浪费纸张的罪恶感,同时心里怨恨Word为什么这么难使。

    方法:

    在顶部开始菜单栏里面找到段落设置的那里,然后在行距那里设置为固定值、1磅。

    4b75ea185863f9a9c9268440e62f6667.png
    49383348e87aee3e4137b28795c82a9e.png

    ⑦从网页复制过来的文字格式错误怎么办

    有时候我们在做Word时候需要无耻的Copy网上的内容过来,结果发现复制过来有大量的空行,如果手工删除非常耗费时间,这时候我们就需要取巧,用替换功能批量删除。

    ➤方法:

    Ctrl+H可以打开查找对话框,在查找内容那里输入^l^l(^是英文输入法状态下Shift+6,l是hijklmn里面的l),然后在替换为那里输入^p,然后点击全部替换。

    有了前面的技巧,你的效率已经大大提升了,但是仅仅快还不够,你给出的文档一定是要规范的,一份Word是否规范,你发给的对象会很轻易的发现哦。我们来学习第二部分,规范格式。二:格式规范

    ❶自动编号要用就用好

    自动编号是Word经常自作聪明帮大家做的事情,相信绝大多数人都不太喜欢,因为不够灵活,所以宁可用手工编号也不愿意用自动编号。

    但是使用手工编号的话,一旦遇到文档内容顺序调整,就会带来大量的工作了、更多的校对时间。只要出现一次这种情况,你所浪费的时间就足以让你熟练自动编号的工作原理和操作技巧!

    01e1e276fc2e00e295073b117547989d.png
    accf6063af979b4f8c9a3c8445fc463f.png

    ❷标尺的作用

    大家可能没用过标尺,但是一定被标尺坑过,为了对齐使劲儿按空格的事情还是发生过的,直到某一天知道了标尺原来可以这么玩:

    ➤调出标尺:

    在视图——显示里面把标尺打勾即可。

    cef93654f72ec86736470ed221fd6522.png

    标尺的功能

    ➤首行缩进:每个段落第一行空几个格。(放在标尺的2就是空2个格,4就是空4个)

    ➤悬挂缩进:每个段落除了第一行以外空几个格。

    ➤左缩进:设置文字最左边的边界

    ➤右缩进:设置文字最右边的边界

    bf6e900a9c839fa2564b5aeb31c13d0a.png

    ➤另外标尺上我们发现左右有个灰色底的部分(左边距、右边距),这个是设置页面左右边距的。注意:操作的时候记得先选中要调整的文字那一行,再拖拽滑块。

    ❸段落格式的灵活设置

    在PPT里文字的黄金行距是1.3,在word这种几乎纯文字的文档里面段落更是尤为重要,根据不同的文档内容,我们可能需要不同的行距、段落间距设置。

    当然还有快捷键法,推荐使用1.5倍行距,快捷设置。

    3964082b912a66d5910970d486347d20.png

    ❹换页的技巧

    我们在做文件的时候经常需要换页,比如章节之间的区分,留出手写区域等等。菜鸟们习惯狂敲回车,然而一旦上面的文字有调整(比如行距、字号甚至多加了一句话),第二页顶部就会多出来一些回车

    ➤方法:

    不需要回车,在你认为需要换页的文字或标点后,Ctrl+回车就可以直接换到第二页啦,不仅节省无数个回车,上面无论怎么变动,只要没超过一页,对下面没有任何影响!

    c826b583369631341cc59b6f0f3450ca.png

    规范学好了,排版不专业也不行!下面我们趁热打铁进入第三部分,编辑排版。

    编辑排版

    Word的排版这里更多的是指产品手册、合同协议、标书、毕业论文这种比较长的文档,需要一个相对正式的结构,可能涉及到封面、目录、正文等部分。甚至对文档的页眉页脚页码也有严格要求。这些就需要我们在编辑排版的过程中通过一系列的设置来实现。

    主要步骤有:

    ①设置标题样式

    ②自动生成目录

    ③设置页眉页脚

    ④添加文档封面

    ⑤设置标题样式

    什么是标题样式,对于一个正规的文档,如果希望Word可以自动根据文档的内容来生成目录,就需要把所有的文档标题设置成标题样式。

    ➤首先我们要选中Word默认样式里的标题1。在开始——样式——标题1。(其他的级别选择方式以此类推)

    c41941461d33be21585f5d82a1cef273.png

    ➤默认的样式如果不是你想要的,那么就在标题1那里右键——修改,然后设置你需要的文字格式。

    e79af83891b6728243ffd338f7497e9d.png
    aadf379a3c3784ac1fe12437fd4f952b.png

    设置的标题是不含有自动编号的,如果你需要自动编号,可以设置将标题样式和自动编号进行关联,让所有设置的标题都可以自动进行编号。

    ➤设置方法:

    选中需要关联的标题——开始——多级列表——选择列表库里面第一种列表——再次点击多级列表——定义新的多级列表。多级列表的位置还记得吗?

    3e447490e2c7a7abd51a6636fa16894e.png

    点开定义新的多级列表之后弹出的窗口可以设置标题样式和自动编号关联。

    在①处可以选择不同级别的数字;在②处可以设置这个编号的格式,这里支持中文;在③处可以选择编号的样式,1、2、3还是一、二、三还是A、B、C等等。

    92dfc35edcea7ae8269d4bc5f0daee15.png

    最后一步很重要,不要着急点确定,点左下角的更多。然后选择将级别链接到样式,然后在①处对1级编号链接到标题1,2级编号链接到标题2,以此类推。

    d3cc90a67c57b5a8ba036fd765a475c0.png

    ②自动生成目录

    设置好了标题样式,自动生成目录就会非常方便,点击菜单栏的引用——目录——自动目录,就可以生成了。

    49fea958c78b0d3bbdf4453f8b4f9728.png

    如果内容调整了,需要更新目录,只需要点击一下目录边上的更新按钮即可。

    948491588e2ad3b347ffc3fed5839bf7.png

    目录生成以后,我们需要让目录和正文真正的分隔开,这里如果用分页符就错啦,分页符只能换页,但是无法从本质上把目录和正文隔开,会对后面工作造成不便。所以我们要用分节符。

    ➤方法:

    先将光标放在目录的最后,点击菜单栏页面布局——分隔符——分节符——下一页。

    4fe4667aba989e81e89545c49780e526.png

    ③设置页眉页脚

    我们在需要打印并装订成册的文档里需要设置页眉页脚,还需要奇偶页对称的页码设置,我们一步步来。

    先设置页眉页脚

    ➤方法:菜单栏插入——页眉/页脚——选择合适的奇数页页眉/页脚

    d4fd64102ca3e31c8759715a730a38ee.png

    ➤选好之后,如果想要奇数页页眉和偶数页页眉不同,双击进入页眉/页脚,勾选奇偶页不同,然后再将文档下拉到偶数页,再编辑偶数页的页眉页脚。

    b9df6adc3de931e3e0fd1cdee7d1f5de.png

    接下来看设置页码

    ➤双击进入正文第一页的页眉/页脚,如果前面设置目录的时候插入了分节符,我们就要点击取消“链接到前一条页眉”

    ➤然后点击页码下拉条——设置页码格式,起始页码设置为1。

    d81db9edcf27e0733acf88b1e9ce55cb.png
    6c71816ffa3a0b5a8b814c7c3bab8104.png

    ④添加文档封面

    在完成了所有内容的编辑以后,我们可以添加一个封面,让这份文档显得更专业。

    ➤方法:菜单栏插入——封面——选择合适的封面

    23ab38769190aff9b87e21e2a1ca693e.png

    如果需要打印,我们需要在封面后面插入一个空白页当作封二,避免装订的时候目录页直接装订在封面背后。

    最后我们来说一个完成以后要做的事情。我们做完一份文档,肯定要给自己的上级或者对接的客户发过去,基本上都会有所修改,然而最头疼的事情就是对方发给你以后你根本不知道他修改了什么东西,或者你的同事、客户、下属发给你一份Word,你要怎么修改才能保证你们对接的效率最大化。

    多人协作

    ❶批注

    批注不修改内容,只写评语

    首先我们选中要批注的段落(或段落里的某句话、某个词),然后在菜单栏审阅——新建/删除批注,就可以写评语。选择文字后,右击下拉菜单和使用快捷键也有。

    883d3735c743603f67071ee49e41fe03.png

    ❷修订

    修订可以对文档进行修改,如果你想直接对文章内容进行修改,在审阅里面点击修订,这样你在文档里面做的修改都会被记录下来。

    2856f78f3ee3f36e764c816594a048df.png

    如果你要给你的领导或者下属展示你修订的文章,可以在不关闭修订的情况下直接保存,这样他们会直接看到你的修订内容。

    ❸老板没开修订就改了?

    总有一次,你的老板没有开修订,或者恶意的关了你的修订悄悄把文档给改了,这个时候,就需要使用另一个小技巧:比较。

    打开审阅——比较——比较文档——设置原文档和新文档,然后Word就会自动比较并用修订功能标出所有的不同。

    4738839110ae07b4c4433392596a4528.png
    2f1f174b206e108e8e2d114189d76cf2.png

    当然写到这里,这篇实用的Word技巧长文就告一段落,相信掌握这些Word技巧,你也就成高手了。

    展开全文
  • 总有些奇葩,不经任何学习,就使用excel文件,...这里给出vba模板,把当前表示换行多个空格替换为单个换符。一次运行,会处理sheet所有单元格中多余空格。 如果需要针对选中区域进行替换,请留言,改天再传。
  • VBA为选定单元格加上边框

    万次阅读 2012-01-04 22:14:34
    Cells(1, 3).Select //当前选中的第一第三列的单元格为例。  Selection.Borders(xlDiagonalDown).LineStyle = xlNone  Selection.Borders(xlDiagonalUp).LineStyle = xlNone  With Selection.Borders...

      Cells(1, 3).Select   //当前选中的第一行第三列的单元格为例。
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)//为左边上边框。
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeTop)//为上边上边框。
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeBottom)//为下边上边框。
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeRight)//为右边边上边框。
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

    加边框之前最好用宏录制一下整个操作过程就了解流程了。

    1.    虽然用录制代码的方法可以很方便的获得设置单元格边框的代码,但可以看出,得出的代码非常复杂,实际上就是对每一步操作进行录制得来的。

    2.    利用Range对象的Borders属性及BorderAround方法分别可以设置单元格区域的内部线框及外部边框。

    3.    Borders属性的属性值及BorderAround方法的参数值可以复制刚才录制的代码而得。

    下面是利用Range和borders的示例演示

    Dim rng As Range

      Set rng = Range("A1:B6")

      With rng.Borders

        .LineStyle = xlContinuous//边框设置

        .ColorIndex = xlAutomatic//颜色设置

        .TintAndShade = 0

        .Weight = xlHairline//是否粗细

      End With

      rng.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic


    2:vba设置Excel单元格左对齐、右对齐、居中对齐、字体等

    左对齐、右对齐、居中对齐

      '选择区域或单元格右对齐  
      Selection.HorizontalAlignment = Excel.xlRight

      '选择区域或单元格左对齐
      Selection.HorizontalAlignment = Excel.xlLeft

      '选择区域或单元格居中对齐  
      Selection.HorizontalAlignment = Excel.xlCenter

      固定区域的对齐方式的代码:

      Range("A1:D9").HorizontalAlignment = Excel.xlLeft

    字体、字号、字型

      '当前单元格字体为粗体
      Selection.Font.Bold = True

      '当前单元格字体为斜体
      Selection.Font.Italic = True

      '当前单元格字体为宋体20号字

      With Selection.Font
       .Name = "雅黑体"
       .Size = 20
      End With





    展开全文
  • vba 学习(一)

    2012-07-23 19:31:01
    在线学习 http://excel.walk-nie.com/vba-sample/vba-sample-ctrl/803   基础学习看附件 vba学习...Cells(1, 3).Select //当前选中的第一第三列的单元格为例。 Selection.Borders(xlDiagonalDown).LineSt...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧33 定位删除特定内容所在的行 12 技巧34 判断是否选中整行 12 技巧35 限制工作表的滚动区域 12 技巧36 复制自动筛选后的数据区域 12 技巧37 使用高级筛选获得不重复记录 12 技巧38 工作表的保护与解除保护 12 ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧33 定位删除特定内容所在的行 88 技巧34 判断是否选中整行 89 技巧35 限制工作表的滚动区域 90 技巧36 复制自动筛选后的数据区域 91 技巧37 使用高级筛选获得不重复记录 93 技巧38 工作表的保护与解除保护 94 ...
  • ‘获取当前sheet名字 Public sName sName = ActivateSheet.Name 2.选中单元格:  Worksheets(sName).Range(strRange).Select 3.插入:(插入列类似) Selection..EntireRow.Insert ...
  • 2.datagridview中currentrow未必就是当前选中行 3.inputbox类 string sDescription = InputBox.ShowInputBox("请输入表达式说明!"); public class InputBox : System.Windows.Forms.F...
  • 在Excel中,为了增强活动单元格对比性,有时候我们常常需要修改其背景颜色、字体、...①右键点击左边列表中 Sheet1 并选中查看代码。这样就会弹出一小个VBA输入窗口。 ②在小窗口中上面,左边选择Worksheet...
  • 导出活动工作表中被选中的一张JPG图片,(不一定是本工作簿中的工作表); 1.打开本Excel文件,不要关闭; 2.再另外打开你自己需要操作的另一个Excel文件,并保持你要操作的工作表做为当前活动工作表; 3.请选中一张...
  • excel使用

    2012-11-25 17:06:01
    输入完毕之后,再次按下键盘上的Ctrl键,然后使用鼠标左键单击所选择的多个工作表,解除这些工作表的联系,否则在一张表单中输入的数据会接着出现在选中的其它工作表内。(6) 不连续单元格填充同一数据选中一个...
  • FMLDATA源码

    2014-06-02 15:57:42
    分析周期选“日线”,选中“使用除权后数据”,指标线选“B”,条件选“大于0”,选股范围选择“上证A股”,执行选股,将生成600000.4.DAY、600000.5.DAY、600001.4.DAY、600001.5.DAY等等,*.4.DAY保存是收盘价,...
  • 【批量图片批注】 可批量将图片名称导入到任意当前选中的空白存储格中并生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应存储格中的名称生成带图片背景的批注。 【显示与隐藏批注】 显示或隐藏工作...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【删除选中区域图形】 将工作表中当前选中区域所有图片与图形删除。 【删除所有导入图形】 将工作表中存在所有图片与图形瞬间删除。 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按...
  • 【删除选中区域图形】 将工作表中当前选中区域所有图片与图形删除。 【删除所有导入图形】 将工作表中存在所有图片与图形瞬间删除。 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按...
  • 【删除选中区域图形】 将工作表中当前选中区域所有图片与图形删除。 【删除所有导入图形】 将工作表中存在所有图片与图形瞬间删除。 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按...
  • 【删除选中区域图形】 将工作表中当前选中区域所有图片与图形删除。 【删除所有导入图形】 将工作表中存在所有图片与图形瞬间删除。 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    selection type.xlsm:一个包含演示如何确定当前选中区域对象类型的VBA工作簿。 skip blanks while looping.xlsm:一个包含演示如何在单元格区域中有效循环的VBA工作簿。 Chapter 45 change case.xlam...
  • 10.5.2 在多重选择列表框中使用VBA来操作选中项 285 10.6 使用子窗体、子报表向导 291 10.7 对控件提供电子表格光标移动方式 292 10.7.1 研究问题 292 10.7.2 解决问题 293 10.8 用代码操纵控件 297 ...
  • arcgis工具

    2012-10-22 22:37:31
    E:在Sketch工具、Edit工具和Edit Annotation工具间切换 L:在跟踪要素模式下将选中的注记要素旋转180度 O:在跟踪要素模式下打开Follow Feature Options 对话框 Tab:在跟踪要素模式下对注记放置的位置进行左右边...
  • 选中当前工作表中指定18种类型图形或图片. 9.8.3 新增取相同项与不同项功能. 9.8.4 新增生成斜线表头功能. 9.8.5 新增生成底端标题功能. 9.8.6 新增资料分栏功能. 9.8.7 新增工作薄合并功能. 9.8.8 新增MD5批量...
  •  如果不带任何参数,chkdsk 将显示当前驱动器中磁盘状态。 drive: 指定要 chkdsk 检查驱动器。 /p 即使驱动器不在 chkdsk 检查范围内,也执行彻底检查。该参数不对驱动器做任何更改。 /r 找到坏扇区并...

空空如也

空空如也

1 2
收藏数 24
精华内容 9
关键字:

vba当前选中的行