数据录入问题，如图

深秋红叶2019

问题如图片所示

liulang0808

楼主这个如图所示，是要做什么的？
不能让别人猜吧？

深秋红叶2019

liulang0808 发表于 2020-2-2 08:30
楼主这个如图所示，是要做什么的？
不能让别人猜吧？

老师，是这样的，现在遇到了一个新问题，就是我在一个工作表中有两个命令按钮，这两个按钮对不同列数输入数据，现在的问题是第一个命令输入数据后然后用第二个命令数据数据，这时会接着行号录入数据，不知道咋回事，我在附件给您，麻烦老师改改，还有就是弹出窗体后，当前工作表激活不了问题，工作表学员信息建档和报名登记

YZC51

请参考
                myr = .[I65536].End(xlUp).Row + 1
                Arrsj = .Range("I5:K" & myr)   '读取货品资料表的A2到H以下内容
修改为
                myr1 = .[I65536].End(xlUp).Row + 1
                Arrsj = .Range("I5:K" & myr1)   '读取货品资料表的A2到H以下内容

深秋红叶2019

liulang0808 发表于 2020-2-2 08:30
楼主这个如图所示，是要做什么的？
不能让别人猜吧？

老师，超过一年是，剩余天数那里计算结果显示为“已过期*天”呢，这段代码怎么改，谢谢老师
Private Sub Worksheet_Change(ByVal t As Range)
    If t.Count > 1 Then Exit Sub
    If t.Column = 13 And t.Row > 6 Then
        If VBA.IsDate(t) Then
            y = Year(t)
            m = Month(t)
            d = Day(t)
            Application.EnableEvents = False
            t.Offset(0, 1) = CDate(y + 1 & "-" & m & "-" & d)
            t.Offset(0, 2) = t.Offset(0, 1) - Date
            Application.EnableEvents = True
    End If
If Len(t) = 0 Then
Application.EnableEvents = False
            t.Offset(0, 1) = ""
            t.Offset(0, 2) = ""
            Application.EnableEvents = True
        End If
    End If
If t.Row > 6 And t.Column = 2 Then
    If t.Value = "" Then Rows(t.Row).Delete: Exit Sub
    Set rng = Sheets("学员信息建档").Columns(1).Find(t.Value, , , 1)
    If rng Is Nothing Then MsgBox "学员信息建档中没有该电话！": Exit Sub
    r = rng.Row
    For j = 2 To 8
        t.Offset(, j - 1) = Sheets("学员信息建档").Cells(r, j)
    Next j
    t.Offset(, -1) = Now()
End If
End Sub

YZC51

或者

Option Explicit
Private Sub CommandButton1_Click()
Dim xrow As Long                     '定义变量xrow，用来保存要输入数据的工作表行号
With Sheet7
     xrow = .[I65536].End(xlUp).Row + 1
     .Cells(xrow, "I") = 饮料名称.Value
     .Cells(xrow, "J") = 单位.Value
     .Cells(xrow, "K") = 单价.Value
     '将窗体中输入的数据清除，等待下次输入
     饮料名称.Value = ""
     单位.Value = ""
     单价.Value = ""
'    .[I4] = 饮料名称.Text
'    .[J4] = 单位.Text
'    .[K4] = 单价.Text
     ThisWorkbook.Save
End With
End Sub
Private Sub CommandButton2_Click()
    Unload Me      '卸载代码所在的窗体
End Sub

YZC51

深秋红叶2019 发表于 2020-2-2 08:55
老师，超过一年是，剩余天数那里计算结果显示为“已过期*天”呢，这段代码怎么改，谢谢老师:han ...

            t.Offset(0, 2) = Format(t.Offset(0, 1) - Date, "0天;已过期0天;今天到期")

YZC51

深秋红叶2019 发表于 2020-2-2 08:51
老师，是这样的，现在遇到了一个新问题，就是我在一个工作表中有两个命令按钮，这两个按钮对不同列数输入 ...

Sub ShowForm()
    UserForm2.Show 0     '显示"InputForm"窗体
End Sub

Sub ShowForm()
    UserForm3.Show 0     '显示"InputForm"窗体
End Sub