Question

我有一个excel表/用户表单，我出于库存目的。

我的userform的第一个功能是从表单上的文本框中获取连接器和配合的数据，并将其放在我告诉它的行/单元格中的表单上。该代码工作正常。

第二个功能是交叉引用连接器和配合，这样当我搜索或更改部件时，数据我有最新信息。我通过在连接器和配合创建时将行单元地址存储在第1行中来实现此目的。然后当我点击＆＃34;确认＆＃34;使用＆＃34; =＆＃34;将地址复制到自己行中的指定单元格中。添加标志，以创建参考公式。

工作表中的一行用于后面有配合引用的连接器，下一行用于后面带有连接器引用的配对。然后我继续下一行再做一次。

我只能使用一对零件编号，之后没有其他零件编号。我做错了什么？

代码：

    Private Sub XREFCONFIRM1_Click()

    Dim iRow1 As Long
    Dim iRow2 As Long
    Dim ws As Worksheet
    Set ws = Worksheets("1STDRAFT")
    row_number = 4

    iRow1 = ws.Cells.Find(What:=PART1.Text, SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row

    iRow2 = ws.Cells.Find(What:=PART2.Text, SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row

        row_number = row_number + 1

        item_in_review = Sheets("1STDRAFT").Range("A" & row_number).Value

    With ws
       If item_in_review = PART1.Text Then

      .Cells(iRow1, 15).Value = "=" & Sheets("1STDRAFT").Cells(1, 15).Value
      .Cells(iRow1, 16).Value = "=" & Sheets("1STDRAFT").Cells(1, 16).Value
      .Cells(iRow1, 17).Value = "=" & Sheets("1STDRAFT").Cells(1, 17).Value
      .Cells(iRow1, 18).Value = "=" & Sheets("1STDRAFT").Cells(1, 18).Value
      .Cells(iRow1, 19).Value = "=" & Sheets("1STDRAFT").Cells(1, 19).Value
      .Cells(iRow1, 20).Value = "=" & Sheets("1STDRAFT").Cells(1, 20).Value
      .Cells(iRow1, 21).Value = "=" & Sheets("1STDRAFT").Cells(1, 21).Value
      .Cells(iRow1, 22).Value = "=" & Sheets("1STDRAFT").Cells(1, 22).Value
      .Cells(iRow1, 23).Value = "=" & Sheets("1STDRAFT").Cells(1, 23).Value
      .Cells(iRow1, 24).Value = "=" & Sheets("1STDRAFT").Cells(1, 24).Value
      .Cells(iRow1, 25).Value = "=" & Sheets("1STDRAFT").Cells(1, 25).Value

     'With ws
            'If item_in_review = PART2.Text Then
      .Cells(iRow2, 15).Value = "=" & Sheets("1STDRAFT").Cells(1, 1).Value
      .Cells(iRow2, 16).Value = "=" & Sheets("1STDRAFT").Cells(1, 2).Value
      .Cells(iRow2, 17).Value = "=" & Sheets("1STDRAFT").Cells(1, 3).Value
      .Cells(iRow2, 18).Value = "=" & Sheets("1STDRAFT").Cells(1, 5).Value
      .Cells(iRow2, 19).Value = "=" & Sheets("1STDRAFT").Cells(1, 8).Value
      .Cells(iRow2, 20).Value = "=" & Sheets("1STDRAFT").Cells(1, 9).Value
      .Cells(iRow2, 21).Value = "=" & Sheets("1STDRAFT").Cells(1, 10).Value
      .Cells(iRow2, 22).Value = "=" & Sheets("1STDRAFT").Cells(1, 11).Value
      .Cells(iRow2, 23).Value = "=" & Sheets("1STDRAFT").Cells(1, 12).Value
      .Cells(iRow2, 24).Value = "=" & Sheets("1STDRAFT").Cells(1, 13).Value
      .Cells(iRow2, 25).Value = "=" & Sheets("1STDRAFT").Cells(1, 14).Value

            End If
        End With


    End Sub

云端硬盘文件夹链接：https://drive.google.com/drive/folders/0Bz4rZ9ZqoU0tbkdaQjBBZVgyRTA?usp=sharing

文件直接链接：https://drive.google.com/file/d/0Bz4rZ9ZqoU0tVmJKa0xlUXBNcGc/view?usp=sharing

照片链接：https://docs.google.com/spreadsheets/d/1Tzi_2gaaXypBen2Ls7p21USat8uS_qhcRDwmGQLCcXE/edit?usp=sharing

Answer 1

现在，对于想要了解的人来说，这就是我的代码的外观。我将更新我提供的一些链接，以帮助任何想要使用我的表格的人。

   Private Sub XREFCONFIRM1_Click()

    Dim iRow1 As Long
    Dim iRow2 As Long
    Dim ws As Worksheet
    Set ws = Worksheets("1STDRAFT")
    row_number = 4

    iRow1 = ws.Cells.Find(What:=PART1.Text, SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row

    iRow2 = ws.Cells.Find(What:=PART2.Text, SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row

    Do  
    row_number = row_number + 1

        item_in_review = Sheets("1STDRAFT").Range("A" & row_number).Value

    With ws
       If item_in_review = PART1.Text Then

      .Cells(iRow1, 15).Value = "=" & Sheets("1STDRAFT").Cells(1, 15).Value
      .Cells(iRow1, 16).Value = "=" & Sheets("1STDRAFT").Cells(1, 16).Value
      .Cells(iRow1, 17).Value = "=" & Sheets("1STDRAFT").Cells(1, 17).Value
      .Cells(iRow1, 18).Value = "=" & Sheets("1STDRAFT").Cells(1, 18).Value
      .Cells(iRow1, 19).Value = "=" & Sheets("1STDRAFT").Cells(1, 19).Value
      .Cells(iRow1, 20).Value = "=" & Sheets("1STDRAFT").Cells(1, 20).Value
      .Cells(iRow1, 21).Value = "=" & Sheets("1STDRAFT").Cells(1, 21).Value
      .Cells(iRow1, 22).Value = "=" & Sheets("1STDRAFT").Cells(1, 22).Value
      .Cells(iRow1, 23).Value = "=" & Sheets("1STDRAFT").Cells(1, 23).Value
      .Cells(iRow1, 24).Value = "=" & Sheets("1STDRAFT").Cells(1, 24).Value
      .Cells(iRow1, 25).Value = "=" & Sheets("1STDRAFT").Cells(1, 25).Value

     'With ws
            'If item_in_review = PART2.Text Then
      .Cells(iRow2, 15).Value = "=" & Sheets("1STDRAFT").Cells(1, 1).Value
      .Cells(iRow2, 16).Value = "=" & Sheets("1STDRAFT").Cells(1, 2).Value
      .Cells(iRow2, 17).Value = "=" & Sheets("1STDRAFT").Cells(1, 3).Value
      .Cells(iRow2, 18).Value = "=" & Sheets("1STDRAFT").Cells(1, 5).Value
      .Cells(iRow2, 19).Value = "=" & Sheets("1STDRAFT").Cells(1, 8).Value
      .Cells(iRow2, 20).Value = "=" & Sheets("1STDRAFT").Cells(1, 9).Value
      .Cells(iRow2, 21).Value = "=" & Sheets("1STDRAFT").Cells(1, 10).Value
      .Cells(iRow2, 22).Value = "=" & Sheets("1STDRAFT").Cells(1, 11).Value
      .Cells(iRow2, 23).Value = "=" & Sheets("1STDRAFT").Cells(1, 12).Value
      .Cells(iRow2, 24).Value = "=" & Sheets("1STDRAFT").Cells(1, 13).Value
      .Cells(iRow2, 25).Value = "=" & Sheets("1STDRAFT").Cells(1, 14).Value

            End If
        End With
          Loop Until item_in_review = ""

    End Sub

VBA Userform单页链接库存条目

1 个答案: