我正在尝试创建一个表单,让用户可以在平板电脑上轻松地将数据输入到 Excel 中。
如您所见,数据正在从 txt 字段复制到特定单元格(标记为黄色)。
我如何格式化此目标单元格的查询以使其依赖于当前日期(或选择的数据)以及从“开始表单”中选择的回合?
表格是为了填写下面的电子表格。
任何帮助,将不胜感激。
更新:txt 框的当前代码:
Private Sub TextBox1_Change()
Dim ws As Worksheet
Dim iRow As Integer
Dim iCol As Integer
Dim sDate As String
Dim oRange As Range
Set ws = Worksheets.Item("Sheet1")
Set sDate = Format(Now(), "dd/mm/yyyy")
Set oRange = Nothing
Set oRange = ws.Range("A:A").Find(sDate, xlValues)
If Not (oRange Is Nothing) Then
iRow = oRange.Row
ws.Cells(iRow, iCol) = txtBox.Value
End If
End Sub
但是它编译时出现错误@sDate ObjectRequired,但包括今天在内的日期却在 A:A 行中。
代码需要在 AA 列(绿色)中查找今天的日期,然后考虑位置 1-8(蓝色)-从表格中循环,然后将日期输入到绿色单元格中。