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

[µo°Ý] ½Ð°Ý¦p¦ó±N°¸¼Æ¦Cªº¤å¦rÂন¼Æ­È(¤w¦³°ò¥»»yªk ¦ý¤£·|²Õ¦X)

¦^´_ 8# owen06

owen06¤j¤j

§Ú¨Ï¥Î¤u¨ã¡÷¥¨¶°¡÷VB½s¿è¾¹     À˵ø¡÷µ{¦¡½X

¶K¤W¤j¤j±z´£¨Ñªºµ{¦¡½X ¦b¨ìExcel sheet°õ¦æ¥¨¶° ¥i¥H°õ¦æ¦¨¥\

¦ý¬O¥u­n±N¥¨¶°Àx¦s

¦b°õ¦æTEST¥¨¶° ·|¥X²{   °õ¦æ¶¥¬q¿ù»~'424': ¦¹³B»Ý­nª«¥ó

½Ð°Ý¬Oµo¥Í¤°»ò°ÝÃD¤F©O

ÁÂÁÂ

TOP

¦^´_ 11# HCG10G8bear


¥i¬O¡K§Ú·Ó§A©Ò»¡ªº¤è¦¡Àx¦s§¹¦A¶}¤]³£¨S°ÝÃD§o¡A
§A­n¤£­n¤W¶Çªþ¥ó¡A¬Ý¤@¤U°ÝÃD¥X¦b­þ¡H

TOP

¦^´_ 12# owen06


OWEN06¤j¤j

ÁÂÁ±zªº¸ÑÄÀ §Ú¾Ç¨ì«Ü¦h³á

°ÆÀɧڤ§«e¦³¤W¶Ç¤F

°¸¼Æ¦C¯S©wÀx¦s®æ.zip

¦A³Â·Ð§AÀ°§ÚCHECK¤@¤U

ÁÂÁ±z¤£¹½¨ä·ÐªºÀ°¦£

ÁÂÁÂ

TOP

¦^´_ 13# HCG10G8bear


    §Ú¸Õ³£¨S°ÝÃD§r¡A§A¤ñ¹ï¬Ý¬Ý¬O¤£¬O¦³­þ¸Ì¤£¦P§a~

°¸¼Æ¦C¯S©wÀx¦s®æ.rar (6.9 KB)

TOP

¦^´_ 14# owen06

§Ú°õ¦æ³£«Ü¥¿±`¡AÀ³¸Ó¨S¦³°ÝÃD
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ HCG10G8bear ©ó 2013-11-7 10:59 ½s¿è

¦^´_ 15# ML089

ÁÂÁ¨â¦ì¤j¤jÀ°§Ú´ú¸Õ

§Ú·Q§Ú§ä¨ì°ÝÃD¤F

§Ú¥u­n±Nµ{¦¡©ñ¨ì ±M®×¡÷°¸¼Æ¦C¯S©wÀx¦s®æ¡÷sheet1 ¥i¥H°õ¦æ¨S°ÝÃD


¦ý¬O¥u­n§âµ{¦¡©ñ¨ì PERSONAL¡÷¼Ò²Õ¡÷Module1    ´N·|µo¥Í°õ¦æ¶¥¬q¿ù»~


¦pªG¤£¯à¦s¨ìPERSONAL ´N¨S¿ìªk«áÄòªºµ{¦¡À³¥Î¤F

½Ð°Ý³o¬Oµo¥Í¤°»ò°ÝÃD¤F©O

TOP

¦^´_ 16# HCG10G8bear

³o¼Ë¥i¥H°õ¦æ¦¨¥\

³o¼Ë´N¥¢±Ñ¤F

TOP

¦^´_ 17# HCG10G8bear
  1. Sub TEST()
  2. For I = 2 To Sheet1.UsedRange.Rows.Count Step 2
  3. Sheet1.Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/³q¥Î®æ¦¡"
  4. Sheet1.Cells(I, 4).Resize(1, 7) = Sheet1.Cells(I, 4).Resize(1, 7).Value
  5. Next
  6. End Sub
½Æ»s¥N½X
³o¼Ë§ï´N¦æ¤F¡A¦]¬°§A©ñ¦b¼Ò²Õ¸Ì¡A¦Ó¤£¬Oª½±µ©ñ¦bsheet1¸Ì¡A
©Ò¥H¥²»Ý©ú½Tªº§i¶D¥L¬O¦b­þ­Ósheet¸Ìªº­þ¨ÇªF¦è¡A
³o¼Ë¥L¤~·|¥h¨º¸Ì§ä¡A¤£µM´N·|°g¸ô¡C

TOP

¦^´_ 18# owen06

owen06¤j¤j

³o¼Ë¤l°õ¦æ´N¤£·|µo¥Í°õ¦æ¶¥¬q¿ù»~¤F

¦ý¬O

¥¦ªº­È¤£·|Åܦ¨¼Æ¦r­C

´N¬O°õ¦æ«á¨S¦³¥ô¦óÅܤÆ

§Ú¬Ý¤F¦n¤[ ¦n¹³¤]¨S¦³¦a¤è¤Ösheet1

¬OÁÙ­n§ï»yªk¶Ü?

TOP

¦^´_ 19# HCG10G8bear


§A­n¤£­n§â§A¦Û¤v¨Ï¥Î¡A¦³°ÝÃDªº¨º­ÓÀɮשñ¤W¨ÓÅý§Ú­ÌÀ°§AÀˬd¤@¤U¡H
¦]¬°§A»¡ªº°ÝÃD§Ú¦b°õ¦æ¤W³£¨Sµo¥Í¡A³o¼Ë­n¹jªÅ§â¯ß¬O¦³ÂI§xÃøªº¡C

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD