如何在資料最后一行下方的一行中注冊訂單？-有解無憂

如圖所示，我有一個表格，我需要在右側以匯總表格的形式提出請求。我目前有以下代碼。如何在資料最后一行下方的一行中注冊訂單？

我想單擊圖示，請求出現在第一行的 N 列中，沒有資料。因為如果訂單只針對 1 個水，訂單當前會出現在第 2 行（因為我已經定義了它，我不想要它）

Sub menu()

Range("N6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[13]C[-12]"
Range("Q6").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(Meal_register!RC[-3],Prices_Table!R[-2]C[-14]:R[6]C[-13],2,0)"
Range("Q7").Select
End Sub

Sub water()

Range("N7:O7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[12]C[-9]"
Range("Q7").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-3],Prices_Table!R[-3]C[-14]:R[5]C[-13],2,0)"
Range("Q8").Select
End Sub

uj5u.com熱心網友回復：

在您的幫助下，我設法找到了一個超級簡單的代碼：

Sub menu()
linha = Range("N20").End(xlUp).row   1
Cells(linha, 14) = ("Menu")
 
End Sub

Sub water()
linha = Range("N20").End(xlUp).row   1
Cells(linha, 14) = ("Water")
End Sub

在每個圖示的值中，我選擇手動使用 vlookup。謝謝你的幫助！！

uj5u.com熱心網友回復：

您可以使用輔助變數來了解串列中最后一項所在的行。

Dim aux As Integer
aux = Range("N5").End(xlDown).Row

有了這個，您可以使用單元格（aux 1，“您需要的列”）之類的東西并撰寫下一項。

＃完全的

Sub menu()
aux = Range("N5").End(xlDown).Row
cells(aux 1,14)="Menu"
cells(aux 1,17).select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(Meal_register!RC[-3],Prices_Table!R[-2]C[-14]:R[6]C[-13],2,0)"
End Sub


Sub water()

aux = Range("N5").End(xlDown).Row    
cells(aux 1,14)="Water"    
cells(aux 1,17).select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-3],Prices_Table!R[-3]C[-14]:R[5]C[-13],2,0)"
End Sub

vlookup 函式可能會存在錯誤。嘗試使用 worksheetfunction 使一些更通用的東西。閱讀以下鏈接： https ://www.exceltrick.com/formulas_macros/vlookup-in-vba/

uj5u.com熱心網友回復：

似乎在“水”子程式中，您想在 N5 之后獲取第一個空單元格來放置水的條目。對于可以訂購的其他物品，您會想要類似的東西。如果是這樣，這就是我推薦的。通常，我們會從作業表底部向上搜索以找到最后一行資料，然后偏移一個以獲取第一個空單元格。但是，您的“總”行阻止了這種方法。所以改為這樣做。

在 N4 中放置一個空格字符。實際上，任何文字都可以，但空格不會改變漂亮紙張的視覺吸引力。

更改子水如下：

 Sub water()
     Dim row As Integer
     row = Range("n4").End(xlDown).row   1
     Range("N" & row & ":O" & row).Select
     Application.CutCopyMode = False
     ActiveCell.FormulaR1C1 = "=R[12]C[-9]"
     Range("Q" & row).Select
     ActiveCell.FormulaR1C1 = _
         "=VLOOKUP(RC[-3],Prices_Table!R[-3]C[-14]:R[5]C[-13],2,0)"
     Range("Q" & (row   1)).Select
 End Sub

轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/447203.html

標籤：擅长 vba excel-2010

上一篇：如何將輸出、MsgBox結果放在新列上

下一篇：Excel計數/唯一動態陣列