¦p¦ó§Q¥ÎVBA¤@Áä¦Û°Ê¶ñ¤J1©Î3©O?
- ©«¤l
- 95
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-10
- ³Ì«áµn¿ý
- 2020-5-25
|
¦p¦ó§Q¥ÎVBA¤@Áä¦Û°Ê¶ñ¤J1©Î3©O?
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
- Sub «ö¶s1_Click()
- Dim Rng As Range
- With Sheets("Sheet2")
- For Each Rng In .Range("C3:C79")
- If Rng <> "" Then
- Set da = .Range("AA3:AA500").Find(Rng.Value, LookAt:=xlWhole, SearchDirection:=2)
- If da Is Nothing Then
- Rng.Offset(, -1) = 3
- Else
- Rng.Offset(, -1) = 1
- Set da = Nothing
- End If
- End If
- Next
- End With
- End Sub
½Æ»s¥N½X ¦^´_ 1# RCRG |
|
|
|
|
|
|
- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
Sub TEST()
With [B3:B79]
¡@¡@¡@.Formula = "=IF(C3="""","""",3^(1-COUNT(MATCH(C3,AA$2:AA$500,))))"
¡@¡@¡@.Value = .Value
End With
[D1] = Now
End Sub |
|
|
|
|
|
|
- ©«¤l
- 95
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-10
- ³Ì«áµn¿ý
- 2020-5-25
|
ÁÂÁ¨â¦ìªº¦^µª¡A´ú¸Õ¨â¦ìªºµ²ªG³£¬O§Únªºµª®×¡A¯uªº«D±`ÁÂÁ¡I¦Û±qª¾ÃÑ+§ïª©«á¡A´£¥X°ÝÃD¦n¹³³£¥Û¨I¤j®ü¡A¯Á©ÊÅý§Úµo²{³oӽ׾¡A§óÅý§ÚÅåÆvªº¬O¡A¥H«e´¿¸g¦bª©ª¾ÃÑ+À°§Ú¸Ñµª¹Lªºexcel±M®a̳ºµM³£¦b³o¨à¡A¯uªº¦nÅý§Ú¶}¤ß¡I§Æ±æ¤é«áÁÙ¯àÀò±o¦U¦ì¤j¤j½ç±Ð»P«ü¾É¡C |
|
|
|
|
|
|
- ©«¤l
- 95
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-10
- ³Ì«áµn¿ý
- 2020-5-25
|
¦^´_ 3# ã´£³¡ªL
·Q½Ð°Ý¤@¤Uã¤j¬Û¤Ï°µªk¡AY²Å¦X¸¹½X´N¶ñ3¡A§_«h´N¶ñ1¡A¨º¤½¦¡n¦p¦óקï©O? |
|
|
|
|
|
|
- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 5# RCRG
=IF(C3="","",3^COUNT(MATCH(C3,AA$2:AA$500,)))
=IF(C3="","",IF(COUNT(MATCH(C3,AA$2:AA$500,)),3,1))
=IF(C3="","",IF(ISNA(MATCH(C3,AA$2:AA$500,)),1,3)) |
|
|
|
|
|
|
- ©«¤l
- 95
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-10
- ³Ì«áµn¿ý
- 2020-5-25
|
¦^´_ 6# ã´£³¡ªL
ì¨Ó¦p¦¹¡A¤U±¤TÓ³£¥i¥H³q¥Î¬O§a¡I¥i¬O¦n¹³·|¥X²{¿ù»~¡A¦Û¤v¤ÏÂдú¸Õ«á¡AÀ³¸Ó¬O¤Ö¤F""¡A©Ò¥H¦p®e³\§Ú§â¥¿¸Ñ¦APO¤@¦¸§a¡I
³Ì«á¤]¦A¦¸ÁÂÁ ã¤j Åo¡I
=IF(C3="""","""",3^COUNT(MATCH(C3,AA$3:AA$500,)))
=IF(C3="""","""",IF(COUNT(MATCH(C3,AA$3:AA$500,)),3,1))
=IF(C3="""","""",IF(ISNA(MATCH(C3,AA$3:AA$500,)),1,3)) |
|
|
|
|
|
|
- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 7# RCRG
´£¨Ñªº¬O¤u§@ªí¤½¦¡, Yn¼g¨ìVBA¤¤, ¹J¦³"??"¥]ÂЪº¤å¦r, ³£¶·¦A¥[¤@¼h""??"", ³o¬O³q«h,
¤]¥i¥ý¨Ï¥Î¿ý»s¦A¶K¤J! |
|
|
|
|
|
|
- ©«¤l
- 95
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-10
- ³Ì«áµn¿ý
- 2020-5-25
|
¥»©«³Ì«á¥Ñ RCRG ©ó 2015-11-21 11:16 ½s¿è
Sub TEST()
With
¡@¡@¡@.Formula = "=IF(C3="""","""",3^(1-COUNT(MATCH(C3,AA$2:AA$500,))))"
¡@¡@¡@. ...
ã´£³¡ªL µoªí©ó 2015-11-12 10:09
ÁÂÁÂã¤jªº¸ÑÃD¡I
§Ú·Q¤F¸Ñ¥t¤@ºØ¤£¥²«ö¶sªº°µªk¡A´N¬O¤£¥Î«öÁä¤]·|ª½±µÀ°§Ú¶ñ¤J¡A¦ÓIJµo¶ñ¤J®É¶¡ÂI¬°¡G¨C·íSheet2ªºC3:C200¥ô¦ó¤@Ä椺®e¦³²§°Ê®É¡AB3:B79´N¥þ³¡¦A«·s¶ñ¤J¤@¦¸¡C
¦³ÂIÀt¤ò¡A¦ýÁÙ¬O¥ý¸ò¦U¦ì¤j¤j»¡Án©êºp¡A³Â·Ð«ü±Ð¤F¡I>"< |
|
|
|
|
|
|
- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 9# RCRG
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
¡@¡@¡@If Not Intersect([AA2:AA500], .Cells) Is Nothing Then
¡@¡@¡@¡@¡@With [Sheet2!B3:B79]
¡@¡@¡@¡@¡@¡@¡@¡@.Formula = "=IF(C3="""","""",3^COUNT(MATCH(C3,AA$2:AA$500,)))"
¡@¡@¡@¡@¡@¡@¡@¡@.Value = .Value
¡@¡@¡@¡@¡@End With
¡@¡@¡@¡@¡@[Sheet2!D1] = Now
¡@¡@¡@End If
End With
End Sub |
|
|
|
|
|
|