- 博客(45)
- 收藏
- 关注
RSS订阅原创 python信号学习相关
以下是工作中用python来处理excel文件里的信号学习内容的代码由于代码可读性很差,不建议作为excel通用处理类的参考from collections import namedtupleimport xlrdimport xlwtfrom xlwt.compat import basestringclass Excel(object): # 1.初始化 def __init__(self,filename): self.filename = file
2021-01-07 00:17:46
202
1
原创 python实现嵌套字典内容保存到json文件,读取,更新,重写
1.字典结构如下:{cell1: { level1:[rsrp1,att1], level2:[rsrp2,att2] }, cell2: {level3:[rsrp3,att3], }2.需求:实现嵌套字典内容保存到json文件,读取,更新,重写3.代码如下:import osimport jsonclass Update_Get_Rewrite_data(): """ desc:实现嵌套字典内容保存到json文件,读取,更新,重写 """ def get_
2020-12-22 01:05:19
2262
原创 Python对xml,json,pickle的dump和load操作通用代码
Python对xml,json,pickle的dump和load操作通用代码:需要的包如下图直接上代码:# coding=utf-8from __future__ import print_functionimport os,sysimport copyimport tracebackimport xlrd , xlwt# import ConfigParserimport os.pathimport jsonimport xmltodictimport picklefrom c
2020-12-17 00:52:06
440
1
原创 VBA之字典和数组,控件综合使用
1.VBA的字典定义和python一样都是键值对,键唯一在第一次创建字典时,要加入字典的.dll文件2.把sheet2里的AB列数据取出来作为数组的值,把其中的B列 类别加入字典里最后把字典的键放入listbox的list里代码如下:Sub test()Dim arr()Dim dic As New Dictionaryarr = Range(“a2:b13”)For i ...
2020-04-06 14:19:05
3378
原创 VBA之连接各种数据库
1.连接各种数据库接口Dim conn As New ADODB.Connectionconn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel 12.0;HDR=YES”""conn.CloseACCESS文件conn.Open “Pr...
2020-04-04 15:56:46
3922
原创 VBA之使用ADO操作外部数据
1.添加ADO接口工具→引用→找到Microsoft ActiveX Data Objects→确定2.连接ADODim conn As New ADODB.Connectionconn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel...
2020-04-04 15:54:38
2508
1
原创 VBA之几个交互式对话框
1.Msgbox2.Inputbox3.GetOpenFilename4.Application.Dialogs5.深入理解
2020-04-04 00:49:51
1863
原创 VBA之打开所有的文件,并合并到一个工作簿里
1.运用application.GetOpenFileName函数来帮助我们打开文件通用代码如下:Sub test()Dim arr()Dim wb As Workbookarr = Application.GetOpenFilename(“Excel文件,.xls”, 2, , , True)If arr(1) <> “False” ThenFor i = LBound...
2020-04-04 00:46:32
1148
原创 VBA之avtive,label,单元按钮,微调控件属性
1.active控件与表单控件的区别2.label标签控件的常用属性3.单元按钮控件4.微调按钮控件
2020-04-01 21:00:56
1268
原创 VBA之数组的基本应用和for循环比较
数组的应用:代码1:Sub test()Dim i, j, k, l As Integert = TimerFor i = 2 To 80For j = 2 To 80For k = 2 To 80For l = 2 To 80 If Range("a" & i) + Range("a" & j) + Range("a" & k) ...
2020-04-01 01:08:22
2386
原创 VBA之按照筛选条件拆分多表通用方法
在一个工作簿中,想对某一列做筛选,并且拆分到后面的工作表里,通用代码如下:Sub chaifenshuju()Dim sht As WorksheetDim k, i, j As IntegerDim irow As Integer '这个说的是一共多少行Dim l As IntegerDim sht0 As WorksheetSet sht0 = ActiveSheetl = I...
2020-03-30 21:40:30
3110
原创 VBA之find找数据的使用
在一堆数据里查找某个数据,用find函数,要注意查找不到的情况代码如下Sub test()Dim rng As RangeSet rng = Range(“d:d”).Find(Range(“l3”))'把查找的内容放到rng容器里If Not rng Is Nothing Then'判断容器是否为空 Range("m3") = rng.Offset(0, 3)End If...
2020-03-30 21:30:34
2391
原创 VBA之dir函数综合使用
1.dir函数的有判断一个文件是否存在的功能,也可以使用通配符模糊匹配返回的是该文件的文件名Sub test()Dim i As IntegerFor i = 1 To 5If Dir(“d:\data” & Range(“a” & i) & ".xls*) = “” ThenRange(“b” & i) = “无此文件”ElseRange(“b” ...
2020-03-30 21:13:41
15866
6
原创 VBA之用set来新建表
如何用set来新建表Sub test()Dim sht As WorksheetFor i = 2 To 5Set sht = Sheets.Addsht.Name = Sheet1.Range(“a” & i)NextEnd Sub
2020-03-30 19:21:43
1167
原创 VBA之让新开的excel文件能一键使用宏的设置
如何让新开的excel文件能一键使用宏的设置呢?1.首先要把宏代码,保存到excel库里2.新建一个excel文件出来,把宏代码复制到模块里例如:拆分文件代码Sub test()Dim sht As WorksheetFor Each sht In Sheetssht.CopyActiveWorkbook.SaveAs Filename:=“d:\data” & sht.N...
2020-03-29 19:40:28
932
原创 VBA之使用自定义函数
如何在vba中使用自定义的函数呢?首先在模块里定义好函数,然后注意要往里面传参然后在excel单元格里调用该函数1.需求1,判断性别代码如下Function zmj(x)zmj = (x / 6.03) - x * 0.03End FunctionFunction xb(x As String)If x = "男" Then xb = "先生"ElseIf x =...
2020-03-29 19:33:20
10984
原创 VBA之split函数,instr函数等其他函数的使用
instr:判断字符再文本的第几位split:分割 里面有两个参数,第一个参数是要分割的单元格字符串,第二个是想要分割完的数组的第几位1.需求想把A列的字符串,按-分割,然后添上第几年第几周,放到B列里代码如下:Sub tiqu()On Error Resume Next ‘这个是防止代码出错程序崩溃’For i = 2 To Sheet2.Range(“a65536”).E...
2020-03-27 21:28:22
3068
原创 VBA之使用公式,函数
需求1:统计所有的地区的考生数,男生数量,女生数量汇总到sheet1里Sub tongji()Dim j, k, l As IntegerFor i = 2 To Sheets.Countk = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1j = j + Application.Works...
2020-03-27 20:43:13
1763
原创 VBA之打开工作簿输入密码才能显示内容
打开工作簿,弹出弹窗输入密码,如果密码错误则关闭工作簿首先在 thisworkbook里设置 当打开工作簿时 执行代码代码如下:Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim sht As Worksheet'隐藏所有表For Each sht In SheetsIf sht.Name <> “登录界面...
2020-03-26 23:28:32
3495
1
原创 VBA之重要数据的自动备份
工作中有时候想自动保存工作簿,按照时间戳的方式存到一个固定的路径,并且不会影响原来的工作簿Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)ThisWorkbook.SaveCopyAs “d:\data” & Format(Now(), “yyyynmddhhmmss”) &am...
2020-03-26 23:21:09
840
原创 VBA之动态的更改值来完成筛选
通过修改 l列的 车间名字,直接来把A1:F232的数据里的1车间筛选到L1:Q232里Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseRange(“l1:q10000”).ClearContentsRange(“a1:f232”).AutoFilter field:...
2020-03-26 22:51:49
905
原创 VBA之事件:不用执行宏,根据点击自动给区域标颜色
工作中会遇到很多数据的工作表,单击后从右边拖到左边找其他数据,太伤眼睛这里运用自动选区1.首先是自动改颜色的代码Cells.Interior.Color = xlNone "选中所有的单元格,并且设置为无颜色Selection.EntireRow.Interior.Color = 65535 "将选中的区域整行标黄2.再在指定的工作表里,将模块的通用上改成worksheet,右边改为...
2020-03-26 22:10:00
906
原创 VBA之with语句用法
想对一个工作表进行同样的操作,每次都要加前缀sub test()sheet2.range(“a1”)=1sheet2.range(“b1”)=1sheet2.range(“c1”)=1sheet2.range(“d1”)=1end sub可以用with语句来简化,中间插入别的工作表的操作也不会影响他Sub test()With Sheet2.Range(“a1”) = 1.r...
2020-03-26 21:46:29
10281
原创 VBA之合并多个表格的数据
有很多的工作表,如何把它们合并到sheet1里呢?代码如下Sub hebing()Dim i, j As Integer 'i是数据源表的最后一行，j是目标表(数据表)的最后一行Dim sht As Worksheet'先要删除所有数据Sheet1.Range(“a1:f65536”).ClearContents'复制表头Sheet2.Range(“a1:f1”).Copy ...
2020-03-26 21:36:12
2172
原创 VBA之根据筛选条件创建新的工作表完整版
工作中,筛选条件肯定不止一个,有时候要筛选第一列,第二列,而不是某一个固定的列的条件以上的ABCDEF列都有可能被当成筛选对象代码如下Sub chaifenshuju()Dim sht As WorksheetDim k, i, j As IntegerDim irow As Integer '这个说的是一共多少行Dim l As Integerl = InputBox(“请输入...
2020-03-26 01:17:29
5870
2
原创 VBA之灵活的拆分表
有这样的需求,想把工作表中的D列,按照筛选部门拆分成一个个独立的工作表,新的工作表名就是部门的名字Sub chaifenshuju()Dim sht As WorksheetDim k, i, j As IntegerDim irow As Integer '这个说的是一共多少行irow = Sheet1.Range(“a65536”).End(xlUp).Row'拆分表For i...
2020-03-26 00:53:56
1507
1
原创 VBA之建表时避免重名
工作中会遇到按照a列单元格的值,来新建后面的表,并且后面的表名字等于单元格的值,但是新建单元格时,如果名字重复会提示Sub xinjianbiao()Dim sht As WorksheetDim k As IntegerFor i = 1 To 3k = 0For Each sht In SheetsIf sht.Name = Sheet1.Range(“a” & i) ...
2020-03-26 00:46:16
1307
原创 VBA之将数据拆分到多个表(筛选)
有这样一个表,想用筛选的方式,减少for循环,让D列的相同名称的数据复制到后面对应的工作表里代码如下:Sub shaifen()Dim i As IntegerFor i = 2 To Sheets.CountSheet1.Range(“a1:f1048”).AutoFilter Field:=4, Criteria1:=Sheets(i).NameSheet1.Range(“a1:...
2020-03-25 23:13:11
2503
1
原创 VBA之工作表操作
1.有这样一个工作表,里面a列有很多的部门,想把各个部门的名字另起一个sheet,如何去实现呢Sub test()Dim sht As WorksheetDim i As IntegerFor Each sht In WorksheetsIf sht.Name <> “部门” Theni = i + 1Range(“a” & i) = sht.NameEnd ...
2020-03-25 22:28:10
1314
原创 VBA之用模板创建表
有这样一个模板,想在此模板的基础上,新建很多sheet,每个sheet对应一个日期,并且表里的报表日期和工作表名字一样,如何去实现呢Sub test()Dim i As IntegerFor i = 1 To 31Sheet1.Copy after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = “5月” & i & “...
2020-03-25 22:21:04
1168
原创 VBA之操作工作表
1.选中工作表的三种方式Sub test()Sheet1.SelectSheets(1).SelectSheets(“1月”).SelectEnd Sub上面三种都是选中第一个工作表其中第1个指的是第一个sheet,第2个是索引,可以在括号里改值,第3个工作表名为"1月"的sheet2.怎么在表后面新增表Sub test1()Sheets.Add after:=Sheets(S...
2020-03-25 22:14:06
2219
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人