如何解决如何将LastRow传递给函数
我试图在A列中找到最后一行,在A列和B列的组合框中选择添加几个值,然后调用一个弹出日历(由Trevor Eyre撰写的on),并将选择的日期写入其中E列。使用我在下面发布的代码,所有内容都可以使用,但是在输入日期之前,我必须选择并单击日期3次。我如何修改代码,所以请单击一下?有人能指出我正确的方向吗?谢谢。
Dim ws As Worksheet
Set ws = Sheet1
Dim LastRow As Long,i As Long
LastRow = Sheets("PM Schedule").Cells(Rows.Count,1).End(xlUp).row
For i = LastRow To 1 Step -1
If Sheets("PM Schedule").Cells(i,1) <> " " Then
LastRow = i + 1
Exit For
End If
Next
ASSETS_ID_NUMBER_INPUT_BOX_2.value = UCase(ASSETS_ID_NUMBER_INPUT_BOX_2.value)
ASSETS_ALL_MAINT_TASKS_LIST.value = UCase(ASSETS_ALL_MAINT_TASKS_LIST.value)
Sheet1.Cells(LastRow,1).value = ASSETS_ID_NUMBER_INPUT_BOX_2.value
Sheet1.Cells(LastRow,2).value = ASSETS_ALL_MAINT_TASKS_LIST.value
Dim dateVariable As Date
dateVariable = CalendarForm.GetDate
CalendarForm.GetDate
MyDate = CalendarForm.GetDate
If MyDate > 0 Then
Sheet1.Cells(LastRow,5).value = MyDate
End If
End Sub
解决方法
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。