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

[²¾°Ê©Î½Æ»s]°ÝÃD

[²¾°Ê©Î½Æ»s]°ÝÃD

½Ð±ÐExcel[²¾°Ê©Î½Æ»s]°ÝÃD¡F½Ð±Ð¦b[²¾°Ê©Î½Æ»s]®ÉVBA¥¨¶°¬°¦ó¤£¯à
[²¾°Ê©Î½Æ»s]¨ì·sªºSheet...½Ð±Ðª©¤W°ª¤âÄÀºÃ...ÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 5# smooth131
³á...§Ú¤F¸Ñ¤F...¨º¥i¦³¸Ñ¨M¤èªk¡HÁÂÁ§Aªº¦^À³~~·s¦~§Ö¼Ö~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥¨¶°¬O¸òµÛÀɮ׶]ªº¡A¦pªG³æ§âsheet½Æ»s¨ì¥t¥~ªºÀɮ׬OµLªk¨Ï¥Îªº

TOP

¦^´_ 3# cfuxiong
vba ½Ð¨ì [Excel µ{¦¡°Ï] ¤F¸Ñ

TOP

¦^´_ 2# dino1978
·PÁÂdino1978 «ü¾É¡F§Ú¬O·s¤â¡A¤£ª¾[¨Ï¥ÎWith]¦ó»¡¡H¬O¥¨¶°©Î...¡HÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 1# cfuxiong


   ¨Ï¥ÎWith
  1.     With Sheets("Expense")
  2.     .Range("A2").Select
  3.     Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  4.         xlNone, SkipBlanks:=False, Transpose:=False
  5.      End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD