魔幻紫光

用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！
使用Dim语句
Dim a as integer '声明a为整型变量
Dim a '声明a为变体变量
Dim a as string '声明a为字符串变量
Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量
......
声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

强制声明变量
Option Explicit
说明：该语句必在任何过程之前出现在模块中。

声明常数
用来代替文字值。
Const

' 常数的默认状态是 Private。
Const My = 456

' 声明 Public 常数。
Public Const MyString = "HELP"

' 声明 Private Integer 常数。
Private Const MyInt As Integer = 5

' 在同一行里声明多个常数。
Const MyStr = "Hello", MyDouble As Double = 3.4567

选择当前单元格所在区域

在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。
Sub My_Select
Selection.CurrentRegion.Select
End sub

返回当前单元格中数据删除前后空格后的值
sub my_trim
msgbox Trim(ActiveCell.Value)
end sub

单元格位移
sub my_offset
ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格
ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格
ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格
ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格
end sub
如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往
sub my_offset 之下加一段代码 on error resume next

 

注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加!

给当前单元格赋值
ActiveCell.Value = "你好！！！"

给指定单元格赋值
例如：Ａ１单元格内容设为"ＨＥＬＬＯ"
Range("a1").value="hello"

又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ"
1.
sheets("sheet2").select
range("a1").value="hello"
或
2.
Sheets("sheet1").Range("a1").Value = "hello"

说明：
1.sheet2被选中，然后在将“HELLO"赋到A1单元格中。
2.sheet2不必被选中，即可“HELLO"赋到sheet2 的A1单元格中。

隐藏工作表
'隐藏SHEET1这张工作表
　　sheets("sheet1").Visible=False

'显示SHEET1这张工作表
　　sheets("sheet1").Visible=True

打印预览
有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。
Dim my As Worksheet
For Each my In Worksheets
my.PrintPreview
Next my

得到当前单元格的地址
msgbox ActiveCell.Address

得到当前日期及时间
msgbox date & chr(13) & time

保护工作簿
ActiveSheet.Protect

取消保护工作簿
ActiveSheet.Unprotect

给活动工作表改名为 "liu"
ActiveSheet.Name = "liu"

打开一个应用程序
AppActivate (Shell("C:\WINDOWS\CALC.EXE"))

增加一个工作表
Worksheets.Add

删除活动工作表
activesheet.delete

打开一个工作簿文件
Workbooks.Open FileName:="C:\My Documents\Book2.xls"

关闭活动窗口
ActiveWindow.Close

单元格格式
选定单元格左对齐
Selection.HorizontalAlignment = xlLeft

选定单元格居中
Selection.HorizontalAlignment = xlCenter

选定单元格右对齐
Selection.HorizontalAlignment = xlRight

选定单元格为百分号风格
Selection.Style = "Percent"

选定单元格字体为粗体
Selection.Font.Bold = True

选定单元格字体为斜体
Selection.Font.Italic = True

选定单元格字体为宋体20号字
With Selection.Font
.Name = "宋体"
.Size = 20
End With

With 语句

With 对象
.描述
End With

清除单元格
ActiveCell.Clear '删除所有文字、批注、格式

返回选定区域的行数
MsgBox Selection.Rows.Count

返回选定区域的列数
MsgBox Selection.Columns.Count

返回选定区域的地址
Selection.Address

忽略所有的错误
ON ERROR RESUME NEXT

遇错跳转
on error goto err_handle
'中间的其他代码
err_handle: ' 标签
'跳转后的代码

删除一个文件
kill "c:\1.txt"

定制自己的状态栏
Application.StatusBar = "现在时刻: " & Time

恢复自己的状态栏
Application.StatusBar = false

用代码执行一个宏
Application.Run macro:="text"

滚动窗口到a1的位置
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

定制系统日期
Dim MyDate, MyDay
MyDate = #12/12/69#
MyDay = Day(MyDate)

返回当天的时间
Dim MyDate, MyYear
MyDate = Date
MyYear = Year(MyDate)
MsgBox MyYear

inputbox<输入框>
XX=InputBox ("Enter number of months to add")

得到一个文件名
Dim kk As String
kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示：请打开一个EXCEL文件：")
msgbox kk

打开zoom对话框
Application.Dialogs(xlDialogZoom).Show

激活字体对话框
Application.Dialogs(xlDialogActiveCellFont).Show

打开另存对话框
Dim kk As String
kk = Application.GetSaveAsFilename("excel (*.xls), *.xls")
Workbooks.Open kk

Eclipse网站：http://www.eclipse.org/ ;
Eclipse中文化教学：JavaWorld站内文章参考

热键篇：
Template：Alt + /
修改处：窗口->喜好设定->工作台->按键->编辑->内容辅助。
个人习惯：Shift+SPACE(空白)。
简易说明：编辑程序代码时，打sysout +Template启动键，就
会自动出现：System.out.println(); 。
设定Template的格式：窗口->喜好设定->Java->编辑器->模板。

程序代码自动排版：Ctrl+Shift+F
修改处：窗口->喜好设定->工作台->按键->程序代码->格式。
个人习惯：Alt+Z。
自动排版设定：窗口->喜好设定->Java->程序代码格式制作程序。  字串3
样式页面->将插入tab(而非空格键)以内缩，该选项取消勾选
，下面空格数目填4，这样在自动编排时会以空格4作缩排。

快速执行程序：Ctrl + F11
个人习惯：ALT+X
修改处：窗口->喜好设定->工作台->按键->执行->启动前一次的启动作业。
简易说明：第一次执行时，它会询问您执行模式，
设置好后，以后只要按这个热键，它就会快速执行。
<ALT+Z(排版完)、ATL+X(执行)>..我觉得很顺手^___^

自动汇入所需要的类别：Ctrl+Shift+O
简易说明：
假设我们没有Import任何类别时，当我们在程序里打入：

BufferedReader buf =
new BufferedReader(new InputStreamReader(System.in));

此时Eclipse会警示说没有汇入类别，这时我们只要按下Ctrl+Shift+O
，它就会自动帮我们Import类别。

查看使用类别的原始码：Ctrl+鼠标左键点击
简易说明：可以看到您所使用类别的原始码。

将选取的文字批注起来：Ctrl+/

字串4

简易说明：Debug时很方便。
修改处：窗口->喜好设定->工作台->按键->程序代码->批注

视景切换：Ctrl+F8
个人习惯：Alt+S。
修改处：窗口->喜好设定->工作台->按键->窗口->下一个视景。
简易说明：可以方便我们快速切换编辑、除错等视景。

密技篇：
一套Eclipse可同时切换，英文、繁体、简体显示：
1.首先要先安装完中文化包。
2.在桌面的快捷方式后面加上参数即可，
英文-> -nl "zh_US"
繁体-> -nl "zh_TW"
简体-> -nl "zh_CN"。
(其它语系以此类推)
像我2.1.2中文化后，我在我桌面的Eclipse快捷方式加入参数-n1 "zh_US"。
"C:\Program Files\eclipse\eclipse.exe" -n "zh_US"
接口就会变回英文语系噜。

利用Eclipse，在Word编辑文书时可不必将程序代码重新编排：
将Eclipse程序编辑区的程序代码整个复制下来(Ctrl+C)，直接贴(Ctrl+V)到  字串4
Word或WordPad上，您将会发现在Word里的程序代码格式，跟Eclipse
所设定的完全一样，包括字型、缩排、关键词颜色。我曾试过JBuilder
、GEL、NetBeans...使用复制贴上时，只有缩排格式一样，字型、颜
色等都不会改变。

外挂篇：
外挂安装：将外挂包下载回来后，将其解压缩后，您会发现features、
plugins这2个数据夹，将里面的东西都复制或移动到Eclipse的features
、plugins数据夹内后，重新启动Eclipse即可。

让Eclipse可以像JBuilderX一样使用拖拉方式建构GUI的外挂：
1.Jigloo SWT/Swing GUI Builder ：
http://cloudgarden.com/jigloo/index.html ;
下载此版本：Jigloo plugin for Eclipse (using Java 1.4 or 1.5)
安装后即可由档案->新建->其它->GUI Form选取要建构的GUI类型。

2.Eclipse Visual Editor Project：
http://www.eclipse.org/vep/ ;
点选下方Download Page，再点选Latest Release 0.5.0进入下载。  字串5
除了VE-runtime-0.5.0.zip要下载外，以下这2个也要：
EMF build 1.1.1: (build page) (download zip)
GEF Build 2.1.2: (build page) (download zip)

3.0 M8版本，请下载：
EMF build I200403250631
GEF Build I20040330
VE-runtime-1.0M1

安装成功后，便可由File->New->Visual Class开始UI设计。
安装成功后，即可由新建->Java->AWT与Swing里选择
所要建构的GUI类型开始进行设计。VE必须配合着对应
版本，才能正常使用，否则即使安装成功，使用上仍会
有问题。

使用Eclipse来开发JSP程序：
外挂名称：lomboz(下载页面)
http://forge.objectweb.org/project/showfiles.php?group_id=97 ;
请选择适合自己版本的lomboz下载，lomboz.212.p1.zip表示2.1.2版，
lomboz.3m7.zip表示M7版本....以此类推。
lomboz安装以及设置教学：
Eclipse开发JSP-教学文件
字串3


Java转exe篇：
实现方式：Eclipse搭配JSmooth(免费)。
1.先由Eclipse制作包含Manifest的JAR。
制作教学
2.使用JSmooth将做好的JAR包装成EXE。
JSmooth下载页面：
http://jsmooth.sourceforge.net/index.php ;
3.制作完成的exe文件，可在有装置JRE的Windows上执行。

Eclipse-Java编辑器最佳设定：
编辑器字型设定：工作台->字型->Java编辑器文字字型。
(建议设定Courier New -regular 10)

编辑器相关设定：窗口->喜好设定->Java->编辑器

外观：显示行号、强调对称显示的方括号、强调显示现行行、
显示打印边距，将其勾选，Tab宽度设4，打印编距字段设80。
程序代码协助：采预设即可。
语法：可设定关键词、字符串等等的显示颜色。
附注：采预设即可。
输入：全部字段都勾选。
浮动说明：采预设即可。
导览：采预设即可。

使自动排版排出来的效果，最符合Java设计惯例的设定：
字串5

自动排版设定：窗口->喜好设定->Java->程序代码制作格式。

换行：全部不勾选。
分行：行长度上限设：80。
样式：只将强制转型后插入空白勾选。
内缩空格数目：设为4。

Eclipse的教学文件：
Eclipse 3.0系列热键表 - 中英对照解说版 (by sungo) ~New~
Window+GCC+CDT用Eclipse开发C、C++ (by sungo) ~New~

其它：
扩充Eclipse的Java 开发工具(中文)
使用Eclipse开发J2EE 应用程序(中文)
使用Eclipse平台进行除错(中文)
用Eclipse进行XML 开发(中文)
开发Eclipse外挂程序(中文)
国际化您的Eclipse外挂程序(英文)
将Swing编辑器加入Eclipse(英文)
如何测试你的Eclipse plug-in符合国际市场需求(英文)

Eclipse的相关网站：
http://eclipse-plugins.2y.net/eclipse/index.jsp ;
http://www.eclipseplugincentral.com/ ;
Eclipse相关教学[简体]  字串6

 

 

写程序写到很累了，想休息一下？？玩玩小Game是
不错的选择，下面介绍使用Eclipse玩Game的Plug-in。

补充外挂篇：
Eclipse-Games：
http://eclipse-games.sourceforge.net/ ;
版本选：Latest Release 3.0.1 (Release Notes) Sat, 3 Jan 2004

外挂安装完后，重新开启Eclipse。
窗口->自订视景->其它->勾选Game Actions。
再将Eclipse关闭，重新再启动，就可以开始玩噜。
(共有4种：采地雷I、采地雷II、贪食蛇、仓库番。)

(Eclipse 2.1.2 +中文化 玩Game -仓库番)  

补充：(于Eclipse使用assertion机制)
Eclipse版本：2.1.3 release。

JDK1.4版新加入的assertion机制(关键词：assert)，由于JDK1.4编译器
预设是兼容1.3，所以要使用assert必须在编译时加上-source 1.4的参数。

C:\>javac -source 1.4 XXX.java
字串6

执行时则必须加-ea 或-enableassertions参数启动。

C:\>java -ea XXX

如要在Eclipse中使用assertion机制，请作以下设定：
设定一：(编译设定)
Windows->Preferance->Java->Compiler->Compliance and Classfiles
页面。将..JDK Compliance level->Compiler compliance level调成1.4。

设定二：(执行设定)
Run->Run->(x)=Arguments页面，在VM arguments加入-da参数，按下
Run button便可看到启动assertion后的执行结果。

(Eclipse 2.1.3 release + assertion测试)
<assert判别为false，所以show出AssertionError>  

新版(m8+)的eclipse可以设vm arguments
另外提供一种设法，是在eclipse启动时加入vm arguments(跟加大eclipse预设内存大小的方式一样)
这样就不用每次run都得需去设vm arguments 

来自http://tb.blog.csdn.net/TrackBack.aspx?PostId=1482

     即将到来的今年五月份是我第三次参加系分考试,从报名到现在我都没有好好复习,心里也一直提醒自己应该把握机会好好努力了,但就是打不起精神,到现在都不能全身心投入到考试准备中去,不知是什么原因,感觉自己像是有点麻木了,再也提不起往日的热情来了。
    能过系分一直一来是我的目标，其实自己感觉系分也不是很难就是论文比较难写点，可能这和我没有太多的项目的经验有关，考试时是实在编不出来，记得第一次考时，我还写了近2000字的论文，当时自己感觉还不错，可能就是内容太浅了，差了几分，第二次我写了不到1000字就再下写不下去，感觉自己早就写到要收笔了，最后只能提前交卷，结果可想而知，想想自己两次都是死在论文上，今年是什么结果还不知道，但就是感觉自己论文不知道怎么复习，感觉心里很乱，理不出头绪来，直接影响自己的复习的热情。一定要想办法调动自己的积极性。
    今天到考试还有61天，应该提前准备下，努力吧，写下此贴自勉。