- 博客(26)
- 资源 (9)
- 收藏
- 关注
RSS订阅原创 高效利用键盘上的 caps lock（大写键）实现中英切换
我以五笔为例：1.输入法默认模式设置为中文2.中/英 模式切换设置为Ctrl+空格键。
2024-05-18 14:57:09
1173
2
原创 Log4Net 使用内嵌的config 配置文件
在`Main`方法中，我们使用`Assembly.GetManifestResourceStream`来获取嵌入资源的`Stream`，然后将其传递给`XmlConfigurator.Configure`来配置Log4Net。2. 然后，您可以使用`XmlConfigurator.Configure()`方法并提供一个`Stream`或`StreamReader`来加载内嵌的配置文件。上述代码中，`"Log4NetExample.log4net.config"`是嵌入的Log4Net配置文件的资源路径。
2023-10-06 17:46:58
464
原创 用aardio为python写的图形界面,调用numpy,PIL,用后台线程实现
直接上图,import fonts.fontAwesome;import win.ui;/*DSG{{*/var winform = win.form(text="设置";right=984;bottom=589;bgcolor=5921370;composited=1)winform.add(btnReset={cls="plus";text='\uF0E2 重置';left=509;top=529;right=690;bottom=565;bgcolor=11580047..
2022-05-31 14:18:51
1409
3
原创 通过VBA锁定单元格的值
'本功能可以实现通过判断表格第26列的布尔值来决定是否允许用户修改单元格的值 '不允许修改的逻辑为:保存上一次选中单元格的range和range的value '不允许修改的核心方法是给上一次选中的单元格赋值修改前的值
2022-05-13 09:45:35
2497
1
原创 python Class 类的交互随笔
class human: '''人类''' def __init__(self, name, age, happyVal=0, moneyVal=0, owned=[], woman=True, Belover=[], Annoying=[]) -> None: '''人类初始化''' if woman: self.gender = 'woman' else: self.gender =.
2021-07-03 15:28:19
182
原创 批量识别发票二维码图片自动下载pdf
# -*- coding:utf-8 -*-import osfrom pyzbar import pyzbarfrom PIL import Imageimport requestsfrom io import BytesIOimport timeimport sysdef get_ewm(img_adds): """ 读取二维码的内容： img_adds：二维码地址（可以是网址也可是本地地址 """ if os.path.isfile(img_adds): .
2021-06-27 00:48:28
3415
原创 IOS 14 越狱后spotlight没有反应解决办法
执行两个命令：第1步：launchctl unload -w /System/Library/LaunchDaemons/com.apple.searchd.plist第二步：launchctl load -w /System/Library/LaunchDaemons/com.apple.searchd.plist大功告成！另附ios 启动项说明：blog.sina.com.cn/s/blog_9cd1705d0101lhx3.html...
2021-05-06 20:47:35
517
原创 EXCEL实时获取鼠标坐标（稳定）
先添加类模块，命名为 MousePositionMousePosition类模块代码：Option ExplicitPrivate Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare PtrSafe Function GetInputState Lib "user32" () As LongPublic WithEvents iApp As ..
2021-01-28 19:44:34
2725
1
原创 VBA正则表达式深度解析
先上代码：Function GetStr(ByVal rng As String, str As String, Optional i As Long, Optional s As Boolean) '第一个参数rng 为数据源 '第二个参数str 为正则表达式 '第三个参数i 为正则表达式成功匹配的结果列表中的第几个，从0开始，默认为0即第1个 '第四个参数s 为文本[True]或数字[False]，用于剔除数字中的文本内容，默认...
2020-06-26 18:07:14
4618
原创 Excel快速录入工具：
Excel快速录入工具：效果图：效果图插入一个ListBox:调整成自己喜欢的风格 代码存放在Sht1里：Sht3里插入几个表，改好表头和表名，这就是弹出列表框的数据源，还可以插入新的表，表头和表名保持一致Dim Rngs As RangePrivate Sub Worksheet_SelectionChange(ByV...
2019-11-20 00:40:17
645
原创 足球盘口转数字表示
效果展示：源数据 结果 三球 3 四球 4 *两球 -2 *九球 -9 平手 0 *平/半 -0/0.5 半球 0.5 半球 0.5 半球 0.5 半球 0.5 半球 0.5 半球 0.5 两球 2 一/球半 1/1.5 平/半 0/0....
2019-11-17 02:13:54
2085
原创 将WORD中的表格转换到EXCEL中
将WORD中的表格转换到EXCEL中以下代码在WORD中使用Option ExplicitSub word2Excel() Dim iPath As String, iName As String, i As Long, j As Long Dim iEx As Object Dim iWbk As Object Dim iSht As Object...
2019-11-15 02:15:15
499
原创 批量下载EXCEL中的链接到本地
废话不说，直接上代码：模块名：iGt模块名也可以是其他任意合法名，这里只是我自己取的名字。Option ExplicitDim okCount As Long, noCount As Long, nCount As Long, nRow As LongDim iSht As Worksheet, iErrSht As WorksheetDim iIRibbonUI As IRi...
2019-11-14 20:22:12
356
1
原创 VBA单列分成指定数量的列
此方法能将一列生成任意列的列表：Option Explicit 'Callback for rxCol2Cols onActionSub column2Columns(control As IRibbonControl) Application.ScreenUpdating = False Dim iRow As Long, nCol, nRow As ...
2019-11-13 00:53:52
467
原创 VBA 用过程创建过程
此脚本的功能是劫持 ThisWorkBook 工作表内的键盘[A-Z]按键事件，这里只是一个框架。具体的操作可以后面再加。比如做一个自己的输入法，或者输入自动匹配之类的功能都可以在上面实现。关键点是这一行，重复的的代码可以不用反复敲：ThisWorkbook.VBProject.VBComponents(PressKeyMap).CodeModule.AddFromString _ ...
2019-10-24 04:08:42
431
原创 利用PIL的Image将图片像素写入xlwings 的 EXCEL单元格
直接上代码：from PIL import Imageimport xlwings as xwb1 = xw.Book()sht = b1.sheets[0]bg = Image.open("11.png")bg = bg.convert("RGBA")h = bg.size[0]w = bg.size[1]print(h,w)for x in range(h): ...
2019-09-11 00:44:54
2079
原创 excel VBA根据表格内容新建工作簿并贴入内容
Sub addRe() '1.此脚本用于根据sheet1中的第一列从第三行开始的数据新建工作簿并重命名 '2.复制第一列和对应的列的值 '3.调整新建工作簿的列宽 ScreenUpdating = False '关闭屏幕刷新 Dim sCount As Long '列数 Dim sCol As Long '行数 Dim...
2019-08-11 17:19:19
4456
原创 EXCEL 利用VBA 实现图片随单元格的值变化
直接上代码在sheet1里面，顺便修改sheet1为Sht1Sub Image_Change() Dim x%, y%, w%, h%, iPath$ With ActiveSheet.Shapes.Range(Array("图片")) x = .Left '记录坐标点 y = .Top '记录坐标点 w = .Wi...
2019-08-06 16:33:36
2814
原创 EXCEL自定义函数学习与分享(持续更新)
先贴一个类型声明符表：1.iPower求一个值的指定次方数的结果'求次方iPower(源值,次方数)Function iPower(iVal, Pw) As Long'声明一个自定义函数,函数名为iPower,iVal 为源值,Pw为次方数 Application.Volatile '自动刷新计算结果 iPower = 1 '先给iPo...
2019-05-06 13:23:47
2029
原创 EXCEL自定义函数 VLOOKUP的变体(从最右边找值,找到之后返回左边的值)
Function vLookDown(iValue As Range, iRngs As Range, iIndex As Byte)'iValue 要查找的值'iRngs 查找值的区域,在区域的最后一列查找iValue'iIndex找到之后返回区域的第iIndex列,iIndex取值范围为0~255Dim iVal As String '为要查找的值声明变量,声明其类型为字符串...
2019-05-02 22:40:08
3246
原创 EXCEL 使用正则表达式
本文参考：https://blog.youkuaiyun.com/laoyebin/article/details/5377857（EXCEL里常用的几个正则表达式）https://blog.youkuaiyun.com/catoop/article/details/70247105（Excel 正则表达式提取值）今天一个朋友让我帮忙将一组 淘宝的宝贝标题里面提取出型号： A B...
2018-12-24 20:03:09
23593
4
原创 numpy 结合 PIL的Image 使用练习
from PIL import Imageimport numpy as npa = np.random.random_integers(256,size = 4*256*256)#新建一个随机ndarray数组,范围是0~255,数组大小为4 * 256 * 256,代表256*256像素的4 个通道a = a.reshape(256,256,4)a[:,:,3] = 255#让...
2018-12-17 18:28:12
309
电子发票二维码自动识别并下载发票pdf
2021-06-27
unc0ver_5.2.0.ipa
2020-06-11
EXCEL 正则表达式
2019-05-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人