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

VBA§R°£°}¦C¤¸¯À

VBA§R°£°}¦C¤¸¯À

1.¥Ñ©óEXCELªºªí³æ¦³®æ¤l­­¨î(104¸U¦æ)
©Ò¥H¦pªG¦b³B²zBIG DATA¬O§_­n§âDATA¶Ç¤J°}¦C©O??

2.¦pªG­n¶Ç¤J°}¦C
¨º»ò°²³]¤¤¶¡¦³­Ó¤¸¯À§Ú¤£­n ­n«ç»ò«c°£¡AÅý«á­±ªº¤¸¯À¸É¤W¨Ó?
°²³]¬O
Sub d()
Dim a
a = Array(1, 2, 3, 4, 5)
End Sub
¦pªG3§Ú¤£­n ­n«ç»ò«c°£ Åý«á­±¸É¤W ¨Ã¥B¨Ï°}¦CÅܤp? 2ºû¤S¬O«ç»ò°µ?

1.¥Ñ©óEXCELªºªí³æ¦³®æ¤l­­¨î(104¸U¦æ)
©Ò¥H¦pªG¦b³B²zBIG DATA¬O§_­n§âDATA¶Ç¤J°}¦C©O??

2.¦pªG­n¶Ç¤J ...
alanfengjkl µoªí©ó 2014-11-4 11:15

Sub d()
Dim a, i, s
a = Array(1, 2, 3, 4, 5)
s = UBound(a) - 1
For i = 2 To s
  a(i) = a(i + 1)
Next
ReDim Preserve a(s)
End Sub

¦hºû°}¦C ªº ¦CÁ|¦¡½á­È §Ú¦³¬Ý¹L³o¼Ëªº:
Sub a()
Dim a, i, j, s1, s2
a = [{"a", 1, 2, 9; "b", 1, 3, 2; "c", 1, 4, 0; "d", 6, 7, 7; "e", 6, 7, 4}]

s1 = UBound(a, 2)
s2 = UBound(a, 1)

For j = 1 To s2
For i = 3 To s1 - 1
a(j, i) = a(j, i + 1)
Next
Next
ReDim Preserve a(s2, s1 - 1) ' ³o¦æ·|µo¥Í¿ù»~
End Sub
¦ý¬O¼W´îºû¼Æ·|µo¥Í¿ù»~,
§ÚÁÙ¨S¸Õ¥X¨Ó¸Ó«ç»ò°µ.

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2014-11-5 08:36 ½s¿è

Redim ¤£¯àÁY¤Ö, ¦ý¥i¥H¦b·Q§R°£®É,¥t¦æ«Ø­Ó·sªº,
§â·Q«O¯dªº§Û¨ì·s°}¦C.

¨ä¹ê¦pªG¼Æ¾Ú¤Ó¦h,¥i¥H¦Ò¼{¥Î Powerpivot, Access, ©Î§K¶OªºMS SQL EXPRESS / MYSQL
¦pªG¬O>104¸U¦æ, «Ø¤@¦¸°}¦C³£­n¥Î¤W¤j¶q®É¶¡(¼Æ¤p®É),¤]«Ü¶Ë¤º¦s
Access¤ñ¸û¹³Excel, ±ÀÝ^ªì¾ÇªÌ¨Ï¥Î.
Powerpivot ¥i¥H©ñbigdata,¦ý¨S¦³VBA°t¦X¤ñ¸û·Ð
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 3# kimbal


    §Ú¬O·|·Q¥ÎSQL server¥ý³B²z¸ê®Æ
µM«á¦AŪ¨ìvba¸Ì­±¶i¦æ¹Bºâ©Î³B²z ³o¼Ë·|¶WºC?

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD