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

¦Û°Ê½Æ»s®Ø½u

¦Û°Ê½Æ»s®Ø½u

½Ð°Ý¦U¦ì¤j¤j°²³]A1~N1§¡¤w³]¦n®Ø½u¡AVBA¦p¦ó¼g¤~¯àÅýA2Àx¦s®æ¿é¤J¸ê®Æ«áA2~N2¦Û°Ê½Æ»sA1~N1¤§®Ø½u
§A²q!!

¦^´_ 1# bear0925900003


½Ð¤U¸ü¨Ã°Ñ¾\ªþÀÉ¡C
http://www.FunP.Net/412232
[b]Kubi[/b]

TOP

¦^´_ 2# Kubi[/i
µL­­·P¿E
§A²q!!

TOP

¥»©«³Ì«á¥Ñ bear0925900003 ©ó 2014-2-21 11:06 ½s¿è

¦^´_ 2# Kubi
¦A½Ð±Ð¤@¤U¤j¤j±zªºµ{¦¡¸Ì¥u¦³A2·|°Ê§@¡A¦pªG§Ú§Æ±æ¬O¦bAÄæ¸Ì¥ô¦ó¤@®æ¿é¤J¸ê®Æ§¡·|²£¥Í®Ø½u¸Ó¦p¦ó­×§ï
§A²q!!

TOP

¦^´_ 4# bear0925900003


    ½Ð°Ñ¦Ò¡C
http://www.FunP.Net/68055
[b]Kubi[/b]

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        [a1:n1].Copy
        Target.PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    End If
End Sub
lmh

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD