精华内容
下载资源
问答
  • 程序目的:我们分别录制“文本居中”、“文本加粗”、“文本斜体”三个宏,然后经过加工形成了一个居中加粗并斜体的VBA小程序。程序如下: Sub 文字居中并加粗斜体()'' 文字居中并加粗斜体 宏'' 快捷键: Ctrl+Shift...

    程序目的:

    我们分别录制“文本居中”、“文本加粗”、“文本斜体”三个宏,然后经过加工形成了一个居中加粗并斜体的VBA小程序。

    程序如下:

     Sub 文字居中并加粗斜体()

    '

    ' 文字居中并加粗斜体 宏

    '

    ' 快捷键: Ctrl+Shift+K

    '

       Selection.NumberFormatLocal = "0_ "

       Selection.Font.Bold = True

       Selection.Font.Italic = True

       With Selection

           .HorizontalAlignment = xlCenter

           .VerticalAlignment = xlCenter

           .WrapText = False

           .Orientation = 0

           .AddIndent = False

           .IndentLevel = 0

           .ShrinkToFit = False

           .ReadingOrder = xlContext

           .MergeCells = False

       End With

       With Selection

           .HorizontalAlignment = xlCenter

           .VerticalAlignment = xlCenter

           .WrapText = False

           .Orientation = 0

           .AddIndent = False

           .IndentLevel = 0

           .ShrinkToFit = False

           .ReadingOrder = xlContext

           .MergeCells = False

       End With

       With Selection

           .HorizontalAlignment = xlCenter

           .VerticalAlignment = xlCenter

           .WrapText = False

           .Orientation = 0

           .AddIndent = False

           .IndentLevel = 0

           .ShrinkToFit = False

           .ReadingOrder = xlContext

           .MergeCells = False

       End With

    End Sub


    这样最终通过快捷键就可以将选中单元格内的文本居中加粗并斜体啦。

    展开全文
  • 而且自己也比较懒,所以就搞了个VBA,也学习了VBA一些基础的知识~虽然python已经很火了,可以搞办公自动化,但是不得不说,在帮助别人搞东西,你总不能去装一个python上去,然后install各种库把~vba算是原生的office...

    PS:因为公司要求,Excel格式必须统一,所以有时候手上没有模板。而且自己也比较懒,所以就搞了个VBA,也学习了VBA一些基础的知识~虽然python已经很火了,可以搞办公自动化,但是不得不说,在帮助别人搞东西,你总不能去装一个python上去,然后install各种库把~vba算是原生的office兄弟,目前来看,某些情况还是很好用的`

    Sub 格式调整()
        Dim row_cell As Long, column_cell As Long
        row_cell = ActiveSheet.UsedRange.Rows.Count
        column_cell = ActiveSheet.UsedRange.Columns.Count
        Debug.Print (row_cell)
        Debug.Print (column_cell)
        Range("a1:" & Cells(row_cell, column_cell).Address).Select
        '下面这句可以根据列号数字,返回对应的列号字母
        'MsgBox (Cells(row_cell, column_cell).Address)
        With Selection.Font
            .Name = "微软雅黑"
            .Size = 10
        End With
        '调整上下对齐,居中对齐
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        '全部边框
        With Selection.Borders
            .LineStyle = xlContinuous
            '设置边框颜色~
            '.ColorIndex = 39
        End With
        '全部选中
        Cells.Select
        '全部自适应对齐宽度
        'Cells.EntireColumn.AutoFit
        '因自适应宽度有时候不是我们想要的,所以还是设置固定的把~~列宽10(85像素,约0.13宽=1像素),行高21(28像素 约0.75高=1像素)
        Selection.RowHeight = 20
        Selection.ColumnWidth = 10
        Range("a1").Select
        '设置自动筛选  因为Selection.AutoFilter可以增加筛选,也可以取消筛选,所以只好用activesheet.autofiltermode来进行判断,它是一个布尔值,如果没有筛选,就加一个筛选上去~ 要注意,一个是selection开始,一个是activesheet开始
        If ActiveSheet.AutoFilterMode = False Then
            Selection.AutoFilter
        End If
    
    '    '如下是拓展知识~ 选中a1,ctrl + 下箭头,ctrl + 右箭头
    '    Range("A1").Select
    '    Range(Selection, Selection.End(xlDown)).Select
    '    Range(Selection, Selection.End(xlToRight)).Select
    '    '清除全部,清除格式,清除内容,清除批注,清除超链接
    '    Selection.Clear
    '    Selection.ClearFormats
    '    Selection.ClearContents
    '    Selection.ClearComments
    '    Selection.ClearHyperlinks
    '    冻结首行~ 如果activewindow.freezepanes = false 就代变现在是没有冻结窗口的状态,然后让它冻结首行~
        Debug.Print (ActiveWindow.FreezePanes)  'debug.print 可以在立即窗口里面看到结果,方便调试代码~
        If Not ActiveWindow.FreezePanes Then
            With ActiveWindow
                .SplitColumn = 0
                .SplitRow = 1
            End With
            ActiveWindow.FreezePanes = True
        End If
    
    End Sub
    

     

    展开全文
  • 我的目标:让中国的大学生走出校门的那一刻就已经具备这些...前面章节中我们学习了如何利用VBA在Excel中插入批注,本节学习下如何利用VBA在Excel中插入自选图形。VBA中的知识点太多了,我们要把所有知识点学遍挺费...

    我的目标:让中国的大学生走出校门的那一刻就已经具备这些office技能,让职场人士能高效使用office为其服务。支持我,也为自己加油!

    db0be0003b152b3ba0f640b5cdc3a64c.png

    学习的脚步不能停下,亲爱的朋友们,VBA是否已经把你难倒了呢?其实只要你认真学,就一定能学会。

    前面章节中我们学习了如何利用VBA在Excel中插入批注,本节学习下如何利用VBA在Excel中插入自选图形。

    VBA中的知识点太多了,我们要把所有知识点学遍挺费时间的,而且也必要,所以我认为学习VBA最重要的是要掌握VBA的语言结构以及了解VBA的本质。

    比如,我也不知道如何利用VBA在Excel中插入自选图形,那怎么办呢?

    可以先录制一个插入图形的宏,然后研究宏代码。

    第一步:录制插入一个矩形的宏

    4bb7825cca5cd0dfef7a6ada3f53422d.gif

    找到宏代码:

    ActiveSheet.Shapes.AddShape(msoShapeRectangle2.25, 1.5, 72.75, 45).Select

    翻译过来就是:

    工作表.shape对象集合.新建一个shape (具体是什么形状,左侧举例,顶部举例,宽度,高度)

    很好理解吧,当然初学者可能不明白shapes为啥玩意,AddShape又为啥玩意,别急,选中AddShape,按F1,就会跳转到网页,弹出在线帮助文档,这样我们就容易弄明白具体是啥意思了。

    b5e278e8717ec4ef0f3e4e6f9b00d2b5.gif

    以上介绍的录制宏与按F1获取帮助文件是两个重要的学习VBA时常用的学习方法。

    下面具体介绍下本节的几个知识点:

    1、Shape代表绘图层中的对象,例如自选图形、任意多边形、OLE 对象或图片。

    2、OLE是啥玩意呢?OLE 控件(现在称为ActiveX 控件)OLE(发音为"oh-Lay")的全称是:Object Linking and Embedding(对象链接与嵌入)。我们可以直接理解为ActiveX 控件。

    3、AddShape(类型左侧顶部宽度高度),这个左侧、顶部、是指插入的自选图形距离Excel中A1单元格左上角的距离,宽度、高度是指自选图形的宽度和高度,都是以磅为单位。如下图:

    2048c3c64cb92cdbd1b921430b2f3003.png

    当然不同类型的自选图形都有不同的索引码,所以插入自选图形的时候代码也可以如下写:

    ActiveSheet.Shapes.AddShape(索引码, 2.25, 1.5, 72.75, 45).Select

    自选图形的插入就介绍到这里,大家可以试着录制插入文本框的宏,然后研究些插入文本框的具体代码。

    本节的分享就到这里,鹏哥祝大家每天都有进步。

    为谷

    博学

    更多学习内容

    手机端请扫描

    7fef280817d5181031766e48b2f1791d.png

    电脑端请登录

    www.mihong.top

    米宏陪你做一个好学的人

    a92c10e57fb7a5f3691ea2808db71cbe.gif您点的每个赞,我都认真当成了喜欢
    展开全文
  • 设置Excel中的一个或多个单元格甚至是一个区域的或者是被选中单元格的左对齐、友对齐、居中对齐、字体、字号、字型等属性。  ①左对齐、右对齐、居中对齐  '选择区域或单元格右对齐   Selection....

    设置Excel中的一个或多个单元格甚至是一个区域的或者是被选中单元格的左对齐、友对齐、居中对齐、字体、字号、字型等属性。

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

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

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

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

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

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

      ②字体、字号、字型

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

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

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

      With Selection.Font
       .Name = "宋体"
       .Size = 20
      End With

    展开全文
  • 好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:"Word里面的图片要统一尺寸,还有…必须居中!"。这不是逼人辞职吗?你早不说,现在文件做完了,你要我近百张Word图片一个个改尺寸、居中,咋不上天...
  • 大家好,我们今日继续讲解VBA代码解决方案的第103讲内容:VBA中使用类似于工作表的Listview控件来显示你的任务。ListView控件是VBA程序开发中的常用控件,可以用来显示各项带图标的列表,也可以用来显示带有子项的...
  • VBA字典

    2019-03-28 11:18:40
    这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...
  • 实训项目1.3:VBA程序实训目的:动手编写VBA程序1.让选定单元格居中的程序:2.让选定单元格左对齐的程序:3.让选定单元格右对齐的程序:4.选定单元格字体为粗体的程序:5.选定单元格字体为斜体的程序:6.返回选定...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧124 标签文字垂直居中对齐 12 技巧125 使用TabStrip控件 12 技巧126 显示GIF动画图片 12 技巧127 播放Flash文件 12 技巧128 在工作表中添加窗体控件 12 128-1 使用AddFormControl方法 12 128-2 使用Add方法 12 ...
  • Excel VBA 单元格格式

    千次阅读 2017-12-04 11:00:01
    单元格水平 竖向居中 Sheet.Range(“A6”).HorizontalAlignment = = xlCenter ‘= 3单元格水平居中 Sheet.Range(“A6”).VerticalAlignment = xlCenter ‘=2 单元格竖向居中 此属性的值可设为以下常量之一: ...
  • 时隔N年再次拿起VBA-VBA统计文件夹中的excel表格各sheet页行数如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧124 标签文字垂直居中对齐 293 技巧125 使用TabStrip控件 295 技巧126 显示GIF动画图片 297 技巧127 播放Flash文件 300 技巧128 在工作表中添加窗体控件 302 128-1 使用AddFormControl方法 303 128-2 使用Add...
  • 啊欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants...
  • Python和VBA连接MySQL

    2020-10-29 19:51:25
    这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...
  • VBA常用代码【快捷键】

    千次阅读 2018-09-13 22:02:04
    环境:office2013 蓝色填充 合并居中换行 保存当前sheet 全域字体格式 色阶(绿) 热力图(红-蓝)
  • 使用VBA格式化表格

    千次阅读 2017-03-16 17:03:51
    主要功能: 1.检查电话号码位数,判断是否合法。错误电话号码显示为背景红色,并前缀"错误" ...3.将字体设置为微软雅黑10号字,居中对齐,表格加边框 Sub 格式整理() Dim maxRow As Integer, maxCol As Integer Wo
  • VBA中设置单元格的对齐方式

    千次阅读 2012-11-23 10:00:23
    使用VBA可以轻松的设置Excel中的一个或多个单元格甚至是一个区域的或者是被选中单元格的左对齐、友对齐、居中对齐、字体、字号、字型等属性。 ①左对齐、右对齐、居中对齐 '选择区域或单元格右对齐   ...
  • VBA获取筛选后记录数量

    千次阅读 2020-01-28 14:36:59
    这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...
  • 我用VBA解决的20个问题(一)

    千次阅读 2020-03-31 17:19:59
    工作原因需要大量操作EXCEL,快捷键很快就力不从心,为了继续提高效率,...手动操作也很简单,将项目复制至B列,A列自动编号,然后在一行上面连续插入两行,再分别将A、B列中三行合并为一个单元格并居中。然后再重复...
  • VBA常用方法记录一二

    2019-07-10 16:10:58
    这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...
  • with Range("A1:B10") .HorizontalAlignment = xlLeft '左... .HorizontalAlignment = xlCenter ' 居中 .HorizontalAlignment = xlRight '右对齐 .Font.Bold = True '粗体 .Font.Italic = True '斜...
  • 转一个Excel VBA的小游戏,最近对excel有了更深入的了解,功能很强大,也刷新了我对待事情的态度。 一、准备界面 我们先来把游戏界面准备好,选中前4行,行高调成50,这时候单元格就近似一个正方形。然后给4*4的...
  • VBA学习笔记一欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右...
  • 这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...
  • 第59集 listview控件 275、 注意事项 注意:64位office无法加载该控件,32位可以运行。 276、 基础知识 ① ColumnHeaderers:列标题,添加列标题的...lvwColumnCenter居中对齐,lvwColumnLeft左对齐,lvwColumnR...
  • 第55集 标签、按钮 259、 标签设置 ...TextAlign属性:1左对齐,2居中对齐,3右对齐。 4、字体的自动换行 WordWrap属性:如果为True则自动换行(默认)。 260、 按钮设置 一 按钮显示 1、鼠标放在按钮上时...
  • 12、使用InputBox函数进行输入 语法如下: InputBox(prompt [,title] [,default] [,xpos] [,ypos] [,helpfile,context]) ... xpos和ypos表示对话框距离屏幕左上角的距离,缺省则居中. 使用示例...
  • 目录 01001获取Excel版本 01002获取Excel的安装路径 01003获取当前用户名称 ...01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 ...
  • Sub 批量合并居中相同单元格() Dim l%, i% Application.DisplayAlerts = False k% = InputBox("请输入合并单元格所在列") l = [A65536].End(xlUp).Row For i = l To 2 Step -1 If Cells(i, k) = Cell...

空空如也

空空如也

1 2 3 4
收藏数 75
精华内容 30
关键字:

vba居中