EXCEL¦Û°Ê·s¼W¸ê®Æ

change103

§Ú§Æ±æ¦b¤u§@­¶1ªºa1¿é¤J¸ê®Æ¡A¦b¤u§@­¶2ªºb1¬ö¿ý°_¨Ó¡A
¤§«á¡A¦ba1¿é¤J·s¸ê®Æ®É¡A¤u§@­¶2ªºb1¸ê®Æ¬ö¿ý¤£ÅÜ¡A
¦Ó¬O¦Û°Ê©¹¤U§ó·s¤@¦æÅܦ¨b2¡A¥H¦¹Ãþ±À

change103

·Q½Ð±Ð¤@¤U¡A
§Ú§Æ±æ¦b¤u§@­¶1ªºa1¿é¤J¸ê®Æ¡A¦b¤u§@­¶2ªºb1¬ö¿ý°_¨Ó¡A
¤§«á¡A¦ba1¿é¤J·s¸ê®Æ®É¡A¤u§@­¶2ªºb1¸ê®Æ¬ö¿ý¤£ÅÜ¡A
¦Ó¬O¦Û°Ê©¹¤U§ó·s¤@¦æÅܦ¨b2¡A¥H¦¹Ãþ±À

·PÁÂ!!

rouber590324

DEAR SIR
1 ¦p¤U©ó SHEET1 ¥[¤J§Y¥i.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheet2.[A65536].End(xlUp).Offset(1, 0) = [A1]
[A1].Select
Application.EnableEvents = True
End If
End Sub

change103

¦^´_ 2# rouber590324

·PÁ¦^µª!!
¦ý¤p§Ì¹ïVBA¨ä¹êÁÙ¨S¦³«Ü¤F¸Ñ(ÁÙ¦bºN¯Á¨Ã´M§ä¦U¦¡¸ê®Æ°Ñ¦Ò)!
¬O§_¯à´£¨Ñ½d¥»°Ñ¦Ò©O

change103

¦^´_ 3# rouber590324


  ±z¦n!!
·Q½Ð°Ý¤@¤U¡A¦]¬°·Qª¾¹D¦¹VBA¬O«ç»ò¹B§@¡A
´Nª½±µ¶}·sÀɤU¥h¶]¡A¦ý¬O¤@ª½¦b³o¦æIf Target.Address = "$A$1" Then¥X²{"424¡A¨S¦³ª«¥óªº¿ù»~"
§Ú¸Ó«ç»ò±Æ°£³oÃþ¿ù»~©O?

koo

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then
   
3.     cx = Sheets(2).[B65536].End(xlUp).Row
   
4.         If Sheets(2).Cells(1, 2) = Empty Then
   
5.             cx = 1
   
6.         Else
   
7.             cx = cx + 1
   
8.         End If
   
9.     Sheets(2).Cells(cx, 2) = Cells(1, 1)
   
10.     Cells(1, 1).Select
    
11. End If
    
12. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 5# change103


    rouber590324 ¤j¤jªºµ{¦¡¬OÄÝ©ó¤u§@ªí¨Æ¥óµ{¦¡¥²¶·­n©ñ¦b¤u§@ªí1ªºµ{¦¡¤¤¡A¤£¬O©ñ¦b¼Ò²Õ(Module1)¤¤

¤U¸ü (48.79 KB)

2015-4-26 23:19

If Target.Address = "$A$1" Then¥X²{"424¡A¨S¦³ª«¥óªº¿ù»~"
¤W­±³o­Ó¿ù»~´N¬O¦³¥i¯à§A¬O©ñ¦b¼Ò²Õ(Module1)¤¤¦ÓÅý(ByVal Target As Range)¤¤ªº Target¤£¯à¬ORangeª«¥ó

change103

¦^´_ 7# lpk187
·PÁÂ¥H¤W´X¦ì¼ö¤ßÀ°¦£¸Ñ»¡!!
§Ú¦A¸Õ¸Õ¬Ý!!

mikokuo

³o­Ó°ÝÃD§xÂZ«Ü¤[
ÁÂÁ¦U¦ì¤j¤j

gn001038600

¦pªG±z¼g¦bThis workbook¤U ¥´¶}Àɮתº®É­Ôµ{¦¡´N·|°õ¦æÂP(¦p¤U¹Ï)

¤U¸ü (140.98 KB)

2015-4-29 09:50