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

¥¼¤Ï¬õªºª½¦æ¥ÎÁôÂÃ

¥¼¤Ï¬õªºª½¦æ¥ÎÁôÂÃ

§Ú¥Î³]©w®æ¦¡¤Æªº±ø¥ó
³]¬°¤j©ó10ªº©³©M¦r¤Ï¬õ
­Y§Úªºª½¦æ¨S¦³¤Ï¬õªº·QÁôÂÃ
¥ÎVBA­n«ç»ò°µ
§Ú¥u­nÁôÂóá¡I¡I¡I

­Y¥i¥Hªº¸Ü¾î¦C¨S¦³¤Ï¬õªº¤]¤@°_ÁôÂÃ¥i¥H¶Ü¡H

Sample.png (25.13 KB)

Sample.png

Sample.rar (8.96 KB)

¦^´_ 1# king0331

½×¾Â¤¤·j¯Á FormatConditions
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, A As Range, k As Integer, F As Integer
  4.     Dim CC As Range, C As FormatCondition
  5.     Set Rng = Range("d2:k9").Columns
  6.     For Each A In Rng
  7.         k = 0
  8.         For Each CC In A.Cells
  9.             For Each C In CC.FormatConditions
  10.                 Select Case C.Type
  11.                     Case 1                                           '®æ¦¡¤Æ±ø¥ó: Àx¦s®æªº­È
  12.                         F = C.Formula1
  13.                         Select Case C.Operator
  14.                             Case 1  '>= AND <=
  15.                                 If CC.Value >= F And CC.Value <= Val(C.Formula2) Then k = 1
  16.                             Case 2  '< or >
  17.                                 If CC.Value < F Or CC.Value > Val(C.Formula2) Then k = 1
  18.                             Case 3  '=
  19.                                 If CC.Value = F Then k = 1
  20.                             Case 4  '<>
  21.                                 If CC.Value <> F Then k = 1
  22.                             Case 5  '>
  23.                                 If CC.Value > F Then k = 1
  24.                             Case 6  '<
  25.                                 If CC.Value < F Then k = 1
  26.                             Case 7  '>=
  27.                                 If CC.Value >= F Then k = 1
  28.                             Case 8  '<=
  29.                                 If CC.Value <= F Then k = 1
  30.                         End Select
  31.                     Case 2                                            '®æ¦¡¤Æ±ø¥ó: ¤½¦¡
  32.                         If Application.Evaluate(C.Formula1) = True Then k = 1
  33.                 End Select
  34.             Next
  35.             If k = 1 Then GoTo OK
  36.         Next
  37. OK:
  38.         If k = 0 Then A.EntireColumn.Hidden = True
  39.     Next
  40. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦nÃø~·d¤£©w¡A¿é¤J«á¤£·|°Ê

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD