Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÓëMatlab»ìºÏ±à³Ì

VBÓëMatlab»ìºÏ±à³ÌÓжàÖÖ·½Ê½£¬ÕâÀïÌÖÂÛMatlab½«MÎļþ±àÒë³Écom×é¼þ¹²VBµ÷Óõķ½Ê½¡£
Matlab°æ±¾£ºMatlab 7.7. 0.471 R2008b
VB°æ±¾£ºVB 6.0 & VB 2008
Ê×ÏÈдºÃÍê³Éij¸ö¹¦ÄܵÄmÎļþ£¬±ÈÈçÔÚmÎļþÖÐдÈëÈçϺ¯Êý
function [returns,stderr]=GetReturns(prices)
    returns=price2ret(prices)&nbs ......

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

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

VB¶ÔINIÎļþ²Ù×÷

VB¶ÔINIÎļþ²Ù×÷
2009-02-25 00:17
INI ÎļþÊÇʲôÑù×Ó£¿——²»»á°É£¬Õâ¶¼²»ÖªµÀ¡£INI Îļþ¾ÍÊÇ Windows Öг£¼û
µÄÒÔ .ini ΪÀ©Õ¹ÃûµÄÎļþ£¬ÆäÄÚ²¿¸ñʽºÍ¸÷²¿·ÖµÄÃû³ÆÈçÏ£º
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
 & ......

vb Á¬½ÓoracleÊý¾Ý¿â

         
    Dim cn As ADODB.Connection
    Dim rs     As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ