excel怎样查看工作表代码-excel怎么查看代码,excel没有查看代码选项

If KeyCode = 13 (当按下e69da5e887aae799bee5baa6e79fa5e98193335Enter键时,Enter的键值为13)
主要意思是,如果combobox1中只有一个项目,当按下enter时,combobox1就会显示仅有的这个项目,接着判断combobox1中的值是不是下拉列表中的值,如果是,按下enter时,把当前的值写到鼠标选中的那个单元格中.
比如下拉列表中有AA,BB,CC三个值,如果这时输入的是FF,不属于AA,BB,CC其中的一个,那么这时,ComboBox1.ListIndex这时就等于-1了,就不会把FF写到单元格,如果输入的值为BB,属于AA,BB,CC其中的一个,这时,ComboBox1.ListIndex这时就等于1了(选AA时为0,BB为1,CC为2),这就是倒数第五句代码的意思...自己多试试,慢慢就明白了.


Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   '如果combobox1中只有一个项目,当按下enter时,combobox1就会显示仅有的这个项目.
    If ComboBox1.ListCount = 1 Then ComboBox1.ListIndex = 0
    '当combobox1中的值为combobox1中list中的值时,则当按下enter时,把当前的值写到鼠标选中的那个单元格中.
    If ComboBox1.ListIndex <> -1 Then ActiveCell = ComboBox1.Value
   'ComboBox1.Visible = False
    ActiveCell.Select
End If
End Sub

右键单击工作表名称，选择“查看代码”。
cells.clearcontentsp

Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextIf
Target.Row < 5 Then Exit SubIf Target.Column <> 7 Then Exit SubIf
Target.Value =

"本月合计" Thenm = Target.Row - 1i = Range("C" & m +
1).End(xlUp).RowRange("H" & m + 1) = Evaluate("SUMPRODUCT(($B$6:$B" & i
& "=$B" & i & ")*H$6:H" & i & ")")Range("J" & m + 1) =
Evaluate("SUMPRODUCT(($B$6:$B" & i & "=$B" & i & ")*J$6:J" &
i & ")")ElseIf Target.Value =

"本年累计e799bee5baa6e59b9ee7ad94361" Thenn = Target.Row - 2Range("H" & n + 2) =
Evaluate("SUMPRODUCT(($B$6:$B" & n & ">0)*H$6:H" & n &
")")Range("J" & n + 2) = Evaluate("SUMPRODUCT(($B$6:$B" & n &
">0)*J$6:J" & n & ")")End IfEnd Sub