µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Office¤£¤À°Ï
» VBA°ÝÃD: ³]©w½d³òȦP®ÉÅܰʮÉ,n¦Û°Ê±a¥X¤½¦¡
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
VBA°ÝÃD: ³]©w½d³òȦP®ÉÅܰʮÉ,n¦Û°Ê±a¥X¤½¦¡
renzhi2020
µoµu®ø®§
¥[¬°¦n¤Í
renzhi2020
·í«eÂ÷½u
UID
5065
©«¤l
21
¥DÃD
7
ºëµØ
0
¿n¤À
60
ª÷¿ú
60
ÂI¦W
0
§@·~¨t²Î
Mac
³nÅ骩¥»
2011
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
12 ¤p®É
µù¥U®É¶¡
2011-6-4
³Ì«áµn¿ý
2020-2-18
¤¤¾Ç¥Í
©«¤l
21
¥DÃD
7
ºëµØ
0
¿n¤À
60
ÂI¦W
0
§@·~¨t²Î
Mac
³nÅ骩¥»
2011
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2011-6-4
³Ì«áµn¿ý
2020-2-18
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2017-10-21 13:28
|
Åã¥Ü¥þ³¡©«¤l
[µ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ªGn¼g¦¨
¤@¼ËA1:A5ªº½d³òÈ ÅܰʮÉ
"¦b¤£¦P¤u§@ªí (ex ¤u§@ªí2 )" ¦Û°Ê±a¥XBÄæ¤½¦¡
'À³¸Ó«ç»ò¼g@-@?
test.zip
(13.15 KB)
¤U¸ü¦¸¼Æ:6
2017-10-21 13:28
ªþ¥ó
¼Ó¥D¼ö©«
vlookup ªº°ÝÃD
¤½¦¡¿é¤J¥Ñ¤À¸¹Åܦ^¥Î³r¸¹¤À¹j (Excel¤@¯ë°Ï
½Ð°Ýn¦p¦ó¿z¿ï¥kÃäºâ¨Óªº3ӼƦr,¦ý¤£n§t
¦Û°Ê®æ¦¡¤Æ°ÝÃD
®É¶¡¨î¼ÆÈpºâªº°ÝÃD
½d³òȤº¦p¦ó¦P¨BÅܰÊ?
¦¬ÂÃ
¤À¨É
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
ÀR«ä¦Û¦b :
·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
Excel£¸¯ë°Ï
EXCEL±MÄݰQ½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·