随手小代码
gxchai
这个作者很懒,什么都没留下…
展开
-
VBA取干部大表WORD文件中的单元格内容到EXCEL
碰到一个问题,是要从干部大表中提取人员的各种信息,几百张大表都是DOC格式,就写了以下代码,把这个EXCEL文件和所有WORD放在同一个目录下,运行下就可以了。原创 2022-07-20 17:40:26 · 783 阅读 · 0 评论 -
VBA按座次排位(交错排座,向一侧或两侧排座,混合排座)
昨天写了一个分组公式,把同事激动得以为所有排座位都可以用一个公式来完成,今天一早又说排座位,把整个会场分成3片,中间片是交错排列,左侧和右侧是向两边排列,画个图示意就是这样让我写个公式,我说,这还真不是一个公式可以完成的,就写了几行代码,可以做到以下功能:1、可以只设定中间区域,也就是会场所有人员按交错排列2、可以只设定左边区域或右边区载,也就是所有人员统一从左向右排或从右向左排3、可以混合排,就是按我同事的要求,先中间交错排,然后左侧从右向左排,再右侧从左向右排大概界面是这样分两个工作表,原创 2021-12-31 09:41:10 · 777 阅读 · 0 评论 -
Python对图像进行倾斜校正
利用霍夫变换,将in文件夹中倾斜的图像进行校正,并输出到out文件夹。关键代码摘自:https://blog.csdn.net/feilong_csdn/article/details/81586322注意1、文件夹名不能有中文2、in文件夹内不要有其他文件或文件夹3、out文件夹需要为空每一个文件的变换都会需要几秒种时间。################## 在指定目录下放置需要水平不正的图片文件,注意文件夹和文件名不能有中文# 图像源文件在 文件夹\in 目录,输入为 文件夹\out转载 2021-12-03 11:40:36 · 6823 阅读 · 4 评论 -
VBA根据图片链接地址显示出图片
在B列已有图片的链接地址,要在C列显示相应的图片,下面是代码Sub 把B列图片链接在C列生成图片() '以第2-4行为例,设定单位格宽度(图片宽度) Columns("C:C").ColumnWidth = 36.22 Rows("2:4").RowHeight = 150 '插入图片(假设图都是4:3的,否则还涉及要取得原始尺寸,如果图小,可以直接把200,150改为-1,-1) For i = 2 To 4 ActiveSheet.Shapes.原创 2021-12-01 10:58:48 · 1880 阅读 · 0 评论 -
VBA打印当前文件夹下所有xls文件
下面脚本是进行对本目录(不含子目录)的xls文件进行打印最大的问题自动双面无法处理。现在解决办法是:1、默认打印机中直接设置为自动双面,但有的打印机(如东芝AC2000)即使设置了也没有带到EXCEL里来2、取消Application.Dialogs(xlDialogPrint).Show前的注释,这时每次要打前会提示打印设置,这个有点头大3、根据https://stackoverflow.com/questions/40848751/excel-vba-printer-api-set-colou原创 2021-11-29 08:49:01 · 974 阅读 · 0 评论 -
JSP接收GET方式的中文字符
今天在工作时,需要从在一个JSP中,把一个GET方式的 request 中取得一个中文内容,参数名是name,再显示同文件名的图片,简化后就以下面的代码主要是分两步,一步是设置接收字符集,要与服务器字符集一致,一步是取参数。<%@ page language="java" import="java.util.*,java.io.*"pageEncoding="UTF-8"%><!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transiti原创 2021-11-24 12:02:10 · 177 阅读 · 0 评论 -
PowerQuery中如何取上一行数据
思路:先添加索引,然后再取索引-1的值如图,要取得上一年的姓名值:第一步:添加索引列第二步:添加索引-1值的列名图中输入的是:已添加索引{[索引]-1}[姓名]完整的内容是: Table.AddColumn(已添加索引, “上年姓名”, each 已添加索引{[索引]-1}[姓名])注意 [ ] 和 { } 标记不要弄错了。结束以后再对Error值进行处理,这里就不说了。...原创 2021-11-23 15:25:03 · 3600 阅读 · 0 评论 -
python写的,根据列表下载文件,并重命名
工作中碰到,要下载一堆文件,同时要重命名,就想,直接把下载地址和重命名的文件名存成excel文件,让python一个个慢慢下去。因为是自己用的,所以没写异常啥的。以下是源代码:################## 在指定目录下放置指定xls文件,Sheet1 第一列为下载的链接地址,第二列为下载另存为的文件名# excel 格式:第一行第一列 标题:要下载的网址 第一行第二列 标题:另存为文件名,从第二行开始按内容填写# 如果要修改excel的文件名或位置,直接在代码里改# 下载好的文件就放在运原创 2021-11-19 08:47:48 · 2233 阅读 · 2 评论