¶¡Â_¿é¤J®É ¦p¦óÅýµ{¦¡¤]¥i¥H±a¥X¸ê®Æ
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 11# GBKEE
ÁÂÁ¤j¤jªº´£¿ô~ ¦b¨Ï¥Î¤W·|ÄYÂÔ¨Ç
¤j¤j¬O§_¥i¥HÁ|¨Ò On Error Resume Next ·|¤£©ú©öµo²{¿ù°Èªº±¡ªp~ µ¹«á¾Çªº±ß½ú°Ñ¦Ò~ |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 11# GBKEE
Dear ¤j¤j
ü~ ¤S¦³°ÝÃD¤F
¦]¬°§Úªº¸ê®Æ¿é¤J¦@¤À¦¨¨â¶ô
Part1:¿é¤J[A]«á±a¥X[B][C]
Part2:¿é¤J[B1][C1]±a¥X[A1] PS:Part1»PPart2¦b¦P¤@¦æ¤W,¥i¥H¤À§Oº¡¨¬¦U¦Ûªº±ø¥ó«á,¦Û¦æ«ÂйBºâ
¥ÎWorksheet_SelectionChange©ÎWorksheet_Change,¥i¥H¦Û°Ê¥~¥X[A][A1],¦ý¬O»Ýn[A]¦A«ö¤@¦¸(CHANGE),¤~·|¦A¹Bºâ
°£¤F¥ÎCommandButton(¸Ó¶ñªº¦a¤è¶ñ§¹«á¦A«ö),¬O§_¦³¨ä¥L¤è¦¡¥i¥H§JªA,¥un§Úº¡¨¬§Ú©Ò»Ýnªº±ø¥ó«á,´Npºâ
ªþ¥ó¬°°ÝÃD¤§½d¥»
¶¡Â_¿é¤J®É µ{¦¡¦p¦ó§JªA_©µ¦ùÃD3.rar (12.85 KB)
|
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13

|
¨Ò¦pa1»Pb1Àx¦s®æ³£¬O¤å¦r¤£¬O¼Æ¦r¡A¤£¯à°µ¹Bºâ¡C
µ{¦¡½X¡G
On Error Resume Next
[c1] = [a1] * [b1]
³o¼Ë¥¦¤£·|§i¶D§A¥ô¦ó¿ù»~°T®§¡C |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 43
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-2-19
               
|
¦^´_ 13# hugh0620 - Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count > 1 Then Exit Sub
- Select Case Target.Column
- Case 2
- Set a = Sheets("DATA1").Columns(2).Find(Target, lookat:=xlWhole)
- If Not a Is Nothing Then Target.Offset(, 1) = a.Offset(, 1)
- Case 3
- Set a = Sheets("DATA2").Columns(2).Find(Target, lookat:=xlWhole)
- If Not a Is Nothing Then Target.Offset(, 1) = a.Offset(, 1)
- Case 6
- If Target <> "" And Target.Offset(, 1) <> "" Then Target.Offset(, -1) = Target * Target.Offset(, 1)
- Case 7
- If Target <> "" And Target.Offset(, -1) <> "" Then Target.Offset(, -2) = Target * Target.Offset(, -1)
- End Select
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 15# Hsieh
Dear ¤j¤j Y²{¦b§ï¦¨¥Î«ö¶s¦¡ªº¤è¦¡³B²z (¥Dn¬O§Ú¦³¤@³¡¥÷¸ê®Æn¦Û°Êpºâ~¤@³¡¥÷¬O»Ýn¶×¥X«á¸ê®Æ¦^¶ñ«á¦Apºâ~)
³o¼Ë ByVal Target As Range ¬O§_´NµLªk¨Ï¥Î¤F
¸Ó¦p¦ó³B²zÅý¶¡Â_ªº¸ê®Æ¥i¥H¦b«ö¤U«ö¶s«á¶i¦æ¹Bºâ~
°ÝÃD½d¥»¤£ÅÜ (³Ì«á¤@¦¸ªº½d¥») |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 135
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 165
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-12-9
- ³Ì«áµn¿ý
- 2012-8-27
|
¦^´_ 7# hugh0620 - Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count > 1 Or Target.Column <> 2 Then
- Exit Sub
- End If
- On Error Resume Next
- Target(1, 2) = Sheet2.[B:b].Find(Target)(1, 2).Value
- Target(1, 3) = Sheet3.[B:b].Find(Target(1, 2))(1, 2).Value
- End Sub
½Æ»s¥N½X ¥t¥~«öÁä°ÝÃD,n¦^¨ì¶Ç²Îªºsub(),³o¼Ë°µ·|«Ü³Â·Ð |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|