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

[µo°Ý]½Ð°Ý¦p¦ó°µ¨ì¥Î=®É¯àcopy¨ì¤@¼Ëªº®æ¦¡

[µo°Ý]½Ð°Ý¦p¦ó°µ¨ì¥Î=®É¯àcopy¨ì¤@¼Ëªº®æ¦¡

§Y¦p¹ï·Ó®æA1¬OABC¡A¦Ó¥B¬O¤wBOLD¤Î¥[©³½u

ABC

=(A1) ¬O·|¥X¤@­Ó¨S¦³©³½u¤ÎBOLDªºABC¡A

¨º¦pªG§Ú­nµ²ªG¬O¦³BOLD¤Î©³½u¡AÀ³¸Ó¦p¦ó°µ¡H

ÁÂÁÂ

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-6 23:34 ½s¿è
§Y¦p¹ï·Ó®æA1¬OABC¡A¦Ó¥B¬O¤wBOLD¤Î¥[©³½u

ABC

=(A1) ¬O·|¥X¤@­Ó¨S¦³©³½u¤ÎBOLDªºABC¡A

¨º¦pªG§Ú ...
CyberKeith µoªí©ó 2013-11-6 22:58

¤@¯ëªº°µªk¬O : (¥H Excel 2003 ª©¬°¨Ò)
1. ¹ï [a1]  Àx¦s®æ«ö ·Æ¹«¥kÁä, ¿ï ½Æ»s.
2. ¹ï ¼ÐªºÀx¦s®æ «ö ·Æ¹«¥kÁä, ¿ï ¿ï¾Ü©Ê¶K¤W, ¦A¿ï ®æ¦¡.
3. «ö ½T©w.
·íµM, ¤W­z¤è¦¡¨Ã¤£·|¦b¨Ï¥ÎªÌ¿é¤J¤½¦¡«á¦Û°ÊÅܧó®æ¦¡.

©Ò¥H§ï¥Î Excel VBA ¬O¸û¬¢·íªº¤è¦¡:
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   With Target
  3.     If Left(.Formula, 1) = "=" Then
  4.       [A1].Copy
  5.       Target.PasteSpecial Paste:=xlPasteFormats
  6.     End If
  7.   End With
  8. End Sub
½Æ»s¥N½X

TOP

¥H Excel 2003 ª©¬°¨Ò:
1. ¹ï [a1]  Àx¦s®æ«ö ·Æ¹«¥kÁä, ¿ï ½Æ»s.
2. ¹ï ¼ÐªºÀx¦s®æ «ö ·Æ¹«¥kÁä, ¿ï ¿ï ...
luhpro µoªí©ó 2013-11-6 23:21


ÁÂÁ±zªº¦^ÂСA§Ú¬O·Q¥Îµ{¦¡¥h¦Û°Ê°µ¡A©Ò¥H¥»¨Ó§Ú¤w¸g¥Î"="¥h±N¸ê®Æ§Û¨Ó

§Ú²{·Q±N®æ¦¡¸ê®Æ¤]¦Û°Ê§Û¨Ó¡A½Ð°Ý¦p¦ó°µ¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-6 23:43 ½s¿è

¦^´_ 3# CyberKeith
¦]¬° Excel VBA µ{¦¡¬ÛÃö°Q½× À³¸Ó¬O­n¦b Excelµ{¦¡°Ï ¤¤µoªí,
©Ò¥H¦b Excel¤@¯ë°Ï §Ú·|¾¨¶q´Â¦V «Dµ{¦¡ ªº¤è¦¡³B²z.

µM¦Ó§A­º½gªº±¡§Î¦ü¥G¤S¸û¾A¦X¥Î Excel VBA ¨Ó³B²z,
©Ò¥H 2# µoªí«á§Ú¤S¦³°µ½s¿è¦A´£¨Ñ Excel VBA ªº³B²z¤è¦¡,
½Ð°Ñ¦Ò 2# ªºµ{¦¡.

¤S¦]¬°§A¤w¸gµoªí¤F 3#,
©È§Ú¦b¨ä¤§«á½s¿è 2# ¦Aµo¤å§A¨S¦¬¨ì¦^Âгqª¾,
©Ò¥H¦Aµo³o¤@½g.

TOP

·P®¦§A¡A¦]¬°¬O·s¤H¡A½Ð­ì½Ìµo¿ù

TOP

¤@¯ëªº°µªk¬O : (¥H Excel 2003 ª©¬°¨Ò)
1. ¹ï [a1]  Àx¦s®æ«ö ·Æ¹«¥kÁä, ¿ï ½Æ»s.
2. ¹ï ¼ÐªºÀx¦s®æ «ö ...
luhpro µoªí©ó 2013-11-6 23:21


¤£¦n·N«ä¡A½Ð°Ý¦p¦ó¨Ï¥Î¡H§Úcopy ¤F¥hVBA, ¦ýsave«á¨S¨£¨ì·s¼W"Worksheet_Change"

§Ú¬O§_°µº|¤F¤°»ò¡H

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-7 21:39 ½s¿è
¤£¦n·N«ä¡A½Ð°Ý¦p¦ó¨Ï¥Î¡H§Úcopy ¤F¥hVBA, ¦ýsave«á¨S¨£¨ì·s¼W"Worksheet_Change"

§Ú¬O§_°µº|¤F¤°»ò ...
CyberKeith µoªí©ó 2013-11-7 00:18

­n Copy ¨ìµ{¦¡·Q­nµo¥Í§@¥Îªº Sheet ªºµ{¦¡°Ï¤º.

¦p¤U¹Ï:

¥ýÂI 1 ¨º­Ó Sheet1 ,  ¦AÂI 2 ¨º­Ó¹Ï¥Ü, ³Ì«á¦b¥kÃäªÅ¥Õ³B 3 ¶K¤Wµ{¦¡§Y¥i.
(¶K¤W«á·|¬Ý¨ì¨ä¤W¤è¨â­Ó°é¿ïªº¦a¤è, ¤À§OÅܦ¨ Worksheet »P Change)

IJµoµ{¦¡°õ¦æªº¾÷¨î¬O¦b Sheet1 ªº¥ô¤@Àx¦s®æ¤º,
¿é¤J¤½¦¡(¶}ÀY¬° = ªº­pºâ¦¡©Î°Ñ·Ó) ¦A«ö Enter,
§Y·|µo²{¨ä®æ¦¡·|¦Û°ÊÅܪº»P [A1] Àx¦s®æ¬Û¦P.
(·íµM [A1] ­n³]©wªº»P¹w³]®æ¦¡¤£¦P, ¤~¯à©úÅã¬Ý¨ì®æ¦¡Åܧó«áªºµ²ªG)

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD