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

¤u§@ªí¦P¨B¼W¥[¸ê®Æ

¦n¹³¤£¯à¾ã­ÓÄæ¦ì½Æ»s¶K¤W¡A§Ú¦pªG¥u½Æ»s¦³¸ê®ÆªºÄæ¦ì´N¤£·|³øerror
¦pªG§Ú¬Oª½±µÂI¿ïexcel¤W­±ªºÄæ¦ìª½±µÂI½Æ»s´N·|³ø¿ù

TOP

¦^´_ 22# oshi


    ¯à§_ªþ­ÓÀɮפW¨Ó¡A¥H«K¤F¸Ñ°ÝÃD©Ò¦b¡C

TOP

¦^´_ 21# owen06


    owen¤j~

§Ú¤S¹J¨ì¤@­Ó°ÝÃD¬O~
§Ú¦³¨â­Ó¤u§@ªí(A,B)³£·Q­n¦P¨B¼W¥[¸ê®Æ¨ì¤u§@ªíC

·í¥u¦³¤@­Ó¤u§@ªíªº®É­Ô¡A³£¥i¥H¥¿±`¦P¨B¼W¥[¸ê®Æ
¥i¬O¦pªG§Ú§â¦P¤@²Õ¥N½X¶K¦bA,B¤u§@ªí¤º¤§«á¡A¦P¨B¸ê®Æ´N·|¸õ¥X" Run time error '1004' "
¦pªþ¹Ï

½Ð°Ý­n«ç»ò¸Ñ¨M³o­Ó°ÝÃD©O?

Image 001-1424708209.png (4.6 KB)

error

Image 001-1424708209.png

TOP

¦^´_ 20# oshi


    §A¥i¥H¨Ï¥Îoffset
     Sheets("sheet2").Range(tar).offset(0,2) = .Value

TOP

¦^´_ 11# owen06
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3.   If .Row >= 2 And .Column = 1 Or .Column = 2 Then
  4.     tar = .Address(0, 0)
  5.     Sheets("sheet2").Range(tar) = .Value
  6.   End If
  7. End With
  8. End Sub
½Æ»s¥N½X
½Ð°Ý¤@¤U¦pªG§Ú·Q­nÅý¥L¥i¥HShift¨ì«ü©wÄæ¦ì¤~¶K¤W­n«ç»ò­×§ï©O?
¥Ø«e³£¬Osheet1(A2)->sheet2(A2)

¦pªG§Ú·Q­n¶K¨ìsheet2(C2) ­n«ç»ò­×§ï?
§Ú§ïÅÜaddress ¸Ì­±ªº­È¦n¹³¤]¨S¤°»ò¥ÎQQ

TOP

¦^´_ 18# leiru


    §A²Ä¤@­Ó¤W¶ÇªºªþÀÉ¡y²Î­p¡z¸Ìªº²Ä1115¦C¬O¨S¦³¸ê®Æªº¡A
    ¦ý²Ä¤G­Ó¤W¶ÇªþÀÉ¡y²Î­p2¡z¸Ìªº²Ä1115¦C§A¦³key¤@µ§¸ê®Æ¡A
    ¦Ó¤W¶Ç¨º­Óªíªº²Ä1115¦C¤]¥X²{¤F¦b½Õ¾ãªºªí¸Ì¿é¤JªºªF¦è¡A
    ¥Nªí§A©Ò»Ý­nªº¥\¯à¦³¥¿½T°õ¦æµL»~§r¡A¦]¬°²Ä¤G­ÓªþÀÉ¡A
    ¬O§A¦b¿é¤J§¹«áÀx¦s¤W¶Çªº¡A§YµM¥L²Ä1115¦C¦³²£¥ÍªF¦è¥X¨Ó¡A
    §Yªí¥Ü¥\¯à¤w¸g¥¿½T°õ¦æµL»~¤F¤£¬O¶Ü¡H

TOP

¦^´_ 17# owen06


    §Ú³o¸Ì¹q¸£¶}±Ò³oÀÉ®×,¤W¶ÇÀÉ®×´N¤@ª½µLªk±a¥X¨Ó¸ê®Æ,¯u¤£ª¾­þ¸Ì¥X°ÝÃD
joyce

TOP

¦^´_ 16# leiru


    ¤p¦p¡A§Ú¬Ý§A¦b½Õ¾ã¨º­Óªí¡A²Ä1115¦C¦³·s¼W¤@µ§¸ê®Æ¡A
    ¦Ó¤W¶Çªº¨º­Óªí¡A²Ä1115¦C¡A´N¦³¦P¨B§A·s¼Wªº¨ºµ§¸ê®Æ§r¡A¨S°ÝÃD§r~

TOP

¦^´_ 15# owen06


    ¿ï¨ú [¶}µo¤H­û] ®Ö¨ú¤è¶ô¤Î¤Ä¿ï"±Ò¥Î©Ò¦³¥¨¶° (¤£«Øij¨Ï¥Î¡F·|°õ¦æ¦³¼ç¦b¦MÀIªºµ{¦¡½X)"
¤´µM¤£¯à±a¥X¨Ó¸ê®Æ,¥i¥H³Â·Ð¬Ý¬O­þ¸Ì¦³°ÝÃD.

²Î­p2.zip (85.44 KB)

joyce

TOP

¦^´_ 14# leiru


    §Ú´ú¸Õªºµ²ªG¬Ookªº§r¡A¦b¡y½Õ¾ã¡z¤u§@ªí²Ä1115¦C·s¼W¤º®e¡A
    ¦b¡y¤W¶Ç¡z¤u§@ªíªº²Ä1115¦C¡A¤]´N·|¨q¥X¬Û¹ïÀ³ªºªF¦è¡A
    ÁÙ¬O§Aexcelªº¥¨¶°¦w¥þ©Ê¸Ì¡A¨Ã¥¼¶}±Ò¡y±Ò¥Î©Ò¦³¥¨¶°¡z©O¡H

    ¥t¥~¦pªG§A­n1¨ì10Äæ³£¦P¨Bªº¸Ü¡Aª½±µ§ï³o¼Ë·|¤ñ¸û²¼ä
    If .Row >= 2 And .Column <= 10 Then

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD