Excel
文章平均质量分 56
xg_an
这个作者很懒,什么都没留下…
展开
-
Excel应用_给成绩按比例划分ABCD等的几种方法
假如学生姓名存在a3:a762中,某科成绩存在g3:g762中,满分150分,四个等次的划分有两种分法: 一、分数从高到低算,总人数的第一个四分之一为A,第二个四分之一为B,第三个四分之一为C,第四个四分之一为D,将等次填入到H列。 有几个公式可以实现,下面只给出H3的公式,其他下拉即可。 =LOOKUP(RANK(G3原创 2006-06-22 17:21:00 · 11106 阅读 · 0 评论 -
提取一个单元格中的文本(非数字)-自定义函数
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原创 2008-02-04 20:38:00 · 1662 阅读 · 0 评论 -
成绩统计、试卷分析、分班--教务人员和老师的好帮手【教务助手】
成绩统计、试卷分析、分班--教务人员和老师的好帮手【教务助手】【教务助手】采用的Excel加载项的技术制作而成,操作界面全在Excel中进行,方便用户的使用,在安装完毕后,会在Excel中增加教务助手菜单和教务助手工具条,符合用户的使用习惯。此工具和现在网络上的很多成绩统计等辅助软件相比,有如下优点:1、只需要全年级的成绩,各班总分分数段、各班各科分数段,各班各科平均分等数据可以快速准原创 2007-12-25 22:37:00 · 2165 阅读 · 0 评论 -
老师和教务人员的好帮手【教务助手】升级为3.01
教务助手软件是一款辅助软件(共享软件),主要集成了教务功能,工作表的合并、连接、拆分功能,工具条功能三大模块。未注册版本有部分功能限制,为了支持软件业的发展,欢迎你注册。教务助手采用的Excel加载项的技术制作而成,操作界面全在Excel中进行,方便用户的使用,在安装完毕后,会在Excel中增加教务助手菜单和教务助手工具条,符合用户的使用习惯。网络上也有好多成绩统计等辅助软件,并且制作的界原创 2008-03-16 15:10:00 · 985 阅读 · 0 评论 -
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原创 2008-01-17 19:38:00 · 12939 阅读 · 1 评论 -
汉字与字符混合单元格折行的问题
问题:我想判断一个单元格中字符(按英文字符计,1个汉字等于2个英文字符)的长度,如果该单元格的字符数超过10个,则剩下的写到下一行。如一个单元格内容为“生五个孩子太多了”,全是汉字很好办,本单元格写“生五个孩子”,下一行写“太多了”就行。如果是“生5个孩子太多了”,怎样用程序在本单元格写“生5个孩子”,下一行写“太多了”呢?答案:Sub zhehang()Dim iRow, r原创 2008-01-16 23:11:00 · 866 阅读 · 0 评论 -
消除选定区域的重复的数据
清除重复的数据后,数据向上移动,如果选定的多列,向上向右移动(向右不好,以后再改吧)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(原创 2008-01-17 19:48:00 · 976 阅读 · 0 评论 -
全选工作表中的shape对象(自选图形、任意多边形、OLE 对象或图片)
在VBE状态下,用以下代码activesheet.shapes.selectall可选择当前活动工作表中所有shape对象,然后就可以对其设置格式或者删除了。原创 2008-07-24 20:48:00 · 2733 阅读 · 0 评论 -
Excel批量插入图片
用excel制作类似准考证的证件时,需要批量插入图片。Sub 插入图片() qs = InputBox("请输入起始文件号:") zz = InputBox("请输入终止的文件号:") On Error Resume Next For i = qs To zz ActiveSheet.Shapes.AddPicture _ "F:/图片备份原创 2008-07-24 20:57:00 · 2026 阅读 · 0 评论 -
老师和教务人员的好帮手【教务助手】升级为3.02
教务助手软件是一款辅助软件(共享软件),主要集成了教务功能,工作表的合并、连接、拆分功能,工具条功能三大模块。未注册版本有部分功能限制,为了支持软件业的发展,欢迎你注册。教务助手采用的Excel加载项的技术制作而成,操作界面全在Excel中进行,方便用户的使用,在安装完毕后,会在Excel中增加教务助手菜单和教务助手工具条,符合用户的使用习惯。网络上也有好多成绩统计等辅助软件,并且制作的界原创 2008-12-22 13:20:00 · 823 阅读 · 0 评论 -
教师和教务人员的好帮手【教务助手】升级至3.05
教务助手软件是一款辅助软件(共享软件),主要集成了教务功能,工作表的合并、连接、拆分功能,工具条功能三大模块。未注册版本有部分功能限制,为了支持软件业的发展,欢迎你注册。教务助手采用的Excel加载项的技术制作而成,操作界面全在Excel中进行,方便用户的使用,在安装完毕后,会在Excel中增加教务助手菜单和教务助手工具条,符合用户的使用习惯。网络上也有好多成绩统计等辅助软件,并且制作的界原创 2009-03-29 11:40:00 · 927 阅读 · 0 评论 -
批量修改单元格中单个字符的颜色(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)原创 2007-08-24 23:36:00 · 5285 阅读 · 0 评论 -
分离单元格中的汉字和数字(函数)
如何用函数分离单元格中的汉字和数字或字母呢,当汉字或数字的位置有一定规律的时候比如,汉字(数字)总在左边或右边,一般是使用left、right、mid等文本函数,其中关键部分是如何获得汉字和数字(字母)的分界的位置或汉字个数或数字(字母)个数,下面的附件中给出几个例子,希望能抛砖引玉。其中有些只对数字有效,有些只对字母有效。一并列出来,加以区别。汗一个,竟然上传不了文件了。在这里写公式吧原创 2007-08-09 21:47:00 · 2291 阅读 · 0 评论 -
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(原创 2006-06-29 23:45:00 · 6259 阅读 · 1 评论 -
Excel单元格中公式和结果的互相转化Evaluate和Get.cell
一、已知计算式,计算计算式的值方法(假如计算式在C2): 1、选中d2,菜单:插入/名称/定义,在对话框中的“在当前工作薄中的名称”处输入一个名称,比如jg(随便输入),在“引用位置”处输入=evaluate(c2),确定。 2、在d2中输入=jg,即可,然后下拉复制,就可以在d2这一列中计算出c2的这一列的原创 2006-06-30 08:19:00 · 5240 阅读 · 0 评论 -
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行,也就是单一储存格。这个公式原创 2006-07-08 23:21:00 · 3319 阅读 · 0 评论 -
Excel_利用公式提取工作表的名称
取得当前工作表的名称: 方法一:在名称中定义sheetname=SUBSTITUTE(GET.DOCUMENT(1),"["&GET.DOCUMENT(88)&"]",)&T(NOW()),单元格中输入=sheetname也能提取工作表名称 ; 方法二:如果要取得当前所在的工作表名称,还有一个更简单的方法,不用插入宏表函数,直接用=M原创 2006-07-04 23:20:00 · 17597 阅读 · 1 评论 -
Excel自定义格式参数
代码结构组成代码码分为四个部分,中间用“;”号分隔,具体如下: 正数格式;负数格式;零格式;文本格式各个参数的涵义“G/通用格式”:以常规的数字显示,相当于“分类”列表中的“常规”选项。 例:代码:“G/通用格式”。10显示为10;10.1显示为10.1。 “0”:数字占位符。如果单元格的内容大于占位符,则显示实际数字,如果小于点位符的数量,则用0补足。 例:代码转载 2006-11-18 12:53:00 · 3490 阅读 · 0 评论 -
Excel VBA 语句集(1)
VBA语句集(第1辑)定制模块行为(1) Option Explicit 强制对模块内所有变量进行声明Option Private Module 标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Option Compare Text 字符串不区分大小写Option Base 1 指定数组的第一个下标为1(2) On Error Resume Next 忽略错误继续执行VBA原创 2006-12-21 20:30:00 · 2609 阅读 · 1 评论 -
Excel VBA 语句集(2)
VBA语句集(第2辑)*******************************************************定制模块行为(101) Err.Clear ‘清除程序运行过程中所有的错误*******************************************************工作簿(102) ThisWorkbook.BuiltinDocumentPrope原创 2006-12-21 20:32:00 · 1928 阅读 · 0 评论 -
提取一个单元格中的数字(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 =原创 2006-12-28 20:29:00 · 4780 阅读 · 0 评论 -
将多个单元格的内容连接到一个单元格(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原创 2006-12-28 20:26:00 · 2508 阅读 · 0 评论 -
教师和教务人员的好帮手【教务助手】升级至3.07
3.07版本新增按关联列合并多个工作表功能。点击下载,提取码:KSfZbsWV教务助手软件是一款辅助软件(共享软件),主要集成了教务功能,工作表的合并、连接、拆分功能,工具条功能三大模块。未注册版本有部分功能限制,为了支持软件业的发展,欢迎你注册。教务助手采用的Excel加载项的技术制作而成,操作界面全在Excel中进行,方便用户的使用,在安装完毕后,会在Excel中增加教务助手菜单和原创 2012-01-12 20:08:52 · 1940 阅读 · 0 评论