ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[Âà¶K] [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X

[Âà¶K] [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X

§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ©ó: 2006-07-13, 02:26:16 »      

--------------------------------------------------------------------------------
©Î³\¦³¤H¹ï©óµ{¦¡¤¤¼g¥X¥t¤@µ{§Ç¦³¿³½ì
¥H¤U¬°½d¨Ò



Sub AddCode()
¡@
¡@Dim myModule As VBComponent
¡@Dim myCode As String
¡@Dim totalLines As Long
¡@

Set myModule = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)

myModule.Name = "myModule"

myCode = "sub Sumation" & vbLf & _
¡@¡@"dim i as integer" & vbLf & _
¡@¡@"dim sum as integer" & vbLf & _
¡@¡@"for i = 1 to 10" & vbLf & _
¡@¡@"sum = sum + i" & vbLf & _
¡@¡@"next i" & vbLf & _
¡@¡@"msgbox sum" & vbLf & _
¡@¡@"end sub"
¡@¡@
¡@¡@With myModule.CodeModule
¡@¡@¡@totalLines = .CountOfLines + 1
¡@¡@¡@.InsertLines totalLines, myCode
¡@¡@
¡@¡@End With
¡@¡@

End Sub


¥H¤Wµ{¦¡½X°õ¦æ«e½Ð¥ý¦b¤u¨ã->¥¨¶°->¦w¥þ©Ê
ÂI¿ï¨ü«H¥ôªºµo¦æªÌ­¶ÅÒ ¤¤
±N«H ¥ô¦s¨ú Visual Basic®Ö¨ú¤è¶ô¥´¤Ä
¤~¤£·|µo¥Í¿ù»~

« ³Ì«á½s¿è®É¶¡: 2006-07-13, 02:30:03 ¥Ñ §b§b »  ¦VªO¥DÀËÁ|    218.162.214.188 (?)  



oobird
¥Yºlªº¤ì¤u
½×¾ÂºûÅ@¸s

Â÷½u

¤å³¹: 5270



     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #1 ©ó: 2006-07-13, 21:41:42 »      

--------------------------------------------------------------------------------
ÁÂÁ¤À¨É¡I²Ä¤@¥y´N¥X²{"¨Ï¥ÎªÌ¦Û­q«¬ºA©|¥½©w¸q"¿ù»~¡A½Ð±Ð¬O¦ó­ì¦]¡H

¦VªO¥DÀËÁ|    125.230.50.183 (?)  

--------------------------------------------------------------------------------
µ²Ãf«Ý¼z§g


§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #2 ©ó: 2006-07-13, 22:15:03 »      

--------------------------------------------------------------------------------
ÁÙ¨S©w¸q´N¬O¨S³o­Ó¤¸¥ó,©Î¬Oª«¥ó¶¥¼h¤£¦b¥iµø½d³ò¤º
§Úªº¬O office 2003 ,¤£ª¾¬O§_ª©¥»®t²§
¦]¬°§Úªº¬O¥i°õ¦æªº
¦p¦³¨ä¥¦ªºªB¤Í¦³¨ä¥¦ªºª©¥»ÅwªïÀ°¦£´ú¸Õ¤@¤U

¦VªO¥DÀËÁ|    61.225.209.233 (?)  



§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #3 ©ó: 2006-07-13, 22:29:13 »      

--------------------------------------------------------------------------------

¥t¥~­×¥¿¤@¦¸,¬Ý¯à¤£¯à°õ¦æ
¨S¦³ ¨ä¥¦ªºª©¥»¥u¯à¥Î²qªº
Sub AddCode()
¡@
¡@
¡@Dim obj As Object
¡@Dim myCode As String
¡@Dim totallines¡@As Long
¡@
¡@
¡@Set obj = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
¡@
obj.Name = "Mymodule"
¡@
myCode = "sub Sumation" & vbLf & _
¡@¡@"dim i as integer" & vbLf & _
¡@¡@"dim sum as integer" & vbLf & _
¡@¡@"for i = 1 to 10" & vbLf & _
¡@¡@"sum = sum + i" & vbLf & _
¡@¡@"next i" & vbLf & _
¡@¡@"msgbox sum" & vbLf & _
¡@¡@"end sub"

¡@¡@With obj.CodeModule
¡@¡@¡@totallines = .CountOfLines + 1
¡@¡@¡@.InsertLines totallines, myCode
¡@¡@End With
¡@¡@
End Sub

¦VªO¥DÀËÁ|    61.225.209.233 (?)  



Hsieh
ª©¥D

¦b½u

·|­û©Ê§O:
¤å³¹: 5729



     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #4 ©ó: 2006-07-13, 22:38:10 »      

--------------------------------------------------------------------------------
²Ä1­Óµ{¦¡½X¸g´ú¸Õ¦poobirdª©¥D©Ò»¡ªº±¡§Î¤@¼Ë
²Ä2­Óµ{¦¡½X¸g´ú¸Õ,°õ¦æ¦Ü
¡@Set obj = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
¥X²{add¤èªk¥¢±Ñ
§Ú¤]¬Ooffice2003,¬°¦ó´N¤£¯à°õ¦æ?


¦VªO¥DÀËÁ|    220.137.73.142 (?)  

--------------------------------------------------------------------------------
¦^µªº¡·N¶Ü?
¡@¡@°O±o§i¶D§Ú®@!!


§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #5 ©ó: 2006-07-13, 23:22:15 »      

--------------------------------------------------------------------------------
¥H¤Wµ{¦¡½X°õ¦æ«e½Ð¥ý¦b¤u¨ã->¥¨¶°->¦w¥þ©Ê
ÂI¿ï¨ü«H¥ôªºµo¦æªÌ­¶ÅÒ ¤¤
±N«H ¥ô¦s¨ú Visual Basic®Ö¨ú¤è¶ô¥´¤Ä
¤~¤£·|µo¥Í¿ù»~

§Ú¦bµoªí¤å³¹®É´N»¡¤F°Ú
­n¥ý°µ¤W­±ªº°Ê§@ ¥ý®Ö¨ú «H¥ô¦s¨ú visual basic¤è¶ô¥´¤Ä

¥t¥~¤@ÂI§Ñ¤F»¡©ú(¤£¦n·N«ä¤F)
½Ð¤Þ¥Î
Microsoft Visual Basic For Applicartions Extensibility 5.3

« ³Ì«á½s¿è®É¶¡: 2006-07-14, 00:25:18 ¥Ñ §b§b »  ¦VªO¥DÀËÁ|    61.225.209.233 (?)  



oobird
¥Yºlªº¤ì¤u
½×¾ÂºûÅ@¸s

Â÷½u

¤å³¹: 5270



     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #6 ©ó: 2006-07-14, 08:27:32 »      

--------------------------------------------------------------------------------
¤£¿ù¡A«Ø¥ß¤F¤@­Ó·sªº¼Ò²Õ¡A¼g ¤J¤F Sub Sumation()µ{¦¡¡C
³Ì«á¤@¬q ¡G With obj.CodeModule
¡@¡@¡@totallines = .CountOfLines + 1
¡@¡@¡@.InsertLines totallines, myCode
¬O»¡¤°»ò¡H§Ú³o¸Ì³Ì«á¤@¥y³q¤£¹L¡C¡@

¦VªO¥DÀËÁ|    59.117.162.79 (?)  

--------------------------------------------------------------------------------
µ²Ãf«Ý¼z§g


§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #7 ©ó: 2006-07-14, 19:06:52 »      

--------------------------------------------------------------------------------
³Ì«á¤@¦æ¬O®t¤Jµ{¦¡½Xªº·N«ä
¨ä¤¤mycode´N¬Oµ{¦¡½X
¦Ó²Ä¤@­Ó¤Þ¼Æ¦Ü¤Ö­n¬O1¤~¦æ


¦VªO¥DÀËÁ|    61.225.209.196 (?)  



Hsieh
ª©¥D

¦b½u

·|­û©Ê§O:
¤å³¹: 5729



     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #8 ©ó: 2006-07-14, 19:19:19 »      

--------------------------------------------------------------------------------
¤Ó¦n¤F!¦hÁ«e½ú¤À¨É
¤p§Ì·Q½Ð±ÐÃþ¦ü°ÝÃD
½Ð±Ð«e½úvbext_ct_StdModule³o°Ñ¼Æ¬O¥[¤J¤@¯ë¼Ò²Õ
¦ý§Ú·Q¦bsheet©³¤U¥[¤Jµ{§Ç¤£ª¾À³¦p¦ó­×¥¿
¨Ò¦p
§Ú°ÊºA¥[¤J¤@­ÓCommandButton«ö¶s
­n¥[¤J CommandButton1_Clickµ{§ÇÀ³¦p¦ó¹F¦¨
ÁÂÁÂ!

¦VªO¥DÀËÁ|    220.137.73.142 (?)  

--------------------------------------------------------------------------------
¦^µªº¡·N¶Ü?
¡@¡@°O±o§i¶D§Ú®@!!


§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #9 ©ó: 2006-07-14, 20:35:26 »      

--------------------------------------------------------------------------------
Sub AddCode()

¡@Dim MyButton As OLEObject

¡@Dim SumationCode As String
¡@Dim totalLines As Long

¡@ Set MyButton = Sheet1.OLEObjects.Add("Forms.CommandButton.1")
¡@
¡@ With MyButton
¡@¡@ .Left = 10
¡@¡@ .Top = 10
¡@¡@ .Object.Caption = "Sumation"
¡@¡@ .Name = "Sumation"
¡@ End With
¡@
Set MyModule = ThisWorkbook.VBProject.VBComponents.Item("sheet1")

SumationCode = "private sub Sumation_Click" & vbLf & _
¡@¡@"dim i as integer" & vbLf & _
¡@¡@"dim sum as integer" & vbLf & _
¡@¡@"for i = 1 to 10" & vbLf & _
¡@¡@"sum = sum + i" & vbLf & _
¡@¡@"next i" & vbLf & _
¡@¡@"msgbox sum" & vbLf & _
¡@¡@"end sub"

¡@¡@With MyModule.CodeModule
¡@¡@¡@totalLines = .CountOfLines + 1
¡@¡@¡@.InsertLines totalLines, SumationCode
¡@¡@End With

End Sub
Hsieh
ª©¥D

¦b½u

·|­û©Ê§O:
¤å³¹: 5729



     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #10 ©ó: 2006-07-14, 20:43:07 »      

--------------------------------------------------------------------------------
¦hÁ«e½ú«ü¾É
³o°ÝÃD§xÂZ¤w¤[
¤µ¤é²×©ó±o±Ï¤F
ÁÂÁÂ!

¦VªO¥DÀËÁ|    220.137.73.142 (?)  

--------------------------------------------------------------------------------
¦^µªº¡·N¶Ü?
¡@¡@°O±o§i¶D§Ú®@!!


oobird
¥Yºlªº¤ì¤u
½×¾ÂºûÅ@¸s

Â÷½u

¤å³¹: 5270



     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #11 ©ó: 2006-07-14, 21:00:45 »      

--------------------------------------------------------------------------------
·d¤£À´§Úªº¬°¦ó¦bSet MyButton = Sheet1.OLEObjects.Add("Forms.CommandButton.1")
³o¦æ·|"¦¹®ÉµLªk¶i¤J¤¤Â_¼Ò¦¡"¿ù»~¡A¦Óµ{¦¡½X¤Î«ö¶sÓý³£¤w«Ø¥ß¡C

¦VªO¥DÀËÁ|    59.115.74.59 (?)  

--------------------------------------------------------------------------------
µ²Ãf«Ý¼z§g


§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #12 ©ó: 2006-07-14, 21:10:21 »      

--------------------------------------------------------------------------------
¦Ñ¹ê»¡,±zªº°ÝÃD§Ú¤]¤£À´
¦]¬°§Ú¨S¦³¹J¨ì±zªº°ÝÃD

¦VªO¥DÀËÁ|    61.225.209.196 (?)  



§b§b
°ª¤¤¥Í

Â÷½u

¤å³¹: 279


     Re: [¤À¨É]²£¥Í¥t¤@­Óµ{§Ç¤§µ{¦¡½X
« ¦^ÂФ峹 #13 ©ó: 2006-07-15, 21:07:43 »      

--------------------------------------------------------------------------------
§Ú·Q§AÀ³¸Ó¬O¥Î³v¦æ½sĶ¤~·|µo¥Í¦¹±¡ªp
³o­Ó±¡ªp§Úªº¤]¬O¤@¼Ë,¤£¹L¥u­n¤£¥Î³v¦æ
½sĶ´N¤£¦¨°ÝÃD,³£¯à³q¥B°õ¦æ§¹²¦
¥t¥~¤@ÂI,§Ú·Q¨S¤H³ßÅw¦bµ{¦¡½X¤¤¥[¤J ¥t¥~
¤@­Óµ{¦¡ªºµ{¦¡½X,§Ú·Q¤ñ¸û¦nªº¤è¦¡´N¬O¥t¥~
ªºµ{¦¡½X¦s¦¨¤@­Ó¤å¦rÀɳo¼Ë¤~¤£·|¥ú¥´ & vblf
´N²Ö¦º¤H¤F(µ{¦¡µu©Î³\µL©Ò¿×)
©Ò¥H§Ú±Ä¨ú¤F¥Ñ¤å¦rÀÉŪ¤Jªº¤è¦¡¤ñ¸û²³æ,³o¼Ë
¥H«á¥u­n¯à°õ¦æªºµ{§Ç,ª½±µcopy¨ì¤å¦rÀÉ´N¥i¥Î¤F

¨BÆJ¦p¤U
1.¦b¾A·íªº¸ô®|¤¤¼W¥[¤@­ÓÀÉ®×,§Ú¬O¦b c:\sumation.txt
¤º®e¦p¤U

µ{¦¡½X:
private sub Sumation_click
¡@dim i as integer
¡@dim sum as integer
¡@
¡@for i = 1 to 10
¡@¡@ sum = sum + i
¡@next i
¡@msgbox sum

end sub


2,¦A¨Ó´N¬O¥Dµ{¦¡½X¤F


µ{¦¡½X:
Option Explicit

Const FileName As String = "C:\Sumation.txt"


Sub AddCode()

¡@Dim MyButton As OLEObject
¡@Dim sh As Worksheet
¡@Dim ClassModuleCode As VBComponent
¡@
¡@Application.DisplayAlerts = False
¡@On Error Resume Next
¡@For Each sh In Worksheets
¡@¡@sh.Delete
¡@Next sh
¡@Application.DisplayAlerts = True
¡@Err.Clear
¡@
¡@Set sh = ThisWorkbook.Worksheets.Add
¡@Set MyButton = sh.OLEObjects.Add("Forms.CommandButton.1")
¡@
¡@ With MyButton
¡@¡@ .Left = 10
¡@¡@ .Top = 10
¡@¡@ .Object.Caption = "Sumation"
¡@¡@ .Name = "Sumation"
¡@ End With
¡@
Set ClassModuleCode = ThisWorkbook.VBProject.VBComponents(sh.CodeName)

¡@ClassModuleCode.CodeModule.AddFromFile FileName
¡@Set MyButton = Nothing
¡@Set sh = Nothing
¡@Set ClassModuleCode = Nothing
¡@
End Sub



³o¼Ë´N¥i¥ÑÀɮפ¤¥[¤J¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD