中国领先的IT技术网站
51CTO旗下网站
JavaScript 对象深入学习总结
JavaScript中，除了五种原始类型（即数字，字符串，布尔值，null，undefined）之外的都是对象了，所以，不把对象学明白怎么继续往下学习呢？
作者：来源：| 09:27
JavaScript中，除了五种原始类型（即数字，字符串，布尔值，null，undefined）之外的都是对象了，所以，不把对象学明白怎么继续往下学习呢？
对象是一种复合值，它将很多值（原始值或其他对象）聚合在一起，可通过属性名访问这些值。而属性名可以是包含空字符串在内的任意字符串。 JavaScript对象也可以称作一种数据结构，正如我们经常听说的&散列（hash）&、&散列表（hashtable）&、&字典 （dictionary）&、&关联数组（associative array）&。
JavaScript中对象可以分为三类：
①内置对象，例如数组、函数、日期等；
②宿主对象，即JavaScript解释器所嵌入的宿主环境（比如浏览器）定义的，例如HTMLElement等；
③自定义对象，即用代码定义的；
对象的属性可以分为两类：
①自有属性（own property）：直接在对象中定义的属性；
②继承属性（inherited property）：在对象的原型对象中定义的属性（关于原型对象下面会详谈）；
二.对象的创建
既然学习对象，又怎能不懂如何创建对象呢？面试前端岗位的同学，可能都被问过这个基础问题吧：
创建JavaScript对象的两种方法是什么？（或者：说说创建JavaScript对象的方法？）
这个问题我就被问过两次。&创建对象的两种方法&这种说法网上有很多，但是据我所看书籍来说是有三种方法的！下面我们就来具体谈谈这三种方法：
1.对象直接量
对象直接量由若干名/值对组成的映射表，名/值对中间用冒号分隔，名/值对之间用逗号分隔，整个映射表用花括号括起来。属性名可以是JavaScript标识符也可以是字符串直接量，也就是说下面两种创建对象obj的写法是完全一样的：
var obj = {x: 1, y: 2};
var obj = {'x': 1, 'y':2};
2.通过new创建对象
new运算符后跟随一个函数调用，即构造函数，创建并初始化一个新对象。例如：
1 var o = new Object();&&& //创建一个空对象，和{}一样
2 var a = new Array();&&& //创建一个空数组，和[]一样
3 var d = new Date();&&& //创建一个表示当前时间的Date对象
关于构造函数相关的内容以后再说。
3.Object.create()
ECMAScript5定义了一个名为Object.create()的方法，它创建一个新对象，其中第一个参数是这个对象的原型对象（好像还没解 释原型对象&下面马上就说），第二个可选参数用以对对象的属性进行进一步的描述，第二个参数下面再说（因为这第三种方法是ECMAScript5中定义 的，所以以前大家才经常说创建对象的两种方法的吧？个人觉得应该是这个原因）。这个方法使用很简单：
1 var o1 = Object.create({x: 1, y: 2});&&& //对象o1继承了属性x和y
2 var o2 = Object.create(null);&&& //对象o2没有原型
下面三种的完全一样的：
1 var obj1 = {};
2 var obj2 = new Object();
3 var obj3 = Object.create(Object.prototype);
为了解释为啥这三种方式是完全一样的，我们先来解释下JavaScript中的原型对象（哎，让客官久等了！），记得一位大神说过：
Javascript是一种基于对象（object-based）的语言，你遇到的所有东西几乎都是对象。但是，它又不是一种真正的面向对象编程（OOP）语言，因为它的语法中没有class（类）。
面向对象的编程语言JavaScript，没有类！！！那么，它是怎么实现继承的呢？没错，就是通过原型对象。基本上每一个JavaScript对 象（null除外）都和另一个对象相关联，&另一个&对象就是所谓的原型对象（原型对象也可以简称为原型，并没有想象的那么复杂，它也只是一个对象而 已）。每一个对象都从原型对象继承属性，并且一个对象的prototype属性的值（这个属性在对象创建时默认自动生成，并不需要显示的自定义）就是这个 对象的原型对象，即obj.prototype就是对象obj的原型对象。
原型对象先说到这，回到上面的问题，有了对原型对象的认识，下面就是不需要过多解释的JavaScript语言规定了：
①所有通过对象直接量创建的对象的原型对象就是Object.prototype对象；
②通过关键字new和构造函数创建的对象的原型对象就是构造函数prototype属性的值，所以通过构造函数Object创建的对象的原型就是Object.prototype了；
现在也补充了第三种创建对象的方法Object.create()第一个参数的含义。
三.属性的查询和设置
学会了如何创建对象还不够啊，因为对象只有拥有一些属性才能真正起到作用滴！那么，就继续往下学习对象的属性吧！
可以通过点（.）或方括号（[]）运算符来获取和设置属性的值。对于点（.）来说，右侧必须是一个以属性名命名的标识符（注 意：JavaScript语言的标识符有自己的合法规则，并不同于带引号的字符串）；对于方括号（[]）来说，方括号内必须是一个字符串表达式（字符串变 量当然也可以喽，其他可以转换成字符串的值比如数字什么的也是都可以滴），这个字符串就是属性的名字。正如下面例子：
var&obj&=&{x:&1,&y:&2};&obj.x&=&5;&obj['y']&=&6&
概述中说过，JavaScript对象具有&自有属性&，也有&继承属性&。当查询对象obj的属性x时，首先会查找对象obj自有属性中是否有 x，如果没有，就会查找对象obj的原型对象obj.prototype是否有属性x，如果没有，就会进而查找对象obj.prototype的原型对象 obj.prototype.prototype是否有属性x，就这样直到找到x或者查找到的原型对象是undefined的对象为止。可以看到，一个对 象上面继承了很多原型对象，这些原型对象就构成了一个&链&，这也就是我们平时所说的&原型链&，这种继承也就是JavaScript中&原型式继承& （prototypal inheritance）。
对象o查询某一属性时正如上面所说会沿着原型链一步步查找，但是其设置某一属性的值时，只会修改自有属性（如果对象没有这个属性，那就会添加这个属性并赋值），并不会修改原型链上其他对象的属性。
四.存取器属性getter和setter
上面我们所说的都是很普通的对象属性，这种属性称做&数据属性&（data
property），数据属性只有一个简单的值。然而在ECMAScript
5中，属性值可以用一个或两个方法替代，这两个方法就是getter和setter，有getter和setter定义的属性称做&存取器属性& （accessor property）。
当程序查询存取器属性的值时，JavaScript调用getter方法（无参数）。这个方法的返回值就是属性存取表达式的值。当程序设置一个存取 器属性的值时，JavaScript调用setter方法，将赋值表达式右侧的值当做参数传入setter。如果属性同时具有getter和setter 方法，那么它就是一个读/写属性；如果它只有getter方法，那么它就是一个只读属性，给只读属性赋值不会报错，但是并不能成功；如果它只有 setter方法，那么它是一个只写属性，读取只写属性总是返回undefined。看个实际的例子：
var&p&=&{&&&&&x:&1.0,&&&&&y:&2.0,&&&&&get&r(){&return&Math.sqrt(this.x*this.x&+&this.y*this.y);&};&&&&&set&r(newvalue){&&&&&&&&&var&oldvalue&=&Math.sqrt(this.x*this.x&+&this.y*this.y);&&&&&&&&&var&ratio&=&newvalue/&&&&&&&&&this.x&*=&&&&&&&&&&this.y&*=&&&&&&},&&&&&get&theta(){&return&Math.atan2(this.y,&this.x);&},&print:&function(){&console.log('x:'+this.x+',&y:'+this.y);&}&};&
正如例子所写，存取器属性定义一个或两个和属性同名的函数，这个函数定义并没有使用function关键字，而是使用get和set，也没有使用冒 号将属性名和函数体分隔开。对比一下，下面的print属性是一个函数方法。注意：这里的getter和setter里this关键字的用 法，JavaScript把这些函数当做对象的方法来调用，也就是说，在函数体内的this指向这个对象。下面看下实例运行结果：
正如控制台的输出，r、theta同x，y一样只是一个值属性，print是一个方法属性。
ECMAScript 5增加的这种存取器，虽然比普通属性更为复杂了，但是也使得操作对象属性键值对更加严谨了。
五.删除属性
程序猿撸码一般都是实现增、删、改、查功能，前面已经说了增、改、查，下面就说说删除吧！
delete运算符可以删除对象的属性，它的操作数应该是一个属性访问表达式。但是，delete只是断开属性和宿主对象的联系，而不会去操作属性中的属性：
var&a&=&{p:{x:1}};&var&b&=&a.p;&delete&a.p;&
执行这段代码后b.x的值依然是1，由于已删除属性的引用依然存在，所以有时这种不严谨的代码会造成内存泄露，所以在销毁对象的时候，要遍历属性中的属性，依次删除。
delete表达式返回true的情况：
①删除成功或没有任何副作用（比如删除不存在的属性）时；
②如果delete后不是一个属性访问表达式；
var&obj&=&{x:&1,get&r(){return&5;},set&r(newvalue){this.x&=&}};&delete&obj.x;&&&&&delete&obj.x;&&&&&delete&obj.r;&&&&&delete&obj.toS&&&&&delete&1;&&&&&
delete表达式返回false的情况：
①删除可配置性（可配置性是属性的一种特性，下面会谈到）为false的属性时；
delete Object.&&& //返回false，prototype属性是不可配置的
//通过var声明的变量或function声明的函数是全局对象的不可配置属性
var x = 1;
delete this.x;&&& //返回false
function f() {}
delete this.f;&&& //返回false
六.属性的特性
上面已经说到了属性的可配置性特性，因为下面要说的检测属性和枚举属性还要用到属性的特性这些概念，所以现在就先具体说说属性的特性吧！
除了包含名字和值之外，属性还包含一些标识它们可写、可枚举、可配置的三种特性。在ECMAScript
3中无法设置这些特性，所有通过ECMAScript
3的程序创建的属性都是可写的、可枚举的和可配置的，且无法对这些特性做修改。ECMAScript
5中提供了查询和设置这些属性特性的API。这些API对于库的开发者非常有用，因为：
①可以通过这些API给原型对象添加方法，并将它们设置成不可枚举的，这让它们更像内置方法;
②可以通过这些API给对象定义不能修改或删除的属性，借此&锁定&这个对象；
在这里我们将存取器属性的getter和setter方法看成是属性的特性。按照这个逻辑，我们也可以把属性的值同样看做属性的特性。因此，可以认 为属性包含一个名字和4个特性。数据属性的4个特性分别是它的值（value）、可写性（writable）、可枚举性（enumerable）和可配置 性（configurable）。存取器属性不具有值特性和可写性它们的可写性是由setter方法是否存在与否决定的。因此存取器属性的4个特性是读取 （get）、写入（set）、可枚举性和可配置性。
为了实现属性特性的查询和设置操作，ECMAScript 5中定义了一个名为&属性描述符&（property
descriptor）的对象，这个对象代表那4个特性。描述符对象的属性和它们所描述的属性特性是同名的。因此，数据属性的描述符对象的属性有 value、writable、enumerable和configurable。存取器属性的描述符对象则用get属性和set属性代替value和 writable。其中writable、enumerable和configurable都是布尔值，当然，get属性和set属性是函数值。通过调用 Object.getOwnPropertyDescriptor()可以获得某个对象特定属性的属性描述符：
从函数名字就可以看出，Object.getOwnPropertyDescriptor()只能得到自有属性的描述符，对于继承属性和不存在的属性它都返回undefined。要想获得继承属性的特性，需要遍历原型链（不会遍历原型链？不要急，下面会说到的）。
要想设置属性的特性，或者想让新建属性具有某种特性，则需要调用Object.definePeoperty()，传入需要修改的对象、要创建或修改的属性的名称以及属性描述符对象：
可以看到：
①传入Object.defineProperty()的属性描述符对象不必包含所有4个特性；
②可写性控制着对属性值的修改；
③可枚举性控制着属性是否可枚举（枚举属性，下面会说的）；
④可配置性控制着对其他特性（包括前面说过的属性是否可以删除）的修改；
如果要同时修改或创建多个属性，则需要使用Object.defineProperties()。第一个参数是要修改的对象，第二个参数是一个映射表，它包含要新建或修改的属性的名称，以及它们的属性描述符，例如：
var&p&=&Object.defineProperties({},{&&&&&x:&{value:&1,&writable:&true,&enumerable:&true,&configurable:&true},&&&&&y:&{value:&2,&writable:&true,&enumerable:&true,&configurable:&true},&&&&&r:&{get:&function(){return&88;},&set:&function(newvalue){this.x&=},enumerable:&true,&configurable:&true},&&&&&greet:&{value:&function(){console.log('hello,world');},&writable:&true,&enumerable:&true,&configurable:&true}&});&
相信你也已经从实例中看出：Object.defineProperty()和Object.defineProperties()都返回修改后的对象。
前面我们说getter和setter存取器属性时使用对象直接量语法给新对象定义存取器属性，但并不能查询属性的getter和setter方法 或给已有的对象添加新的存取器属性。在ECMAScript
5中，就可以通过Object.getOwnPropertyDescriptor()和Object.defineProperty()来完成这些工作 啦！但在ECMAScript
5之前，大多数浏览器（IE除外啦）已经支持对象直接量语法中的get和set写法了。所以这些浏览器还提供了非标准的老式API用来查询和设置 getter和setter。这些API有4个方法组成，所有对象都拥有这些方法。__lookupGetter__()和 __lookupSetter__()用以返回一个命名属性的getter和setter方法。__defineGetter__()和 __defineSetter__()用以定义getter和setter。这四个方法都是以两条下划线做前缀，两条下划线做后缀，以表明它们是非标准方 法。下面是它们用法：
七.检测属性
JavaScript对象可以看做属性的集合，那么我们有时就需要判断某个属性是否存在于某个对象中，这就是接下来要说的检测属性。
检测一个对象的属性也有三种方法，下面就来详细说说它们的作用及区别！
1.in运算符
in运算符左侧是属性名（字符串），右侧是对象。如果对象的自有属性或继承属性中包含这个属性则返回true，否则返回false。
为了试验，我们先给对象Object.prototype添加一个可枚举属性m，一个不可枚举属性n；然后，给对象obj定义两个可枚举属性x,一个不可枚举属性y，并且对象obj是通过对象直接量形式创建的，继承了Object.prototype。下面看实例：
从运行结果可以看出：in运算符左侧是属性名（字符串），右侧是对象。如果对象的自有属性或继承属性（不论这些属性是否可枚举）中包含这个属性则返回true，否则返回false。
2.hasOwnProperty()
对象的hasOwnProperty()方法用来检测给定的名字是否是对象的自有属性（不论这些属性是否可枚举），对于继承属性它将返回false。下面看实例：
3.propertyIsEnumerable()
propertyIsEnumerable()是hasOwnProperty()的增强版，只有检测到是自有属性且这个属性可枚举性为true时它才返回true。还是实例：
八.枚举属性
相对于检测属性，我们更常用的是枚举属性。枚举属性我们通常使用for/in循环，它可以在循环体中遍历对象中所有可枚举的自有属性和继承属性，把属性名称赋值给循环变量。继续上实例：
我原来认为for/in循环跟in运算符有莫大关系的，现在看来它们的规则并不相同啊！当然，如果这里不想遍历出继承的属性，那就在for/in循环中加一层hasOwnProperty()判断：
for(prop&in&obj){&&&&&if(obj.hasOwnProperty(prop)){&&&&&&&&&console.log(prop);&&&&&}&}&
除了for/in循环之外，ECMAScript 5还定义了两个可以枚举属性名称的函数：
①Object.getOwnpropertyNames()，它返回对象的所有自有属性的名称，不论是否可枚举；
②Object.keys()，它返回对象对象中可枚举的自有属性的名称；
还是实例：
九.对象的三个特殊属性
每个对象都有与之相关的原型（prototype）、类（class）和可扩展性（extensible attribute）。这三个就是对象的特殊属性（它们也只是对象的属性而已，并没有想象的复杂哦）。
1.原型属性
正如前面所说，对象的原型属性是用来继承属性的（有点绕&），这个属性如此重要，以至于我们经常把&o的原型属性&直接叫做&o的原型&。原型属性 是在实例创建之初就设置好的（也就是说，这个属性的值是JavaScript默认自动设置的，后面我们会说如何自己手动设置），前面也提到：
①通过对象直接量创建的对象使用Object.prototype作为它们的原型；
②通过new+构造函数创建的对象使用构造函数的prototype属性作为它们的原型；
③通过Object.create()创建的对象使用第一个参数（如果这个参数为null，则对象原型属性值为undefined；如果这个参数为 undefined，则会报错：Uncaught TypeError: Object prototype may only be an
Object or null: undefined）作为它们的原型；
那么，如何查询一个对象的原型属性呢？在ECMAScript 5中，将对象作为参数传入Object.getPrototypeOf()可以查询它的原型，例如：
但是在ECMAScript 3中，没有Object.getPrototypeOf()函数，但经常使用表达式obj.constructor.prototype来检测一个对象的原型，因为每个对象都有一个constructor属性表示这个对象的构造函数：
①通过对象直接量创建的对象的constructor属性指向构造函数Object()；
②通过new+构造函数创建的对象的constructor属性指向构造函数；
③通过Object.create()创建的对象的constructor属性指向与其原型对象的constructor属性指向相同；
要检测一个对象是否是另一个对象的原型（或处于原型链中），可以使用isPrototypeOf()方法。例如：
还有一个非标准但众多浏览器都已实现的对象的属性__proto__(同样是两个下划线开始和结束，以表明其为非标准），用以直接查询/设置对象的原型。
对象的类属性（class attribute）是一个字符串，用以表示对象的类型信息。ECMAScript 3 和ECMAScript 5
都未提供设置这个属性的方法，并只有一种间接的方法可以查询它。默认的toString()方法（继承自Object.prototype）返回了这种格 式的字符串：[object class]
。因此，要想获得对象的类，可以调用对象的toString()方法，然后提取已返回字符串的第8到倒数第二个位置之间的字符。不过，很多对象继承的 toString()方法重写了（比如：Array、Date等），为了能调用正确的toString()版本，必须间接地调用 Function.call()方法。下面代码可以返回传递给它的任意对象的类：
function classof(obj){
&&& if(o === null){
&&&&&&& return 'Null';
&&& if(o === undefined){
&&&&&&& return 'Undefined';
&&& return Object.prototype.toString.call(o).slice(8, -1);
classof()函数可以传入任何类型的参数。下面是使用实例：
总结：从运行结果可以看出通过三种方式创建的对象的类属性都是&Object&。
3.可扩展性
对象的可扩展性用以表示是否可以给对象添加新属性。所有内置对象和自定义对象都是显示可扩展的（除非将它们转换为不可扩展），宿主对象的可扩展性是由JavaScript引擎定义的。ECMAScript 5中定义了用来查询和设置对象可扩展性的函数：
①（查询）通过将对象传入Object.isExtensible()，来判断该对象是否是可扩展的。
②（设置）如果想将对象转换为不可扩展，需要调用Object.preventExtensions()，将待转换的对象作为参数传进去。注意：
a.一旦将对象转换为不可扩展的，就无法再将其转换回可扩展的了；
b.preventExtensions()只影响到对象本身的可扩展性，如果给一个不可扩展的对象的原型添加属性，这个不可扩展的对象同样会继承这些新属性；
进一步，Object.seal()和Object.preventExtensions()类似，除了能将对象设置为不可扩展的，还可以将对象的 所有自有属性都设置为不可配置的。对于那些已经封闭（sealed）起来的对象是不能解封的。可以使用Object.isSealed()来检测对象是否 封闭。
更进一步，Object.freeze()将更严格地锁定对象&&&冻结&（frozen）。除了将对象设置为不可扩展和将其属性设置为不可配置之 外，还可以将它自有的所有数据属性设置为只读（若对象的存取器属性有setter方法，存取器属性将不受影响，仍可通过给属性赋值调用它们）。使用 Object.isFrozen()来检测对象是否总结。
总结：Object.preventExtensions()、Object.seal()和Object.freeze()都返回传入的对象，也就是说，可以通过嵌套的方式调用它们：
var obj = Object.seal(Object.create(Object.freeze({x:1}),{y:{value: 2, writable: true}));
这条语句中使用Object.create()函数传入了两个参数，即第一个参数是创建出的对象的原型对象，第二个参数是在创建对象是直接给其定义的属性，并且附带定义了属性的特性。
十.对象的序列化
前面说完了对象的属性以及对象属性的特性，东西还是蛮多的，不知道你是否已看晕。不过，下面就是比较轻松的话题了！
对象序列化（serialization）是指将对象的状态转换为字符串，也可以将字符串还原为对象。ECMAScript
5提供了内置函数JSON.stringify()和JSON.parse()用来序列化和还原对象。这些方法都使用JSON作为数据交换格式，JSON 的全称是&JavaScript Object
Notation&&&JavaScript对象表示法，它的语法和JavaScript对象与数组直接量的语法非常相近：
其中，最后的jsonObj是obj的深拷贝（关于什么是深拷贝，什么是浅拷贝，可以参考：/question/，第二个答案）。
JSON的语法是JavaScript的子集，它并不能表示JavaScript里的所有值。支持对象、数组、字符串、无穷大数字、true、false和null，并且它们可以序列化和还原。注意：
①NaN、Infinity和-Infinity序列化的结果是null；
②JSON.stringify()只能序列化对象可枚举的自有属性；
③日期对象序列化的结果是ISO格式的日期字符串（参照Date.toJSON()函数），但JSON.parse()依然保留它们的字符串形态，而不能将它们还原为原始日期对象；
④函数、RegExp、Error对象和undefined值不能序列化和还原；
当然，JSON.stringify()和JSON.parse()都可以接受第二个可选参数，通过传入需要序列化或还原的属性列表来定制自定义的序列化或还原操作，这个我们以后再详谈。【编辑推荐】【责任编辑： TEL：（010）】
大家都在看猜你喜欢
原创原创原创热点头条
24H热文一周话题本月最赞
讲师：51174人学习过
讲师：108828人学习过
讲师：218162人学习过
精选博文论坛热帖下载排行
本书依据最新版《网络管理员考试大纲》的考核要求，深入研究了历年网络管理员考试试题的命题风格和试题结构，对考查的知识点进行了提炼，并...
订阅51CTO邮刊查看: 11916|回复: 10
Activex 部件不能创建对象的问题
阅读权限20
在线时间 小时
运行错误‘429’
Activex 部件不能创建对象
运行发现问题在这：Set d = CreateObject(&Scripting.Dictionary&)
阅读权限100
在线时间 小时
建议上传表格附件来说明问题。
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
建议上传表格附件来说明问题。
我的也出现这样的问题，附件为楼下
阅读权限20
在线时间 小时
附件，请查看里的SHEET3代码，然后运行
11:55 上传
点击文件名下载附件
27.03 KB, 下载次数: 53
阅读权限100
在线时间 小时
＂两面针 发表于
附件，请查看里的SHEET3代码，然后运行
哪一个代码？
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
建议上传表格附件来说明问题。
因为这个问题只出现在某几个电脑上，而在其它电脑上又正常，我想是不是这几个电脑上缺少某个控件，而刚好这个VB就是你帮我修定的。VB如下：
Public fs, r, Arr1
Sub qqtj()
Dim i&, Arr, j&, x, bt(1 To 2, 1 To 10)
Application.ScreenUpdating = False
Sheets(&班级指标&).Activate: r = 0
Sheets(&年级总表&).Protect Password:=&629096&, userInterFaceonly:=True
Arr = Sheets(&年级总表&).[a1].CurrentRegion
ReDim Arr1(1 To 18, 1 To 10)
For j = 1 To 10
& & Arr1(10, j) = 200
& & Arr1(9, j) = 0
For j = 4 To 20 Step 2
If j = 16 Then r = r + 1
& & r = r + 1
& & For i = 5 To UBound(Arr)
& && &&&If Arr(i, j) && && Then
& && && && &Arr1(1, r) = Arr1(1, r) + 1& &'参考数
& && && && &Arr1(2, r) = Arr1(2, r) + Arr(i, j)& &'总分
& && && && &If Arr(4, j) & 100 Then
& && && && && & fs = Arr(i, j) * 100 / Arr(4, j)
& && && && && & If Arr(i, j) &= Arr1(9, r) Then
& && && && && && &&&Arr1(9, r) = Arr(i, j) '最高分
& && && && && & ElseIf Arr(i, j) &= Arr1(10, r) Then
& && && && && && &&&Arr1(10, r) = Arr(i, j) '最低分
& && && && && & End If
& && && && &Else
& && && && && & fs = Arr(i, j)
& && && && && & If fs &= Arr1(9, r) Then
& && && && && && &&&Arr1(9, r) = fs&&'最高分
& && && && && & ElseIf fs &= Arr1(10, r) Then
& && && && && && &&&Arr1(10, r) = fs '最低分
& && && && && & End If
& && && && &End If
& && && && &Call yy
& && &&&End If
For j = 1 To 10
& & If Arr1(1, j) && 0 Then
& && &&&Arr1(3, j) = Arr1(2, j) / Arr1(1, j) '平均分
& && &&&Arr1(7, j) = Arr1(6, j) / Arr1(1, j) '及格率
& && &&&Arr1(5, j) = Arr1(4, j) / Arr1(1, j) '优秀率
& && &&&Arr1(8, j) = Arr1(18, j) / Arr1(1, j) '学困率
& && &&&Arr1(10, j) = &&
& && &&&Arr1(9, j) = &&
& & End If
Sheets(&班级指标&).Protect Password:=&629096&, userInterFaceonly:=True
Sheets(&班级指标&).[g6].Resize(UBound(Arr1), 10).ClearContents
Sheets(&班级指标&).[g6].Resize(UBound(Arr1), 10) = Arr1
Application.ScreenUpdating = True
Select Case fs
& & Case 100
& && &&&Arr1(11, r) = Arr1(11, r) + 1
& & Case 90 To 100
& && &&&Arr1(12, r) = Arr1(12, r) + 1
& & Case 80 To 90
& && &&&Arr1(13, r) = Arr1(13, r) + 1
& & Case 70 To 80
& && &&&Arr1(14, r) = Arr1(14, r) + 1
& & Case 60 To 70
& && &&&Arr1(15, r) = Arr1(15, r) + 1
& & Case 50 To 60
& && &&&Arr1(16, r) = Arr1(16, r) + 1
& & Case 40 To 50
& && &&&Arr1(17, r) = Arr1(17, r) + 1
& & Case Is & 40
& && &&&Arr1(18, r) = Arr1(18, r) + 1
End Select
If fs &= 60 Then Arr1(6, r) = Arr1(6, r) + 1 '及格人数
If fs &= 80 Then Arr1(4, r) = Arr1(4, r) + 1&&'优秀人数
Sub gxtj()
Dim i&, Arr, j&, x
Dim d, k, t
Set d = CreateObject(&Scripting.Dictionary&)
Application.ScreenUpdating = False
Sheets(&班级指标&).Activate
Arr = Sheets(&年级总表&).[a1].CurrentRegion
For i = 5 To UBound(Arr)
& & If Arr(i, 3) = && Then Exit For
& & d(Arr(i, 3)) = d(Arr(i, 3)) & i & &,&
k = d.keys
t = d.items
For i = 0 To UBound(k)
& & ReDim Arr1(1 To 18, 1 To 9)
& & For j = 1 To 9
& && &&&Arr1(10, j) = 200
& && &&&Arr1(9, j) = 0
& & t(i) = Left(t(i), Len(t(i)) - 1)
& & If InStr(t(i), &,&) Then
& && &&&aa = Split(t(i), &,&)
& && &&&For j = 4 To 20 Step 2
& && && && &r = r + 1
& && && && &For i1 = 0 To UBound(aa)
& && && && && & If Arr(aa(i1), j) && && Then
& && && && && && &&&Arr1(1, r) = Arr1(1, r) + 1& &'参考数
& && && && && && &&&Arr1(2, r) = Arr1(2, r) + Arr(aa(i1), j)& &'总分
& && && && && && &&&If Arr(4, j) & 100 Then
& && && && && && && && &fs = Arr(aa(i1), j) * 100 / Arr(4, j)
& && && && && && && && &If Arr(aa(i1), j) &= Arr1(9, r) Then
& && && && && && && && && & Arr1(9, r) = Arr(aa(i1), j) '最高分
& && && && && && && && &ElseIf Arr(aa(i1), j) &= Arr1(10, r) Then
& && && && && && && && && & Arr1(10, r) = Arr(aa(i1), j) '最低分
& && && && && && && && &End If
& && && && && && &&&Else
& && && && && && && && &fs = Arr(aa(i1), j)
& && && && && && && && &If fs &= Arr1(9, r) Then
& && && && && && && && && & Arr1(9, r) = fs&&'最高分
& && && && && && && && &ElseIf fs &= Arr1(10, r) Then
& && && && && && && && && & Arr1(10, r) = fs '最低分
& && && && && && && && &End If
& && && && && && &&&End If
& && && && && && &&&Call yy
& && && && && & End If
& && && && &Next
& && &&&Next
& && &&&For j = 1 To 9
& && && && &If Arr1(1, j) && 0 Then
& && && && && & Arr1(3, j) = Arr1(2, j) / Arr1(1, j) '平均分
& && && && && & Arr1(7, j) = Arr1(6, j) / Arr1(1, j) '及格率
& && && && && & Arr1(5, j) = Arr1(4, j) / Arr1(1, j) '优秀率
& && && && && &&&Arr1(8, j) = Arr1(18, j) / Arr1(1, j) '学困率
& && && && &Else
& && && && && & Arr1(10, j) = &&
& && && && && & Arr1(9, j) = &&
& && && && &End If
& && &&&Next j
& && &&&Sheets(&班级指标&).Select
& && & Set r1 = Cells.Find(k(i) & &班：&, , , 1)
& && &&&ad = Range(r1.Address).Offset(3, 1).Address
& && &&&Range(ad).Resize(UBound(Arr1), 9).ClearContents
& && &&&Range(ad).Resize(UBound(Arr1), 9) = Arr1
& && &&&Erase Arr1
& & End If
Application.ScreenUpdating = True
ActiveSheet.Protect Password:=&629096&, userInterFaceonly:=True
阅读权限100
在线时间 小时
可查一下在C:\Windows\system32\scrrun.dll
如果没有这个文件，可在其它电脑中拷贝一个。有可能是没有完全安装Office的缘故。
阅读权限20
在线时间 小时
lzwdj123 发表于
因为这个问题只出现在某几个电脑上，而在其它电脑上又正常，我想是不是这几个电脑上缺少某个控件，而刚好 ...
有，就是找不到原因
阅读权限20
在线时间 小时
你好，请问你的问题解决了吗，怎么解决的
我目前也碰到这个问题，在单位电脑2003excel上出现的，自己电脑上正常
阅读权限90
在线时间 小时
试试这个，开始菜单，运行，输入
regsvr32 &C:\windows\system32\scrrun.dll&
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}