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

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

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

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2015-4-23 11:24): ¥²¶·¨Ï¥ÎVBA»²§U¡A±NÂà¦Üµ{¦¡°Ï

§Ú§Æ±æ¦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¦¹Ãþ±À

TOP

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

·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ÁÂ!!

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
ù

TOP

¦^´_ 2# rouber590324

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

TOP

¦^´_ 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?

TOP

  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

TOP

¦^´_ 5# change103


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


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ª«¥ó

TOP

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD