窗体学习

蓝调5301438

今天从网上看到个关于VBA窗体制作的视频，我照着也做了一些，下面是代码，附件是我自己做的。拿来分享给大家。呵呵

Private Sub CommandButton1_Click()
Dim 单号重复 As String
Dim 目标行数 As Integer
目标行数 = Sheets("清单").Range("E1").Value + 1
单号重复 = Txt_计量单位
If Application.WorksheetFunction.CountIf(Sheets("数据").Range("B列"), 单号重复) > 1 Then
MsgBox "此单号已存在", 0, "错误信息"
Exit Sub
End If
Sheets("数据").Range("A6").Offset(目标行数, 1) = Txt_计量单位
Sheets("数据").Range("A6").Offset(目标行数, 0) = 目标行数
Sheets("数据").Range("A6").Offset(目标行数, 2) = Combo_品名
Sheets("数据").Range("A6").Offset(目标行数, 3) = Combo_收货单位
Sheets("数据").Range("A6").Offset(目标行数, 4) = Combo_运输方式
Sheets("数据").Range("A6").Offset(目标行数, 5) = Txt_车船号
Sheets("数据").Range("A6").Offset(目标行数, 6) = Txt_重量
Sheets("数据").Range("A6").Offset(目标行数, 7) = Txt_单价
Sheets("数据").Range("A6").Offset(目标行数, 8) = Val(Txt_重量) * Val(Txt_单价)
Sheets("数据").Range("A6").Offset(目标行数, 9) = Txt_到站

If Option_未到货 = flase Then
Sheets("数据").Range("A6").Offset(目标行数, 10) = "未到货"
Else
Sheets("数据").Range("A6").Offset(目标行数, 10) = "未到货"
End If
MsgBox "输入完成", 0, "信息"
Unload 用户窗体输入框架
End Sub
Private Sub CommandButton2_Click()
Unload 用户窗体输入框架
End Sub

蓝调5301438

怎么传不了附件呢？

蓝调5301438

蓝调5301438 发表于 2020-3-10 18:06
怎么传不了附件呢？

窗体学习实例

蓝调5301438

链接：https://pan.baidu.com/s/1wLF-XvYrdU1yMOGAE-hWKA
提取码：2bmh
窗体学习实例