Question

我必须创建一个表单，以将票证的介绍号和其他详细信息导入工作表中的Excel数据库。我有一些代码，但我不知道为什么目标为空。地点，票证，来源是文本框，rodzaj是选择器，okresod和okres do是日期，godzinaod，godzinado是时间。我从表单发送到列，位置=列A和第一个自由行，以及其他类似内容

我试图编辑一些代码，但是没有用。

Private Sub Wprowadz_Click(ByVal Target As Range)
    Dim xObszar As Range
    Set xObszar = Intersect(Target, Range("A6:U1350"))

    If xObszar Is Nothing Then Exit Sub
    Range("A" & Target.Row).Value = place.Value

    If xObszar Is Nothing Then Exit Sub
    Range("T" & Target.Row).Value = ticket.Value

    If xObszar Is Nothing Then Exit Sub
    Range("O" & Target.Row).Value = source.Value

    If xObszar Is Nothing Then Exit Sub
    Range("K" & Target.Row).Value = rodzaj.Value

    If xObszar Is Nothing Then Exit Sub
    Range("L" & Target.Row).Value = okresod.Value

    If xObszar Is Nothing Then Exit Sub
    Range("M" & Target.Row).Value = okresdo.Value

    If xObszar Is Nothing Then Exit Sub
    Range("Q" & Target.Row).Value = godzinaod.Value

    If xObszar Is Nothing Then Exit Sub
    Range("R" & Target.Row).Value = godzinado.Value

End Sub

选择列和自由行的表格

0 个答案: