½Ð¯q¡u·j´MÃöÁä¦r¸ê®Æ¨Ã²Ö¥[¡K¡v
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
½Ð¯q¡u·j´MÃöÁä¦r¸ê®Æ¨Ã²Ö¥[¡K¡v
½Ð°ÝªO¤W°ª¤â¡A¦³8Ó¤u§@ªí¡A¨ä¤¤²Ä2¨ì²Ä8Ó¤u§@ªí¡A
¦pªGn´M§ä
¤jªÑªF¦Xp1¡B¤jªÑªF¦Xp2¡B¸g²z¤H¦Xp¡B¸³ºÊ¨Æ¦Xp¤§«ùªÑ¸ê®Æ¨Ã²Ö¥[¦Ürange("bb10")¡A¦p¹Ï
(¨ä¤¤¤jªÑªF¦Xp1¡B¤jªÑªF¦Xp2¡B¸g²z¤H¦Xp¡B¸³ºÊ¨Æ¦Xp¤§Àx¦s®æ¦ì¸mÀH®É³£·|ÅÜ°Ê¡A©Ò¥HµLªk¥Hsum¥h°µ²Ö¥[)
¥u¦n¥Îvba¥h§ì¸ê®Æ¡G
µ{¦¡½X¦p¤U
sub tes
for i=2 to 8
Sheets(i).Range("bb10") = Cells.Find(What:="¤jªÑªF¦Xp1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Offset(, 3).Value + Cells.Find(What:="¸g²z¤H¦Xp", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Offset(, 3).Value + Cells.Find(What:="¤jªÑªF¦Xp2", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Offset(, 3).Value + Cells.Find(What:="¸³ºÊ¨Æ¦Xp", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Offset(, 3).Value
Next
sub
¦ý¬O«o¥X²{¿ù»~¡A¤£ª¾¹D¿ù¦bþ¨à¡A¯à§_½ÐªO¤W°ª¤â«üÂI«üÂI¡HÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 6
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-10-1
- ³Ì«áµn¿ý
- 2013-12-19
|
¦³©Ò±Òµo ·PÁ¨â¦ì¤j¤jªº°Q½×»P¸Ñ´b |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 4# stillfish00
è¸Õ¹L¤F¡A¯uªº¬O¨ä¤¤¤@Ó¤u§@ªí¸Ì±¤Ö¤Fn·j´MªºÃöÁä¦r~
²{¦b¤w¸Ñ¨M¤F~ «¢
·PÁ´£¥X¥t¤@Ó¤£¥Îvbaªº¸Ñªk(ÁöµM§ÚÁÙ¬O¥Îvba¥h¸Ñ¨M)
¤S¦h¾Ç¤F¤@©Û !! |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 3# gkld
³á ¹ï¤F , ¤£¥ÎVBA¥i¥Î¤½¦¡
=IFERROR(VLOOKUP("¤jªÑªF¦Xp1",AY:BB,4,FALSE),0)+IFERROR(VLOOKUP("¤jªÑªF¦Xp2",AY:BB,4,FALSE),0)+IFERROR(VLOOKUP("¸g²z¤H¦Xp",AY:BB,4,FALSE),0)+IFERROR(VLOOKUP("¸³ºÊ¨Æ¦Xp",AY:BB,4,FALSE),0)
§ä¤£¨ì¥i¤£p |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 2# stillfish00
·PÁ¼ӤW°ª¤â´£¿ô¡A±z³oÓ¤èªk§Ú¤]po¤å«e¤]¸Õ¹L¡A¤]¬O¤£¦æ!!
¤£¹L¸g±z´£ÂI«á¡A§Ú¥h¬Ý¤F¤@¤U¨CÓ¤u§@ªí¡Aµo²{¡Kì¨Ó¨ä¤¤¦³1Ó¤u§@ªíªº¸ê®Æ¶]±¼¤F
¨S¦³§Ún·j´MªºÃöÁä¦r¸ê®Æ¡A§Ú·Q°ÝÃDÀ³¸Ó¬O¥X¦b³oÃä!!
§Ú¦A¦^¥h¸Õ¸Õ¬Ý ·P®¦¤X~~ |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# gkld
1. ¥ý½T©w2~8ªí³£¦³³o4ÓÃöÁä¦r?
¦]¬°§Aªº¼gªkFindY§ä¤£¨ì·|¶Ç¦^Nothing , ´N¨S¿ìªk¥Î«á±offset¤èªk´N·|¥X¿ù
2. Cells.Find ªºCells¨S«ü©w¤u§@ªí·|¦Û°Ê¥ÎActiveWorksheet
«Øij§ï¦¨¦p¤U¸Õ¬Ý¬Ý(ª`·NCells«e±³£n¦h¤@ÂI)
For i=2 to 8
With Sheets(i)
.Range("bb10") = .Cells.Find(What:="¤jªÑªF¦Xp1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
¤¤²¤
End With
Next |
|
|
|
|
|
|