游戏人间的专栏

原创 教师和教务人员的好帮手【教务助手】升级至3.07

3.07版本新增按关联列合并多个工作表功能。点击下载，提取码：KSfZbsWV教务助手软件是一款辅助软件（共享软件），主要集成了教务功能，工作表的合并、连接、拆分功能，工具条功能三大模块。未注册版本有部分功能限制，为了支持软件业的发展，欢迎你注册。教务助手采用的Excel加载项的技术制作而成，操作界面全在Excel中进行，方便用户的使用，在安装完毕后，会在Excel中增加教务助手菜单和

原创 教师和教务人员的好帮手【教务助手】升级至3.05

教务助手软件是一款辅助软件（共享软件），主要集成了教务功能，工作表的合并、连接、拆分功能，工具条功能三大模块。未注册版本有部分功能限制，为了支持软件业的发展，欢迎你注册。教务助手采用的Excel加载项的技术制作而成，操作界面全在Excel中进行，方便用户的使用，在安装完毕后，会在Excel中增加教务助手菜单和教务助手工具条，符合用户的使用习惯。网络上也有好多成绩统计等辅助软件，并且制作的界

原创 老师和教务人员的好帮手【教务助手】升级为3.02

教务助手软件是一款辅助软件（共享软件），主要集成了教务功能，工作表的合并、连接、拆分功能，工具条功能三大模块。未注册版本有部分功能限制，为了支持软件业的发展，欢迎你注册。教务助手采用的Excel加载项的技术制作而成，操作界面全在Excel中进行，方便用户的使用，在安装完毕后，会在Excel中增加教务助手菜单和教务助手工具条，符合用户的使用习惯。网络上也有好多成绩统计等辅助软件，并且制作的界

原创 Excel批量插入图片

 用excel制作类似准考证的证件时，需要批量插入图片。Sub 插入图片()    qs = InputBox("请输入起始文件号：")    zz = InputBox("请输入终止的文件号：")    On Error Resume Next    For i = qs To zz        ActiveSheet.Shapes.AddPicture _        "F:/图片备份

原创 全选工作表中的shape对象（自选图形、任意多边形、OLE 对象或图片）

 在VBE状态下，用以下代码activesheet.shapes.selectall可选择当前活动工作表中所有shape对象，然后就可以对其设置格式或者删除了。

原创 用命令终止进程

Win + R，调出运行框输入cmd，回车 输入ntsd -c q -pn 程序名或输入taskkill /f /im 程序名 就可以搞定了

原创 老师和教务人员的好帮手【教务助手】升级为3.01

教务助手软件是一款辅助软件（共享软件），主要集成了教务功能，工作表的合并、连接、拆分功能，工具条功能三大模块。未注册版本有部分功能限制，为了支持软件业的发展，欢迎你注册。教务助手采用的Excel加载项的技术制作而成，操作界面全在Excel中进行，方便用户的使用，在安装完毕后，会在Excel中增加教务助手菜单和教务助手工具条，符合用户的使用习惯。网络上也有好多成绩统计等辅助软件，并且制作的界

原创 提取一个单元格中的文本(非数字)-自定义函数

Function FeiShuZi(aa As Range)    Dim n As Integer, i As Integer, tem    n = Len(aa.Value)    For i = 1 To n        If IsNumeric(Application.Find(Mid(aa.Value, i, 1), "0123456789")) = False Then      

原创 消除选定区域的重复的数据

清除重复的数据后，数据向上移动，如果选定的多列，向上向右移动（向右不好，以后再改吧）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim c As RangeOn Error Resume NextIf Target.Count > 1 Then    For Each c In Target        Range(

原创 Application.EnableEvents =false(true)的理解

Private Sub Worksheet_Change(ByVal Target As Range)Dim iRow As Integer iRow = Target.Row Application.EnableEvents = False Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2) Application.EnableE

原创 汉字与字符混合单元格折行的问题

问题：我想判断一个单元格中字符（按英文字符计，1个汉字等于2个英文字符）的长度，如果该单元格的字符数超过10个，则剩下的写到下一行。如一个单元格内容为“生五个孩子太多了”，全是汉字很好办，本单元格写“生五个孩子”，下一行写“太多了”就行。如果是“生5个孩子太多了”，怎样用程序在本单元格写“生5个孩子”，下一行写“太多了”呢？答案：Sub zhehang()Dim iRow, r

原创 成绩统计、试卷分析、分班--教务人员和老师的好帮手【教务助手】

成绩统计、试卷分析、分班--教务人员和老师的好帮手【教务助手】【教务助手】采用的Excel加载项的技术制作而成，操作界面全在Excel中进行，方便用户的使用，在安装完毕后，会在Excel中增加教务助手菜单和教务助手工具条，符合用户的使用习惯。此工具和现在网络上的很多成绩统计等辅助软件相比，有如下优点：1、只需要全年级的成绩，各班总分分数段、各班各科分数段，各班各科平均分等数据可以快速准

原创 批量修改单元格中单个字符的颜色（VBA）

 Sub 替换单个字符颜色()选中需要改变颜色的区域后，运行该段代码Dim rg As Range, i As IntegerFor Each rg In Selection    On Error Resume Next    For i = 1 To Len(rg.Value)        If Mid(rg.Text, i, 1) = "0" Or Mid(rg.Text, i, 1)

原创 分离单元格中的汉字和数字（函数）

 如何用函数分离单元格中的汉字和数字或字母呢，当汉字或数字的位置有一定规律的时候比如，汉字（数字）总在左边或右边，一般是使用left、right、mid等文本函数，其中关键部分是如何获得汉字和数字（字母）的分界的位置或汉字个数或数字（字母）个数，下面的附件中给出几个例子，希望能抛砖引玉。其中有些只对数字有效，有些只对字母有效。一并列出来，加以区别。汗一个，竟然上传不了文件了。在这里写公式吧

原创 图片批量缩放工具V1.2

这次做的修改有:1、对界面稍作改动。2、签名可以预览，并且对签名的文字新增了描边的效果。可以随意设置签名内容的透明度。签名位置新增了左上右下的对角线位置。 3、新增了水印图片的功能，并且可以设置图片的透明度。可以随意设置水印图片的大小。详见： http://blog.csdn.net/soarheaven/archive/2007/06/14/1652885.aspx

转载 图片批量缩放工具

 买了相机，图片越来越多，一张最小也有1兆，占地方,传输太慢，于是想缩放所有的照片。在网上搜到了宝玉[宝玉, openlab.net.cn]做的一个图片批量缩放工具，正好有代码(哈哈，我偷懒了 在这我谢谢宝玉了)，我在他的基础上根据自己的需要又新增了几项功能(支持子目录级缩放并且自动生成与原目录相同的文件结构，能够按着高成像或高压缩缩放，能够在缩放的图片上加上签名)，其实都是小功能了。有用得到的可

原创 家有淘气儿_刨根问底

带孩子去超市玩。孩子指着货架上的罐头问，“这是什么？”“罐头”，我答道。“什么罐头？”“桔子罐头”“什么桔子罐头？”“......红色的桔子罐头”“什么红色桔子罐头？”“............”  

转载 数码照相机-全面了解数码照相机的各项指标

数码照相机-全面了解数码照相机的各项指标 　　数码照相机镜头 　　设计优良的高档数码照相机镜头由多组镜片构成，材质选用价格昂贵的萤石或玻璃来做镜片，好的数码照相机镜头会包含非球面镜片和ED镜片，非球面数码照相机镜片用来抑制图像的畸变，ED镜片则用来减少色散和色偏。世界知名的镜头有佳能数码照相机的镜头，尤其是佳能数码照相机的UA镜头和萤石镜头，富士数码照相机的富士龙镜头，尼康数码照相机的尼克尔镜头，

转载 台球杆法

台球的瞄准：在打球的过程中 有的人打的准有的人打的不准，或者这个样子的球我会，打起来特别得心应手，那样的球我打的不好，老实失误的时候多一些。相信大家都应该有这样的感受。其实如果我们按照物理的角度来看这个问题，或许会有些收获，大家知道，台球的直径是小于袋口直径的。只要在袋口允许的范围内，球一般的情况下是可以下袋的，通过逆推的方法，我们只要保证球在这样的误差范围就可以了，怎么样子保证球的误差尽可能的小

原创 家有淘气儿2

         孩子的姑父过年从部队回来 给孩子买了身新衣裳。        不一会，孩子小声哼道：当兵的人就是不一样，回家给我买衣裳。

原创 家有淘气儿

               儿子2周岁了。        平时他某件事做得好了，比如喝药时不用我们灌，自己端着喝，我们就鼓励他说“你真棒！”        有一天，孩子的奶奶给孩子往奶瓶里倒奶，倒满后剩了半袋，奶奶就拿起来自己喝了，孩子举起大拇指冲着奶奶说：“奶奶真棒，会喝奶了 ！”

原创 提取一个单元格中的数字（Excel自定义函数）

Function SHUZI(AA As Range)    Dim n As Integer, i As Integer, tem    n = Len(AA.Value)    For i = 1 To n        If IsNumeric(Application.Find(Mid(AA.Value, i, 1), "0123456789")) Then            tem =

原创 将多个单元格的内容连接到一个单元格（Excel自定义函数）

Function Lianjie(rAB As Range, isN As Boolean)    第一个参数是单元格区域，可多行多列；第二个参数为true,先列后行，为false，先行后列    Dim nR%, nC%, i%, j%, rng As Range    Set rng = rAB    If isN = True Then        nR = rng.Rows.Count

原创 GB2312简体中文编码表

GB2312简体中文编码表code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +FA1A0 　 、 。 · ˉ ˇ ¨ 〃 々 — ～ ‖ … ‘ ’A1B0 “ ” 〔 〕 〈 〉 《 》 「 」 『 』 〖 〗 【 】A1C0 ± × ÷ ∶ ∧ ∨ ∑ ∏ ∪ ∩ ∈ ∷ √ ⊥ ∥ ∠A1D0 ⌒

原创 汉字区位码表

来自于互联网，版权归原作者这个版本好象应该是GB2312第 1 区 0101 　 0102 、 0103 。 0104 · 0105 ˉ 0106 ˇ 0107

原创 Excel VBA 语句集（2）

VBA语句集(第2辑)*******************************************************定制模块行为(101) Err.Clear ‘清除程序运行过程中所有的错误*******************************************************工作簿(102) ThisWorkbook.BuiltinDocumentPrope

原创 Excel VBA 语句集（1）

VBA语句集(第1辑)定制模块行为(1) Option Explicit 强制对模块内所有变量进行声明Option Private Module 标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text 字符串不区分大小写Option Base 1 指定数组的第一个下标为1(2) On Error Resume Next 忽略错误继续执行VBA

转载 Excel自定义格式参数

 代码结构组成代码码分为四个部分，中间用“；”号分隔，具体如下： 正数格式；负数格式；零格式；文本格式各个参数的涵义“G/通用格式”：以常规的数字显示，相当于“分类”列表中的“常规”选项。 例：代码：“G/通用格式”。10显示为10；10.1显示为10.1。 “0”：数字占位符。如果单元格的内容大于占位符，则显示实际数字，如果小于点位符的数量，则用0补足。 例：代码

转载 照相机（下）数码相机

 针对传统相机照相费用高周期长的缺点，照相机厂家又发明了数码相机。从此，照相机便从德国大拿转移到了日本大拿，并且是日本越来越大拿了，在数码相机领域里现在还没有一个国家敢与日本叫板的，恐怕今后短时期内也没有哪个国家敢与日本叫板的。由此可见，发展才是硬道理确实是一句大实话！ 数码相机发展到今天基本分为两大类，一类就是傻瓜类型的，专门给拍“到此一游”的人准备的，由于这部分人太多，所以傻瓜数码

转载 照相机（上）胶卷相机

照相机从一百多年前发明之时起就是用胶片记载图像的，一开始胶片都是平板的，随着照相机技术的不断改进，平板胶片逐渐变成了可以卷起来的胶片了，于是人们又把照相用的胶片形象地称为胶卷。可以说胶卷是照相机的灵魂所在，没有了胶卷，照相机也就成了没有用的摆设了。 照相机的规格根据所使用的胶卷的大小分成很多种，其中我们老百姓常用的有120、110、135等几种，现在人们常用的只有135一种的了。 

原创 矩阵的乘法

原创 Excel_取得某栏（列）最后非空格的值

这个问题用VBA很容易，下面的一个叙述就可以取得A栏最后非空储存格的值。MsgBox Range("A65536").End(xlUp)但是使用公式来做的话，则需要具备一点想象力。 我记得有一个这样的公式=OFFSET(A1, COUNTA(A:A)-1, 0, 1, 1)这个公式的意思是自A1储存格位移COUNT(A:A)-1列0行，取1列1行，也就是单一储存格。这个公式

原创 Excel_利用公式提取工作表的名称

取得当前工作表的名称：             方法一：在名称中定义sheetname=SUBSTITUTE(GET.DOCUMENT(1),"["&GET.DOCUMENT(88)&"]",)&T(NOW())，单元格中输入=sheetname也能提取工作表名称 ；             方法二：如果要取得当前所在的工作表名称,还有一个更简单的方法,不用插入宏表函数,直接用=M

原创 文科生与理科生_戏谈

理科生看文科生 潇洒浪漫！文科生看理科生 聪明绝顶文科生看理科生 呆理科生看文科生 酸文科生口头禅 “茴香豆”的“茴”字有几种写法，你知道吗？理科生口头禅 1+1=？文科生最头疼的事 1530元存了3个月零7天，利息2.14%，扣除20%的利息所得税，本息共多少？理科生最头疼的事 情人节前夜，灯下冥思苦想，给女友的卡片写点什么好呢？文科生常做的事 咬着笔杆发呆。 理科生常做的事 扶着眼镜发愣。文科

原创 文科与理科的学习方法差别

考取清华大学某高考状元观点一：数理化方面，记忆比较少，理解多。对数理化，我稳扎稳打，重在理解，不死记硬背。上这些课时，我一贯认真听讲，积极思考，对每道例题、习题都用心理解，同时记录下来。存在疑问的地方作上标记，下课后向老师及时请教。一些零碎的知识点亦不放过，随手记于笔记上。每一科都配有专门的笔记本，做笔记是我有益的学习习惯。每学一章，都认真做好笔记。课本看了一遍又一遍，常常能说出某个知识点在哪一页

原创 Excel单元格中公式和结果的互相转化Evaluate和Get.cell

           一、已知计算式，计算计算式的值方法（假如计算式在C2):                  1、选中d2,菜单：插入/名称/定义,在对话框中的“在当前工作薄中的名称”处输入一个名称，比如jg(随便输入），在“引用位置”处输入=evaluate(c2),确定。                  2、在d2中输入=jg,即可，然后下拉复制，就可以在d2这一列中计算出c2的这一列的

原创 Excel单元格中不重复数字的个数及提取

        A1中有一串数字（数值型或文本型皆可），比如13260356        1、数组公式（按Ctrl+Shift+Enter结束输入）=COUNT(FIND(ROW($1:$10)-1,A1))可计算A1中不重复数字的个数，可得6；        2、数组公式=IF(COUNT(FIND(0,A1)),0,)&SUBSTITUTE(SUM(IF(ISNUMBER(FIND(

原创 复读生剖析其对策

    有一位理科复读生当年高考成绩是５１２分，比上年高考成绩４５１分提高了６１分。他在谈体会时说：“刚开始复读时，那落榜的一幕幕总是挥之不去，不论老师和家长怎么鼓劲，学习成绩也没有预想中的大幅度提高。但我还是挺住了，半年以后好像有点开窍似地一下子明白了，以后的进步便是几何形增长了……”    生活当中，许多复读生都经历过这种心理曲线。那么，复读生应该怎样战胜自卑与尴尬的心理，怎样树立起必胜的信心

原创 复读生该如何战胜压力重新出发

 金色的九月，志得意满的高考中榜者陆续进入大学，成为“天之骄子”。但仍有一批人，默默地走入他们那么熟悉的高三课堂，开始他们的“高四”学习生涯。这些学生中大部分是高考落榜者和放弃了不理想学校的中榜者，另外还包括一些中专、职高毕业生。对他们来说，这复读的一年里孕育着他们全部的希望与梦想。　　如何准备教材　　高三使用过的教材做过很多标记，对于有的学生而言，会使他们的学习习惯产生一种定式，所以

原创 因人而异慎重选择“高四”你读不读？

 　　据《燕赵都市报》（许静）报道：高考录取已经结束，有些考生和家长正在为选复读班忙活着。这其中既有成绩不佳“被迫”复读的，也有自恃颇高“自愿落榜”的。复读，也被不少考生戏称为“读高四”。那么，高四值不值得一读？记者采访了部分老师、家长。　　对第一种考生来说，“条条大路通罗马”这句话虽然老套，可还真的很有道理，值得好好琢磨。如果水平已经发挥很好、身心已经疲惫不堪，又何必再受一年罪？更何