灵台方寸山斜月三星洞

EXCEL常用公式：8位随机码=CONCATENATE(IF(INT(RAND()*3)=0,CHAR(INT(RAND()*10+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*3)=0,CHAR(INT(RAND()*10+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF

判断当前参数上如果有注解。就处理// 如果存在指定注解进入excel resolveArgument } @Override public Object resolveArgument(MethodParameter parameter , // 当前参数对象 ModelAndViewContainer mavContainer , NativeWebRequest webRequest , WebDataBinderFactory binderFactory) {try {

另外了方便还引用了, 不创建对象的读正常创建按表字段，创建实体，然后读数据，没什么好说的。这里看一下：不创建对象的读就是官方代码，只是补充了一下注释。测试代码这注释也是官方的，好像少字了。参考资料Easy Excel 官网............

测试Iterator 遍历参考资料Apache POI - JavadocsApache POI - Component OverviewApache POI - Component Overview：HSSF、XSSF快速指南JavatPoint：Apache POI Tutorialstackoverflow：Apache POI Excel How To …cnblogs - 技术江湖 - Apache POI使用详解CSDN - 技术宅星云 - Apache POI 中文使.....

手写数组：={1,2,3,4,5} 数组在单元格内默认只显示第一个格子。二维数组写法1维代表行（分隔符,），2维代表列（分隔符;）=INDEX({1,2,3,4,5;6,7,8,9,10;11,12,13,14,15},2,3,1) 结果 8数组拼接拼接 B1:H1&B2:H2两个区域可以得到如下区域内容。借助 index函数看下效果得到：A3009...

Sub 清除单格内部分文字() On Error Resume Next ' 忽略报错 Dim r As Range Dim count As Integer Dim c As Characters Dim str As String For Each r In Range("A2:E115") count = r.Characters.count For i = 1 To count

Excel 条件格式实现甘特图工作日条件格式设置添加条件格式周未条件格式设置为了讲解公式截个效果图参考。日期排的不合理请无视。工作日效果：有工作【紫色██】，无工作【白色██】周未日效果：有工作【紫色██】，无工作【灰色██】工作日条件格式设置添加条件格式框选要设置的区域 =$G$5:$BP$46》开始》条件格式》新建规则选择条件格式规则添加工作日条件公式=AND(G$3>=$D5,G$3<=$E5)当前单元格的值满足： >= $D5 并且 <=$E5 条

Excel 求和SUM 求和函数语法SUMIF 条件求和函数语法SUMIFS 多条件求和函数语法SUBTOTAL 可见区域求和语法参考资料SUM 求和函数对指定区域的所有内容进行求和。语法SUM(number1, [number2], ...)参数必填说明numberN是支持：数字、单元格引用、单元格范围引用。SUMIF 条件求和函数对指定区域中满足条件的内容进行求和。语法SUMIF（range, criteria, [sum_range]）参数必

Excel中的单元格格式是一个最基本但是又很高级的技能，说它基本是因为几乎天天都会用到它，会用它来设置一些简单的格式，比如日期，文本等等；高级是因为利用Excel单元格的自定义格式我们可以实现一些看起来非常神奇和有用的效果。下面本文就由浅入深的来介绍一下 Excel单元格自定义格式的知识和技巧。1、“G/通用格式”以常规的数字显示,相当于"分类"列表中的"常规"选项。代码：G/通用格式。1......

CELL函数：获得指定单元格地址、值、文件路径等信息。CELL(要获取信息的类型, 获取谁？默认左上角A1)FIND函数 ：在字符串中查找子串的位置。首字母编号 1FIND(要查找的关键字, 包含关键字的文章, 开始查找的位置)MID函数：MID 返回文本字符串中从指定位置开始的特定数目的字符，该数目由用户指定。MID(源字符串, 开始位置, 提取几个字)定义名称公式结果全路径名=CELL(“filename”)E:\[表哥表姐.xlsx]Sheet1..

按分数做ABCD评级：A级B 级C 级D 级95分以上85-94分70-84分70分以下MATCH（目标数据, 常量数组, -1表示数组是降序排列的）A1的值在组中{100,94.9,84.9,69.9}中能排第几?=MATCH(A1,{100,94.9,84.9,69.9},-1)swith：按结果匹配值=SWITCH(1, 1,"A",2,"B",3,"C",4,"D") // A=SWITCH(2, 1,"A",2,"B",3,"C",4,"D") /

Sub 添加标注参考图()'On Error Resume Next 'Set rngTemp = Application.InputBox(&quot;图片插入区域：&quot;, &quot;选择单元格&quot;, Dim j_h, j_w, ww ww = 400 For Each k In Selection Set p = Nothing '用相对路径，有...

Option Explicit'By Demon'http://demon.twDim pSet p = LoadPicture(&amp;quot;F:\curve.jpg&amp;quot;)WScript.Echo &amp;quot;Width: &amp;quot; &amp;amp;amp; Himetric2Pixel(p.Width)WScript.Echo &amp;quot;Height: &amp

'r,c 图片所在单元格的偏移量，用来做图片的名字Sub exportPic()r = 0c = -2 For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Select Name = Range(ActiveSheet.Shapes(i).TopLeftCell.Address).Of...

'大家好，我是笨笨，笨笨的笨，笨笨的笨，谢谢！'excel 2010'选中单元格，按其内容，插入图片'2014-08-08Sub inputImg() On Error Resume Next Dim Cell As Range Dim Pics As String Dim ErrCell As String Dim PictruePat...

Sub 添加标注参考图_弹出选择窗口版()'单选一个格子，打开选择文件窗口，选择图片确定。'图片会入去作为批注背景图插入单元格。'2015-07-06 笨笨'上次等比缩放写错了，已经修正'2015-11-10On Error Resume Next Dim j_h, j_w, ww, initialPath Dim k '当前单元格 Set k =...

ExcelSub 批量修改标注尺寸()'批量调整选中的单元格的尺寸。'2015-07-10 笨笨On Error Resume Next '注意：这里的单位不是像素是点 Dim j_h, j_w j_w = 320 j_h = 180 For Each k In Selection If Not k Is Nothing Then...

项目进入到要测试数据的阶段了。从数据库导出一堆 excel 表，但看它们就这样散着真不舒服。所以合并一下吧。在网上搜了半天，竞然都没有找到现成通用的VBS脚本，真坑爹。只能自己来了。Dim source_XLS,final_XLS_name,fileConut,xls_name'----------------------------------- 配置参数 -----

'----------------------------------------------------------'拖放转换：'支持拖放到VBS上将xls转换成txt'批量转换：'将指定目录下的xls批量转换为txt。（支持遍历子目录）'----------------------------------------------------------'...