- ©«¤l
- 48
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-4-9
- ³Ì«áµn¿ý
- 2019-12-17
|
¤£¦n·N«ä¡A¦A³Â·ÐGBKEE¤j¤j
Y§Ú¤£¥u¦³¡i¥x¿ï¡j¡A§ÚÁÙ¦³¡i¥x¿ï2¡j¡A¨ä¤º®e©M¡i¥x¿ï¡j¬O¤@¼Ëªº¡A¸Ì±ªº¤½¦¡¦³¨Ç³\¤£¤@¼Ë¦Ó¤w¡A¦ý¤jP¬Û¦P¡C
©Ò¥H§Ú¥i¥Hª½±µ½Æ»s¡i¥x¿ï¡jªºµ{¦¡½X¶K¦b¡i¥x¿ï2¡j¸Ì¶Ü¡H¦p¤U¡G
Private Sub Worksheet_Change(ByVal Target As Range)
' MsgBox Range("n5").Value
Dim i As Integer
For i = 5 To 14
Call Macro1(i)
Next
End Sub
Private Sub Worksheet_Calculate() '«ºâ¨Æ¥óµ{¦¡½X
Dim i As Integer
Application.EnableEvents = False '°±¤î IJµo¨Æ¥ó
For i = 5 To 14
Call Macro1(i)
Next
Application.EnableEvents = True '«ì´_ IJµo¨Æ¥ó
End Sub
¦Ó¦b¼Ò²Õ¸Ìªºmodule2ªºµ{¦¡½X¥i¥H³o¼Ë¼g¶Ü¡H
Sub Macro1(r As Integer) 'r¬°°Ñ¼Æ¥Nªí¦C¸¹.integer¬°¾ã¼Æ«¬ºA
With Sheets("¥x¿ï")
.Range("M" & r).GoalSeek Goal:=.Range("N" & r).Value, ChangingCell:=.Range("D" & r)
End With
With Sheets("¥x¿ï2")
.Range("M" & r).GoalSeek Goal:=.Range("N" & r).Value, ChangingCell:=.Range("D" & r)
End With
End Sub
¬O¤£¬O³o¼Ë¤£¦æ¡A¦]¬°§Ú³o¼Ë¼g®É¡AEXCEL´N·|·í±¼¡A©Î¬O¥d¥dªº¡C
¥i¥H³Â·Ð®îGBKEE¤j¤j¯à¦AÀ°§Ú¬Ý¤@¤U¶Ü¡H
ÁÂÁ§A¡C |
|