½Ð±Ð¥Ñ¥¨¶°¿ý¨îªº¤½¦¡¦p¦óÂà´«¬°VBA¤½¦¡,¨Ã¥BÀx¦s®æ¥i¥H¬OÅܼÆ
- ©«¤l
- 23
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2013-4-9
|
¦^´_ 18# GBKEE
ª©¤j±z¦n
¦A¦¸ÁÂÁÂ
¦p¦¹¦h¦¸³Â·Ð±z,¯u¬O¤£¦n·N«ä
§Ú²{¦b´N¥u¦³¤@Ó"b.xls"- Workbooks(hubopf).Worksheets("AC8E").Activate
- Dim hubcn As Integer, hubrwcnt As Integer
- hubrwcnt = ActiveSheet.UsedRange.Rows.Count
- For hubcn = 2 To hubrwcnt - 1
- Workbooks(hubopf).Activate
- Worksheets("AC8E").Range("BT" & hubcn).Select
- If Selection.Value > 0 Then
- 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
- ActiveCell.Offset(1).Select
- Loop Until ActiveCell.Offset(-1).Value = False
½Æ»s¥N½X ¥H¤W¬O¤ù¬qªºµ{¦¡½X,
§Ú·Q½Ð±Ðª©¤j,§Ú©Ò·QnªºActiveCell.FormulaR1C1 À³¸Ó¬O¦bWorkbooks(calopf).worksheets("sheet2")ªºÀx¦s®æ¤§¤¤,¬O¤£¬O§ÚþÃä¼g¿ù¤F,¾ÉP¤½¦¡¨Ã¨S¦b§ÚnªºÀx¦s®æ¤º?
©Î¬Oª©¤jÄ@·Nªº¸Ü,§Ú¥i¥H±NÀÉ®×±Hµ¹ª©¤jÀ°¦£¬Ý¤@¤U>"<
·PÁÂ |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2013-4-9
|
¦^´_ 20# GBKEE
ª©¤j,¬Oªº,¨ºÓ´N¬O§Únªº¤½¦¡©Ò¦bActivecell |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2013-4-9
|
¦^´_ 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À³¸Ó¥ý¦³¤½¦¡¨ú±opºâ«á,¤½¦¡¤~·|³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¤¤>"< |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2013-4-9
|
¥»©«³Ì«á¥Ñ luffyzoro ©ó 2011-11-25 17:24 ½s¿è
¦^´_ 24# GBKEE
ª©¤j,¦³AC8E³oÓ¤u§@ªí,½Ð¬Ý²Ä19¼Ó§Úªºµ{¦¡½X²Ä1¦C¦³±Ò°Ê,¦Ó¥B¤]¨S¥X²{¿ù»~
ÁÂÁª©¤j¼ö±¡¦^ÂÐ |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2013-4-9
|
¦^´_ 26# GBKEE
ª©¤j±z¦n
§Ú¤w¦¬¨ì±zªºµu®ø®§
½Ð¦Aµ¹§Ú¤@¨Ç®É¶¡,§Ú·Q§â§Ú¼gªºµ{¦¡°µ¤@¤Uµù¸Ñ,¦Aµ¹±zÀ°¦£
¥t¥~,§Ú¶iÓ¤H¸ê®Æ¤£ª¾n§â§Úªºmail¶ñ¦bþ¸ÌC>"<
·PÁª©¤j |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2013-4-9
|
¦^´_ 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¬Ý¬Ý |
|
|
|
|
|
|