VBA窗体格式

天真无鞋

窗体输入数据录入从第五行开始怎么改代码。





Dim r As Long

    r = Sheets("Sheet3").Range("a" & Rows.Count).End(xlUp).Row + 1


    If r = 5 Then


        Sheets("Sheet3").Range("a" & r).Value = 1


    Else


    Sheets("Sheet3").Range("a" & r).Value = Sheets("Sheet3").Range("a" & r - 1).Value + 1

    End If

    Sheets("Sheet3").Range("b" & r).Value = TextBox产品型号.Text

    Sheets("Sheet3").Range("c" & r).Value = TextBox订单周期.Text

    Sheets("Sheet3").Range("d" & r).Value = TextBox5.Text

    Sheets("Sheet3").Range("e" & r).Value = TextBox6.Text
   
    Sheets("Sheet3").Range("f" & r).Value = 二维码.Text
   
    Sheets("Sheet3").Range("g" & r).Value = TextBox4.Text

    ThisWorkbook.Save
   

End Sub

shiruiqiang

    r = Sheets("Sheet3").Range("a" & Rows.Count).End(xlUp).Row + 1
    If r < 5 Then
    r=5
    Elseif
    Sheets("Sheet3").Range("a1" ) = "" then
    r=5
    End If


试试

不规则结构

shiruiqiang 发表于 2024-1-26 21:14
r = Sheets("Sheet3").Range("a" & Rows.Count).End(xlUp).Row + 1
    If r < 5 Then
    r=5

明显是白嫖的代码，又想来这里白嫖。会窗体的人怎么会提这种问题呢

demonimissyou

不规则结构 发表于 2024-1-27 14:50
明显是白嫖的代码，又想来这里白嫖。会窗体的人怎么会提这种问题呢

很难不赞同

micch

这和窗体格式有啥关系。              r=获取最大行:执行输出到r+1行代码，比如 cells(r+1,?)=某个控件的值