我在编写宏以将数据插入多个备用股票卡之一时遇到了问题。

Question

​

​

我正在开发一套备件库存控制卡(68张个人卡)，在“B”栏中输入销售数量，并在“C”栏中输入销售日期。数量和日期将从单元格“P1”中提取，“Q1”表示数量，“Q1”表示日期。

为输入而选择的备用卡来自单元格“R7”，该单元格给出项目编号(即输入的卡片号)

下面的现有宏选择在“R7”范围内编号的正确的股票卡，并将光标放在“B”列的第一个条目行上。

我现在想在下一个空单元格中输入销售量和日期。

然而，无论我如何尝试，我都不能让光标移动到Worksheets("Nail Cards").Range("C2:C4012").Find(Range("R7").Value).Offset(8, -1).Select之外。

宏的最后一部分是我认为会将数据输入到适当的单元格中，但似乎没有激活。

    Lrow = Worksheets("Nail Cards").Range("B" & Rows.Count).End(xlUp).Row + 1
    Worksheets("Nail Cards").Range("B" & Lrow & ":C" & Lrow) = Worksheets("Nail Cards").Range("P1:Q1").Value
End Sub

附件是一张零配件库存控制卡的写照，以给出更清晰的画面。

我很抱歉，但我是VBA宏的新手，需要一些帮助。

Answer 1

我认为这可能和你想要做的事情很接近：

Sub Tester()

    Dim ws As Worksheet, c As Range, itmNum
    
    Set ws = ThisWorkbook.Worksheets("Nail Cards")
    
    itmNum = ws.Range("R7").Value
    Set c = ws.Range("C2:C4012").Find(itmNum)
    If Not c Is Nothing Then
        'I use 50 here but use actual # of data entry rows per card
        Set c = c.Offset(8, -1).Resize(50).Find("", searchdirection:=xlNext)
        If Not c Is Nothing Then
            c.Resize(1, 2).Value = ws.Range("P1:Q1").Value
        Else
            'no empty slot
            MsgBox "Card #" & ws.Range("R7").Value & "  is full!", vbExclamation
        End If
    Else
        'card was not found
        MsgBox "Card #" & ws.Range("R7").Value & "  not found!", vbExclamation
    End If
End Sub