- 博客(6)
- 收藏
- 关注
RSS订阅原创 Python读写文件
Python读写文件Python读写文件1.open使用open打开文件后一定要记得调用文件对象的close()方法。比如可以用try/finally语句来确保最后能关闭文件。file_object = open('thefile.txt')try: all_the_text = file_object.read( )finally: fil
2017-01-12 10:52:17
277
原创 修改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
4558
原创 批量修改超链接，单元格设置为变量修改
'用变量选中单元格 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
854
原创 高亮显示
要用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
503
原创 EXCEL VBA常用代码集
1.显示活动工作簿名称MsgBox "当前活动工作簿是" & ActiveWorkbook.Name2.保存活动工作簿Activeworkbook.Save3.保存所有打开的工作簿关闭EXCELFor Each W in Application.WorkbooksW.SaveNext WApplication.Quit4.将网格线
2017-01-12 10:49:39
53584
1
原创 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
3184
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人