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

¥Î³]©w®æ¦¡¤Æ±ø¥óÀ˵ø¸ê®Æ°ÝÃD

¦^´_ 1# mmggmm
¦h½d³òªºÀx¦s®æ®æ¦¡¤Æ±ø¥ó ªº¤½¦¡ ¶·¥H§@¥Î¤¤ªºÀx¦s®æ¬°¥D
³o¬O§AÀÉ®×A5ªº¤½¦¡¥¿½T  =COUNTIF($Q$6:$Q$65536,$A5)<1
                F5ªº¤½¦¡¿ù»~  =COUNTIF(R$6:U$42,$E5)<1

  1. Sub EX()
  2.     [A5:N65536].FormatConditions.Delete
  3.     With [A5:A65536,C5:C65536,E5:E65536,G5:G65536,I5:I65536,K5:K65536,M5:M65536]   '¦h½d³òªºÀx¦s®æ
  4.         .Select              '®æ¦¡¤Æ±ø¥ó¶·°é¿ï½d³ò
  5.         .Cells(1).Activate   '°é¿ï½d³ò¤¤¤§ A5¬°§@¥Î¤¤ªºÀx¦s®æ
  6.         .FormatConditions.Delete  '§R°£­ì½d³ò¤¤®æ¦¡¤Æ±ø¥ó
  7.         .FormatConditions.Add Type:=xlExpression, Formula1:= _
  8.         "=COUNTIF($Q$6:$Q$77," & .Cells(1).Address(0, 0) & ")<1"
  9.         '¥H¤Wªº¤½¦¡ =COUNTIF($Q$6:$Q$65536,A5)<1
  10.         '¦p.Cells(2).Activate  '°é¿ï½d³ò¤¤Åܦ¨ A6¬O§@¥Î¤¤ªºÀx¦s®æ
  11.         '¥H¤Wªº¤½¦¡ =COUNTIF($Q$6:$Q$65536,A6)<1
  12.         '§@¥Î¤¤ªºÀx¦s®æ¬°¥D §_«h¤½¦¡´N¿ù±¼
  13.         .FormatConditions(1).Font.ColorIndex = 3
  14.         .Cells(1).Select
  15.     End With
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# PD961A

   

TOP

¦^´_ 11# mmggmm
©w¸q X ¤§«á
½Ð¦b A10 ¿é¤J 500  µM«á B10 ªº¤½¦¡ =X «á ¬Ý¬Ý B10 Åܦ¨¤°»ò
EX : D5 ¿é¤J   100  µM«á D5 ªº¤½¦¡ =X «á  ¬Ý¬Ý D5  Åܦ¨¤°»ò

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD