VBA-excel宏
文章平均质量分 50
xploverain
这个作者很懒,什么都没留下…
展开
-
vba excel 单元格格式设置
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.ColorIndex = xlAutomatic Dim x As Range For Each x In ActiveSheet.UsedRange If x.Value = ActiveCell.Value An原创 2017-01-12 10:49:04 · 3157 阅读 · 0 评论 -
EXCEL VBA常用代码集
1.显示活动工作簿名称MsgBox "当前活动工作簿是" & ActiveWorkbook.Name2.保存活动工作簿Activeworkbook.Save3.保存所有打开的工作簿关闭EXCELFor Each W in Application.WorkbooksW.SaveNext WApplication.Quit4.将网格线原创 2017-01-12 10:49:39 · 53052 阅读 · 1 评论 -
高亮显示
要用VBA实现。按Alt+F11,双击一个工作表名称,将下面代码粘贴到右边框中,那么这个工作表就能实现你的要求。选中一个工作表,右击,查看代码,添加即可。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim r, cr = Target.Rowc = Target.Column Cells.In原创 2017-01-12 10:50:19 · 496 阅读 · 0 评论 -
批量修改超链接,单元格设置为变量修改
'用变量选中单元格 Dim i, j, m, row_count 'count = ActiveSheet.UsedRange.Rows.count row_count = Sheet1.Range("C65535").End(xlUp).Row 'MsgBox (count) 'For i = 16 To row_count For i原创 2017-01-12 10:50:53 · 832 阅读 · 0 评论 -
修改shape的文字
Sub 修改shape的文字()'' 修改shape的文字 宏'' ActiveSheet.Shapes.Range(Array("Flowchart: Connector 193")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "点" W原创 2017-01-12 10:51:18 · 4510 阅读 · 0 评论