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

½Ð°Ý¸ÑÄÀ³o¬qµ{¦¡¨Ã§ï¼g¡A·PÁ¡I

½Ð°Ý¸ÑÄÀ³o¬qµ{¦¡¨Ã§ï¼g¡A·PÁ¡I

Sheets("¤u§@ªí").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 1) = Array(Date)
½Ð°Ý¥H¤Wªº¦U­Ó³æ¦rªº·N«ä¬°¦ó?

§ï¦p¦ó§ï¼g¦¨²Ä1¦C²ÄFÄæ¶}©l¦V¥k¶ñ¼g¡H
ª¦¤å¤@ª½¨S¦³¤U¸¨¡A·Q¨ì³o¸Ìªº¦Ñ®v­Ì³£«Ü¼ö¤ß¡A¸U¤À·P¿E¡I

¥»©«³Ì«á¥Ñ li_hsien ©ó 2017-7-20 14:18 ½s¿è

¦^´_ 1# av8d

§Ú¤]¬O²Ä¤@¦¸¬Ý¨ì³oºØ¼gªk
Sheets("¤u§@ªí").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 1) = Array(Date)

¤p§Ì¤@¨B¨B´ú¸Õ
§ï¦¨¤U­±³o¼Ë¥i¯à·|¤ñ¸û¦nÀ´
Sheets("¤u§@ªí").Cells(65536,"A").End(xlup).Offset(1,0).Resize(1,1)=Array(Date)

Rows.Count=65536 -> Á`Äæ¼Æ
End(3)=End(xlup) -> ¦³¤U©¹¤W «ü¨ì¦³¸ê®ÆªºÀx¦s®æ
Sheets("¤u§@ªí").Cells(Rows.Count, "A").End(3)(2, 1) = Sheets("¤u§@ªí").Cells(65536,"A").End(xlup).Offset(1,0) ->¥i¥H¬d¬Ý¬ÝOffsetªº¥Îªk
Resize(1, 1) -> Àx¦s®æ¦ì¸m¨S¦³ÅܤơA³]©w(1,1)³oÀ³¸Ó¨S¦³¤°»ò§@¥Î¡A¥i¥H§ï¦¨¨ä¥L¼Æ¦rÆ[¹î¬Ý¬Ý e.g. Resize(2,3)
Array(Date) -> ´N¬O§â³Ì«áResizeªº¦ì¸m¥þ³£¶ñ¤J¤é´Á


«Øij±z¥i¥H¤À¬q¥Î.selectÆ[¹î¥Ø«eÀx¦s®æªº¦ì¸m
¥i¥H¤ñ¸û¤F¸Ñ¹B§@¹Lµ{


¦Ü©ó"§ï¼g¦¨²Ä1¦C²ÄFÄæ¶}©l¦V¥k¶ñ¼g¡H"
¬O¹³¤U¤è³o¼Ë¶Ü?
Sheets("¤u§@ªí").Cells(Rows.Count, "F").End(2)(2, 1).Resize(1, 1) = Array(Date)
Sheets("¤u§@ªí").Cells(1,"F").End(xlToRight).Offset(1,0).Resize(1,1)=Array(Date)
¦ý¬O«ö¦¹§@ªk¦V¥k¼g¡A¦pªG¥k°¼§¹¦¨¨S¦³¨ä¥L¸ê®Æ·|¥X¿ù¡C
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 2# li_hsien

ÁÂÁ¦Ѯv¡A­ì¨Ó¦³¥¿½T¼gªk¡A¸U¤À·P¿E!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2017-7-22 04:47 ½s¿è

¦^´_ 3# av8d
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range
  4.     Set Rng = [D15]
  5.     MsgBox Rng(1, 1).Address
  6.     MsgBox Rng.Cells(1, 1).Address
  7.     MsgBox Rng.Range("a1").Address
  8.     MsgBox Rng.Offset(0).Address
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD