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

[µo°Ý] EXCEL¨Ã±ÆÅã¥Üªº¤è¦¡¤U,¨C¤ÀÄÁ¦Û°Ê°õ¦æ¤£¦P¥¨¶°

[µo°Ý] EXCEL¨Ã±ÆÅã¥Üªº¤è¦¡¤U,¨C¤ÀÄÁ¦Û°Ê°õ¦æ¤£¦P¥¨¶°

A.xlsm ¦³¤@­Ó¥¨¶°±Mªù¿z¿ïAÄæ¦ì,¨C1¤ÀÄÁ¦Û°Ê¿z¿ï¤@¦¸

B.xlsm ¦³¤@­Ó¥¨¶°±Mªù¿z¿ïBÄæ¦ì,¨C1¤ÀÄÁ¦Û°Ê¿z¿ï¤@¦¸

³æ¿W¥´¶} A.xlsm ©Î B.xlsm ®É,¥¨¶°³£«Ü¥¿±`

¦ý¦pªG¦bEXCEL¨Ã±ÆÅã¥Ü A.xlsm ©M B.xlsm

ÂI¨ìA.xlsm®É,Åܦ¨ABÄæ¨C1¤À¿z¿ï¤@¦¸,B.xlsm«h§¹¥þ¤£°Ê

ÂI¨ìB.xlsm®É,Åܦ¨ABÄæ¨C1¤À¿z¿ï¤@¦¸,A.xlsm«h§¹¥þ¤£°Ê

¤£¥Î´X¤ÀÄÁ

A.xlsm ©M B.xlsm ªºABÄæ³£¿z¿ï¤F(=.=)

·Q½Ð±Ð¯«¤H­Ì

EXCEL¦³¿ìªk¦b¨Ã±ÆÅã¥Üªº¤è¦¡¤U

A.xlsm ¨C1¤ÀÄÁ¦Û°Ê¿z¿ï¤@¦¸AÄæ¦ì

B.xlsm ¨C1¤ÀÄÁ¦Û°Ê¿z¿ï¤@¦¸BÄæ¦ì

¤£¾å±o³oºØ¯}¤å¦r±Ô­z¤j®a¬Ý±oÀ´¶Ü(T^T)


¦^´_ 1# ¥ìÁɺ¸
¦]¬°§Amacro2 ¥Îªº¬OActiveSheet , §ï¦¨ThisworkBook.Sheets("Sheet1") ¬Ý¬Ý

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-6-23 21:08 ½s¿è
...
³æ¿W¥´¶} A.xlsm ©Î B.xlsm ®É,¥¨¶°³£«Ü¥¿±`
...
¦ý¦pªG¦bEXCEL¨Ã±ÆÅã¥Ü A.xlsm ©M B.xlsm
...
¤£¥Î´X¤ÀÄÁ
A.xlsm ©M B.xlsm ªºABÄæ³£¿z¿ï¤F(=.=)
...
¥ìÁɺ¸ µoªí©ó 2013-6-23 10:39


¨ä¹ê³o¬O Excel VBA µ{¦¡¥»¨­¾÷¨î©Ò³y¦¨§@¥Î¹ï¶H«D¬°¹w´Áªºª¬ªp.

¤£½×§Aªº VBA µ{¦¡©ñ¦b­þ­Ó°Ï¶ô(Sheet1¡BSheet2¡B,Module1...)
¥u­n§A¨S¯S·N¥h¹LÂoªº¸Ü,
¨Ï¥Î ActiveSheet ·|§@¥Î¦b "¦P¸s²Õ" ¤¤¥Ø«e¬O Active ªº Sheet,(¤]¥i¯à«D¦P¤@ÀɮשÎWorkbook) <--- ¤×¨ä¬O³o­Ó .
  ** ¤W¤èªº "¦P¸s²Õ" ¬O«ü¦b¤U¤èSheet­¶Ã±¤W«ö·Æ¹«¥kÁä,¿ï²¾°Ê©Î½Æ»s«á,¦b¿ï³æ¤¤¥i¥H¿ï¨ìªº¥ô¦óSheet)

©Ò¥H¦pªGµ{¦¡ÁÙ¦b­I´º¹B§@,
³o®É¨Ï¥ÎªÌ¤â°Ê¥h¤Á´«¤FSheet«á(©Î¬O¤S¥t¶}¤F¤@­Ó Excel ÀÉ®×),
´N¥i¯àµo¥Í«D¹w´Áªºµ²ªG.

§Ú¯à·Q¨ìªº¦³¨âºØ¤è¦¡¥i¥HÁ×¹L³oÃþ§@¥Î¹ï¶H¿ù»~ªº°ÝÃD:

1. ¦b Sub »P End Sub ¤¤¶¡¥ý¥]¤W If ActiveSheet.Name="Sheet1" Then »P End If ªº±Ô­z,
¥H½T«Oµ{¦¡¤£·|§@¥Î¨ì¿ù»~ªº¼Ðªº¤W,
¤£¹L¦b¬Y¨Ç±¡§Î¤U¨ä¤ºªºµ{¦¡¤]¥i¯à®Ú¥»´N¤£·|°õ¦æ¤F.

2. ¦b Module ¤W¤è¥[¤W Public Sh As Worksheet ªº¦@¥Î«ü¼Ð«Å§i,
¦A©ó Workbook ªº Open ¤èªkµ{¦¡¤º¥[¤W,
Set sh = Sheets("sheet2") ¤§Ãþªº«ü¥O¨Ó«ü©w­n§@¥ÎªºSheet¥Ø¼Ð,
¤§«á¤£ºÞ¦b­þ¸Ì³£¥i¥H¥Î With sh »P End With ©Î¬O sh.[A1] ¤§Ãþªº«ü¥O¨Ó©w¦º­n§@¥Îªº Sheet.

·íµM, ²Ä 2 ­Ó¤è¦¡§Úı±oÀ³¸Ó¤ñ¸û¦n¥Î¥B²Å¦X§Ú­Ì¹w´Áªº®ÄªG.

TOP

ÁÂÁÂstillfish00¤j¤j,§Ú¦³¸ÕµÛ¶],¦ý¥X²{½sĶ¿ù»~«á,´N¥d¦í¨S¿ìªk°Ê¤F....

TOP



´ú¸ÕA.xlsm-Module1(µ{¦¡½X)

Sub Macro1()
'
' Macro1 Macro
' ²M°£A
'

'
    Rows("6:6").Select
    ActiveSheet.ShowAllData
    Range("A5").Select
End Sub



Sub Macro2()
'
' Macro2 Macro
' ¿z¿ïA
'

'
    ActiveSheet.Range("$A$6:$G$16").AutoFilter Field:=2, Criteria1:="<>"
    Range("A5").Select
    Application.OnTime Now + TimeValue("00:00:03"), "Macro2"

´ú¸ÕA.xlsm-ThisWorkbook(µ{¦¡½X)

Private Sub Workbook_Open()
Sheet1.Select
Set Sh = Sheets("sheet2")
End Sub

´ú¸ÕBxlsm-Module1(µ{¦¡½X)

Sub Macro1()
'
' Macro1 Macro
' ²M°£B
'

'
    Rows("1:1").Select
    ActiveSheet.ShowAllData
    Range("A1").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' ¿z¿ïB
'

'
    ActiveSheet.Range("$A$6:$G$16").AutoFilter Field:=1, Criteria1:="<>"
    Range("E1").Select
    Application.OnTime Now + TimeValue("00:00:03"), "Macro2"
End Sub

´ú¸ÕB.xlsm-ThisWorkbook(µ{¦¡½X)

Private Sub Workbook_Open()
Sheet1.Select
Set Sh = Sheets("sheet2")
End Sub



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

luhpro¤j¤j,§Ú·Q§Ú»~·|§Aªº·N«ä,©Ò¥H¥u±o¨ì¤F¯ºªG....¥i¥H¦A¦h«ü¥¿¤@¤G¶Ü?(Orz)

TOP


³sÁ|¨Ò³£·|¼g¿ù....§Ú¯u¬O­Ó²Â³J°Ú!!

TOP

¦^´_ 5# ¥ìÁɺ¸
½Ð±N¦¹µ{¦¡½X½Æ»s©ó¤@¯ë¼Ò²Õ,¤À¦s©ó2ÀɨñƵøµ¡¬Ý¬Ý
  1. Option Explicit
  2. Sub Macro1()
  3.     Application.OnTime Now + #12:00:05 AM#, "Macro1"
  4.     ThisWorkbook.ActiveSheet.Cells(65536, "a").End(xlUp).Offset(1) = Time
  5. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂGBKEE¤j¤j

§Úªº°ÝÃD¤w¸g¸Ñ¨MÅo^^

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD