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

[µo°Ý] Ãö©ó"±N¹Bºâµ²ªG¶Ç¦Ü¯S©w¤u§@ªí"ªº°ÝÃD

Ãö©ó¤£¦P¤u§@ªí¸ê®Æ¤¬¬Û¶Ç»¼ªº°ÝÃD

·Q½Ð±Ð¦U¦ì¤j®aÃö©ó"¤£¦P¤u§@ªí¸ê®Æ¤¬¬Û¶Ç»¼"ªº°ÝÃD¡A¥Hªí1°µ»¡©ú¡G
°²³]¤µ¤Ñ¬O1/3¡A¤µ¤Ñ¤w¸g¦bA¨ìG¦³¸ê®Æªº³Ì«á¤@Äæ°µ¦n¸ê®Æ¤F¡A­n§â¸Ó¤u§@ªíªºAÄæ¡ABÄæ¡ADÄæ¡AFÄæ¡AGÄ檺³Ì«á¤@Ä檺¸ê®Æ¡A
§ì¨ì"¤u§@ªí2"AÄæ¡ABÄæ¡ACÄæ¡ADÄæ¡AEÄ檺³Ì«á¤@Äæ¡A¨Ó§¹¦¨1/3ªº¼Æ¾Ú§ó·s¡C


¤u§@ªí1
A        B             C          D            E           F                   G
¤é´Á  ³Ì°ª»ù  ³Ì§C»ù ¦¨¥æ¶q  °ª-§C  ¥­§¡»ù®æ  ¥­§¡¦¨¥æ¶q
1/1   8000      7900    1000     100      7500              800   
1/2   9000      8000      900      250     7000              750
1/3    9500     8500      750      150     7400              950   

¤u§@ªí2
A          B                 C               D                       E               
¤é´Á  ³Ì°ª»ù     ¦¨¥æ¶q      ¥­§¡»ù®æ  ¥­§¡¦¨¥æ¶q
1/1   8000          1000         7500              800   
1/2   9000           900          7000              750

-----------------------------------------------------------------------------------------------------------
¦]¬°¨C¤@¤ÑªºA¨ìGÄ檺³Ì«á¤@¦C³£·|©¹¤U·s¼W¡A©Ò¥H¤£·|¨C¤Ñ³£¤@¼Ë¡A·Q¤£¥X¨Ó¦p¦ó¥N¤JArray¸Ì¥Îresize«ü¥O¡A©Ò¥H·Q½Ð±Ð¤j®a¡A¥ýÁÂÁ¤F¡C

TOP

¦^´_ 1# yagami12th
  1. Sub ex()
  2. With ¤u§@ªí1
  3. r = .Cells(.Rows.Count, 1).End(xlUp).Row
  4. ¤u§@ªí2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = _
  5. Array(.Cells(r, "A").Value, .Cells(r, "B").Value, .Cells(r, "D").Value, .Cells(r, "F").Value, .Cells(r, "G").Value)
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

ÁÂÁÂH¤j¡A¥»¨Ó·Q¥ý«Å§i´X­ÓÅܼơAµM«á¥Îset rng¥[¤Woffset(0)¥h§ä"¥Î¨ìªºÄæ¦ì"ªº³Ì«á¤@®æ¡A©ñ¤J´X­ÓÅܼơA¦A©ñ¨ìarray¸ÌÀY¡A
·|Åýµ{¦¡½X·|¼gªº«Üªø¡A¾Ç²ß¨ì¤F·s¥Îªk¡AÁÂÁ¡C

TOP

¦^´_ 2# Hsieh

¦^H¤j¡A
³o¨â¦æµ{¦¡½X¤@ª½ºû«ù¦b¬õ¦rªºª¬ºA¡A¤£ª¾¥X¤F¤°»ò°ÝÃD¡A¯à¤£¯àÀ°§Ú¬Ý¬Ý¡G
¤u§@ªí2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = _

Array(.Cells(r, "A").Value, .Cells(r, "B").Value, .Cells(r, "D").Value, .Cells(r, "F").Value, .Cells(r, "G").Value)



¥t¥~
r = .Cells(.Rows.Count, 1).End(xlUp).Row  <<<rª½±µ«Å§i¦¨integer©Îlong·|¼vÅT¨ì«á­±ªº³¡¥÷¶Ü

TOP

¦^´_ 2# Hsieh
ÁÂÁÂH¤jªº±Ð¾Ç¡AÁÙ¦³·PÁ¤§«eGBKEE¤jªº±Ð¾Ç¡A¤~¯à¿Ä¶×³e³qµ{¦¡½X¡Aµy·L§ï¤F¤@¤U¡A«Ü¶¶§Q¦¨¥\¡Aµ{¦¡½X¦p¤U¡G

Sub ex1()

Dim r
Dim Ar()
Dim rng As Range

With Sheets("¤u§@ªí1")

r = .Cells(.Rows.Count, 1).End(xlUp).Row '¦]¬°¦³³o¦æ³]©wªºÃö«Y¡A¥i¥H¬Ù¤U«Ü¦h®É¶¡

Ar = Array(.Cells(r, "A").Text, .Cells(r, "C").Value, .Cells(r, "E").Value, .Cells(r, "G").Value)
End With

With Sheets("¤u§@ªí2")

Set rng = .Range("A" & Rows.Count).End(xlUp)
    rng.Offset(1).Resize(1, 4) = Ar

End With
End Sub

TOP

[µo°Ý] Ãö©ó"±N¹Bºâµ²ªG¶Ç¦Ü¯S©w¤u§@ªí"ªº°ÝÃD

·PÁÂH¤jªº±Ð¾Ç¡A«e­±¤£¦P¤u§@ªí¸ê®Æ¤¬¬Û¶Ç»¼ªº°ÝÃD¤w¸g¸Ñ¨M¡A±N¹Bºâµ²ªG­n¶Ç°e¨ì¨ä¥Lsheet¤@ª½Åܦ¨¹s¡A§ì¤£¥X°ÝÃD¡C

·Q½Ð±Ðªº°ÝÃD¦p¤U
¥Hªí1°µ»¡©ú¡G
°²³]¤µ¤Ñ¬O1/3¡A¤µ¤Ñ¤w¸g¦bA¨ìG¦³¸ê®Æªº³Ì«á¤@Äæ°µ¦n¸ê®Æ¤F¡A­n§â¸Ó¤u§@ªíªºAÄæ¡ABÄæ¡ADÄæ¡AFÄæ¡AGÄ檺³Ì«á¤@Ä檺¸ê®Æ¡A
§ì¨ì"¤u§@ªí2"AÄæ¡ABÄæ¡ACÄæ¡ADÄæ¡AEÄ檺³Ì«á¤@Äæ¡A¨Ó§¹¦¨1/3ªº¼Æ¾Ú§ó·s«á¡C

¦b"¤u§@ªí2"ªºEÄ檺³Ì«á¤@®æ¡A¹Bºâµ²ªG¬°(¤p¼ÆÂI®æ¦¡©Î¾ã¼Æ®æ¦¡)¡A§ì¨ì"¤u§@ªí3"ªºf3Äæ¡A¥Îµ¥©óªº¤è¦¡¼g¤£¥X¨Ó¡A¥Î½Æ»s¶K¤W
ªº¦n¹³¤ñ¸û®e©ö¡A¦ý¬O³t«×¤ñ¸ûºCªº·Pı¡C

¤u§@ªí1
A        B             C          D            E           F                   G
¤é´Á  ³Ì°ª»ù  ³Ì§C»ù ¦¨¥æ¶q  °ª-§C  ¥­§¡»ù®æ  ¥­§¡¦¨¥æ¶q
1/1   8000      7900    1000     100      7500              800   
1/2   9000      8000      900      250     7000              750
1/3    9500     8500      750      150     7400              950   

¤u§@ªí2
A          B                 C               D                       E               
¤é´Á  ³Ì°ª»ù     ¦¨¥æ¶q      ¥­§¡»ù®æ  ¥­§¡¦¨¥æ¶q
1/1   8000          1000         7500              800   
1/2   9000           900          7000              750
1/3   9500          750           7400             950

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-10 08:22 ½s¿è

¦^´_ 4# yagami12th
  1. Integer ¸ê®Æ«¬ºA
  2. Integer ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s¡CInteger ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹(%)¡C
  3. ±z¥i¥H¥Î Integer ÅܼƨӪí¥Ü¦CÁ|ªº­È¡C¦CÁ|­È¥i¥Nªí¤@­Ó°ß¤@ªº¾ã¼Æ¡A¨Ã¨ã¦³¨ä¯S®í·N¸q¡A¥iÅý±z¦b¤wª¾ªº¿ï¶µ¤¤«Ü§Ö°µ¥X¿ï¾Ü¡C¨Ò¦p¡Ablack = 0¡Awhite = 1 µ¥µ¥¡C¸û¦nªºµ{¦¡°µªk¬O¨Ï¥Î Const ³¯¦C¦¡±N¨C­Ó¦CÁ|­È©w¸q¦¨±`¼Æ¡C
½Æ»s¥N½X
  1. Long ¸ê®Æ«¬ºA
  2. Long (ªø¾ã¼Æ)ÅܼƫY¥H½d³ò±q -2,147,483,648 ¨ì 2,147,483,647 ¤§ 32 ¦ì¤¸ (4 ­Ó¦ì¤¸²Õ) ¦³¸¹¼Æ¦r§Î¦¡Àx¦s¡CLong ªº«¬ºA«Å§i¦r¤¸¬° &¡C
½Æ»s¥N½X
  1. Dim r As Integer
  2. r = .Cells(.Rows.Count, 1).End(xlUp).Row
  3. ¦p r > 32,767 ·|¬O "°õ¦æ¶¥¬q¿ù»~ 6: ·¸¦ì"
½Æ»s¥N½X
¦^´_ 6# yagami12th
5#ªºµ{¦¡½X¤£¬O¥i¥H¶Ü?

TOP

¦^´_ 7# GBKEE
¦^GBKEE¤j¡A¦]¬°¨S¿ëªk¶¶§Q°õ¦æ¡A§Ú¥ý¥Î½Æ¨î¶K¤Wªº¤èªk¦n¤F¡A¦]¬°¬Q¤Ñ¤@ª½·Q¥Îµ¥©ó¨Ó°µ¡A©Ò¥H¥dÃö¡C

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD