用VBA插入一行， 先谢了！！

song22602

插入一行.rar (8.39 KB, 下载次数: 8)

2014-5-29 08:00 上传

点击文件名下载附件

根据单元格[D1]值判别在[B]列中所在位置，并插入一行，用VBA，谢谢

ctp_119

这类问题，建议先录制一个宏，再加一个条件即可。

office8424

Sub aa()
n = 1
Do
n = n + 1
Loop Until Cells(n, 2).Value >= Cells(1, 4).Value
Rows(n & ":" & n).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(n, 2) = Cells(1, 4).Value
For i = 2 To [a65536].End(3).Row
Cells(i, 1) = i - 1
Next i
End Sub

song22602

office8424 发表于 2014-5-29 08:47
Sub aa()
n = 1
Do

先谢谢了，还有一个问题请指教！！
在窗体中插入一行，如何判别，红字体部分发，如何修改？

Private Sub 确定_Click()  '确定登录
   Dim pp&, i&, mm
  If Me.Controls("TextBox1").Text <> "" Then   
For i = 6 To 360
             If Sheet3.Cells(i, 2) < TextBox1 Then
           Sheet3.Cells(1, 15) = i
           pp = i
           i = 361
       End If
   Next
   pp = 8
       Sheet3.Activate
       Rows(pp).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        Sheet3.Cells(pp, 2) = Me.Controls("TextBox1").Text
        Sheet3.Cells(pp, 18) = TextBox4
        Sheet3.Cells(pp, 14) = Me.Controls("TextBox2").Text
        Sheet3.Cells(pp, 5) = TextBox3

End If
End Sub

office8424

song22602 发表于 2014-5-29 09:04
先谢谢了，还有一个问题请指教！！
在窗体中插入一行，如何判别，红字体部分发，如何修改？

...抱歉窗体还真不会用...........

song22602

ctp_119 发表于 2014-5-29 08:09
这类问题，建议先录制一个宏，再加一个条件即可。

先谢谢了，还有一个问题请指教！！
在窗体中插入一行，如何判别，红字体部分发，如何修改？

Private Sub 确定_Click()  '确定登录
   Dim pp&, i&, mm
  If Me.Controls("TextBox1").Text <> "" Then   
For i = 6 To 360
             If Sheet3.Cells(i, 2) < TextBox1 Then
           Sheet3.Cells(1, 15) = i
           pp = i
           i = 361
       End If
   Next
   pp = 8
       Sheet3.Activate
       Rows(pp).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        Sheet3.Cells(pp, 2) = Me.Controls("TextBox1").Text
        Sheet3.Cells(pp, 18) = TextBox4
        Sheet3.Cells(pp, 14) = Me.Controls("TextBox2").Text
        Sheet3.Cells(pp, 5) = TextBox3

End If
End Sub