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

access¦æÂà¦C

access¦æÂà¦C

¥H¤U¹J¨ì¤@­ÓÃøÃD¡A¦p¦ó§â²Î­pµ²ªG¡A§â¾î¦¡Åܪ½¦¡

¦p:¥H¤U¬O­ì®Æªº²Î­pµ²ªG¡C
²£«~¦WºÙ |ºû¥Í¯ÀA|ºû¥Í¯ÀB|ºû¥Í¯ÀC|ºû¥Í¯ÀD|ºû¥Í¯ÀE|ºû¥Í¯ÀF|......50­Ó
¥¤¯ù       |10.1    |90.4    |3.4    |20.4    |90.2    |159.4    |.......
¬õ¯ù       |15.4    |95.4    |214   |79.4    |77.2    |39.4      |.......
......       |......     |......     |......    |......    |......     | ......      |.......
......       |......     |......     |......    |......    |......     | ......      |.......
¬ù¤@¸U­Ó

¥i¥H¶Ç´«¦¨ª½¦¡¡A¥t¥~¦b±Æ§Ç¤@¤U¡C
           |¥¤¯ù  |¬õ¯ù   |..................
ºû¥Í¯ÀA|10.1 |15.4  |..................
ºû¥Í¯ÀB|90.4 |95.4  |..................
ºû¥Í¯ÀC|3.4   |214   |..................
ºû¥Í¯ÀD|20.4 |79.4  |..................  
ºû¥Í¯ÀE|90.2 |77.2   |..................
ºû¥Í¯ÀF|159.4|39.4  |..................
ºû¥Í¯ÀG|..................
ºû¥Í¯ÀH|..................
©ÎªÌ¨ä¥L¤è¦¡¤]¥i¥H¡A¥Øªº­n±Æ§Ç¦Ó¤w¡C

¥»©«³Ì«á¥Ñ p212 ©ó 2013-12-17 08:56 ½s¿è

¦^´_ 1# p80252588
°²³]¸ê®Æ¦ì©ó¤u§@ªíSheet1¡A¡u²£«~¦WºÙ¡v¦ì©óÀx¦s®æA1¡A¡uºû¥Í¯ÀA¡v¦ì©óÀx¦s®æB1¡A¡u¥¤¯ù¡v¦ì©óÀx¦s®æA2¡A¥¤¯ù¹ïÀ³ªººû¥Í¯ÀA¶q¦ì©óÀx¦s®æB2
­Y©ó¤u§@ªíSheet2¤¤¶i¦æ¡u¦æÂà¦C¡v¡A«h
Äæ¦ì¦WºÙ¡G¤u§@ªíSheet2¤§Àx¦s®æB1¤½¦¡=OFFSET(Sheet1!$A$1,COLUMN(A$1),0)¡A¦V¥k½Æ»s¤½¦¡¡C
¦C¦ì¦WºÙ¡G¤u§@ªíSheet2¤§Àx¦s®æA2¤½¦¡=OFFSET(Sheet1!$A$1,0,ROW(1:1))¡A¦V¤U½Æ»s¤½¦¡¡C
¬Û¹ïÀ³¼Æ­È¡G¤u§@ªíSheet2¤§Àx¦s®æB2¤½¦¡=OFFSET(Sheet1!$A$1,COLUMN(A$1),ROW(1:1))¡A¦V¥k¦V¤U½Æ»s¤½¦¡¡C
§Y¥i±o¡u¦æÂà¦C¡v¤§µ²ªG¡A½Ð°Ñ¦Ò¡I

TOP

¦^´_ 1# p80252588
³o¬O¤£¬O§k¦X§Aªº´£°Ý¡H

TOP

¦^´_ 1# p80252588
µ{¦¡½X¦p¤U¡G
  1. Sub Test()
  2.     Dim myArray As Variant
  3.      
  4.     With ¤u§@ªí1
  5.         '   ¤U¦C»yªk³B²z«á¤§µ²ªG¡G  .Range(.[A1], .[H5])
  6.         myArray = .Range(.[A1], .Range(Chr(64 + .[A1].End(xlToRight).Column) & .[A1].End(xlDown)))
  7.         '  ¤U¦C»yªk³B²z«á¤§µ²ªG¡G  .Range("J1:N8)
  8.         .Range("J1:" & Chr(Asc("J") + .[A1].End(xlDown).Row - 1) & .[A1].End(xlToRight).Column).Value = Application.Transpose(myArray)
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

©_©Ç, ³o¬OACCESS´£°Ý, «ç·|¥ÎEXCEL VBA¦^µª.
³oÃD¦bMS ACCESS¬O¤£¦æªº,  
²£«~¦WºÙ¦³¤@¸U¦hµ§, ´«¦¨横¦C, §Y¶W¹L, §Ú·Q¤w¸g¶W¹L¥ô¦ó¸ê®Æ®wªºÄæ¦ì¼Æ¤W­­­­¨î¤F.
°£«D²£«~¦WºÙ没¦³¶W¤W­­255¤~¯à¶i¦æ...

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD