XL: ???? ??????? ???? ?? ????????? ???? ?? ??? ?? ??? ?????? ?????

???? ?????? ???? ??????
???? ID: 142154 - ?? ???????? ?? ?????? ??? ?? ?? ???? ???? ???? ??.
??? ?? ??????? ???? | ??? ?? ??????? ????

??????

Microsoft Excel ???, ?? ??????? ??? ???? ?? ?? ???? ?? ????? ??? ?? ???? ????? ????? ??? ???? ??? ??? ??? ???? ???? ??? ?? ?? ?? ???? ??? ???? ?? ?? ???? ?????? ??? ???? ????

???, ???????, ?? ???? ????? ???? ??? ??????? ???????? ??? ?? ??????? ?? Excel ?? ???????? ???? ???

???? ???????

Microsoft ???????????? ?????? ???? ???????? ?? ??? ??? ???? ??, ???? ??? ??? ?? ?????? ?? ?????????? ??? ??? ?????? ???? ?? ????.. ?????? ???????? ?????? ?? ???? ????? ???????? ?? ??? ???????? ????? ??? ?? ???? ?? ????? ???? ???.. ?? ??? ????? ?? ?? ?? ????? ?? ?? ??? ???????????? ???? ?? ?? ??????? ?? ?????? ??? ????? ????? ???????????? ?? ????? ?? ???? ???? ?? ??? ???? ?? ??? ??.. Microsoft ?????? ???????? ?? ????? ????????? ?? ???????????? ?? ?????? ??? ?????? ?? ???? ???, ??, ?? ?? ???????? ?? ???? ??????? ?????????? ?? ?????? ???? ?? ??? ???????? ??????????????? ?? ?????? ?? ???????????? ????? ?? ??? ??????? ???? ??????..?? ???????????? ??? ??? ?????? ????? ????? ???? ?? ?? ?????? ?? ?? ??????? ?????? ??? ?????? (???????? ???? ?? ??? "????? ????" ??? ?? ???????? ?? ??? ???) ??? ???? ???? ??? ??? ??? ?? ??? ?? ????? ?? ???? ???? ??? ??? ??? ???? ???? ??? ?? ?? ???? ?? ??? ???? ?????? ?? ????? ?? ??? ?? ??? ????? ?? ??? ???? ??????ActiveCell?? ????? ???? ??? ?? ???? ???? ?? ??? ????????????????? ????ActiveCell?? ?????? ???? ?? ??? ????? ?????? ???? ??????ActiveCell?? ????? ???? ??? ???ActiveCell?? ??? ????? ?????? ???? ??????, ?? ?????? ??? ?? ???? ????

?? ????? ?????? ?????:
  1. ??? ?? ????????????? ?? ??????
  2. ?? Sheet1 A11 ???? ???, ????? ????? ???? ????:
    =SUM(A1:A10)
  3. ?? ????? B11, C11 ?? D11 ?????? ?? ????????? ??????

    ???? ????? ??????, ??? ?????? ???? A11, B11 ?? C11 ??? ?? ????? ?? ??? ?? ?????? ?? ????????? ??? (??ColorIndex3) ??? 50 ?? ???? ???; ???? ?? ???? ?? ??? ??, ????????? ??? ?? ???? ?? ??????? ?? ?????? ???? A1:A10, B1:B10 ?? C1:C10 ??? ???????????? ?? ??? ???? ?? ?? accomplished ??? ?? ??? ?? ????????? Sheet1, ?? ???? ?? ??? ??? ??? ?? ?? DidKeyCellsChange ?????? ?? ????? ??? ??? ?? ?????? ????????? ????ActiveCell????? (A1:C10) ?????? ?? ?????? ??? ??? ??? ??? ??, KeyCellsChanged ?????? ???? A11:C11 re-evaluate ???? ?? ??? ??? ???? ???

    ????? ?????? ?? ??????????? ???? ?? ??? ?? ??? ?????? "Auto_Open" ?????? ??? ????? ???????? ?? ??? ??? ?? ???? ?? ??? ???? ?????? ?? ????
  4. ?? ?? ??????? ????? ???????? ????? Microsoft ??? ?? 97, Excel????????? ??,???????? ????-????? ????, ?? ???? ???Visual Basic ??????. ?????? ??? ????? ???????????????? ???????????? ???????? ??.. Microsoft Excel ??????? 5.0 ?? 7.0, ??? ????? ???? ?? ?????????????? ???????????? ????????, ?? ???? ??????????.
  5. ??????? ????? ??? ????? ?????? ??? ???? ????:
    Sub auto_open()
    
       ' Run the macro DidCellsChange any time a entry is made in a
       ' cell in Sheet1.
       ThisWorkbook.Worksheets("Sheet1").OnEntry = "DidCellsChange"
    
    End Sub
    
    
    Sub DidCellsChange()
      Dim KeyCells as String
       ' Define which cells should trigger the KeyCellsChanged macro.
       KeyCells = "A1:A10, B1:B10, C1:C10"
    
       ' If the Activecell is one of the key cells, call the
       ' KeyCellsChanged macro.
       If Not Application.Intersect(ActiveCell, Range(KeyCells)) _
       Is Nothing Then KeyCellsChanged
    
    End Sub
    
    Sub KeyCellsChanged()
       Dim Cell as Object
       ' If the values in A11:C11 are greater than 50...
       For Each Cell In Range("A11:C11")
       If Cell > 50 Then
    
       ' Make the background color of the cell the 3rd color on the
       ' current palette.
       Cell.Interior.ColorIndex = 3
    
       Else
       ' Otherwise, set the background to none (default).
       Cell.Interior.ColorIndex = xlNone
    
       End If
       Next Cell
    
    End Sub
  6. ????????????? ?? ??????, ?? ???? ??? ??? ?????
  7. ????????????? ?? ??????

    ???? Auto_Open ?????? ?? ????? ?? ??? ??????
  8. ??? A1, ??? ?????60.

    ???? A11 ???? ?? ??? ??? ??? ????????? ??? ????????? ???? ????? ??????? KeyCells ?????? ??? ???? ???? ?? ????????? ???? ?? A11 ???? ?? ??? became 50 ?? ?????
  9. ???? D1, ??? ?????60

    ?? ??? ???? ???? ??, D11 ?? ??? ?? ??? ??? ?? ?? D11 ??? ??? 50 ?? ???? ??? ???? D1 KeyCells ?????? ??? ???? ?? ??????? ??? ???? ?????

??????

??? Microsoft Excel ??????? 7.0, ?? ??? ???? ???? ??, ???????????? ?? ????? ?? ???? ??? ???? ??????? ?? ??? ????? ???????????????Microsoft Excel ??? ??? ??? ??, ????? ??? ???? ????
?? ???, ????????????
?? ???? ?? ??? ??????? ??? ?? ???-????? ????"?? ???????????? ?? ??? ???? ???? ??"?????

???

???? ID: 142154 - ????? ???????: 29 ??????? 2010 - ??????: 2.0
???? ???? ???? ??:
  • Microsoft Excel 98 for Macintosh
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 5.0 for Macintosh
??????: 
kbdtacode kbhowto kbprogramming kbmt KB142154 KbMthi
???? ?????? ????????
??????????: ?? ???? ?? ???? ??????? ?? ????? ?? Microsoft ????-?????? ?????????? ?????? ?????? ???? ??? ??. Microsoft ???? ??? ????-???????? ?? ????-???????? ????? ?????? ?? ???? ???????? ???? ?? ???? ????? ????? ??? ?? ??? ?????? ?? ???? ???? ???? ??? ????? ??. ???????, ????-???????? ???? ????? ???? ???? ???? ???. ?????, ????????, ?????-???? ?? ??????? ?? ???????? ?? ???? ???, ???? ?? ??? ?????? ???? ???? ??? ????? ??? ?? ???? ??. Microsoft ??????? ??? ???? ?? ?????? ?? ??????????, ????????? ?? ??? ?????? ?? ???? ????? ?? ???? ???????? ?? ??? ???? ????? ?? ??? ????????? ???? ??. Microsoft ????-?????? ?????????? ?? ????? ?????? ?? ?? ??? ??.
?????????? ?? ??????? ????????? ??????? ??:142154
????????? KB ??????? ????????
?? ???? ?? ??? ?????? ?? ??? ???? ??? ?? ????? ??? Microsoft ?? ?????? ?????? ???? ?????. ?????, ?? ???? ?? ????? ??? ???? ?? ?????? ????? ?? ??? ?? ?? ?? ???? ?????? ???? ???? ?????.

??????????? ???

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com