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

vba¯S®í¦h­«¿z¿ï

vba¯S®í¦h­«¿z¿ï

¦³´X­Ó¿z¿ï¸ê®Æªº°ÝÃD¡A§Ú¤@ª½·Q¤£¥X¸Ñ¨Mªº¤èªk¡A·Q³Â·Ð¤j®a¶°«ä¼s¯qÀ°§Ú·Q·Q¸Ó«ç»ò°µ¡C
¸ê®Æ¤j·§¦³´X¸Uµ§¡A§Ú­n±N¨ä¤¤º¡¨¬¤U¦C¥|­Ó±ø¥ó(¥|±ø¥ó¥þ³£²Å¦X)ªº¨C¤@²Õ(¨C¤@²Õ³£¦³4µ§¸ê®Æ)¸ê®Æ³£¬D¿ï¥X¨Ó©ñ¦b¥t¤@±i¤u§@ªí¡C¥|±ø¥ó¦p¤U:
k.png
2016-5-8 08:49

ÅܼƥN¸¹:
code=¸ê®Æ½s½X,
t0=¤é´Á½s½X(1~1065),
T=¨ì´Á¤é½s½X(1~121),
cp=¿ï¾ÜÅv«¬ºA(C=1,P=2),
K=¼i¬ù»ù®æ,
prem=Åv§Qª÷       

§Ú¦³¦Û¤v¸ÕµÛ¨Ï¥Îautofilter¨Ó¸Ñ¨M±ø¥ó¤@©M±ø¥ó¤G¡A¦ý¤´¹J¨ì§xÃø¡Cµ{¦¡½X¦p¤U:
  1. Sub morecriteriafilter()
  2. Dim i As Integer, j As Integer
  3. With Worksheets("be")
  4. For i = 0 To 1063
  5.             For j = 0 To 130
  6.         If .FilterMode = True Then .ShowAllData
  7.         .Range("A1").AutoFilter Field:=2, Criteria1:="<" & 3 + i, Operator:=xlAnd, Criteria2:=">" & 0 + i
  8.         .Range("A1").AutoFilter Field:=3, Criteria1:="=" & 1
  9.         .Range("A1").AutoFilter Field:=5, Criteria1:=Cells(j + 2, 10)
  10.         .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet2").Range("B2").Offset(7 * i, 7 * j)
  11.         Next j
  12.      Next i
  13. End With
  14. End Sub
½Æ»s¥N½X
§xÃø¤@: ¨S¦³¸Ñ¨M±ø¥ó¤T©M±ø¥ó¥|!!!
§xÃø¤G: ¥i¯à¬O¨Ï¥Îfor¡KnextªºÃö«Y¡A³B²z³t«×«ÜºC¡Ai=0 to 100¥ª¥k´N·|·í¾÷¦b¨º¸Ì¡A¥i¬O§Úªº¸ê®Æ¶q«Ü¤j(i=0 to 1065)

·Q¤£¥X¸Ñ¨Mªº¤èªkQAQ¡A¤×¨ä¬O±ø¥ó¤T©M±ø¥ó¥|¡A½Ð°ª¤â«üÂI¤@¤G¡C

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD