pgymeitianjinbu的博客

原创 【无标题】

makdown编辑器案例

原创 Python安装

pycharm是Python的集成开发环境。

原创 vba案例1：合并工作簿，工作表

ms = sh.UsedRange.Find(What:="*", Searchorder:=xlByColumns,SearchDirection:=xlPrevious).Column '' '用find方法，表中的最后一列。rs = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row '目标文件的表复制到“合并工具”最后，在“合并工具”簿中来得到最后一行。f = Dir(lj & "\*.xls*") '目标文件夹中的工作簿的名称。

原创 vba：inputbox

'inputbox函数与方法'1.区别一：外观区别'InputBox 函数'在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。'Application.InputBox 方法'显示一个接收用户输入的对话框。返回此对话框中输入的信息。sr = InputBox("请输入内容！") '函数sr = Application.InputBox("请输入内容！") '方法End Sub'-----'2.参数区别。

原创 vba：消息框基础，msgbox

MsgBox "正则表达式学习", vbMsgBoxHelpButton, "欢迎光临我要自学网", ThisWorkbook.Path & "\帮助\正则表达式系统教程.CHM", 0。" & Chr(13) & "今天是:" & Format(Now, "yyyy-m-d aaaa") _" & Chr(13) & "今天是:" & Format(Now, "yyyy-m-d aaaa") _数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。

原创 vba：文件夹和文件夹的处理，dir

'1'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹，如果结果为""，则表示不存在。Sub w1()If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) = "" ThenMsgBox "不存在"ElseMsgBox "存在"End IfEnd Sub。

原创 vba：图形基础，姓名导入图片

'Shapes 对象'指定的工作表上的所有 Shape 对象的集合。'说明'每个 Shape 对象都代表绘图层中的一个对象，如自选图形、任意多边形、图片、图表等。Sub abc()k = k + 1ob.SelectCells(k + 1, "f") = ob.Name '图形名称Cells(k + 1, "g") = ob.Type '图形类型Cells(k + 1, "h") = ob.Top '顶端坐标。

原创 vba:Comment 对象,批注

'Comment 对象'代表单元格批注'批注添加Sub 批注添加()With [a1]End IfEnd WithEnd SubSub 删除批注()End IfNextEnd SubSub 批量添加批注()If Rng >= 90 Then Rng.AddComment.Text "优秀"NextEnd Sub。

原创 VBA:单元格实例（格式化工资条），拾取的颜色求平均

Sub 格式化工资条()Sub 清除格式化()

原创 vba：格式字体font，颜色，ClearFormats 方法，Interior 对象

'Font 对象'包含对象的字体属性（字体名称、字号、颜色等等）。'Range.ClearFormats 方法'清除对象的格式设置'常见font对象的属性Sub font对象属性().Name = "微软雅黑" '字体.Size = 8 '字号.Bold = True '加粗.Color = RGB(255, 0, 255) '颜色End WithEnd SubSub 大于90分的颜色设置为红色().Name = "华文琥珀"

原创 vba：数字格式‘Range.NumberFormatLocal 属性

Range([a5], es).Copy Worksheets("记录保存").Cells(a + 1, 1).Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间。.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单。.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商。With Worksheets("记录保存")Sub 保存1111()

原创 vba：单元格交集 Application.Intersect 方法

'Application.Intersect 方法'返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。Sub test()If Intersect([a1:d10], Selection) Is Nothing Then '注释：Is Nothing 用于判断对象是否存在，对象可以是工作簿，工作表，单元格区域等MsgBox "没有交集"ElseEnd IfEnd Sub。

原创 vba：union方法 并集

'Application.Union 方法'返回两个或多个区域的合并区域Sub test()Range("a1:b3,c5:d8").Select '文本地址引用方式Union([a1:b3], [c5:d8]).Select '单元格区域引用方式End Sub'小结：虽然range也可以完成多区域的引用'但文本地址的引用方式最多不能超过256个字符'而union却没有这个限制'我们经常利用变量与union进行单元格的连接Sub 连接符单元格连接()

原创 vba：end属性

'1.从录制一个宏开始。操作：(ctrl+向上键、ctrl+向下键、ctrl+向左键、ctrl+向右键)'2.看代码'Range.End 属性'返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。'等同于按键 (End+向上键、End+向下键、End+向左键、End+向右键)'语法'表达式.End (Direction)'表达式 一个代表 Range 对象的变量。'方向 写法 值'向上 xlUp - 4162。

原创 vba：单元格的选择，查找，合并，批注，SpecialCells，图形插入

一：'活动单元格：activecell,工作表中活动单元格只有一个a = activecell.Address '取得活动单元格地址Cells(2, 3).Activate '激活指定单元格End Sub'selection光标所选区域Sub 光标所选区域()End SubSub 在selection中的改变活单元格()NextEnd SubSub 运用()If i = "" Or i = "缺勤" Theni = "×"End If。

原创 vba：len，left，right，Ucase,lcase 用法

原创 vba：instr用法

一：记住公式二：案例

原创 vba：offset用法

offset

原创 VBA:application.index 函数的用法

例：把A2:D6的第一列写入arr1，第四行写入arr2。调用该工作表函数可以把二维数组的某一列或某一行截取出来，第一部分：先看下excel中index的用法。备注：后续有需要，我会再补充进来。

转载 vba：formulaarray属性

vba：formulaarray属性

转载 vba：FormulaR1C1属性

R[-1]C[-1]为B7单元格，行列都-1，R[1]C[2]为E9单元格，行+1，列+2。有中括号是相对于选定单元格的相对偏移量，"-"为向左或向上偏移，正数为右或下偏移。无中括号为相对于选定单元格的绝对偏移量，没有负数。R1C1代表A1单元格，R5C6代表F5单元格。例：C1单元格为"=$A$2+$E$3"VBA之FormulaR1C1属性。FormulaR1C1是公式输入方法。"R"和"C"对应“行”和“列”例：C1单元格为"=A1+B1"例：C1单元格为"=A2+E3"如：选定单元格为C8。

原创 VBA:正则表达式参考

下面用于参考：“”

转载 Python exit()函数

描述 调用exit()函数，终止Python程序。语法 exit(num) 参数说明 名称 说明 备注 num 程序退出类型，整型...Python exit()函数。Python exit()函数。

转载 python：os的用法

转载：

原创 python：学习 Linux 终端命令的原因

文章：摘要：学习 Linux 终端命令的原因：学习python要学习下linux下python的用法，

原创 python：虚拟机软件安装

python：虚拟机软件安装

原创 期货：动向指标（DMI）

DMI

原创 期货：平滑异同移动平均线（MACD）

MACD

原创 期货：均量线（VOL）

VOL指标

原创 期货：移动平均线（MA）技术指标图形

MA技术指标

转载 vba中autofile用法

下面是Range对象的AutoFilter方法的语法：Range对象.AutoFilter(Field,Criterial1,Operator,Criteria2,VisibleDropDown)说明：1.参数Field，指定想要基于筛选的字段的整数偏移量。从列表的左侧算起，最左侧的字段是字段1。2.参数Criterial1，指定判断条件（为字符串）。使用“=”查找空字段，或者使用“<>”查找非空字段。如果忽略该参数，那么判断是全部。如果参数Operator是xlTop1...

原创 vba中单元格连（联）接跳转其他对应单元格，用change事件

为了实现图片这种效果：

转载 vba中val函数用法

翻译 vba合并单元格，MergeArea 属性，UnMerge 方法，多表合并，拆分

...

转载 vba中颜色代码

更详细的可以看：VBA颜色代码【经典颜色收藏版打印版】 - 豆丁网

翻译 vba中循环语句

案例：

翻译 vba中function（自定义函数）

回顾11章中的内容:

翻译 vba中数组用法

1.筛选数组

翻译 vba中find方法查找1

注意：Find方法需要Range对象，也就是需要在单元格区域中查找。不能在数组中查找。

原创 vba字符串类型的缩写

番外补充：integer：只能表示整数，不能有小数点，正负数都可以，最大32767Long：也只能表示整数，正负都可以，最大2147483648single：单精度，可以有小数点，最大长度是8位double：双精度，可以有小数点，最大长度是16位currency：专门用来表示货币的...