求助高手：给设计2个入库 、出库录入窗口

foxpride

求助高手：给设计2个入库 、出库录入窗口

3190496160

Private Sub CommandButton1_Click()
For i = 1 To 5
    If Controls("textbox" & i).Text = "" Then
        Y = Y + 1
    End If
Next i
If Y > 0 Then MsgBox "请把数据录入完整！": Exit Sub
With Sheets("片碱入库单录入")
     r = .Cells(Rows.Count, 2).End(xlUp).Row + 1
     For j = 1 To 5
        .Cells(r, j + 1) = Controls("textbox" & j).Text
        Controls("textbox" & j).Text = ""
    Next j
End With
MsgBox "ok!"
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
frmRiQi.Show 1
End Sub

3190496160

3190496160

book（模版）.rar (247.27 KB, 下载次数: 26)

2023-4-26 15:49 上传

点击文件名下载附件

3190496160

只写了入库的代码，
在窗体的第一个文本框中双击出现日历，选择日期自动录入
出库的项目太多，单是设计窗体就得花不少时间和精力的，设计好窗体可以考虑写代码

foxpride

谢谢 问题解决