- 博客(87)
- 资源 (1)
- 收藏
- 关注
RSS订阅
原创 Excel多标签插件|VSTO
Excel多标签插件，用vb.net写的，纯粹只有Excel多标签的vsto，体积很小。压缩包中双击setup.exe或MultiTab.vsto。需求：.net 4.6.2，Excel 2010以上。
2024-03-28 15:18:31
179
原创 VB / VBA 自制二维码小工具
现在二维码的使用越来越广泛了，广告、网址等等都用上了从网上找了一个二维码的控件，自己做了个小工具。 二维码可以把一串字符，不管长短（没试过最长能多长），做成二维码图片现在的的智能手机软件很多都有扫描二维码的功能，比如微信、我查查，等等。 点击下面下载相应的文件 下载： 二维码小工具-VBA写的下载： 二维码小工具-VB写的下载： 二维码控件-QRMaker1.3 控件是必须
2013-11-15 16:38:46
12021
1
原创 Pandas中DataFrameGroupBy.agg函数支持的方法
aggregate方法允许您对分组后的数据应用各种聚合函数，以计算每组中的列值的特定统计量或执行其他聚合操作。它支持内置的NumPy函数、Pandas提供的统计方法以及其他可向量化应用的Python函数。还支持您自定义的 Python 函数，只要这些函数能够接受数组（如NumPy数组或Pandas Series）作为输入，并返回单个值或一个与输入形状相同的新数组。支持广泛且灵活的聚合函数选择，包括但不限于上述列出的内置函数以及用户自定义函数，可以根据实际数据分析需求进行选择和组合。您可以通过传递一个字典给。
2024-04-12 11:01:23
405
原创 Pandas-用一个dataframe去更新另一个dateframe
两个dataframe更新，可以用update来进行，update是使用index来匹配的。先将两个要匹配的列转成index，可以用reset_index，将LETTER再转回列。用dfb的值，去更新（代替）dfa中对应的值。直接使用update来更新。...
2022-08-12 15:12:31
2425
原创 VBA dialogs 调用对话框
Application.Dialogs(1).Show是调用打开对话框Application.Dialogs(5或145).Show是调用另存为对话框，Application.Dialogs(6).Show是删除文档Application.Dialogs(7).Show是页面设置Application.Dialogs(8).Show是打印对话框Application.Dialogs(9).Show是选择打印机对话框Application.Dialogs(12).Show是重排窗口设置...
2021-11-03 12:06:35
1242
原创 txt文本转azw3(kindle格式)
txt转azw3(kindle书本格式，可以调整字体)的小工具，用python写的。txt2azw3.zip 下载地址（访问密码：6743）将txt文档拖到下面方框中（可批量转换），点【转换】即可 。调用kindle自产的kindlegen来转换。...
2021-08-06 15:15:06
3593
原创 批处理for命令详解(转)
FOR这条命令基本上都被用来处理文本,但还有其他一些好用的功能! 看看他的基本格式(这里我引用的是批处理中的格式,直接在命令行只需要一个%号) FOR 参数 %%变量名 IN (相关文件或命令) DO 执行的命令 参数:FOR有4个参数 /d /l /r /f 他们的作用我在下面用例子解释 %%变量名 :这个变量名可以是小写a-z或者大写A-Z,他们区分大小写,FOR会把每个读取到的值给他;...
2021-07-27 18:33:10
651
原创 WinRAR的命令行模式用法介绍
WinRAR.exe为安装完后，从安装目录将主程序winRAR.exe拷贝出来即可，该程序是独立可运行的。以下为winRAR的命令帮助原文：Alphabetic commands lista add files to an archive c add an archive comment ch change archive parameters cv convert archives cw write an archive comment to fi
2021-07-22 16:36:29
3407
原创 Python pandas 各类 操作 备忘
>>> import pandas as pd>>> factors={'2021':36.45,'2020':35.43,'2019':34.65,'2018':33.9,'2017':33.14}# 必须加index，index中是列表,列表个数，即为记录数。# 下面是以关键字为列名，共5列>>> df = pd.DataFrame(factors,index=[1])# 结果如下： 2021 2020 2019 2...
2021-03-30 17:45:34
628
原创 adodb 未找到提供程序。该程序可能未正确安装。解决方法
System.Runtime.InteropServices.COMException:“未找到提供程序。该程序可能未正确安装”。出现这个提示，应该是少了acces_engine。去微软官网上下载AccessDatabaseEngine_X64.exe（或者AccessDatabaseEngine.exe）。如果是64的（但是安装了32位的OFFICE)，可能会提示：您不能安装64位版本的Microsoft Access 2010数据库引擎...可以使用下面的命令来强制安装 AccessD.
2021-03-19 10:12:54
3013
原创 Python 练习题
题目：求s=a+aa+aaa+aaaa+aa...a的值，其中a是一个数字。例如2+22+222+2222+22222(此时共有5个数相加)，几个数相加由键盘控制。程序分析：关键是计算出每一项的值。列表生成式直接生成函数def sn(base,times): return sum([int(str(base)*x) for x in range(1,1+times)])&...
2019-11-25 15:42:04
373
原创 Python 水仙花数
水仙花数是指一个 n 位数（n≥3 ），它的每个位上的数字的 n 次幂之和等于它本身如n=3，则指一个三位数，其各位数字立方和等于该数本身。例如：153是一个"水仙花数"，因为153=1的三次方＋5的三次方＋3的三次方。下面列表生成式可以直接得到100-1000的水仙花数 (Python 3)[ x for x in range(100,1000) if x ==((x // ...
2019-11-22 17:48:14
1224
原创 Python 斐波那契数列
Python 斐波那契数列def fib(n): a=[0,1] while len(a)<n: a.append(a[-1] + a[-2]) return a[:n]print(fib(13))结果为：[0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144]...
2019-09-10 14:19:26
763
原创 Python 杨辉三角
#!/usr/bin/python3# -*- coding:utf-8 -*-def triangles1(n): a=[1] print('1'.center(90)) while len(a)<=n: ar = [0] + a + [0] a = [ar[x-1] + ar[x] for x in ...
2019-09-10 11:46:39
307
原创 Python 约瑟夫生者死者小游戏
Python 约瑟夫生者死者小游戏30 个人在一条船上，超载，需要 15 人下船。于是人们排成一队，排队的位置即为他们的编号。报数，从 1 开始，数到 9 的人下船。如此循环，直到船上仅剩 15 人为止，问都有哪些编号的人下船了呢？a =list(range(1,31))while len(a)>15: print(f'{a[8]}号下船了') ...
2019-09-09 14:56:16
1018
转载 EXCEL SAVEAS XlFileFormat 详解
XlFileFormat 枚举NameValue后缀名详细说明Description说明xlAddIn18*.xlaxlAddIn Microsoft Office Excel 加载宏(*.xla) Microsoft Excel 97-2003 Add-InExcel 2007 加载项xlAddIn818
2014-06-20 12:25:48
8099
转载 ios 7.x.x 不越狱添加输入词库
一、准备软件：1、iBackupBot for iTunes 5.1注册iBackupBot help->registerediBackupBot注册码如下：用户名：AXiS - Fighting For Fun注册号：B6ECEFB6E061BC8B2B23459EFE035ABF877E8B1F5BE9245111939AAB2B10AB12、SQLiteExpert
2014-05-19 15:59:09
2027
原创 EXCEL 单变量求解 解一元三次方程
目标单元格：是公式所在的单元格，也是方程所在的单元格，如图中的B1=3*A1^3-100*A1^2+300*A1-300目标值：即目标单元格的值，想要让单元格的值变成多少？即要让方程的结果等于多少 ，一般方程来说就是 =0可变单元格：即变量所在，也就是我们所说的”元“，即 "X" ，这个X是可变的，在EXCEL中很直观，就是一个单元格总体来说，这个操作，就是让EXCEL自动迭代去计算
2013-12-12 18:24:00
14566
原创 Excel VBA 打开百度网页输入关键字并搜索
Sub 百度搜索()'Excel VBA 打开百度网页输入关键字并搜索Dim KW, SuWith CreateObject("InternetExplorer.Application").Navigate "http://www.baidu.com/".Visible = TrueDo Until .readyState = 4DoEventsLoop'Set KW = .do
2013-12-05 00:55:35
7924
转载 EXCEL <-> SQL 导入导出的语句
Excel导入SQL从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:/*===================================================================*/--如果接受数据导入的表已经存在insert into 表 select * fromOPENROWSET('MICROSOFT.JET.OLEDB.4.0
2013-11-26 12:33:53
1049
转载 VB6.0 正则表达式
引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象：RegExp、MatchCollection、Match。 1. RegExp 这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。 其提供的方法以确定字符串是否与正则表达式的特定模
2013-11-20 15:58:36
1723
转载 VBScript文件操作对象FSO大全
基本运算 + 数字加法及字符串连接 - 数字减法 * 数字乘法 / 数字除法 Mod 求余数 \ 求商数 & 字符串连接 ^ 次方 = 相等 <> 不相等 >= 大于或等于 > 大于 <= 小于或等于 < 小于 Not 非 And 且 Or 或 Xor 异或 循环及决策 if .
2013-11-19 15:10:23
2360
原创 将Excel数据写入到TXT中
将Excel中的数据，写入到TXT中，以TAB分隔，便于导入EXCEL中注意红色部分的用法，能大幅提高写入速度Sub GetDataFromExcel()Dim arr, brr, tt = Timerarr = ActiveSheet.UsedRangeReDim brr(1 To UBound(arr, 1))For a = 1 To UBound(arr, 1) brr
2013-11-15 16:38:53
2553
原创 Excel 抽取不重复项的公式
Excel 抽取不重复项的公式假设数据在A列，则用以下公式，可以抽取出A列所有的不重复项（修改999可以修改影响到的行数）=IFERROR(INDEX(A$1:A$999,SMALL(IF(IFERROR(MATCH(A$1:A$999,A$1:A$999,),0)=ROW($1:$999),ROW($1:$999),4^8),ROW(A1))),"")如下图中，E1开始输入以上公式（是数组
2013-11-15 16:38:50
4642
原创 用代码给VBA添加工程密码
VBA代码，给VBA添加工程密码SubAddVBProjectProtection() On Error Resume Next Set Obj =Application.VBE.ActiveVBProject ' 检查是否勾选VBA工程访问权限 If Err.Number<> 0 Then MsgBox "请勾选信任对VBA工程对象模型的访问": Exit Su
2013-11-15 16:38:48
5010
原创 EXCEL使用VBA+SQL计算重复项之和
目的：以A列为标准，取得相同编号的C,D,E,F列的值之和。（去掉重复项，合并掉后面4列的值） 其实如果用函数是可以的，比如用Sumif，但是如果数据量过多，用函数的话可能不太好。 这里用VBA，而且使用SQL语句（数据大的话会快些），当然也可以用数组。 Sub GetDd() Dim Cnn,Rs, SqlsTr$ Set Cnn =Creat
2013-11-15 16:38:44
3487
原创 VBA自定义菜单和菜单栏
在EXCEL中，我们的操作都是通过“工具栏、菜单栏、快捷菜”单实现。EXCEL通过菜单给我们提供基本操作功能之外，也为我们提供了扩展自定义功能的接口，即自定义自己的工具栏、菜单栏。本文着重介绍如何在 Excel2003版本中通过编程方式自定义菜单和菜单栏方法。其中包含Excel中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单，我将通过代码实例分步说明。与大家分享关于VBA实现菜单栏管
2013-11-15 16:38:42
10768
原创 OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错
OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错。提供程序未给出有关错误的任何信息SQL语句：select * fromopenrowset ('Microsoft.Jet.OLEDB.4.0','Excel 8.0;Database=D:\zl\by.xls','select * from[Sheet1$]') 出现了以上的错误，主要原因是：EX
2013-11-15 16:38:40
2640
原创 win2003安装SQL2000提示某个安装程…
开始->运行->regedit到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager 位置选择文件->倒出,保存在右边窗口右击PendingFileRenameOperations，选择删除，然后确认重启安装，问题解决有时个在HKEY_LOCAL_MACHINE\SYSTEM\ControlSet01和C
2013-11-15 16:38:38
861
原创 常用的正则匹配
"^\d+$" //非负整数（正整数 + 0） "^[0-9]*[1-9][0-9]*$" //正整数 "^((-\d+)|(0+))$" //非正整数（负整数 + 0） "^-[0-9]*[1-9][0-9]*$" //负整数 "^-?\d+$" //整数 "^\d+(\.\d+)?$" //非负浮点数（正浮点数 + 0） "^(([0-9]+\.[0-9]*[1-9
2013-11-15 16:38:36
780
原创 正则表达式语法
正则表达式语法一个正则表达式就是由普通字符（例如字符 a 到z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。这里有一些可能会遇到的正则表达式示例：Visual Basic Scripting EditionVBScript匹配/^\[ \t]*$/"^\[ \
2013-11-15 16:38:34
733
转载 用VBA读写excel文档属性
原文地址：用VBA读写excel文档属性作者：严雪用VBA读写excel文档属性2011-01-0408：08要实现限制文件的使用次数，想来应该在某个地方存储文档已用的次数，并且在文档每被使用一次这个使用次数就得发生相应的更改。如果这个思路正确的话，我们就可以利用文档属性的某个位置来实现这一想法，故有了以下两种形式：一、利用自定义属性：因为我们可以自定义数字型的属性，这一点非常符合我们的需求
2013-11-15 16:38:31
3101
原创 EXCEL 公式 多列转成一行
EXCEL 公式 2列多行转成1行=OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2))公式 多列转成一行" TITLE="EXCEL 公式 多列转成一行" />3列多行转成1行=OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0)-1,MOD(COLUMN(C1),3))以此类推，4列以上的呢？大家可以自己试
2013-11-15 16:38:29
1690
原创 EXCEL公式 VBA 随机生成不重复值
宏代码Sub不重复的值()Dim arr(1 To100000, 1 To 1), dicSet dic =CreateObject("scripting.dictionary")Do Until i =100000 tmp = Format(Int(Rnd() * 100000) + 1,0) If Not dic.exists(tmp) Then i
2013-11-15 16:38:27
2246
原创 VBA的Format函数
Format(值,格式(可选参数))一、数字格式：1、General Number：普通数字，可以用来去掉千位分隔号和无效 0 。如：Format("1,234,567.80", "General Number")="1234567.8"2、Currency：货币类型，可添加千位分隔号和货币符号，保留两位小数点。如：Format(1234567,"Currency")="¥1,
2013-11-15 16:38:25
15769
原创 VBA 读取/写入文本文件
VBA读取/写入文本文件 1、Open语句 打开方式有 Input：以读取方式打开。Output：以写入方式打开。Append：以追加方式，即添加内容到文件末尾打开。Binary：以二进制方式打开。Random：以随机方式打开，如果未指定方式，则以 Random方式打开文件。 Open pathname For mode As[#]filenumber Open
2013-11-15 16:38:23
2788
原创 VBA字符串处理
目录：1 VBA中的字符串2 VBA中处理字符串的函数 2.1比较字符串 2.2转换字符串 2.3创建字符串 2.4获取字符串的长度 2.5格式化字符串 2.6查找字符串 2.7提取字符/字符串 2.8删除空格 2.9返回字符代码 2.10返回数值代表的相应字符 2.11使用字节的函数
2013-11-15 16:38:21
2070
原创 Vlookup返回多个值 自定义函数
VlookUP函数只能返回第一个值，无法返回多个值下面这个自定义函数可以解决这个问题可以这么理解，是Vlookup函数返回多个值，将其对应的所有值都列出来 FunctionLookS(rng As Range, rg As Range, i As Byte, ii As Integer)'第1参数为查找的单元格，第2参数是查找范围，第3参数为返回的列，第4参数为返回的第几个值'第1参
2013-11-15 16:38:19
3305
原创 EXCEL 批量导出图片
Sub ExportPictures() Dim MyShp AsShape Dim FilenameAs String For EachMyShp In Sheet1.Shapes If MyShp.Type = msoPicture Then Filename = ThisWorkbook.Path & "\"& MySh
2013-11-15 16:38:17
1277
约瑟夫生者死者小游戏.py
2019-09-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人