- 博客(61)
- 收藏
- 关注
RSS订阅转载 python练习之map()和reduce()函数
利用map()函数，把用户输入的不规范的英文名字，变为首字母大写，其他小写的规范名字。输入：['adam', 'LISA', 'barT']，输出：['Adam', 'Lisa', 'Bart']： 1 def normalize(name): 2 name=name.lower() 3 name=name[0].upper()+name[1:] 4 ...
2017-09-20 17:03:00
258
转载 VBA学习笔记之图形基础
'Shapes 对象'指定的工作表上的所有 Shape 对象的集合。'说明'每个 Shape 对象都代表绘图层中的一个对象，如自选图形、任意多边形、图片、图表等。下列代码注意其属性即可Sub 基本的属性()Dim ob As Shapen = Sheet1.Shapes.CountFor Each ob In Sheet1.Shapes k = k + ...
2017-09-09 10:31:00
519
转载 VBA学习笔记之添加批注
'Comment 对象'代表单元格批注1 Sub 批注添加()2 With [a1]3 If .Comment Is Nothing Then4 .AddComment.Text "123"5 .Comment.Visible = True '批注可见6 End If7 End W...
2017-09-09 10:18:00
2244
转载 VBA学习笔记之合并单元格
Range.Merge注意合并区域左上单元格 1 Sub 太复杂不过也行() 2 num = Application.CountA([a:a]) 3 For i = 2 To num 4 If Cells(i, 1) = Cells(i + 1, 1) Then 5 n = n + 1 6 Else 7 Range(Ce...
2017-09-09 09:39:00
559
转载 VBA学习笔记之粘贴方法
Option Explicit'Worksheet.Paste 方法'将“剪贴板”中的内容粘贴到工作表上。'表达式.Paste(Destination, Link)'表达式 一个代表 Worksheet 对象的变量。Sub 粘贴()Range("B1:B6").Copy Range("c9") '这一句等于下面两句，但下面两句也有用处Ran...
2017-09-08 19:05:00
1698
转载 VBA学习笔记之利用查找颜色拾取进行颜色汇总
教程代码： 1 Sub 根据查找功能拾取的颜色求平均() 2 On Error GoTo 100 3 Dim erng As Range, rng As Range, i As Long 4 i = Application.FindFormat.Interior.Color 5 Set erng = Cells(Rows.Count, "e")...
2017-09-08 19:04:00
823
转载 VBA学习笔记之单元格格式实例
1 Sub 格式化工资条() 2 Dim i% 3 i = Cells(Rows.Count, 1).End(xlUp).Row 4 For j = 1 To i 5 If j Mod 2 Then 6 'If j Mod 2 =1 Then 与上一句等效，因为1相当于Ture这个逻辑值，0相当于False 7 '这一句是对奇...
2017-09-05 21:40:00
169
转载 VBA学习笔记之填充颜色（Interior对象）
'Interior 对象'代表一个对象的内部'针对interior对象，我们用得最多的是它的颜色，下面就来讨论一下。 1 Sub 索引颜色值() '一般是用这个 2 For i = 1 To 56 3 Cells(i, 1).Interior.ColorIndex = i 4 Cells(i, 2) = i 5 Next i 6 End Sub 7 ...
2017-09-05 21:26:00
4821
转载 VBA学习笔记之单元格式之字体
'Font 对象'包含对象的字体属性（字体名称、字号、颜色等等）。'Range.ClearFormats 方法'清除对象的格式设置'常见font对象的属性1 Sub font对象属性()2 With [a2:a6].Font3 .Name = "微软雅黑" '字体4 .Size = 8 '字号5 .Bold = True '加粗6 .Color = R...
2017-09-01 16:53:00
432
转载 VBA学习笔记之单元格式之数字格式
'Range.NumberFormatLocal 属性1 Sub 获取单元格设置数字格式()2 For Each Rng In [a1:a3]3 Cells(Rng.Row, 2) = Rng.NumberFormatLocal '获取单元格的格式代码4 Next Rng5 End Sub1 Sub 给单元格设置数字格式()2 For E...
2017-09-01 16:35:00
957
转载 VBA学习笔记之Application.intersection方法
'Application.Intersect 方法'返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。PS:Is Nothing 用于判断对象是否存在，对象可以是工作簿，工作表，单元格区域等教学代码： 1 Sub test() 2 If Intersect([a1:d10], Selection) Is Nothing Then '注释：Is Not...
2017-09-01 16:05:00
3564
转载 VBA学习笔记之Union方法
'Application.Union 方法'返回两个或多个区域的合并区域'Sub test()Range("a1:b3,c5:d8").Select '文本地址引用方式Union([a1:b3], [c5:d8]).Select '单元格区域引用方式End Sub'小结：虽然range也可以完成多区域的引用'但文本地址的引用方式最多不能超过256个字符'而union却没有这个限制Unio...
2017-09-01 15:31:00
3561
转载 VBA学习笔记之End属性&查找最后的单元格方法总结
'Range.End 属性'返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。'等同于按键 (End+向上键、End+向下键、End+向左键、End+向右键)，或者CTRL+上下左右'语法'表达式.End (Direction)'表达式 一个代表 Range 对象的变量。'方向 写法 值'向上 xlUp - 4162'向...
2017-08-29 15:43:00
2153
转载 VBA学习笔记之入库单制作
Sub 开单()Set es = Cells.Find("*", , xlFormulas, , , xlPrevious) '注意es是最下面有数据的区域a = es.Address[b2] = "SM" & Format(Now(), "ymdhms") '根据当前时间生成不重复的入库单号Range([a5], es.Offset(4)) = "" '清空...
2017-08-28 15:33:00
2677
转载 VBA学习笔记之单元格查询系统制作
1 Sub 自己写查询系统() 2 end_num = Columns(1).Find("*", searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格 3 k = 1 4 m = 1 5 Range(Cells(3, "h"), Cells(999, "l")).Clear 6 For Each Rng In Rang...
2017-08-27 10:15:00
931
转载 VBA之通配符（? * ~）
？单个字符*任意多个字符~转义字符转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7439646.html
2017-08-27 09:43:00
9355
转载 VBA学习笔记之Find方法
1 Sub 查找最后一个单元格()2 Set endrng = Cells.Find("*", , xlFormulas, , , xlPrevious) ' *表示查找的内容不确定，只要找到就行，逗号表示跳过该参数3 'xlFormulas表示...
2017-08-24 11:23:00
1196
转载 VBA学习笔记之specialcells
'Range.SpecialCells 方法'返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。'语法'表达式.SpecialCells(Type, Value)'表达式 一个代表 Range 对象的变量。1 Sub 批注汇总()2 MsgBox Application.Sum(Selection.SpecialCells(-4144))'手动选择区域...
2017-08-24 10:58:00
2700
转载 VBA学习笔记之Range.EntireRow&Range.EntireColumn属性
'Range.EntireRow 属性'返回一个 Range 对象，该对象表示包含指定区域的整行（或多行）。'语法'表达式.EntireRow'表达式 一个代表 Range 对象的变量。'Range.EntireColumn 属性'返回一个 Range 对象，该对象表示包含指定区域的整列（或多列）'语法'表达式.EntireColumn'表达式 一个代表 Range 对象...
2017-08-24 09:24:00
3736
转载 VBA学习笔记之Range.Resize属性
'Range.Resize 属性'调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。'语法'表达式.Resize(行数, 列数)'表达式 一个返回 Range 对象的表达式。1 Sub test()2 [a1].Resize(2, 3).Select3 [a1].Resize(2).Select4 [a1].Resize(, 3).Select...
2017-08-24 09:04:00
3281
转载 VBA学习笔记之Range.Offset属性
'Range.Offset 属性'返回 Range 对象，它代表位于指定单元格区域的一定的偏移量位置上的区域。'表达式.Offset(偏移行, 偏移列)'表达式 一个代表 Range 对象的变量。'偏移行列的数字可以是：正数，负数，零值 1 Sub test() 2 [a1].Offset(1, 2).Select '行列都偏移 3 [a1].Offset(2)...
2017-08-24 08:45:00
2807
转载 VBA之UsedRange属性
1 'Worksheet.UsedRange 属性 2 '返回一个 Range 对象，该对象表示指定工作表上所使用的区域 3 4 5 Sub 已使用区域() '选中工作表里“占用”的的区域 6 Sheet2.UsedRange.Select 7 End Sub 8 9 10 '注意：11 '已使用区域的定位方法是：已使用的最小单元格：最...
2017-08-15 10:23:00
6989
转载 VBA之活动单元格
不论你点击一个单元格还是选择一个区域，你最先点击的单元格就是活动单元格 1 '活动单元格：activecell,工作表中活动单元格只有一个 2 Sub activecells() 3 a = activecell.Address '取得活动单元格地址 4 Cells(2, 3).Activate '激活指定单元格 5 End Sub 6 7 's...
2017-08-15 10:22:00
5007
转载 VBA之行与列的插入与删除
'工作表中单元格，行与列的插入与删除Sub 插入()Rows(2).InsertEnd SubSub 隔行插入()Dim r% Do r = r + 2 Rows(r).Insert Loop Until Cells(r + 1, 1) = ""End SubSub 删除()Row...
2017-08-15 09:02:00
1096
转载 VBA之行列的引用
'行列引用Sub 列引用()Columns(1).SelectColumns("b").SelectColumns("c:e").SelectEnd SubSub 行引用()Rows(1).SelectRows("2").SelectRows("3:4").SelectEnd SubSub range行列表式法()Range("...
2017-08-11 11:36:00
1964
转载 python 正则表达式
详细请看http://www.cnblogs.com/huxi/archive/2010/07/04/1771073.htmlre.match 从头开始匹配 #这样^就没什么用re.search 匹配包含re.findall 把所有匹配到的字符放到以列表中的元素返回 (无group方法！)re.splitall 以匹配到的字符当做列表分隔符re.sub 匹...
2017-08-10 12:29:00
72
转载 python shelve模块
import shelveimport datetimed = shelve.open('shelve_test')'''写入文件'''info = {'age': 22, 'job': 'IT'}name = ['Jack', 'Rose']d['name'] = named['info'] = infod['data'] = datetime....
2017-08-09 20:08:00
75
转载 VBA学习笔记之工作簿
Workbook工作簿的常用功能：1. 新建工作簿DimwbAsWorkbookApplication.SheetsInNewWorkbook=1'设置初始工作簿中的工作表数Setwb=Application.WorkBooks.Addwb.Worksheets(1).name...
2017-08-09 18:38:00
525
转载 VBA学习笔记之单元格
、'单元格对象在VBA中一个非常基础，同时也很重要的。'它的表达方式也是非常的多样化。'----------------------------------------------------'Range 对象'代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域。'Range ("文本型装单元格地址")...
2017-08-08 20:01:00
421
转载 VBA学习笔记之随机数&数组redim
发现更简单的：a=Application.RandBetween(-10, 10)直接生成-10到10之间的随机整数关于二维数组Redim Preserve：如果使用了Preserve关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。具体参考 1 如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的...
2017-08-08 19:58:00
2464
转载 python爬虫一些参考代码
http://www.cnblogs.com/Dadio/p/5513594.html这个是爬P站的代码，目前还没看，感觉很棒from bs4 import BeautifulSoupimport requestsfrom PIL import Imagefrom io import BytesIOimport osimport codecsimp...
2017-08-07 16:43:00
112
转载 VBA学习笔记之对象,属性,方法,事件
VBA常用的对象一般包括application／workbook／worksheet／range／window／chart／commandbar／filesystemobject等对象。属性，亦指对象的特征。属性有可读和可写之分属性还可能有参数。一般的属性格式可以是这样：桌子.高(哪只脚:=”左上”)，即对象.属性（从属性:=参数......）方法是指对象的动作,如桌...
2017-08-07 16:16:00
734
转载 VBA学习笔记之过程
上图显示vba过程有传值和传址，传值为sub xxx(ByVal 变量)，传址为 sub xxx(ByRef 变量)区别：传值引用的变量不会在调用它的子过程运行后改变它的初始值。我的理解：变量存储在内存地址里，传值传递的是变量而不是变量的地址，因此该变量初始值不变；传址传递的是变量的地址，因此变量也随之改变。转载于:https://www.cnblogs.co...
2017-08-07 16:08:00
127
转载 VBA学习笔记之VBA学习思路
进阶的知识点1. SQL查询语句和ADO2. 正则表达式和网抓3. 窗体与控件4. API 类模块 等等作者：SOROSay链接：https://www.zhihu.com/question/26078625/answer/132542043来源：知乎著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。1小时...
2017-08-07 15:50:00
395
转载 python之批量使图片水平翻转
from PIL import Imageimport osimport os.pathrootdir = r'D:\用户目录\我的图片\From Yun\背景图\背景图' # 指明被遍历的文件夹for parent, dirnames, filenames in os.walk(rootdir): for filename in filenames:...
2017-08-07 10:48:00
182
转载 VBA学习笔记之工作表
Sub 遍历sheets下的所有对象()For Each shs In Sheets k = k + 1 Cells(k, 1) = shs.NameNextEnd SubSub 遍历worksheets下的所能对象()For Each shs In Worksheets k = k + 1 Cells(k, 2) = ...
2017-08-06 16:34:00
327
转载 VBA学习笔记之DIR函数
Dir()主要用于获取（遍历）目录下的文件名Sub open_all_files()Dim aa = Dir("C:\Users\Administrator\Desktop\新建文件夹\*.txt")'将txt结尾的所有文件打开，但是在这里只打开第一个符合的文件，接下来的文件在do循环里依次打开Workbooks.Open "C:\Users\Administrato...
2017-08-05 22:41:00
1286
转载 VBA学习笔记之循环
VBA 中Do while Loop用法如下：VBA中如果不知道重复多少次，使用 Do...Loop 语句。Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。重复执行代码直到条件是 true使用 While 关键字来检查 Do... Loop 语句的条件。123DoWhilei>10'some...
2017-08-05 19:52:00
289
转载 Python的循环
Python的循环有两种，一种是for...in循环，依次把list或tuple中的每个元素迭代出来，看例子：names = ['Michael', 'Bob', 'Tracy']for name in names: print name执行这段代码，会依次打印names的每一个元素：MichaelBobTracy所以for x in ......
2017-08-05 19:47:00
129
转载 VBA学习笔记之数据类型
下面是变量的类型和对应的简写字符： 整型：% 长整型：& 单精度浮点型：！ 双精度浮点型：# 变比整型：@ 字符串：$转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7291195.html...
2017-08-05 19:42:00
198
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人