½Ð°Ý¦¹µ{§Ç«Å§i¥Î¨ºÓ¸û¬Ù¸ê·½??
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-15
|
½Ð°Ý¦¹µ{§Ç«Å§i¥Î¨ºÓ¸û¬Ù¸ê·½??
¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-12 14:51 ½s¿è
1. ½Ð°Ý¦¹µ{§Ç«Å§i¥Î¨ºÓ(©Î¦p¦óקï)¸û¬Ù¸ê·½??
2. ¥Î Private Sub Worksheet_Change() ¬°¦ó¥X²{ ¨Æ¥óµ{§Çªº«Å§i»P¦P¦W¨Æ¥óªº´yz¤£¬Û²Å
Private Sub Worksheet_Calculate()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Private Sub Worksheet_Change()
Dim rng As Range
For Each rng In Range("AL5:AL15") 'Range("AL5:AL15") ¬°dde³sµ²
m = rng - rng.Offset(0, 9)
'------------------------------
If m > rng.Offset(0, 8) Then
MsgBoxTest 0, rng.Offset(0, -1) & " ª`·N ", "´£¥Ü°T®§", vbSystemModal, 0, 2000
Application.EnableEvents = False
rng.Offset(0, 9) = rng
Application.EnableEvents = True
End If
'------------------------------------------
If m < -rng.Offset(0, 8) Then
MsgBoxTest 0, rng.Offset(0, -1) & " ª`·N ", "´£¥Ü°T®§", vbSystemModal, 0, 2000
Application.EnableEvents = False
rng.Offset(0, 9) = rng
Application.EnableEvents = True
End If
'------------------------------------------------
Next
End Sub |
|
|
|
|
|
|
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-15
|
¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-13 06:59 ½s¿è
¦^´_ t8899
¨Ì¾Ú§Aªº»Ý¨D«Å§iÅܼƻPþ¤@Ó¸û¬Ù¸ê·½µLÃö?
½Ð¸Ô¬ÝVBAªº»¡©úPrivate Sub Workshee ...
GBKEE µoªí©ó 2014-10-13 05:45
1.target ¬O«ü§@¥ÎÀx¦s®æ¡AÁÙ¬O¤@¶ô°Ï°ì?
2.Private Sub Worksheet_Calculate()
Private Sub Worksheet_Change(ByVal Target As Range)
¦¹¨âºØ«Å§i¦³¦ó¤£¦P? |
|
|
|
|
|
|
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-15
|
¦^´_ t8899
¥i¦b¤u§@ªí¤W ¿ï¨ú¦h«½d³òµM«á«ö¤U§R°£Áä
¸Õ¸Õ¬ÝPrivate Sub Worksheet_Change()
¨S¦³¹w ...
GBKEE µoªí©ó 2014-10-13 06:59
1.Set rg = Intersect(Target, Range("AL5:AL15"))
For Each cl In rg
2.For Each rg In Range("AL5:AL15")
½Ð±Ð¦¹¨âºØ»yªk¦³¦ó¤£¦P??? |
|
|
|
|
|
|
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-15
|
¦^´_ t8899
GBKEE µoªí©ó 2014-10-13 07:55
ÁÂÁ«ü¾É! |
|
|
|
|
|
|