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

¦p¦óÁקKÀx¦s®æ¤½¦¡¡A¦]¡y°Å¤U¡z¡y¶K¤W¡z¦Ó³Q­×§ï¡H

¦p¦óÁקKÀx¦s®æ¤½¦¡¡A¦]¡y°Å¤U¡z¡y¶K¤W¡z¦Ó³Q­×§ï¡H

¦p¦óÁקKÀx¦s®æ¤½¦¡¡A¦]¡y°Å¤U¡z¡y¶K¤W¡z¦Ó³Q­×§ï¡H

sheet2 a1= Sheet1!a1
sheet2 b1= Sheet1!b1
sheet2 c1= Sheet1!c1

sheet2 a2= Sheet1!a2
sheet2 b2= Sheet1!b2
sheet2 c2= Sheet1!c2

¥H¦¹Ãþ±À

§Ú­n©T©w sheet2 ªº¤½¦¡¡A¤£¯à¦]¬° sheet1 ªºÀx¦s®æ ¡y°Å¤U¡z¡y¶K¤W¡z¦Ó³Q­×§ï


¤@¡B§Ú¸Õ¤F±N sheet2 ¤u¨ã->«OÅ@->«OÅ@¤u§@ªí

µ²ªG¡y°Å¤U¡z¡y¶K¤W¡z ¤½¦¡ÁÙ¬OÅܤF


¤G¡B§Ú¸ÕµÛ¥Îindirect("Sheet1!a1",1)ªº¤è¦¡¨Ó¨ú¥N¡A¤½¦¡¬O¤£·|ÅܤF¡A

¬ÛÃö¤½¦¡¦@¦³ 15453­Ó, µ{¦¡®e¶q«o¤j¤F30%¡A¦h¤F750k ¡A¾ã­ÓÀɮתº¶}±Ò³t«×¤]ÅܺC¤F

¬°¤F²£¥Í15453­Ó¤½¦¡¡A§ÚÁÙ¨è·N¥Î vba ¨Ó²£¥Í¡C



¤T¡B¥Ø«e§ÚÁÙ¯à·Q¨ìªº´N¬O¦b¼g­Ó¥¨¶°¡A¦bµ{¦¡¶}±Ò°Ê¡A¥D°Ê§ó·s¾ã­Ó sheet2ªº¤½¦¡¡A

³o¼Ëªº¤è¦¡¡A¤£¯à½T«O¶}±Ò«á¤½¦¡¤£³Q¨Ï¥ÎªÌ­×§ï

¨Ï¥ÎªÌ¤U¦¸­«·s¶}±Ò¤~¯à½T«Osheet2 ¤½¦¡¥¿½T¡C


ÁÙ¦³§ó¦nªº°µªk¶Ü¡H
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^

¦^´_ 1# eigen


   Try this:
  1. Private Sub Worksheet_Activate()
  2. Application.ScreenUpdating = 0
  3.     With Sheets(1)
  4.         [a1:c1] = .[a1:c1].Value
  5.     End With
  6. Application.ScreenUpdating = 1
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# ikboy


    ÁÂÁ¡A¤£¯àª½±µ¶ñ­È¡A¥u¯à¤½¦¡

§Ú¸Õ¤F indirect offset index

¥Ø«e¬Ý¨Ó index ³Ì¬ÙªÅ¶¡~~  index < offset < indirect

¦Ó¥Bª½±µ¶ñ¼g 1 2 3 4 ·|¤ñ¥Î row() column() ¬ÙªÅ¶¡

§ÚÁÙ¬O°µ¤@­Ó³Q°Ê¤è¦¡¨Ó³B²z¡A¤]³\´N¹³¤W­±ªº worksheet_activate ®É¤~§ó·s¤@¦¸©Ò¦³¤½¦¡~~
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^

TOP

¦^´_ 3# eigen


    ­YÀx¦s®æ¬O¬Û³sÄòªº¡A¥i¥H¨Ï¥Î°}¦C¤½¦¡¡C
Ä´¦p¡G
{=Sheet1!A1:B10}

TOP

¦pªG¤½¦¡´N³o»ò²³æªº³æ¤@Àx¦s®æ¨ú­È,
¥i¸Õ¸Õ"©w¸q¦WºÙ"!!

TOP

¦^´_ 4# linyancheng


    ¨º½Ð°Ý¦pªGÀx¦s®æ¤£¬O³sÄòªº

A2:O2 ³o¤@±Æ¸ê®Æ­n¶K¨ì A10:O10   ·í¤¤¦³¨S¦³¦s¦bªº¸ê®Æ®æ

¦ý¬O¸ê®Æ(¼Æ­È)­n¶K¹L¥h¡A¦ý¬O¤½¦¡¤]­n¹L¥h©O....@@"

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD