第8章 操作数字 加.减.乘.除.平方与指数(^2 或者^n).平方根Sqr.正弦Sin.余弦Cos.正切Tan.反正切Atn.绝对值Abs 转换为整型数.长整型数.双精度型数和值 Cint当双精度型数向整型数转换时,CInt通过园整数字得到一个整型数 CLng与CInt相比:当所提供的值较大时使用CLng Fix函数只是简单地甩掉数字的小数部分,它不做任何园整.Fix能够操作整型数和长整型数 CDbl函数可将提供的参数转换为一个双精度型数 Val函数能给出参数中的数字值.Val返回所有的数字字…

原文地址 本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人.   一.新建Word引用 需要首先创建一个对 Word Application 对象的引用.在VBA中,工具-引用,选取“MicroSoft Word 11.0 Object Library”. 方法一.New Word.Application     Dim Wordapp As Word.Application     Set Wordapp = Ne…

Numeral.js 是一个用于格式化和操作数字的 JavaScript 库.数字可以格式化为货币,百分比,时间,甚至是小数,千位,和缩写格式,功能十分强大.支持包括中文在内的17种语言. 您可能感兴趣的相关文章 太赞了!超炫的页面切换动画效果[附源码下载] 创意无限!一组网页边栏过渡动画[附源码下载] 真是好东西!13种非常动感的页面加载动画效果 你见过吗?9款超炫的复选框(Checkbox)效果 时尚设计!三种奇特网格加载效果[附源码下载] 源码下载      在线演示 本文链接:Numer…

作者:玄魂出处:博客2010-06-23 12:05 http://winsystem.ctocio.com.cn/19/9492019.shtml .NET为我们提供了操作数字证书的两个主要的类,分为为: System.Security.Cryptography.X509Certificates.X509Certificate2类, 每个这个类的实例可以表示一个证书: System.Security.Cryptography.X509Certificates.X509Store类,可以对保存在…

.NET为我们提供了操作数字证书的两个主要的类,分为为: System.Security.Cryptography.X509Certificates.X509Certificate2类, 每个这个类的实例可以表示一个证书: System.Security.Cryptography.X509Certificates.X509Store类,可以对保存在计算机安全区域内的证书进行add/remove/get操作. 另外我们可以使用System.Security.Cryptography.X509Cer…

对于任何一种编程语言都很重要的特性就是操作数字的能力,遗憾的是,对于shell脚本来说,这个过程比较麻烦,在shell脚本中有两种途径来进行数学运算操作. 1.expr 最开始的时候,shell提供了一个特别的命令来梳理数学表达式,expr允许在命令行上处理数学表达式,但是特别笨拙. 使用expr运算加减还是可以,但是当遇到*号是,就会出现错误,需要用到转义字符 \来识别,同样,当你希望将数学算式的结果付给一个变量的时候,你需要使用反引号来获取ecpr命令的输出. 幸好,在这里,shell还有有…

项目开始一般都是用word保存下数据库的文档 但是从表单一个一个的建表实在是很困难乏味,查查资料 1.可以生成一个html或者xml,检索结构生成sql.但是这个方式也蛮麻烦 2.查到vba可以操作word读取表格.所以采用这种方式写了一个小程序.这样就可以直接生成sql了,在这里做个记录. 代码很初级,意见欢迎,勿喷. Public Sub test() 'Word对象定义 Dim objWord As New Word.Application Dim objWordNew As New Wo…

1.内置函数 Number().parseInt().parseFloat() var num = "88.88abc888"; Number(num);                    //NaN parseFloat(num);                //88.88 parseFloat(Number(num));   //NaN 2.Number.toFixed(x) . Number.toPrecision(x) . Math.Round(x)的区别: 都有四舍五…

用oracle sql对数字进行操作: 取上取整.向下取整.保留N位小数.四舍五入.数字格式化 取整(向下取整): select floor(5.534) from dual;select trunc(5.534) from dual;上面两种用法都可以对数字5.534向下取整,结果为5. 如果要向上取整 ,得到结果为6,则应该用ceilselect ceil(5.534) from dual; 四舍五入: SELECT round(5.534) FROM dual;SELECT round(5…

Sub TestShowCommand() ShowCommand "画条线" ShowPrompt "选择第一个点" ShowStatus "选择第二个点" End Sub Sub TestShowTempMessage() ShowTempMessage msdStatusBarAreaLeft, "消息左侧" ShowTempMessage msdStatusBarAreaMiddle, "消息中部"…

直接上代码~~ 1.  在一个 Excel 生成当月或当年指定月份的日期及星期 ' 获取星期的显示 Function disp(i As Integer) Select Case i disp = "一" disp = "二" disp = "三" disp = "四" disp = "五" disp = "六" Case Else disp = "日" End Se…

添加引用 Microsoft Word  *.0 Object Library Microsoft Graph *.0 Object Library 变量说明 Object oMissing = System.Reflection.Missing.Value; object oEndOfDoc = "\\endofdoc"; 操作类说明 Microsoft.Office.Interop.Word.Application WordApp = new Microsoft.Office.In…

Introduction You can write code in VBA that reads or modifies other VBA projects, modules, or procedures. This is called extensibility because extends the editor -- you can used VBA code to create new VBA code. You can use these features to write cus…

1.vba遍历要添加引用,runtime 2.不能打开单独的application,因为在获取到shape的picture属性时候,新打开的application不能够获取到.提示自动化错误. 3.定位shape的话,需要shape的宽高,因为是基于中心点的定位.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX).FormulaU 设置属性的格式如此,没有好办法了. 4.shape的name,text可以赋值,通过name的唯一性来判…

因为最近做的事情比较多,平时也多用EXCEL,所以顺便学习EXCEL的功能性的东西 转载:https://msdn.microsoft.com/zh-tw/vba/excel-vba/articles/sheets-printout-method-excel Sheets.PrintOut 方法 (Excel) 語法 運算式 . PrintOut( From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileNa…

Sub 合并一个文件夹下全部xls文件中sheet到一个xls的sheet()workDir = ThisWorkbook.Path '当前xls文件所在的目录绝对路径'MsgBox workDir, 0, "workDir"bookname = ThisWorkbook.Name '当前xls文件名'MsgBox bookname, 0, "bookname"file = Dir(workDir & "\*.xls") 'workDir…

1.参照项目   Microsoft Internet Controls   Microsoft HTML Object   2.sample Sub GetIEItem() Dim objIE As InternetExplorer Set objIE = CreateObject("Internetexplorer.Application") objIE.Visible = True Dim url As String url = "https://www.baidu.c…

Selenium是一种非常流行的浏览器和网页自动化技术,开发人员可以使用C#.Java.Python等语言来操作Chrome.Firefox等浏览器. VBA语言可以直接操作访问Microsoft Internet Explorer(IE)浏览器,Chrome等浏览器有着速度快等优势,使用群体非常多.习惯用VBA编程的人们如何自动操作IE以外的浏览器呢?…

实习笔记1 2016年8月1日 14:12 Option Explicit 缺省情况下,如果使用一个没有声明的变量,它将继承“Variant”类型.在模块.窗体和类的通用声明区使用“OptionExplicit”能强制我们必须声明变量后才能使用变量 Sample: Option Explicit Sub test() X = End Sub 在通用声明区声明了“Option Explicit”.当试着去运行上述test宏时将得到一个错误 本章回顾 1.在过程.函数或用户窗体事件中写代码 2.在过…

像VBA操作Excel一样,Win32::OLE模块也是通过对象操作来控制Excel. 如果想自动化操作和控制Excel应用程序,则必须要与Excel对象模型所提供的对象进行交互.理解和熟悉Excel对象模型,就可以更容易的操作Excel. Excel对象模型提供了很多对象[1],有些对象可能会经常遇到.一般情况下,对Excel程序的设置.对工作簿和工作表的操作.单元格和单元格区域的操作以及图标的操作,是经常涉及到的.因此,在学习Excel对象模型时,先集中学习与这些操作相关的对象.属性.方法和…

在主要的编程语言中, 结构体是用大括号来表示 代码段的 范围 界定的. 但是在一些比较"老的"语言中,由于历史原因, 还是使用的 是: 关键字来进行界定代码 的 结构段, 如vba中的 语法结构: if .. . then ... end if, if .... then ... else ... end if; if .... then .... elseif .... then .... elseif .... then.... end if for i=1 to 10 ... e…

系统性的知识前面已经讲完,从本章开始,本系列教程涉及的将会是一些相对凌散的内容. 1. 注释 代码注释是一件利人利己的事,为了方便自己在代码需要更新修改时,依然能够快速地看懂自己完的每一行代码到底是什么意思有何用处,在关键点加上代码注释是很有必要的.如果要让别人也能看懂自己的代码,那么注释更是不可或缺的. VBA中有两种注释的方法,其一是使用单引号,另一种是Rem.在单引号后面或Rem后面的所有内容,在程序运行时都不会被执行,它们就是注释的内容.通常注释的内容会被用其它颜色标识.如下: 有点不方…

在用FreeMarker过程中,感觉FreeMarker的字符串,日期,集合等处理能力还是很强大的,上网搜了一些资料,整理如下,以便能帮助大家更熟练的应用Freemarker完成项目开发. 一.Sequence的内置函数1.     sequence?first 返回sequence的第一个值.2.     sequence?last  返回sequence的最后一个值.3.     sequence?reverse 将sequence的现有顺序反转,即倒序排序4.     sequence?s…

ArcMap下用VBA操作图层基本的过程了. Private Sub UIButtonControl1_Click() Dim pApp As IApplication Set pApp = Application Dim pDoc As IMxDocument Set pDoc = pApp.Document Dim pMap As IMap Set pMap = pDoc.FocusMap Dim pLayer As ILayer Set pLayer = pDoc.SelectedLaye…

round--四舍五入函数 trunc--截断函数 mod--求余函数 round和trunc除了可以操作数字外还可以操作日期. Demo SQL),),),),) from dual ; ) ) ) ) ) --------------- --------------- --------------- ------------- ---------------- ---------------- SQL),trunc(),trunc(),trunc(),trunc() from dual; T…

最近在做人事档案管理系统遇到的一个问题就是种类多.数量大的报表打印问题.这个系统的一个特点就是信函打印,各种介绍信.各种证明信.对于这样的重复性的功能,最好的方法就是所有的报表实现格式套用. 经过分析发现报表中的信息可以分为两部分,一部分为信函主体内容即所有同种信函中统一的内容,另一部分为个人信息(姓名.性别等)即同种信函中经常要变化的内容,而这部分的内容来自网页(个人档案详细信息).分析过后发现只要把报表的格式及主体内容规定好,只要从网页中把那些经常要变化的信息放进去就可以生成报表,这样同种类…

笔者寄语:批量读取目前看到有以下几种方法:xlsx包.RODBC包.批量转化成csv后读入.本章来自博客:http://www.cnblogs.com/weibaar/p/4506144.html 在上面的尝试已经发现,xlsx本身就是这个复杂问题的最根本原因.与之相反,R对csv等文本格式支持的很好,而且有fread这个神器,要处理一定量级的数据,还是得把xlsx转化为csv格式. 以此为思路,在参考了两个资料后,我成功改写了一段VBA,可以选中需要的xlsx,然后在其目录下新建csv文件夹,…

本文主要内容: Oracle环境配置 ODBC驱动设置.第三方驱动下载 VBA连接Oracle连接方法 Oracle10g官方免账号下载地址 系统环境: Windows 7 64bit Excel 2016 64bit Oracle_win64_11gR2_client完整客户端(64bit) 1. VBA连接Oracle前的环境配置 如果想连接本地数据库,必须先安装Oracle服务器端. 我这里使用的是内网其他电脑上的Oracle数据库,这里只安装Oracle客户端就可以. 1.1 安装Ora…

Excel vba 操作 批量生成sheet目录并添加超链接 Sub Add_Sheets_Link() 'Worksheets(5)为清单目录页 '在sheet页上生成sheet页名字并超链接 To ThisWorkbook.Worksheets.Count Worksheets().Cells(i + , ).Value = Worksheets(i).Name Worksheets().Hyperlinks.Add Anchor:=Worksheets().Cells(i + , ), A…

操作字符串函数 1. substring(start,end)从一个字符串中截取子串 start:截取子串开始的索引,start必须大于等于0,小于等于end end: 截取子串的长度,end必须大于等于0,小于等于字符串长度,如果省略该参数,默认为字符串长度. 例子: ${‘str’?substring(0)} 结果为str ${‘str’?substring(1)} 结果为tr ${‘str’?substring(2)} 结果为r ${‘str’?substring(3)} 结果为 ${‘s…