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

[µo°Ý] ½Ð¯q : Excel °ÝÃD

[µo°Ý] ½Ð¯q : Excel °ÝÃD

½Ð¯q : Excel °ÝÃD

¦pªþ¥ó¹Ï¥Ü

M2~M40 ºñ¦âÄæ¦ì , ¥ô·N¤@­ÓÄæ¦ì Key In ¼Æ¦r ®É

¥t¥~ 34 ­Óºñ¦âÄæ¦ì , ­n¥i¥H "¦Û°Ê²M°£¤º®e"

¦¹®É©Ò¦³¬õ¦âÄæ¦ì ,  ¤]¦P®É¦Û°Ê­«·s­pºâ

³o¼Ëªº³W«h , ¦p¦ó¥Îexcel³]­p¥X¨Ó ?

(ex   ¤½¦¡ ? ¥¨¶° ? ¨ç¦¡ ?)  

½Ð°ª¤â«ü±Ð , ÁÂÁÂ

Excel °ÝÃD.jpg (315.88 KB)

°ÝÃD

Excel °ÝÃD.jpg

¦^´_ 1# llkxxx

¸É excel  ÀÉ®×

ÁÂÁÂ

Excel °ÝÃD.rar (7.96 KB)

TOP

M2~M40 ºñ¦âÄæ¦ì , ¥ô·N¤@­ÓÄæ¦ì Key In ¼Æ¦r ®É

¥t¥~ 34 ­Óºñ¦âÄæ¦ì , ­n¥i¥H "¦Û°Ê²M°£¤º®e"


©Ò¥HM2~M40¥u¯àKEY-IN¤@µ§¸ê®Æ ?
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# ML089

YES

M2~M40¥u¯àKEY-IN¤@µ§¸ê®Æ

ths

TOP

¦^´_ 4# llkxxx
»Ý¨Ï¥Î VBA
«öALT-F11¶}±ÒVBE
±N¤U¦CVBA©ñ¸m¸ÓWorksheet¤¤(¦p¹Ï©Ò¥Ü)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E2:E42")) Is Nothing Then Exit Sub
    Data = Target.Value
   
    Application.EnableEvents = False
    Range("E2:E42").ClearContents
    Target = Data
    Application.EnableEvents = True
End Sub

{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 5# ML089

³o¬O¥ÎVB  »yªk  ¼gªº¶Ü?
­ì¨Ó VB +  Excel ¤]¯à¥Î

·PÁ°Õ

TOP

¦^´_ 6# llkxxx

³o¬OEXCELªºVBA»PVB»yªk¬Û¦ü
VBA¬OEXCELªºª½Ä¶»y¨¥(OFFICE¨t¦C³£¦³)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD