如何在输入数据之前从一组库存卡片中选择一张卡片？答案

【问题标题】：How to select a card in a set of stock cards before entering data?如何在输入数据之前从一组库存卡片中选择一张卡片？
【发布时间】：2022-01-13 15:40:27
【问题描述】：

我从 Get Digital Help 下载了一个宏：

Sub AddText()
Dim Lrow As Single

Lrow = Worksheets ("Sheet 1").Range("B" & Rows.Count).End(xlUp).Row+1
Worksheets("Sheet 1").Range("B & Lrow & ":C" & Lrow)=Worksheets("Sheet 1").Range("B3:C3").Value

这适用于单张卡。但是我有很多卡片，需要在使用上述宏之前选择合适的卡片。

以下信息可以说明情况。
我正在研究一组库存控制卡（68 张单独的卡），其中输入列“B”表示销售数量，输入列“C”表示销售日期。
数量和日期将从单元格“P1”中选择数量，“Q1”中选择日期。
要为输入选择的股票卡来自单元格“R7”。此单元格提供项目编号（即进行条目的卡号）。
下面的现有宏选择在“R7”范围内编号的正确股票卡，并将光标放在“B”列的第一个条目行上。
我现在需要在下一个空行中输入销售数量和日期。
我无法让光标移动

Worksheets("Nail Cards").Range("C2:C4012").Find(Range("R7").Value.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

【问题讨论】：

你明白这段代码在做什么吗？
Worksheets("Sheet 1").Cells(Lrow, "B").Resize(1, 2).Value = Worksheets("Sheet 1").Range("B3:C3").Value 除此之外，如果您需要帮助，您需要向我们提供有关代码需要做什么的更多信息。例如，我们不知道您所说的“卡片”是什么意思。

标签： excel vba

【解决方案1】：

使用

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

将在名为“Nail Cards”的工作表上的 P1:Q1 范围内插入数据到 B 列和 C 列中的下一个空单元格

【讨论】：

感谢您提供的信息，它是正确的，但是问题在于宏的早期部分
谢谢。给定的宏将不起作用，因为它似乎阻止了选择卡片范围的宏的早期部分，即 Worksheets("Nail Cards").Range("C2:c4012").Find(Range("R7 ").Value).Offset(8,-).Select 这似乎阻止了宏的其余部分运行。我相信这就是问题所在。