EXCEL中判断Shape图形对象的类型 Shape对象的Type属性有如下这些类型,当对单元格中的图形对象进行操作前,可以先判断类型,例如将单元格中的图片位置放置于左上角: Dim Sp As Shape Dim Rng As Range If Sp.Type = msoPicture Then '判断shape的类型是否图片,可以用值13代替msoPicture Set Rng = S...
《黄帝内经.生气通天论篇》不生病的智慧节选02 阳气者,烦劳则张,精绝,辟积于夏,使人煎厥。目盲不可以视,耳闭不可以听,溃溃乎若坏都,汨汨乎不可止。阳气者,大怒则形气绝,而血菀(wan)于上,使人薄厥。有伤于筋,纵,其若不容。汗出偏沮,使人偏枯。汗出见湿,乃生痤(cuo)疿(fei,同"痱")。高梁之变,足生大疽,受如持虚。劳汗当风,寒薄为皶(zha),郁乃痤。阳气者,精则养神,柔则养筋。开阖不得,寒气从之,乃生大偻。营气不从,逆于肉理,乃生痈...
《黄帝内经.生气通天论篇》不生病的智慧节选01 苍天之气,清静则志意治,顺之则阳气固。虽有贼邪,弗不能害也。故圣人传精神,服天气而通神明。失之则内闭九窍,外壅肌肉,卫气解散,此谓自伤,气之削也。阳气者,若天与日,失其所则折寿而不彰。故天运当以日光明,是故阳因而上,卫外者也。因于寒,欲如运枢,起居如惊,神气乃浮。因于暑,汗,烦则喘喝,静则多言,体若燔(fan)炭,汗出乃散。因于湿,首如裹,湿热不攘,大筋偄(ruan)短,小筋弛长。偄短为拘,弛长为...
《黄帝内经.上古天真论》真人、至人、圣人、贤人 黄帝曰:余闻上古有真人者,提挈(qiè)天地,把握阴阳。呼吸精气,独立守神,肌肉若一。故能寿弊天地,无有终时。此其道生。中古之时,有至人者,淳德全道,和于阴阳。调于四时,去世离俗,积精全神,游行天地之间,视听八达之外。此盖益其寿命而强者也。亦归于真人。其次有圣人者,处天地之和,从八风之理。适嗜欲于世俗之间,无恚(huì)嗔之心。行不欲离于世,举不欲观于俗。外不劳形于事,内无思想之患。以恬愉为务,以...
《黄帝内经.通天》阴阳五种类型的人 黄帝问于少师曰:余尝闻人有阴阳,何谓阴人,何谓阳人?少师曰:太阴之人,贪而不仁,下齐湛湛(待人周到,假装正经 ),好内而恶出,心和而不发,不务于时,动而后之,此太阴之人也。少阴之人,小贪而贼心,见人有亡(损失,不幸),常若有得,好伤好害,见人有荣,乃反愠怒,心疾而无恩。此少阴之人也。太阳之人,居处于于(安然自得),好言大事,无能而虚说,志发于四野,举措不顾是非,为事如常自用,事虽败而常无悔。此太阳...
《黄帝内经.四季调神大论篇》四季养生法 春三月:此谓发陈。天地俱生,万物以荣。夜卧早起,广步于庭。被发缓形,以使志生。生而勿杀,予而勿夺,赏而勿罚。此春气之应,养生之道也。逆之则伤肝,夏为寒变。奉长者少。夏三月:此谓蕃秀。天地气交,万物华实。夜卧早起,无厌于日。使志无怒,使华英成秀,使气得泄,若所爱在外。此夏气之应,养长之道也。逆之则伤心,秋为痎(jie)疟。奉收者少。秋三月:此谓容平。天气以急,地气以明。早卧早起,与鸡俱兴。使志安宁,...
《黄帝内经.上古天真论》男女不同年龄段的特征 帝曰:人年老而无子者,材力尽邪?将天数然也?歧伯曰:女子七岁,肾气实,齿更发长。二七而天癸至,任脉通,太冲脉盛,月事以时下,故有子。---14岁三七,肾气平均,故真牙生而长极。---21岁四七,筋骨坚,发长极,身体盛壮。---28岁五七,阳明脉衰,面始焦,发始堕。---35岁六七,三阳脉衰于上,面皆焦,发始白。---42岁七七,任脉虚,太冲脉衰少,天癸竭,地道不通,故形坏而无子也。---49岁丈夫...
《黄帝内经.上古天真论》养生秘诀节选-1 余闻上古之人,春秋皆度百岁,而动作不衰;今时之人,年半百而动作皆衰者,时世异耶?人将失之耶?歧伯曰:上古之人,其知道者,法于阴阳,和于术数。食饮有节,起居有常,不妄作劳,故能形与神俱,而尽终其天年,度百岁乃去。今时之人不然也,以酒为浆,以妄为常,醉以入房,以欲竭其精,以耗散其真,不知持满,不时御神,务快其心,逆于生乐,起居无节,故半百而衰也。夫上古圣人之教下也,皆谓之虚邪贼风,避之有时,恬惔虚无,...
Excel基础知识(89):空文本与空单元格的区别 空文本与空单元格从外观中看不出区别,但在应用中区别很大,掌握二者的区别,避免在数据处理工作中出错。如下图所示:A2单元是空文本""(两个半角双引号中间无任何值),A3、A4是空单元格,A5是数值0。一、初步结论从下图结果中可得如下结论:空文本=空单元格空文本与0不等空单元格=0二、应用:定位空值按快捷键Ctrl+G,弹出“定位条件”对话框,定位“空值”,可看到定位结果中不包含空文本和0,只定位到空...
Excel-VBA应用(5):设计问卷及数据回收统计系统 一、需求市场调查的目的是为管理和决策部门提供准确的、可靠的、有效的当前信息,有时是为了制定长远性的战略性规划,有时是为制定某阶段或针对某问题的具体政策或策略提供参考依据。正确的决策不是靠直觉和猜测得到的,缺乏充分依据的信息,可能导致错误的决策,在市场经济越来越发达的今天,全方位多层次的市场调查活动越来越频繁。那么利用Excel能在市场调查活动中起到什么作用呢? 本示例通过设计问卷调查及回收统计系统...
Excel-VBA基础(17):创建自定义函数并存为模板调用示例 需求日常工作中经常用到比Excel内置函数复杂的数据计算,而且使用频率非常高,有时候可以通过增加过渡数据,利用内置函数而解决,但有时候通过内置函数解决不了。此时可以用自定义函数的方法解决。解决方案在工作簿中增加一个模块,在其中用“Function 函数名称(参数列表)…End Function”定义一个函数过程,将Excel内置函数难以实现的功能都设置在函数过程中,在工作表中调用该函数即可。将此工...
Excel-VBA基础(16):VBA中窗体、控件介绍 窗体主要功能是提供交互式的窗口,通过该窗口接受用户指定的数值或指令,根据用户指定的数值或指令做相应动作。Excel中新建窗体的默认名称是UserForm1,再添加窗体,将其命名为UserForm2,UserForm3…。窗体是一个集合对象,可以在窗体中增加或减少控件,选择窗体或控件后,按F4快捷键,可以修改窗体或控件的属性。例如,标题Caption、名称Name、背景色BackColor等。添加窗...
Excel-VBA基础(15):VBA中Sub过程、Function函数介绍 1、Sub过程Sub过程是一系列由Sub和End Sub语句所包含起来的程序语句,它们会执行动作却不能返回一个值。Sub过程可有参数。如果一个Sub过程没有参数,则它的Sub语句必须包含一个空的圆括号。其他过程调用Sub过程时,可以用Call语句,Sub过程的参数部分必须包含在括号中。假如直接调用Sub过程名称,则可以不用括号,参数用逗号分隔。2.Function函数Function函数是一系列由...
Excel-VBA基础(14):VBA中控制结构介绍 1、If…Then…Else…End If语句根据条件的值,可使用If…Then…Else…End If语句运行指定的语句或一个语句块。语句可根据需要嵌套多级,然而,为了程序可读性有时使用Select Case语句。1.如果条件为True则运行语句当条件为True时,若只要执行一个语句,则可以使用单行的If…Then…End If语法。下列的示例显示了单行语法,省略了Else关键字: Sub Fi...
Excel-VBA基础(13):VBA中内置函数介绍 内置函数及应用语法介绍Excel提供了大量的统计、财务、文本、逻辑、日期与时间等内置函数,在程序中充分利用内置函数,可以极大提高程序设计及运行效率,增加程序的模块性与可读性。假如要计算工作表中某个区域的数值的和、计数、平均值、方差等,利用内置函数比用运算符计算效率要高很多。只要在工作表的单元格中可以使用的函数,在VBA程序中也一样可以调用,调用的常用语法如下:用R1C1引用样式引用单元格的方法:A...
Excel-VBA基础(12):VBA中对象、集合、属性和方法 对象代表应用程序中的元素,类似于汽车中的轮子、发动机等。Excel中也有许多对象,例如:工作簿、工作表、单元格、图表、窗体,或是一份报告。程序中调用对象的任一方法或改变它的属性之前,必须先声明对象。下图是Excel中的4个主要对象及其层次关系。对象集合对象集合是一个包含几个子对象的集合。例如,在Excel中的Workbooks 对象包含了所有已打开的Workbook(工作簿)对象,Workshee...
Excel-VBA基础(11):VBA中数组基础知识 01 数组的声明数组是VBA的变量,具有一群相同类型的成员,可以利用数组名和索引值进行访问。数组的声明与一般变量的声明一样,可以用Dim、Static、Private或Public语句来声明,在数组名后使用括号“()”,在括号中放置整数,定义数组包含的项目数。例如:Sub Sample23()Dim sArray(3) As String '定义数组sArray具有4个项目sArray(0) ...
Excel-VBA基础(10):VBA中的运算符及应用示例 表达式中的常量、变量、函数等都依靠运算符连接,VBA中的运算符分为4类:算术运算符、比较运算符、逻辑运算符、连接运算符。下面将分别介绍。1.算术运算符VBA中共有7种运算符,如下表所示。示例如下:Sub Sameple2241()Dim I As Integer, J As LongDim K As SingleI = 2J = 3K = I + J '结果等于5K = J...