《用VB操作Excel》
全面控制Excel:

首先创建Excel对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application

1)显示当前窗口：
ExcelID.Visible:=True;
2)更改Excel标题栏：
ExcelID.Caption:='应用程序调用MicrosoftExcel';
3)添加新工作簿：
ExcelID.WorkBooks.Add;
4)打开已存在的工作簿：
ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');
5)设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;
或ExcelID.WorkSheets['Sheet2'].Activate;
6)给单元格赋值：
ExcelID.Cells[1,4].Value:='第一行第四列';
7)设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5;
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米
9)在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;
10)在第8列之前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak:=0;
11)指定边框线宽度：
ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;
1-左 2-右 3-顶4-底 5-斜(\) 6-斜(/)
12)清除第一行第四列单元格公式：
ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13)设置第一行字体属性：
ExcelID.ActiveSheet.Rows[1].Font.Name:='隶书';
ExcelID.ActiveSheet.Rows[1].Font.Color :=clBlue;
ExcelID.ActiveSheet.Rows[1].Font.Bold :=True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;
14)进行页面设置：
a.页眉：
ExcelID.ActiveSheet.PageSetup.CenterHeader:='报表演示';
b.页脚：
ExcelID.ActiveSheet.PageSetup.CenterFooter:='第&P页';
c.页眉到顶端边距2cm：
ExcelID.ActiveSheet.PageSetup.HeaderMargin:=2/0.035;
d.页脚到底端边距3cm：
ExcelID.ActiveSheet.PageSetup.HeaderMargin:=3/0.035;
e.顶边距2cm：
ExcelID.ActiveSheet.PageSetup.TopMargin:=2/0.035;
f.底边距2cm：
ExcelID.ActiveSheet.PageSetup.BottomMargin:=2/0.035;
g.左边距2cm：
ExcelID.ActiveSheet.PageSetup.LeftMargin:=2/0.035;
h.右边距2cm：
ExcelID.ActiveSheet.PageSetup.RightMargin:=2/0.035;
i.页面水平居中：
ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=2/0.035;
j.页面垂直居中：
ExcelID.ActiveSheet.PageSetup.CenterVertically:=2/0.035;
k.打印单元格网线：
ExcelID.ActiveSheet.PageSetup.PrintGridLines:=True;
15)拷贝操作：
a.拷贝整个工作表：
ExcelID.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
ExcelID.ActiveSheet.Range['A1:E2'].Copy;
c.从A1位置开始粘贴：
ExcelID.ActiveSheet.Range.['A1'].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelID.ActiveSheet.Range.PasteSpecial;
16)插入一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Insert;
b.ExcelID.ActiveSheet.Columns[1].Insert;
17)删除一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Delete;
b.ExcelID.ActiveSheet.Columns[1].Delete;
18)打印预览工作表：
ExcelID.ActiveSheet.PrintPreview;
19)打印输出工作表：
ExcelID.ActiveSheet.PrintOut;
20)工作表保存：
IfnotExcelID.ActiveWorkBook.Savedthen
ExcelID.ActiveSheet.PrintPreview
Endif
21)工作表另存为：
ExcelID.SaveAs('C:\Excel\Demo1.xls');
22)放弃存盘：
ExcelID.ActiveWorkBook.Saved:=True;
23)关闭工作簿：
ExcelID.WorkBooks.Close;
24)退出Excel：
ExcelID.Quit;
25)设置工作表密码:
ExcelID.ActiveSheet.Protect"123",DrawingObjects:=True,Contents:=True,Scenarios:=True
26)EXCEL的显示方式为最大化
ExcelID.Application.WindowState=xlMaximized
27)工作薄显示方式为最大化
ExcelID.ActiveWindow.WindowState=xlMaximized
28)设置打开默认工作薄数量
ExcelID.SheetsInNewWorkbook=3
29)'关闭时是否提示保存(true保存；false不保存)
ExcelID.DisplayAlerts=False
30)设置拆分窗口,及固定行位置
ExcelID.ActiveWindow.SplitRow=1
ExcelID.ActiveWindow.FreezePanes=True
31)设置打印时固定打印内容
ExcelID.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"
32)设置打印标题
ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=""
33)设置显示方式(分页方式显示)
ExcelID.ActiveWindow.View=xlPageBreakPreview
34)设置显示比例
ExcelID.ActiveWindow.Zoom=100
35)让Excel响应DDE请求
Ex.Application.IgnoreRemoteRequests=False

用VB操作EXCEL示例代码
Private Sub Command3_Click()
On Error GoTo err1
Dim i As Long
Dim j As Long
Dim objExl As Excel.Application '声明对象变量
Me.MousePointer=11 '改变鼠标样式
Set objExl=New Excel.Application'初始化对象变量
objExl.SheetsInNewWorkbook=1 '将新建的工作薄数量设为1
objExl.Workbooks.Add'增加一个工作薄
objExl.Sheets(objExl.Sheets.Count).Name="book1" '修改工作薄名称
objExl.Sheets.Add,objExl.Sheets("book1")‘增加第二个工作薄在第一个之后
objExl.Sheets(objExl.Sheets.Count).Name="book2"
objExl.Sheets.Add,objExl.Sheets("book2")‘增加第三个工作薄在第二个之后
objExl.Sheets(objExl.Sheets.Count).Name="book3"

objExl.Sheets("book1").Select '选中工作薄<book1>
For i=1 To 50'循环写入数据
For j=1 To 5
If i=1 Then
objExl.Selection.NumberFormatLocal="@" '设置格式为文本
objExl.Cells(i,j)="E"&i&j
Else
objExl.Cells(i,j)=i&j
EndIf
Next
Next
objExl.Rows("1:1").Select '选中第一行
objExl.Selection.Font.Bold=True '设为粗体
objExl.Selection.Font.Size=24 '设置字体大小
objExl.Cells.EntireColumn.AutoFit '自动调整列宽
objExl.ActiveWindow.SplitRow=1 '拆分第一行
objExl.ActiveWindow.SplitColumn=0 '拆分列
objExl.ActiveWindow.FreezePanes=True '固定拆分objExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1" '设置打印固定行
objExl.ActiveSheet.PageSetup.PrintTitleColumns=""'打印标题objExl.ActiveSheet.PageSetup.RightFooter="打印时间:"&_
Format(Now,"yyyy年mm月dd日hh:MM:ss")
objExl.ActiveWindow.View=xlPageBreakPreview'设置显示方式
objExl.ActiveWindow.Zoom=100 '设置显示大小
'给工作表加密码
objExl.ActiveSheet.Protect"123",DrawingObjects:=True, _
Contents:=True,Scenarios:=True
objExl.Application.IgnoreRemoteRequests=False
objExl.Visible=True '使EXCEL可见
objExl.Application.WindowState=xlMaximized'EXCEL的显示方式为最大化
objExl.ActiveWindow.WindowState=xlMaximized'工作薄显示方式为最大化
objExl.SheetsInNewWorkbook=3 '将默认新工作薄数量改回3个
Set objExl=Nothing'清除对象
Me.MousePointer=0 '修改鼠标
ExitSub
err1:
objExl.SheetsInNewWorkbook=3

objExl.DisplayAlerts=False '关闭时不提示保存
objExl.Quit'关闭EXCEL
objExl.DisplayAlerts=True '关闭时提示保存
Set objExl=Nothing
Me.MousePointer=0
End Sub
 
  查看全部

 R语言是一种主要应用于统计计算和可视化的高级编程语言。发布这份R语言编程格式指南的主要目的是让我们的R代码更容易阅读、分享和验证。以下这份规范是谷歌的整个R用户社区协作设计的。


◆ ◆ ◆

总结：R格式规范


1. 文件名：以.R结束

2. 标识符：variable.name (或 variableName), FunctionName, kConstantName

3. 单行长度限制：至多80个字符

4. 缩进：两个空格，不要使用“tab”

5. 空格

6. 花括号：左花括号在同一行上，右花括号另起一行

7. else：else的前后都是花括号

8. 赋值：使用“<-”,而不是“=”

9. 分号：不要使用

10. 整体布局和顺序

11. 注释准则：所有的注释都应该以#开头并且紧跟一个空格，如果注解与代码在同一行内，那么在#之前需加两个空格

12. 函数的定义和调用

13. 函数文档

14. 函数示例

15. TODO格式：（TODO（用户名））



◆ ◆ ◆

R语言规则

1. attach：避免使用
2. 函数：用stop（）命令引发出错
3. 对象和方法：尽量避免使用S4对象和方法；不要将S3和S4混用
 

符号与命名

文件名

文件名应该以.R结尾，而且文件的命名应该具有实际意义
好的例子——predict_ad_revenue.R
不好的例子——foo.R


标识符

不要在标识符中使用下划线（_）或者连接符（-）。标识符应该遵照以下约定来命名。变量名的首选形式是全部采用小写字母并且用小数点（.）来区分词（variable.name），但是variableName也是可以接受的；函数名首字母要大写并且不带有小数点（FunctionName）；常量和函数名类似，但以k开头。
 
首选variable.name，variableName也可以接受

好的例子：avg.clicks
可接受的例子： avgClicks
不好的例子： avg_Clicks
 
 函数名 FunctionName

好的例子：CalculateAvgClicks
不好的例子: calculate_avg_clicks , calculateAvgClicks
 
 函数名应该用动词形式表示。

例外：当创建一个类对象，函数名（构造的）和类应该相互匹配（例如：lm）
 
常量：kConstantName

语法

单行长度
单行的最大长度为80个字符

缩进
在缩进代码的时候，用两个空格。千万不要用tab或者把tab和空格混合使用。
例外：当圆括号里的内容出现分行的情况时，对准括号里的行首与换行的第一个字符。


空格


在所有二元运算符(=， +， -，<-，等等)的前后都加上一个空格


例外：
①调用函数传递参数时，“=”前后的空格可加可不加；
②逗号前面不要有空格，但是逗号后面要带一个空格。


好的例子——





不好的例子——






除非是调用函数，其余情况下应该在左圆括号前加上一个空格




好的例子——
if (debug)

不好的例子——
if(debug)

如果加上额外的空格（也就是说在一行中超过一个空格）能够使等号或者箭头看起来更整齐，那也是可以的。





不要在圆括号或者方括号里面的代码前后加上空格


例外：
在逗号后面总是要加一个空格


好的例子——





不好的例子——







花括号

左花括号不能单独成行；右花括号一定要单独成行。可以在只有一个语句的代码模块里省略花括号； 但是必须保持对所有的单个语句的代码的一致性。





也可以写成：





一个模块的语句总是另起一行

不好的例子——







else前后的花括号


else语句应该总是在同一行中被花括号围绕着

if (condition) {

  one or more lines

} else {

  one or more lines

}


不好的例子——





不好的例子——







赋值

Use <-, not =, for assignment.

用“<-”来赋值，而不是等号“=”。


好的例子——

x <- 5


坏的例子——

x = 5



分号

不要用分号作为行的结束，或者利用分号在一行中写上多个命令。（分号是不必要的，根据其它Google格式指南的一致性，可以省略）

组织



◆ ◆ ◆

总体布局和顺序

如果每一个人都使用通用的顺序，那么我们将更快及更容易地阅读和理解其他人的脚本。

1. 版本声明注释
2. 作者信息
3.文件描述注释，包括程序的功能、输入和输出
4.Source() 和 library()声明
5.函数定义
6.执行语句声明，如果适用的话（如：print，plot）

单元测试应该在一个名为originalfilename_test.R 的单独文件中。



◆ ◆ ◆

注释指南

注释代码——①必需以“#”及一个空格开始注释行；②可以在代码之后加上两个空格，然后以“#”及一个空格开始一个短小的注释。







◆ ◆ ◆

函数定义和调用

函数定义首先列出不带默认值的参数，随后是带默认值的参数。在函数定义和调用中，一行可以有多个参数；赋值语句之间可以换行。

好的例子——





不好的例子——





理想情况下，单元测试应该作为样本函数调用（共享库路径）。



◆ ◆ ◆

函数文档

函数应该包含紧接着函数定义行的一个注释部分。这些注释应该包含用一句话完成的函数的描述；函数的参数列表，记作Args以及每个参数的描述（包括数据类型）；返回值的描述，记作Returns。注释应该描述得足够清楚，调用者可以不用看函数代码就使用它。



函数示例












◆ ◆ ◆

TODO风格

在代码中始终用相同的TODO风格

TODO(username):明确说明要采取的行动

语言

附加

使用attach出现错误的可能性很高。避免使用。

函数

用stop()引发出错



◆ ◆ ◆

对象和方法

S语言有两个对象系统，S3和S4，它们在R中都是可用的。S3是更加交互式的和灵活的，而S4是更加正式的和严格的。（这两个系统的说明，参考Thomas Lumley的《Programmer’s Niche: A Simple Class, in S3 and S4 in R》）

用S3的对象和方法，除非有强烈的理由要使用S4的对象或方法。用S4对象的一个主要理由是在C++代码中直接使用对象。用S4通用/方式的一个主要根据是由两个参数调度。

避免混合使用S3和S4：S4方法忽略S3的继承，反之亦然。


例外——

上面描述的代码约定应该遵循，除非有一个合理的原因使用其它约定。例外包括正常的代码和修改的第三方代码。



◆ ◆ ◆

临别赠言

利用常识，保持一致。

如果你正在编写代码，花一点时间看看你的代码来决定代码风格。如果其他人在他们的if语句周围使用空格，那么你也应该这样做。如果他们的注释用星号框起来，那么你也要这样做。

有风格指南的一个关键是有一个通用的编码词汇表，这样，人们可以关注你所说的，而不是你怎么说。我们在此呈现全局的风格规则，这样，人们知道这么一个词汇表。但是局部风格也是重要的。如果加入文件的代码看上去和它周围的代码格格不入，这种不连续性将会打乱阅读的节奏，尽量避免出现这样的情况。
 
 
 
 
 
文章来源于大数据文摘智造家平台提供 查看全部

机器人的编程与语言

谷歌的AI击败了一位围棋大师，是一种衡量人工智能突然的快速发展的方式，也揭示了这些技术如何发展而来和将来可以如何发展。






人 工智能是一种未来性的技术，目前正在致力于研究自己的一套工具。一系列的进展在过去的几年中发生了：无事故驾驶超过300000英里并在三个州合法行驶迎 来了自动驾驶的一个里程碑；IBM Waston击败了Jeopardy两届冠军;统计学习技术从对消费者兴趣到以万亿记的图像的复杂数据集进行模式识别。这些发展必然提高了科学家和巨匠们 对人工智能的兴趣，这也使得开发者们了解创建人工智能应用的真实本质。开发这些需要注意的第一件事是：



哪一种编程语言适合人工智能？

你所熟练掌握的每一种编程语言都可以是人工智能的开发语言。

人工智能程序可以使用几乎所有的编程语言实现，最常见的有：Lisp,Prolog,C/C++，近来又有Java，最近还有Python.



LISP

像LISP这样的高级语言在人工智能中备受青睐，因为在各高校多年的研究后选择了快速原型而舍弃了快速执行。垃圾收集，动态类型，数据函数，统一的语法，交互式环境和可扩展性等一些特性使得LIST非常适合人工智能编程。



PROLOG

这种语言有着LISP高层和传统优势有效结合，这对AI是非常有用的。它的优势是解决“基于逻辑的问题”。Prolog提供了针对于逻辑相关问题的解决方案，或者说它的解决方案有着简洁的逻辑特征。它的主要缺点（恕我直言）是学起来很难。



C/C++

就像猎豹一样，C/C++主要用于对执行速度要求很高的时候。它主要用于简单程序，统计人工智能，如神经网络就是一个常见的例子。Backpropagation 只用了几页的C/C++代码，但是要求速度，哪怕程序员只能提升一点点速度也是好的。



JAVA

新来者，Java使用了LISP中的几个理念，最明显的是垃圾收集。它的可移植性使它可以适用于任何程序，它还有一套内置类型。Java没有LISP和Prolog高级，又没有C那样快，但如果要求可移植性那它是最好的。



PYTHON

Python 是一种用LISP和JAVA编译的语言。按照Norvig文章中对Lips和Python的比较，这两种语言彼此非常相似，仅有一些细小的差别。还有 JPthon，提供了访问Java图像用户界面的途径。这是PeterNorvig选择用JPyhton翻译他人工智能书籍中程序的的原因。 JPython可以让他使用可移植的GUI演示，和可移植的http/ftp/html库。因此，它非常适合作为人工智能语言的。



在人工智能上使用Python比其他编程语言的好处
 
优质的文档平台无关，可以在现在每一个*nix版本上使用和其他面向对象编程语言比学习更加简单快速Python有许多图像加强库像Python Imaging Libary,VTK和Maya 3D可视化工具包，Numeric Python, Scientific Python和其他很多可用工具可以于数值和科学应用。Python的设计非常好，快速，坚固，可移植，可扩展。很明显这些对于人工智能应用来说都是非常重要的因素。对于科学用途的广泛编程任务都很有用，无论从小的shell脚本还是整个网站应用。最后，它是开源的。可以得到相同的社区支持。
 
 
AI的Python库


总体的AI库
 
AIMA：Python实现了从Russell到Norvigs的“人工智能：一种现代的方法”的算法pyDatalog：Python中的逻辑编程引擎SimpleAI：Python实现在“人工智能：一种现代的方法”这本书中描述过的人工智能的算法。它专注于提供一个易于使用，有良好文档和测试的库。EasyAI：一个双人AI游戏的python引擎（负极大值，置换表、游戏解决）
 
 
机器学习库
 
PyBrain 一个灵活，简单而有效的针对机器学习任务的算法，它是模块化的Python机器学习库。它也提供了多种预定义好的环境来测试和比较你的算法。PyML 一个用Python写的双边框架，重点研究SVM和其他内核方法。它支持Linux和Mac OS X。scikit-learn旨在提供简单而强大的解决方案，可以在不同的上下文中重用：机器学习作为科学和工程的一个多功能工具。它是python的一个模块，集成了经典的机器学习的算法，这些算法是和python科学包（numpy,scipy.matplotlib）紧密联系在一起的。MDP-Toolkit这 是一个Python数据处理的框架，可以很容易的进行扩展。它海收集了有监管和没有监管的学习算饭和其他数据处理单元，可以组合成数据处理序列或者更复杂 的前馈网络结构。新算法的实现是简单和直观的。可用的算法是在不断的稳定增加的，包括信号处理方法（主成分分析、独立成分分析、慢特征分析），流型学习方 法（局部线性嵌入），集中分类，概率方法（因子分析，RBM),数据预处理方法等等。
 
 
自然语言和文本处理库
 
NLTK 开源的Python模块，语言学数据和文档，用来研究和开发自然语言处理和文本分析。有windows,Mac OSX和Linux版本。

案例

做了一个实验，一个使用人工智能和物联网做员工行为分析的软件。该软件通过员工情绪和行为的分心提供了一个有用的反馈给员工，从而提高了管理和工作习惯。

使 用Python机器学习库，opencv和haarcascading概念来培训。建立了样品POC来检测通过安置在不同地点的无线摄像头传递回来基础情 感像幸福，生气，悲伤，厌恶，怀疑，蔑视，讥讽和惊喜。收集到的数据会集中到云数据库中，甚至整个办公室都可以通过在Android设备或桌面点击一个按 钮来取回。

开发者在深入分析脸部情感上复杂点和挖掘更多的细节中取得进步。在深入学习算法和机器学习的帮助下，可以帮助分析员工个人绩效和适当的员工/团队反馈。


结论

python 因为提供像 scikit-learn的好的框架，在人工智能方面扮演了一个重要的角色：Python中的机器学习，实现了这一领域中大多的需求。D3.js JS中数据驱动文档时可视化最强大和易于使用的工具之一。处理框架，它的快速原型制造使得它成为一门不可忽视的重要语言。AI需要大量的研究，因此没有必 要要求一个500KB的Java样板代码去测试新的假说。python中几乎每一个想法都可以迅速通过20-30行代码来实现（JS和LISP也是一 样）。因此，它对于人工智能是一门非常有用的语言。
 
 
 
 
 
文章来源于网络智造家平台提供 查看全部