爱问知识人 爱问教育 医院库

Excel中怎么实现A1中输入5 ,A8开始自动插入5行

首页

Excel中怎么实现A1中输入5 ,A8开始自动插入5行

在Excel表中,我需要在车数单元格中输入5,代表5车货物,然后在下面指定的单元格中插入5行。实现A1中输入5 ,A8开始自动插入5行

提交回答

全部答案

    2018-03-30 09:34:23

  • Private Sub worksheet_change(ByVal target As Range)
      Application.EnableEvents = False
      rm = Cells(1, 1)
      If rm > 0 Then
        Rows("8:" & 7   rm).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      End If
      Application.EnableEvents = True
    End Sub

    玉***

    2018-03-30 09:34:23

  • 2018-03-30 05:34:23
  •   If rm > 0 Then应该改为
    If rm  = 5 Then
    或改为
    If Target = 5 Then    把 rm = Cells(1, 1)也去掉
    如果当实现A1中输入3,A8开始自动插入3行,就使用If Target >0 Then 。
      
    Private Sub worksheet_change(ByVal Target As Range)
    Application。EnableEvents = False
    If Target。
      value > 0 and Target。row=1 and Target。column=1 Then
    Rows("8:" & 7 rm)。Select
    Selection。Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
    Application。
      EnableEvents = True
    End Sub
    Rows("8:" & 7 rm)。Select也改为Rows("8:" & 7 Target)。Select。

    原***

    2018-03-30 05:34:23

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):