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

[µo°Ý] VBA°ÝÃD: ³]©w½d³ò­È¦P®ÉÅܰʮÉ,­n¦Û°Ê±a¥X¤½¦¡

[µo°Ý] VBA°ÝÃD: ³]©w½d³ò­È¦P®ÉÅܰʮÉ,­n¦Û°Ê±a¥X¤½¦¡

¦pªþ¥ó
°ÝÃD1
°²³]­n³]©w¦bA1:A5ªº½d³ò­È ÅܰʮÉ
­n¦Û°Ê±a¥X BÄæ¤½¦¡
¦ý¹ê»Ú¸Õ,AÄæ¤@­Ó¤@­Ókey ¥i¥H±a¥XBÄæ¤½¦¡
¦ý­Y¦P®É¶K¤WA1~A5ªº­È®É, ¤½¦¡¥u·|¶]B1´N°±¤î¤F  @-@
µLªk¦P®É B1~B5 ³£±a¥X¤½¦¡
½Ð°Ý¥H¤UVBA ­n«ç»ò§ï¤~¯à¦P®ÉA¶KB¦P¥þ³¡±a¥X¤½¦¡
====================
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A1:A5")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
    Cells(Target.Row, "B") = "=A" & Target.Row & "*5"
    End If
End Sub
=================================
°ÝÃD2
¦pªG­n¼g¦¨
¤@¼ËA1:A5ªº½d³ò­È ÅܰʮÉ
"¦b¤£¦P¤u§@ªí (ex ¤u§@ªí2 )" ¦Û°Ê±a¥XBÄæ¤½¦¡
'À³¸Ó«ç»ò¼g@-@?

test.zip (13.15 KB)

ªþ¥ó

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD