½Ð±Ð¥Ñ¥¨¶°¿ý¨îªº¤½¦¡¦p¦óÂà´«¬°VBA¤½¦¡,¨Ã¥BÀx¦s®æ¥i¥H¬OÅܼÆ

luffyzoro

ActiveCell.FormulaR1C1 = _
        "=IF(AND(RC[-1]=[hub.xls]AA!R2C2,[hub.xls]AA!R2C24>0,[hub.xls]AA!R2C24-SUM(R2C11:RC[5])>0), [hub.xls]AA!R2C9)"
ActiveCell.Offset(1).Select

½Ð±Ð¦U¦ìª©¤j¡A¦p¤W¤½¦¡¬°±q¥¨¶°COPY¨ìVBA¤¤¡A¦ý¬O²{¦b§Ú¦³°ÝÃDµLªk¸Ñ¨M¡A
¦pªG[hub.xls]AA!R2C2¤Î[hub.xls]AA!R2C24¤Î[hub.xls]AA!R2C24¤Î[hub.xls]AA!R2C9³o¥|­Ó¬O¥t¥~¤@­Ó
Àɮפ¤ªºÀx¦s®æ³£¦b¦P¤@¦C¡A²{¦b§Ú»Ý­n±N"¦æ"¬O¥i¥HÅܰʪº¡A¸Ó¦p¦ó­×§ï?

¥t¥~[hub.xls]AA!R2C24-SUM(R2C11:RC[5])>0³o­Ó¸Ì­±ªºSUM(R2C11:RC[5])ªº²Ö¥[À³¸Ó¬O­n¥u²Ö¥[»P[hub.xls]AA!R2C9ªº­È¤@¼Ë¸ÓÀx¦s®æ¹ïÀ³¨ì¦P¤@¦Cªº¼Æ¶qÀx¦s®æ§@²Ö¥[

¥i§_½Ð°ª¤âÀ°¦£¬Ý¤@¤U¸Ó«ç»ò¼gVBA¤ñ¸û¦n

luffyzoro

¦^´_ 26# GBKEE


ActiveCell.FormulaR1C1 = _
                   "=IF(AND(RC[-1]='[" & hubopf & "]" & shan & "'!R" & hubcn & "C2,'[" & hubopf & "]" & shan & "'!R" & hubcn & "C72>0,'[" & hubopf & "]" & shan & "'!R" & hubcn & "C72-SUM(R" & mycarw & "C11:RC[5])>0),'[" & hubopf & "]" & shan & "'!R" & hubcn & "C9)"

ª©¤j§Ú§ä¨ì°ÝÃD¤F
°ÝÃD¥i¯à¦b©óhubopf³o­ÓÀɦW¬OªøÀɦW©Î¬O¤º¦³ªÅ®æ©Î¨ä¥L¦r¤¸
©Ò¥H»Ý­n¦A«e­±¦A¥[³æ¤Þ¸¹
ÁÂÁª©¤j¦h¦¸¦^ÂÐ
¥t¥~, §ÚÁÙ¬O·|±N§ÚªºÀÉ®×±Hµ¹ª©¤j¬Ý¬Ý

luffyzoro

¦^´_ 26# GBKEE


ª©¤j±z¦n
§Ú¤w¦¬¨ì±zªºµu®ø®§
½Ð¦Aµ¹§Ú¤@¨Ç®É¶¡,§Ú·Q§â§Ú¼gªºµ{¦¡°µ¤@¤Uµù¸Ñ,¦Aµ¹±zÀ°¦£

¥t¥~,§Ú¶i­Ó¤H¸ê®Æ¤£ª¾­n§â§Úªºmail¶ñ¦b­þ¸Ì­C>"<

·PÁª©¤j

GBKEE

¦^´_ 19# luffyzoro
ª©¤jÄ@·Nªº¸Ü,§Ú¥i¥H±NÀÉ®×±Hµ¹ª©¤jÀ°¦£¬Ý¤@¤U
½Ð¦b§A­Ó¤H¸ê®Æ ¯d¤U Mail

luffyzoro

¦^´_ 24# GBKEE


ª©¤j,¦³AC8E³o­Ó¤u§@ªí,½Ð¬Ý²Ä19¼Ó§Úªºµ{¦¡½X²Ä1¦C¦³±Ò°Ê,¦Ó¥B¤]¨S¥X²{¿ù»~

ÁÂÁª©¤j¼ö±¡¦^ÂÐ

GBKEE

¦^´_ 23# luffyzoro
¦Ó¥B³v¦æ°õ¦æ¬O¨ì¤½¦¡¨º¤@¦C´N¿ù»~¤F   

½Ð°ÝWorkbooks( hubopf )¤¤¦³ AC8E ³o¤u§@ªí¶Ü?

ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]=[" & hubopf & "]AC8E!R" & hubcn & "C2,[" & hubopf & "]AC8E!R" & hubcn & "C72>0,[" & hubopf & "]AC8E!R" & hubcn & "C72-SUM(R" & mycarw & "C11:RC[5])>0),[" & hubopf & "]AC8E!R" & hubcn & "C9)"

luffyzoro

¦^´_ 22# GBKEE


Do
Workbooks(calopf).Worksheets("sheet2").Activate
Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Select
Selection.Offset(1, 0).Select
Dim mycarw As Integer
mycarw = ActiveCell.Row
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]=[" & hubopf & "]AC8E!R" & hubcn & "C2,[" & hubopf & "]AC8E!R" & hubcn & "C72>0,[" & hubopf & "]AC8E!R" & hubcn & "C72-SUM(R" & mycarw & "C11:RC[5])>0),[" & hubopf & "]AC8E!R" & hubcn & "C9)"
Selection.Value = Selection.Value¡ö·Ó°j°é¨Ó¬ÝÁÙ¬OÀ³¸Ó¥ý¦³¤½¦¡¨ú±o­pºâ«á,¤½¦¡¤~·|³Q­È¨ú¥N
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Offset(-1).Value = False

ª©¤j,·PÁ±z
½Ð°Ý¦p¬õ¦r©Ò¼gªº,¬O¤£¬O¥¿½T?
¦Ó¥B³v¦æ°õ¦æ¬O¨ì¤½¦¡¨º¤@¦C´N¿ù»~¤F,ÁÙ¨S´«¦¨­È´N¿ù»~
ÀYµh¤¤>"<

GBKEE

¦^´_ 19# luffyzoro
9# ¬O¤£¬O§Ú­þÃä¼g¿ù¤F,¾É­P¤½¦¡¨Ã¨S¦b§Ú­nªºÀx¦s®æ¤º?
§A­nªº¬O¦³¤½¦¡, ¤£­n¥u¬O­È ¹ï¶Ü?
Selection.Value = Selection.Value   '³o¸Ì ¤½¦¡³Q­È¨ú¥N ¤F
ActiveCell.Offset(1).Select

luffyzoro

¦^´_ 20# GBKEE


ª©¤j,¬Oªº,¨º­Ó´N¬O§Ú­nªº¤½¦¡©Ò¦bActivecell

GBKEE

¦^´_ 19# luffyzoro
¾É­P¤½¦¡¨Ã¨S¦b§Ú­nªºÀx¦s®æ¤º?  §A³o·N«ä¬OActiveCellªº¦ì¸m¤£¹ï!

§Úµù¸Ñ§A¬Ý¬Ý
Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Select  'FÄæ¸Ì³Ì«á¤@­Ó¸ê®ÆªºCells
Selection.Offset(1, 0).Select                                         
FÄæ¸Ì³Ì«á¤@­Ó¸ê®ÆªºCellsªº¤U¤@¦CªºCells   ³o´N¬O ActiveCell  ¹ï¤£¹ï!