本文目录一览：
网页设计常用HTML代码
网页设计常用HTML代码大全
HTML是用来描述网页的一种语言。下面我为大家分享HTML代码，希望对大家学习html代码有帮助！
忽视右键
body oncontextmenu="return false"
或
body style="overflow-y:hidden"
1.如何几秒后转到别的页面？
META HTTP-EQUIV="Refresh" CONTENT="时间;URL=地址"
2.点击关闭窗口
a href="javascript:top.window.close();"点击关闭窗口/a！
3.请问如何去掉主页右面的滚动条？
body scroll="no"
body style="overflow-y:hidden"
4.请问如何做到让一个网页自动关闭.
html
head
OBJECT id=closes type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
param name="Command" value="Close"
/object
/head
body onload="window.setTimeout(‘‘‘‘closes.Click()‘‘‘‘,10000)"
这个窗口会在10秒过后自动关闭,而且不会出现提示. /body
如何在不刷新页面的情况下刷新css?
style
button{ color:#000000;}
/style
button onclick=document.styleSheets[0].rules[0].style.color=‘‘‘‘red‘‘‘‘点击按钮直接修改style标签里button选择符使按钮改为红色/button
请问如何让网页自动刷新？
在head部记入META HTTP-EQUIV="Refresh" content="20"其中20为20秒后自动刷新，你可以更改为任意值。
5.如何让页面自动刷新？
方法一，用refresh
HTML 代码片段如下:
head
meta http-equiv="refresh" content="5"
/head
5表示刷新时间
[Ctrl+A 全部选择 提示:你可先修改部分代码，再按运行]
方法二，使用setTimeout控制
img src=/logo.gif
script
function rl(){
document.location.reload()
}
setTimeout(rl,2000)
/script
6.如何让超链接没有下划线
在源代码中的HEAD…/HEAD之间输入如下代码：
style type="text/css" !--
a { text-decoration: none}
-- /style
7.请问如何去掉IE的上下滚动条？
body style=‘‘‘‘overflow:scroll;overflow-y:hidden‘‘‘‘
/body
8.怎样才能把RealPlayer文件在网页做一个试听连接？
embed height=25 src=51js.rm type=audio/x-pn-realaudio-plugin width=50 autostart="false" controls="PlayButton"
9.如何用html实现浏览器上后退按钮的功能？
a href="java script:history.go(-1)"点击后退/a
或者
script history.back() /script
10.请问怎么在网页中改变鼠标的箭头形状？
HTML 代码片段如下:
body
a href="#" style="cursor: auto;"auto/abr
a href="#" style="cursor: crosshair "crosshair /abr
a href="#" style="cursor: default "default /abr
a href="#" style="cursor: hand "hand /abr
a href="#" style="cursor: move "move /abr
a href="#" style="cursor: e-resize "e-resize /abr
a href="#" style="cursor: ne-resize "ne-resize /abr
a href="#" style="cursor: nw-resize"nw-resize/abr
a href="#" style="cursor: n-resize"n-resize/abr
a href="#" style="cursor: se-resize"se-resize/abr
a href="#" style="cursor: sw-resize"sw-resize/abr
a href="#" style="cursor: s-resize"s-resize/abr
a href="#" style="cursor: w-resize"w-resize/abr
a href="#" style="cursor: text"text/abr
a href="#" style="cursor: wait"wait/abr
a href="#" style="cursor: help"help/abr
/body
11.怎样不使用页面的缓存？即每一次打开页面时不是调用缓存中的东西
META HTTP-EQUIV="Pragma" CONTENT="no-cache"
12.页面打开时自动弹出一个窗口的代码怎么写？
HTML 代码片段如下:
html
head
titleUntitled Document/title
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
script language="B style="color:black;background-color:#A0FFFF"javascript/B"
!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//--
/script
/head
body bgcolor="#FFFFFF" text="#000000" onLoad="MM_openBrWindow(‘‘‘‘‘‘‘‘,‘‘‘‘,‘‘‘‘width=400,height=400‘‘‘‘)"
/body
/html
13.如何让我的页面出现一个会讲话的小人？Merlin
HTML 代码片段如下:
HTML
HEAD
TITLE默林/TITLE
META http-equiv=Content-Type content="text/html; charset=gb2312"
/HEAD
BODY
pOBJECT id=sims classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
/OBJECT
SCRIPT
var MerlinID;
var MerlinACS;
sims.Connected = true;
MerlinLoaded = LoadLocalAgent(MerlinID, MerlinACS);
Merlin = sims.Characters.Character(MerlinID);
Merlin.Show();
Merlin.Play("Surprised");
Merlin.Speak("大家好");
Merlin.Play("GestureLeft");
Merlin.Think("我是默林！");
Merlin.Play("Pleased");
Merlin.Think("可爱吗？");
Merlin.Play("GestureDown");
Merlin.Speak("哈哈！");
Merlin.Hide();
function LoadLocalAgent(CharID, CharACS){
LoadReq = sims.Characters.Load(CharID, CharACS);
return(true);
}
/SCRIPT
/p
p /p
p看此效果必须装有office2000！！！/p
/BODY
/HTML
14.在页面中如何加入不是满铺的背景图片,拉动页面时背景图不动
HTML 代码片段如下:
htmlhead
STYLE
body {background-image:url(logo.gif);
background-repeat:no-repeat; background-position:center }
/STYLE
/head
body bgproperties="fixed"
/body
/html
[Ctrl+A 全部选择 提示:你可先修改部分代码，再按运行]
background-repeat:no-repeat; 是让背景图不占满整个页面
body bgproperties="fixed" 是拉动scroll时背景图不动
15.文本输入框什么属性能实现不可输入？
HTML 代码片段如下:
input type="text" name="textfield" disabled
或者
input type="text" name="textfield" readonly
16.如何禁止自己的页面在别人的框架里打开？
把以下代码加至你的head区
script
if (window.top!=self){
window.top.location=self.location
}
/script
17.如何实现首页全屏幕显示？
HTML 代码片段如下:
html
bodyscript language="B style="color:black;background-color:#A0FFFF"javascript/B"
var coolw=642
var coolh=400
var coolhuang=window.open("","coolhuang","width="+coolw+",height="+coolh+",
fullscreen=1,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0")
window.close()
/script/body/html
18.如何监听一个窗口被关闭了？
HTML 代码片段如下:
body onunload="alert(‘‘‘‘你关闭了这个窗口‘‘‘‘)"
19.如何禁止Ctrl+N？
HTML 代码片段如下:
body onkeydown=return(!(event.keyCode==78event.ctrlKey))
如何把页面加入用户的收藏夹？
HTML 代码片段如下:
a href="B style="color:black;background-color:#A0FFFF"javascript/B:window.external.AddFavorite(‘‘‘‘‘‘‘‘,‘‘‘‘无忧脚本‘‘‘‘)"收藏无忧脚本/a
如何在我的'页面中加入背景音乐？
IE: bgsound src="*.mid" loop=infinite
NS:embed src="*.mid" autostart=true hidden=true loop=true
*.mid你的背景音乐的midi格式文件
关于页面转换效果
meta http-equiv="page-enter" content="revealTrans(Duration=4,Transition=23)"
或
meta http-equiv="page-exit" content="revealTrans(Duration=4,Transition=23)"
说明：Transition=23是随机效果，另可以选0-22任一数字固定某个效果
如何设定打开页面的大小
HTML 代码片段如下:
body onload="top.resizeTo(300,200);"!--(width，height)--
怎样双击滚屏，单击停止？
HTML 代码片段如下:
html
head
title新网页1/title
/head
body
script language"B style="color:black;background-color:#A0FFFF"javascript/B"
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",10);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
/script
pa/ppa/ppa/ppaa/ppaa/ppaa/p
paa/ppaa/ppaa/ppaa/ppaa/ppaa/p
paa/ppaa/ppaa/ppaa/ppaa/ppaa/p
paa/ppaa/ppaa/ppaa/ppa/p
/body
/html
如何让body中的文字不被选中？
HTML 代码片段如下:
body onselectstart="return false" aaa/body
如何让弹出的窗口不能关闭？
在新开的窗口中加入如下代码
body onunload=open(location.href)
/body
如何让浏览器在保存页面时保存失败？
HTML 代码片段如下:
NOSCRIPT
B style="color:black;background-color:#ffff66"IFRAME/B SRC="*.html"
/B style="color:black;background-color:#ffff66"IFRAME/B
/NOSCRIPT
表单中如何用图片按钮实现 reset?
html
head
script
function aaa(){
document.forms[0].reset()
}
/script
/head
body
form
textarea rows="2" name="S1" cols="20"/textarea
input type="submit" values="提交" name="B1"
image src="logo.gif" onclick=aaa()
/form
/body/html
进入网页时弹出的信息对话框
body onLoad="window.alert(‘‘‘‘欢迎光临本站‘‘‘‘)"
关闭窗口后弹出对话框
body onUnload="window.alert(‘‘‘‘谢谢你的光临!欢迎下次再来!‘‘‘‘)"
告别提示
body onUnload= alert("再见，感谢你的访问！")
右键菜单的制作
OBJECT id=menu type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
PARAM name="Command" value="Related Topics,menu"
PARAM name="Item1" value="动易;"
PARAM name="Item2" value="搜狐;"
PARAM name="Item3" value="新浪;"
PARAM name="Item4" value="网易;"
PARAM name="Item5" value="互动学院;"
/OBJECT script if (document.all) document.body.onmousedown=new Function("if (event.button==2) menu.Click();") /script
下拉菜单
object id=HHCtrl type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" PARAM name="Command" value="Related Topics,Menu" PARAM name="Item1" value="aspease;" PARAM name="Item2" value="byhu;" PARAM name="Item3" value="lzz;" /object a href=javascript:HHCtrl.Click() title="下拉菜单"下拉菜单/a
;
手机的常用代码有些什么？
先来个最简单的——按*#06#然后在你的手机上会出现一个序列号给你，你就数到第七个和第八个数。 假如你的第七个和第八个数是下面对应的两个数，那么你的手机质量的好坏就确定了。 0，2or2，0代表是阿拉伯生产的，是很差的手机 0，8or8，0代表是德*生产的，是好一点儿的手机 0，1or1，0代表是芬兰生产的，是非常好的手机 0，0代表是原产公司生产的，是质量最好的手机（原装手机） 1，3代表是阿赛拜疆生产的，是非常非常差的手机 手机暗码大全，希望大家喜欢在手机上按下列暗码就有如下的用途 暗码用途备注 *#06#查询IMEI号码所有手机通用 *#7370#格式化手机Series60手机专用 *#7780#恢复出厂设置Series60和Series40手机通用 *#0000#查询当前软件版本号所有手机通用 *#7760#查询生产线号码Series40手机专用 *#2820#查询蓝牙设备地址Series60和Series40手机通用 *3370#激活EFR部分型号的手机可用 #3370#关闭EFR部分型号的手机可用 *4720#激活HFR部分型号的手机可用 #4720#关闭HFR部分型号的手机可用 *#92702689#查询总通话时间仅限6630 *#92702689#进入数据模式Series40手机专用 *#7370925538#为手机上锁Series60手机专用 一、*#06#显示IMEI码 二、*#0000#显示软件版本 部分型号如果不起作用，可按*#型号代码#，如*#6110#) 第一行--软件版本； 第二行--软件发布日期； 第三行--手机型号 三、*#92702689#显示序列号和IMEI码,带滚动菜单 第一屏表示-手机出厂时间：1197(月月年年)； 第二屏表示-串号和IMEI； 第三屏表示-购买时间：1197(月月年年)可以更改一次 （但一经输入就不能再作更改，日期会被永久记录） 第四屏表示-最后修理时间：0000(月月年年)维修时设置。 第五屏表示-传输用户数据：退出关闭电话，然后返回。 如果以上工作不正常，并且电话要求您输入一个合法的代码，可试试： 1).6232（OK）：显示制造的月和年 2).7832（OK）：显示手机购买时间的月和年 3).7332（OK）：显示最近维修时间的月和年：0000(月月年年)维修时设置 4).9268（OK）：显示系列号 5).37832（OK）：设置购买时间的月和年（警告：只允许做一次） 6).87267（OK）：确认传输，与软件更新有关 四、速率编码 *3370#或*efr#：开启(EFR)全速率编码 #3370#或#efr#：关闭全速率编码 （开启全速增强型编码模式，可改善话音质量但会耗电） *4720#或*hra0#：开启(HR)半速率编码 #4720#或#hra0#：关闭半速率编码 （话音质量降低，但可延长电池大概30%左右使用时间，需网络支持） 键入这些代码后，会关机重开，然后才能生效。 五、SIM卡锁信息 *#746025625#(=*#sim0clock#)：如果SIM卡能被锁，进行检测时键入该指令后，手机显示\"SIMCLOCKSTOPALLOWED\"or\"SIMCLOCKSTOPNOTALLOWED\"，这取决于你的SIM卡。 SIM卡锁信息：包括四种不同的锁 1).国家锁--锁指定的国家 2).网络锁--锁指定的网络 3).供应商锁--锁服务提供商 4).SIM卡锁--锁指定的SIM卡 六、查询手机是否锁频 首先必须找出设定手机时必须使用的几个键。其中，连续按*键二次即出现\"+\"；连续按*键三次即出现\"p\"；连续按*键四次即出现\"w\"。然后，你就可以依次顺序输入相应组合键。 #pw+1234567890+1#：查询是否锁国家码 #pw+1234567890+2#：查询是否锁网络码 #pw+1234567890+3#：查询是否锁网络提供者锁定的码 #pw+1234567890+4#：查询是否锁SIM卡 七、电源按键 轻触电源键，屏幕将显示情景模式的选单，你可以通过上下键快速地在各个模式中切换。在键盘锁模式下打开屏幕灯，你曾感受过在夜晚摸黑想打开手机的键盘锁的烦恼吗？其实你可以轻触电源键，这时屏幕和键盘的夜灯将会打开，这样你就可以从容地分辨按键打开键盘锁了。 八、查看手机状态 操作指令：#pw+(mastercode)+X# (mastercode)是一10位数(没有括号)X是一个1到4的数,它显示以上的锁，还不确定何数对应何锁。 SIM卡不限制信息，意味着你的电话还没锁。 1).VINCHARGERｉｎｐｕｔVOLTAGE8.4V0.8A 2).CHRGCTRLCHARGERCONTROLPWM32Khz 3).XMICMICｉｎｐｕｔ60mV-1V 4).SGNDSIGNALGROUND 5).XEAREAROUTPUT80mV-1V 6).MBUS9600B/S 7).FBUS_RX9.6-230.4KB/S 8).FBUS_TX9.6-230.4KB/S 9).L_GNDCHARGER/LOGICGND 九、NOKIA9000/9000i 1).显示IMEI号：*#06# 2).显示软件版本号：*#682371158412125#最新版本在电话信息下面 3).显示制造星期和年：*#3283# 4).电话类型：GE8 十、5110锁码机解码 操作步骤：按C,按下-按C不放-按*不放-按*不放- 键入04*PIN*PIN*PIN#，就完成了。 十一、更换当前号码 按住#键不放约一秒钟，屏幕会出现“交换号码？”，按确认后屏幕上方会出现一个2字，这时手机不能拨出但能接听来电。取消重操作一次，利用它可达到锁机的效果。在非来电时进入来电菜单，持续按住功能键两秒，将进入来电菜单，而这个菜单平时只是会在有电话打入时才会出现的。 十二、6110在待机画面显示名字
excel vba常用代码
Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。它与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。VBA 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码，使工作自动化。 [1]
数据类型
基本数据类型
即Primary Type Data，下述列表的括号内为字节数：
Byte (1)：无符号数类型，取值范围0-255
Boolean (2)
Integer(2)
Long (4)
Single (4)
Double (8)
Currency (8)
Decimal (14)
Date (8)
String
Object (4)
Variant （根据分配确定） [2]
自定义的数据类型
相当于C语言的struct，例如： [2]
Type 自定义类型名 元素名 As 类型 … [元素名 As 类型] End Type
数组
Option Base 0 ：数组索引值从0开始 [2]
Option Base 1 ：数组索引值从1开始
Dim MyArray(10) ：声明一个数组变量，10是最大的可用的数组索引值
MyArray(5) = 101 ：给数组的元素赋值
Dim Data(10,5) ：声明一个二维数组变量
Data(1,1) = "A001" ：给数组元素赋值
Dim cArr(-11 To 20, 1 To 3) As String ：声明一个数组，定义数组索引值的上下界
Dim dArr() As String ：声明动态数组
ReDim dArr(0 To 5, 1 To 2) ：改变动态数组的尺寸默认把原数据清除。如果保留原来的数据，必须加上参数
Preserve：使用Preserve参数时只能改变最后一位的大小
If UBound(vTemp) = -1 Then：判断数组变量vTemp是否为空数组
End If Erase MyArrar, Data Erase语句清除数组元素，释放变量占用的空间 [2]
常量
编辑
系统定义常量
系统定义常量有3个：True、False和Null。 [4]
固有常量
固有常量是编程时引用的对象库定义的常量。所有固有常量都可以在宏或VBA代码中使用。通常，固有常量通过前两个字母来指明定义该常量。来自VB库的常量则以“vb”开头。来自Access的常量以“ac”开头。可以使用对象浏览器来查看所有对象库中的固有常量列表。 [4]
在VBA中，常量的数据类型有整型、长整型、单精度型、双精度型、字节型、货币型、字符型、日期型和逻辑型。一个整型数据就是一个整型常量，一个长整型数据就是一个长整型常量。例如，12%、-1%是整型常量，32768、10000000是长整型常量，-2.5 1、3.14是单精度实型常量，3.1415926#是双精度实型常量，China、Shanghai是字符型常量，#07/13/2001 11:45PM#是日期常量，由符号 “ # ” 将字符括起来。 [4]
符号常量
可以自行定义的常量即符号常量，必须先定义，后使用。可见，需要声明的常量都是符号常量。 [4]
基本语法格式:
1 [ Publicr/ Private] Const 常量名[As 类型]=表达式
如：Global Const 符号常量名称 = 常量值 [4]
语句功能:
定义一个符号常量，并将指定表达式的值赋给符号常量。 [4]
语句说明如下: [4]
1)“常量名”指定符号常量的名字。符号常量名可以由字母、数字和下画线组成，但只能以字母开头，不能含有空格。 [4]
2)“表达式”指定符号常量的值。该表达式通常由数值型、字符型、逻辑型或日期型数据以及各种运算符组成，但在表达式中不能出现变量和函数。 [4]
3) public用来表示这个常量的作用范围是整个数据库的所有模块。 [4]
4) private则表示这个常量只在使用该声明常量语句的模块中起作用。 [4]
说明：
1)除用户定义的符号常量外，VBA还提供了许多符号常量，我们可以直接使用。 [4]
2)对数码比较长，并且在程序中多次使用的常量，通常使用符号常量代替。运行程序时，系统自动把程序中的所有符号常量换为赋给它的值。 [4]
变量
编辑
与常量一样，变量也是一块内存空间，用于保存程序运行过程中可能变化的数据。变量的名称是用户定义的一个标识符。 [5]
在代码中需要使用该变量时，只需引用相应的标识符即可，而不用管变量当前的值具体是什么。 [5]
声明
与用户自定义的常量相似，变量在使用之前都需要声明，在VBA中声明变量的语法格式有以下几种： [5]
关键字变量名 AS 数据类型
关键字变量1，变量2 ... 变量n AS 数据类型
关键字变量1 AS 数据类型，变量2 As 数据类型， ... ，变量n AS数据类型
在第二种语法格式中， “变量n”的数据类型为AS关键字后定义的数据类型，而“变量1”、“变量2”、…的数据类型为变体型。 [5]
在VBA中，可用Dim、Private、Public和Static这4个关键字来声明变量，使用不同关键字声明的变量其含义也有所不同。 [5]
◆ 利用Dim关键字声明变量：Dim关键字主要用来在内存中分配一块空间，并为该空间命名，是VBA中声明变量最常用的关键字。使用Dim关键字声明的变量只能在当前过程或模块中使用。 [5]
◆ 利用Private关键字声明变量：Private关键字用于在类模块中声明一个私有变量，它只能在当前的类模块中使用。当定义变量的位置同处于类模块中时，其使用效果与使用Dim关键字定义的变量相同。 [5]
◆ 利用Public关键字声明变量：利用Public关键字声明的变量可以在程序的任何地方调用，而与声明变量的位置无关。 [5]
◆ 利用Static关键字声明变量：Static关键字用于声明静态变量，即变量的值在整个代码运行期间都能被保留。 [5]
赋值
变量在使用时还需要对其进行赋值。在VBA中对变量进行赋值可通过 “ = ” 符号或 “ Set ” 关键字进行。通过 “ = ” 符号对变量赋值的语法格式有以下几种。 [5]
变量名=数据
变量1=变量2 运算符 数据
变量1=变量2 运算符 变量3 … 运算符 变量n
如果在定义变量时指定了变量的数据类型，则为变量所赋的值也必须是该数据类型的值。如果变量定义为Integer类型，而在赋值时却给了变量一个String类型的数据，则在编译运行的过程中将弹出错误弹框。 [5]
运算符
编辑
运算符是在程序中执行计算功能的某些特殊符号，它是程序代码的重要组成部分。在程序代码中，运算符不能单独使用，必须与其操作数共同组成表达式后才具有运算意义。VBA中的运算符包含算术运算符、连接运算符、比较运算符和逻辑运算符等。 [4]
算术运算符
算术运算符主要用于执行四则运算，仅用算术运算符连接起来的表达式称为算术表达式。算术运算符及其作用与示例如表所示。 [5]
例子
名称
结果
-$a
取反
$a 的负值。
$a + $b
加法
$a 和 $b 的和。
$a - $b
减法
$a 和 $b 的差。
$a * $b
乘法
$a 和 $b 的积。
$a / $b
除法
$a 除以 $b 的商，允许小数。
$a \ $b 除法 $a 除以 $b 的商，结果取整。
$a Mod $b
取余
$a 除以 $b 的余数
注意：
在执行算术运算时，运算符两侧操作的数据类型必须相同，否则会出现“类型不匹配”的错误提示。当“+”运算符左右两侧都是字符串类型的操作数时，执行的是连接运算，如表达式“"Pass+"word"的计算结果为字符串“ PassWord ”。 [5]
连接运算符
连接运算符的作用是将运算符两侧的操作数连接成一个数，其操作数的数据类型通常都为String类型。VBA中的连接运算符有“”和“+”两种，由于使用“+”执行连接运算时，容易与加法运算混淆，所以通常都采用“”进行连接运算。 [5]
比较运算符
比较运算符可以对运算符两侧的操作数执行比较运算，其返回结果为Boolean类型的True或False。比较运算符的操作数通常为具体的数值，当操作数为字符串或其他符号时，是根据该符号的ASCII码进行比较的。VBA中的比较运算符及其作用与示例如表所示。 [5]
例子
名称
结果
$a = $b
等于
TRUE，如果 $a 等于 $b。
$a $b
不等
TRUE，如果 $a 不等于 $b。
$a $b
小于
TRUE，如果 $a 严格小于 $b。
$a $b
大于
TRUE，如果 $a 严格大于 $b。
$a = $b
小于等于
TRUE，如果 $a 小于或者等于 $b。
$a = $b
大于等于
TRUE，如果 $a 大于或者等于 $b。
逻辑运算符
逻辑运算符用于对运算符两侧的操作数执行逻辑运算，参与逻辑运算的操作数本身可以是逻辑表达式(表达式的最终结果为True或 False)，也可以是算术表达式(表达式的最终返回值为0或非0)。 [5]
在逻辑运算中，数值0与逻辑值 False相同，表示逻辑假；非0数值与True相同，表示逻辑真。逻辑运算符及其含义与示例如表所示。 [5]
例子
名称
结果
$a and $b
And（逻辑与）
TRUE，如果 $a 与 $b 都为TRUE。
$a or $b
Or（逻辑或）
TRUE，如果 $a 或 $b 任一为TRUE。
$a xor $b
Xor（逻辑异或）
TRUE，如果 $a 或 $b 同位相异。
Not(12)
Not（逻辑非）
TRUE。
(12) Eqv (12)
两个操作数同为假，返回False;两个操作数同为真，返回True；两个操作数一真一假，返回False
TRUE。
21 Imp 35
运算符左右同为真,返回True;左右同为假,返回True;左真右假,回返 False;左假右真,返回True
TRUE。
语法结构
编辑
if 语句
1 if 条件1 then 语句1elseif 条件2 then 语句2elseif ... ...else 语句nend if
Select Case 语句
1 Select Case 表达式 Case 表达式列表1 语句1 Case 表达式列表2 语句2 ... Case 表达式列表n 语句nEnd Select
其中的表达式列表可以为： [5]
表达式 例： "A"
用逗号分隔的一组枚举表达式例：2,4,6,8
表达式1 To 表达式2 例：60 To 100
Is 关系运算符表达式 例：Is 60
Do...Loop 语句
1 Do While或Until 条件 语句块1 Exit Do 语句块2Loop
For...Next语句
1 Do 语句块1 Exit Do 语句块2Loop While或Until 条件
For Each … Next语句
1 For 循环控制变量=初值To 终值Step 步长 语句块 ‘Exit For语句可以跳出循环体Next
跳出本次循环的continue语句
1 For 循环控制变量=初值 To 终值 Step 步长 Do '用于模拟continue 语句块 If 条件 Then Exit Do '用于模拟continue 语句块 Loop While False '用于模拟continue Next
With语句
1 With 对象引用 语句块End With
On Error语句
1 On Error Goto 出错处理语句的label '跳转到出错处理语句
或
1 On Error Resume Next '遇到错误，不管错误，继续往下执行
具有控制作用的函数
If(条件式,表达式1,表达式2) [5]
Switch(条件式1,表达式1,[条件式2,表达式2[,...,条件式n,表达式n]])
Choose(索引式,选项1[,选项2,...[,选项n]]) '这是基于1的索引
其他语句
编辑
注释语句
使用REM或者单引号开始的行。 [6]
语句的连写与续行
如果一行包括多条语句，用冒号分割各个语句。跨多行的语句，在行末用“空格加下划线”表示续行 [6] 。
过程与函数
编辑
12 Sub 过程名(参数表) 语句块 Exit Sub 语句块End Sub
1 Function 函数名(参数表) As Type 语句块 函数名=表达式 Exit FunctionEnd Function
可以是Private、Public、Friend、Static等修饰。 [6]
调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。例如： [6]
1 Dim cn As ADODB.Connection Set cn = CurrentProject.Connection Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM myTable" , cn Dim ExcelApp As New Excel.Application Dim ExcelWst As Worksheet Set ExcelWst = ExcelApp.Workbooks.Add.Worksheets(1) ExcelWst.Range("A2").CopyFromRecordset(rs) '失败，无法执行该行 ExcelWst.Range("A2").CopyFromRecordset rs '可成功执行该行
常用内置函数
编辑
VBA的常用内置函数： [5]
MsgBox
InputBox
舍入函数：Fix 向0取整,Int向下取整, Round四舍五入
Rnd： 返回0-1内的单精度随机数
字符串函数： [5]
Filter：对字符串的一维数组的过滤
InStr([Start, ]Str1,Str2[, Compare])与InStrRev： 查找子串
Len：字符串长度
Join：连接一维数组中的所有子字符串
Left,Right,Mid： 截取子字符串
Space(数值) ：生成空格字符串
Ucase,Lcase：大小写转换函数
Ltrim, Rtrim,Trim ：删除首尾空格
Replace
Split：分割一个字符串成为一维数组
StrComp：字符串比较
StrConv：字符串转换
String(number, character)：制定字符重复若干次
StrReverse
日期/时间有关函数： [5]
Year, Month, Day, WeekDay,Hour,Minute,Second： 截取日期时间分量
DateAdd： 日期/时间增量函数
DateDiff(间隔类型,日期1,日期2[,W1][,W2])日期/时间的距离函数
DatePart(分割类型,日期[,w1][,w2])时间分割函数
DateSerial(表达式1,表达式2,表达式3) 合成日期；DateValue(“字符串表达式”)返回日期；
Date,Time,Now,Timer： 返回日期时间
DateValue
TimeSerial：由时间序列得到时间对象
TimeValue：由时间字符串得到时间对象
Weekday：获得日期的周几
WeekdayName
转换函数：CBool、CByte、CCur、 CDate、 CDbl、CDec、CInt、 CLng、CLngLng、CLngPtr、 [5] CSng、CStr、CVar、CVErr、Asc(字符串表达式)返回第一个字符的Ascii编码值、Chr(ASCII码)返回字符、Hex、Oct、Str(数值表达式)返回字符串、Val(string)、Format、FormatCurrency、FormatDateTime、FormatNumber、FormatPercent、MonthName。
Nz(表达式或字段属性值[,规定值])如果是空，则返回0或者""或者函数的第二个参数值 [5]
验证函数：isNumeric、isDate、isNull、isEmpty、IsArray、IsError、IsMissing、IsObject [5]
数学函数：Abs、Sqr、Tan、Atn（即atan）、Sin、Cos、Exp（e为基的指数）、Log自然对数 [5]
Array：构造一个Array对象 [5]
CallByName: get or set a property, or invoke a method at run time using a string name. [5]
控制流：Choose:类似于C语言的select语句、If相当于IF-ELSE语句、Switch [5]
Command：获取命令行参数 [5]
CreateObject：创建ActiveX对象
CurDir：返回指定驱动器的当前工作路径 [5]
由基本数学函数导出的函数：Sec、Cosec、Cotangent、Cotan、Arcsin、Arccos、Arcsec、Arccosec、Arccotan、HSin、HCos、HTan、HSec、HCosec、HCotan、HArcsin、HArccos、HArctan、HArcsec、HArccosec、HArccotan、LogN
DoEvents：暂时把CPU控制权交回给系统 [5]
Environ：返回环境变量的值 [5]
文件操作： [5]
Dir：返回满足条件的所有文件、目录的名字
EOF
FileAttr
FileDateTime
FileLen
FreeFile Function
GetAttr：返回文件、目录的属性值
Input：读取文件
Loc：文件指针位置
LOF：文件打开时的指针位置
Seek：文件指针定位
Spc：使用Print做position output
Tab：用于Print函数
Error:错误号对应的错误消息 [5]
Windows Registry中的数据：GetAllSettings、SaveSetting、DeleteSetting、GetSetting [5]
GetObject：ActiveX组建的引用 [5]
IMEStatus：返回当前Input Method Editor (IME) [5]
Macintosh平台：MacID、MacScript [5]
金融函数： [5]
DDB：使用double-declining balance计算贬值
FV:计算固定利率的年金
IPmt：计算利率
IRR：计算利率
MIRR：计算利率
NPer：计算周期数
NPV：计算net present value
Pmt：计算支付数
PPmt：计算本金支付数
PV：计算present value
Rate：利息率
SLN：straight-line depreciation
SYD：计算sum-of-years' digits depreciation
Partition：返回字符串，表示一个数值名字落在各个range内。常用于SQL select语句 [5]
QBColor：颜色值 [5]
RGB：颜色值 [5]
TypeName：得到变量的类型名 [5]
VarType：得到变量的类型数 [5]
上交所常用证券代码是什么？
上海交易所的股票，A股，全部是以6开头。
2开头的应该是国债逆回购或债券类
9开头 的是B股（以美元认购和买卖）
沪市新股申购的代码是以730打头