½Æ»s§¹ ¦³ªk¤l §R°£ì©l¦ì§}¶Ü ???
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_/¥xªF
- µù¥U®É¶¡
- 2011-11-5
- ³Ì«áµn¿ý
- 2013-8-1
|
½Æ»s§¹ ¦³ªk¤l §R°£ì©l¦ì§}¶Ü ???
±z¦n ..... ¦A³Â·Ð½Ð±Ð
¨Ò: A1Àx¦s®æ¬O 2 A2Àx¦s®æ¬O 4 A3Àx¦s®æ¬O 6
¥t¤@¬¡¶Ã¯ B1=A1+A2+A3 >> 12
¦³ªk¤l ½Æ»s§¹ B1ªº µ²ªG 12 ¦b¥t¤@Àx¦s®æ C1 «á §R±¼ A1/A2/A3
¥i C1½Æ»s¹Lªºµ²ªG ·|¬O12 ¤£ÅÜ¶Ü ??? ½Ð°Ý¦³ªk¤l ¦b³o¤@®æ¸Ì °µ¤°»ò°Ê§@ Åý¥¦¤£¥Î¦A¬O ¤½¦¡¤F¶Ü ???
ÁÂÁÂ ......... |
|
§õ¬K½÷
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_/¥xªF
- µù¥U®É¶¡
- 2011-11-5
- ³Ì«áµn¿ý
- 2013-8-1
|
¦]¬° ½Æ»s¹L¨Óªº¸ê®Æ¼ÆÈ ¦³«Ü¦h¦hµ§
¤@Ó¤@Ó¥´ ¤Ó®ö¶O«Ü¦h®É¶¡
·Q½Ð±Ð ¦Ñ®vÌ ·|¤£·|¦³³oºØ¤èªk©O ??? |
|
§õ¬K½÷
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-11-16 09:28 ½s¿è
¦^´_ 1# §õ¬K½÷
¦p¥Î¼Ó¥Dªº¤èªk ·|³y¦¨¤@Ó°ÝÃD..
sheet2ªº È ¬° sheet1ªº A1+B1+C1..
¦ý¦pªGsheet1ªºA1+B1+C1 ªºÈ³Q®ø°£«á..
¨ºsheet2ªºÈ¤]·|¸òµÛ®ø¥¢..
¦p
sheet1.range("a1").value=sheet1.range("a"&oa).value+sheet1.range("b1").value+sheet1.range("c1").value
sheet1.range("a1").value=0+0+0
sheet1.range("a1").value=0
«Øij¥Î°j°é..
¦p
for oa = 1 to 65535
sheet2.range("a"&oa).value = sheet1.range("a"&oa).value+sheet1.range("b"&oa).value+sheet1.range("c"&oa).value
sheet2.range("a"&oa).select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
sheet1.range("a"&oa,"c"&oa).value=""
next oa |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_/¥xªF
- µù¥U®É¶¡
- 2011-11-5
- ³Ì«áµn¿ý
- 2013-8-1
|
¦^´_ 4# mark15jill
·PÁÂ ....
¥i ¦]¬°¥H«e¤£ª¾¹D EXCEL ¥i¥H¼gµ{¦¡ (¥H«e§ÚªºCLIPPER ¾Çªº¤£¿ù»¡)
©Ò¥H ¤£À´ ±z ¼gªºn¦p¦ó§@·~©O ??
¥i§_½Ð±Ð ¦³¨S¦³ ´¶³qª© ªº ¤è¦¡©O ????
ÁÂÁÂ |
|
§õ¬K½÷
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_/¥xªF
- µù¥U®É¶¡
- 2011-11-5
- ³Ì«áµn¿ý
- 2013-8-1
|
À³Á ... ¥Î ¿ï¾Ü©Ê¶K¤W §Y¥i
ÁÂÁÂÁÂÁ ..... ¦³ªB¤Í ¯u¦n |
|
§õ¬K½÷
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-11-16 10:27 ½s¿è
¦^´_ 5# §õ¬K½÷
¤èªk1..
for oa = 1 to 65535 '³o¬O«ü oa ¬° 1 ¨ì 65535
sheet2.range("a"&oa).value = sheet1.range("a"&oa).value+sheet1.range("b"&oa).value+sheet1.range("c"&oa).value '³o¬O«ü sheet2ªºAÄ椺ªºÀx¦s®æ = sheet1ªºAÄ椺ªºÀx¦s®æ+BÄ椺ªºÀx¦s®æ+CÄ椺ªºÀx¦s®æ
sheet2.range("a"&oa).select 'SHEET2ªºAÄæ¦ì¬YÀx¦s®æªº¿ï¾Ü
Selection.Copy '¿ï¾Üªº½d³ò ½Æ»s
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ '¿ï¾Ü©Ê¶K¤W
:=False, Transpose:=False
sheet1.range("a"&oa,"c"&oa).value="" 'SHEET1 ªºAÄæ¦ì¨ì CÄæ¦ì(«ü A B C) ªºÀx¦s®æªºÈ¬°ªÅ¥Õ
next oa |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_/¥xªF
- µù¥U®É¶¡
- 2011-11-5
- ³Ì«áµn¿ý
- 2013-8-1
|
¦^´_ 7# mark15jill
·PÁ±z ......
¤£¹L§Ú¤£À´±o ¶i¶¥µ{¦¡ªº¼gªk ..
¦A¬ã¨s®É ¦A½Ð±Ð±z¤F
ÁÂÁ±z®@ ... |
|
§õ¬K½÷
|
|
|
|
|