Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÃüÃû¹æÔò¼°´úÂë¹æ·¶

VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
 
Âíά·å
(maweifeng@263.net
)
 
1.      
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1.      
±äÁ¿¡¢³£Á¿¡¢×Ô¶¨ÒåÀàÐͺÍö¾Ù
±í
1
‑1
¸ÅÀ¨Á˱äÁ¿¡¢³£Á¿µÄ»ù±¾ÃüÃû¹æÔò¡£
 
±í

1

1

±äÁ¿¡¢³£Á¿ºÍö¾ÙÀàÐ͵ÄÃüÃû¹æÔò
ÔªËØ
ÃüÃû¹æÔò
±äÁ¿
<
·¶Î§
><
Êý×é
><
Êý¾ÝÀàÐÍ
>
ÃèÊö£¨Ê××Öĸ´óд£©
³£Á¿
<
·¶Î§
><
Êý¾ÝÀàÐÍ
>
ÃèÊö£¨È«²¿´óд£©
Óû§×Ô¶¨ÒåÀàÐÍ
Type
ÃèÊöÃû³Æ
   
<
Êý¾ÝÀàÐÍ
>
ÃèÊö
End Type
ö¾ÙÀàÐÍ
Enum <
¹¤³Ìǰ׺
>
Ò»°ãÃèÊö
   
<
¹¤³Ìǰ׺
><
Ò»°ãÃèÊö
><
¾ßÌåÃû³Æ
1>
   
<
¹¤³Ìǰ׺
><
Ò»°ãÃèÊö
><
¾ßÌåÃû³Æ
2>
End Enum
 
<
·¶Î§
>
±íʾÁ˱äÁ¿µÄ×÷ÓÃÓò£¬¶ÔÓÚ
Private
ÀàÐͺÍÄ£¿é¼¶±äÁ¿£¬Ò»°ãʹÓÓ
m
”ǰ׺±íʾ£¬¶ÔÓÚ
Public
ÀàÐ͵ıäÁ¿£¬Ò»°ãʹÓÓ
g
”ǰ׺±íʾ£¬¶ø¶ÔÓÚ¹ý³ÌÄڵľֲ¿±äÁ¿£¬Ôò²»Ê¹ÓÃǰ׺¡£Èç¹ûÊÇÊý×飬ÔÚ·¶Î§Ç°×ººóÔö¼Ó“
a
”±íʾ±äÁ¿ÎªÊý×é¡£
¶ÔÓÚÊý¾ÝÀàÐÍ£¬Ò»°ãʹÓÃ
±í
1
‑2
µÄǰ׺±íʾ¡£
 
±í

1

2

ÃüÃû¹æÔò³£ÓÃǰ׺
ǰ׺
Êý¾ÝÀàÐÍ
ǰ׺
Êý¾ÝÀàÐÍ
ǰ׺
Êý¾ÝÀàÐÍ
is
Boolean
cm
ADODB.Command
cmb
MSForms.ComboBox
byt
Byte
cn
ADODB.Connection
chk
MSForms.CheckBox
cur
Currency
rs
ADODB.Recordset
cmd
MSForms.CommandButton
dte
Date
 
 
fra
MSForms.Frame
dec
Decimal
cht
Excel.Chart
lbl
MSForms.Label
f
Double
£¬
Single
rng
Excel.Range
lst
MSForms.ListBox
i
Integer
£¬
Long
wb
Excel.Workbook
mpg
MSForms.MultiPage
obj
Object
ws
Excel.Worksheet
opt
MSForms.OptionButton
str
String
 
 
spn
MSForms.SpinButton
u
User-defined type
cbr
Office.CommandBar
txt
MSForms.TextBox
v
Variant
ctl


Ïà¹ØÎĵµ£º

VB³õ¼¶ÄæÏòÓëÀûÓÃ

½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
    ÎªÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......

ÔÚVBµÄÀàÄ£¿éÖÐʹÓö¨Ê±Æ÷

    ³¤¾ÃÒÔÀ´£¬ÓÉÓÚ²»ÄÜÖ±½Ó»ñµÃVBÀà³ÉÔ±º¯ÊýÖ¸Õ룬ÒòΪÎÞ·¨ÔÚVBµÄÀàÄ£¿éÖÐÖ±½ÓʹÓö¨Ê±Æ÷¿Ø¼þ»ò¶¨Ê±Æ÷API£¬»ùÓÚ°³±àдµÄ»ñµÃÀà³ÉÔ±º¯ÊýÖ¸ÕëµÄº¯Êý£¬°³±àдÁËÕâ¸ö´ø¶¨Ê±Æ÷¹¦ÄܵÄÀ࣬ϣÍû¸øÅóÓÑÃÇһЩÆô·¢¡£
    Ò»¡¢Ð½¨Ò»¸öÀ࣬ÀàÃû³ÆÎªclsTimer£¬Àà´úÂëÈçÏ£º
Option Explicit
'* ** ......

ÈçºÎÓÃVBʵÏÖExcelÎļþµÄ×Ô¶¯ºÏ²¢

¼òµ¥¶øÊµÓõĺϲ¢ExcelÎļþµÄº¯Êý£¬Äܹ»½«¶à¸öXLSÎļþÖÐÖ¸¶¨ÊýÁ¿µÄ¹¤×÷±í×Ô¶¯ºÏ²¢µ½Ò»¸öXLSÎļþÀï¡£µ±È»£¬Èç¹ûÖ»ÊÇÊý¾ÝºÏ²¢£¬ÔòʹÓÃADO¾Í¿ÉÒÔʵÏÖ£¬µ«Èç¹ûÒª±£Áô±í¸ñ¸ñʽ£¬Ôò¿ÖÅÂÖ»ÄÜʹÓð³µÄ·½·¨ÁË¡£
    Ò»¡¢º¯Êý´úÂ룺
Option Explicit
'* ********************************************************* ......

vb »úƱ¶©¹ºÏµÍ³

ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾­¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ