将用户表单值添加到多列
嘿，这个人是一个复杂的。 我已经创build了一个用户表单，将用户的值添加到某个列（这是当前代码）。 但是，而不是只是将其添加到该列我希望它将其添加到后续的列。 例如，如果我要select当前+1和值= 500，我希望该值将其添加到列N和随后的“O”，“P”“Q”。 我认为将其添加到案例中会很容易，但并不那么容易
Case "Current Month +1" iCol = "N" and "O" and "P" and "Q" Case "Current Month +2" iCol = "O" and "P" and "Q" ****这不是那么容易
Private Sub cmdAdd_Click() If TrialVersion Then Exit Sub Dim irow As Long Dim lastRow As Long Dim iCol As String Dim c As Range Dim ws As Worksheet Dim value As Long Dim NewPart As Boolean Dim ws_warehouse(7) As Worksheet '7 is total warehouse tab you have Set ws = Worksheets("Main") Set ws_warehouse(1) = Worksheets("Elkhart East") Set ws_warehouse(2) = Worksheets("Tennessee") Set ws_warehouse(3) = Worksheets("Alabama") Set ws_warehouse(4) = Worksheets("North Carolina") Set ws_warehouse(5) = Worksheets("Pennsylvania") Set ws_warehouse(6) = Worksheets("Texas") Set ws_warehouse(7) = Worksheets("West Coast") Set c = ws.Range("A7:A1048576").Find(What:=Me.PartTextBox.value, SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole) If c Is Nothing Then 'find first empty row in database lastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count irow = lastRow + 1 NewPart = True Else 'find row where the part is irow = ws.Cells.Find(What:=Me.PartTextBox.value, SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row NewPart = False End If 'check for a part number If Trim(Me.PartTextBox.value) = "" Then Me.PartTextBox.SetFocus MsgBox "Please Enter A Part Number" Exit Sub End If If Trim(Me.MonthComboBox.value) = "" Then Me.MonthComboBox.SetFocus MsgBox "Please Enter A Month" Exit Sub End If If Trim(Me.AddTextBox.value) = "" Then Me.AddTextBox.SetFocus MsgBox "Please Enter A Value To Add Or Substract" Exit Sub End If Select Case MonthComboBox.value Case "Current Month" iCol = "C" Case "Current Month +1" iCol = "N" Case "Current Month +2" iCol = "O" Case "Current Month +3" iCol = "P" Case "Current Month +4" iCol = "Q" End Select actWarehouse = Me.warehousecombobox.ListIndex + 1 With ws .Cells(irow, "A").value = Me.PartTextBox.value .Cells(irow, iCol).value = .Cells(irow, iCol).value + CLng(Me.AddTextBox.value) End With With ws_warehouse(actWarehouse) 'find part number l_row = .Range("A" & .Rows.Count).End(xlUp).Row NewPart = True For r = 7 To l_row If Trim(.Range("A" & r)) = "" Then Exit For If LCase(.Range("A" & r)) = LCase(Me.PartTextBox.Text) Then irow = r Exit For NewPart = False End If Next r If NewPart Then irow = r .Cells(irow, "A").value = Me.PartTextBox.value .Cells(irow, iCol).value = .Cells(irow, iCol).value + CLng(Me.AddTextBox.value) End With 'clear the data Me.PartTextBox.value = "" Me.MonthComboBox.value = "" Me.AddTextBox.value = "" Me.PartTextBox.SetFocus Me.warehousecombobox.value = "" End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub UserForm_Initialize() 'Empty NameTextBox PartTextBox.value = "" 'Empty PhoneTextBox AddTextBox.value = "" 'Empty DinnerComboBox 'Fill DinnerComboBox With MonthComboBox .AddItem "Current Month" .AddItem "Current Month +1" .AddItem "Current Month +2" .AddItem "Current Month +3" .AddItem "Current Month +4" End With With warehousecombobox .AddItem "Elkhart East" .AddItem "Tennessee" .AddItem "Alabama" .AddItem "North Carolina" .AddItem "Pennsylvania" .AddItem "Texas" .AddItem "West Coast" End With End Sub
编辑包括所有的源代码：
Private Sub cmdAdd_Click() If TrialVersion Then Exit Sub Dim irow As Long Dim lastRow As Long Dim iCol As String Dim c As Range Dim ws As Worksheet Dim value As Long Dim NewPart As Boolean Dim ws_warehouse(7) As Worksheet '7 is total warehouse tab you have Dim nExtend As Integer Dim cel As Range Set ws = Worksheets("Main") Set ws_warehouse(1) = Worksheets("Elkhart East") Set ws_warehouse(2) = Worksheets("Tennessee") Set ws_warehouse(3) = Worksheets("Alabama") Set ws_warehouse(4) = Worksheets("North Carolina") Set ws_warehouse(5) = Worksheets("Pennsylvania") Set ws_warehouse(6) = Worksheets("Texas") Set ws_warehouse(7) = Worksheets("West Coast") Set c = ws.Range("A7:A1048576").Find(What:=Me.PartTextBox.value, SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole) If c Is Nothing Then 'find first empty row in database lastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count irow = lastRow + 1 NewPart = True Else 'find row where the part is irow = ws.Cells.Find(What:=Me.PartTextBox.value, SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row NewPart = False End If 'check for a part number If Trim(Me.PartTextBox.value) = "" Then Me.PartTextBox.SetFocus MsgBox "Please Enter A Part Number" Exit Sub End If If Trim(Me.MonthComboBox.value) = "" Then Me.MonthComboBox.SetFocus MsgBox "Please Enter A Month" Exit Sub End If If Trim(Me.AddTextbox.value) = "" Then Me.AddTextbox.SetFocus MsgBox "Please Enter A Value To Add Or Substract" Exit Sub End If nExtend = 1 'Set this as a default. Select Case MonthComboBox.value Case "Current Month" iCol = "C" Case "Current Month +1" iCol = "N" nExtend = 4 Case "Current Month +2" iCol = "O" nExtend = 3 Case "Current Month +3" iCol = "P" nExtend = 2 Case "Current Month +4" iCol = "Q" End Select actWarehouse = Me.warehousecombobox.ListIndex + 1 With ws .Cells(irow, "A").value = Me.PartTextBox.value For Each cel In .Cells(irow, iCol).Resize(, nExtend) cel.value = cel.value + CLng(Me.AddTextbox.value) Next cel End With With ws_warehouse(actWarehouse) 'find part number l_row = .Range("A" & .Rows.Count).End(xlUp).Row NewPart = True For r = 7 To l_row If Trim(.Range("A" & r)) = "" Then Exit For If LCase(.Range("A" & r)) = LCase(Me.PartTextBox.Text) Then irow = r Exit For NewPart = False End If Next r If NewPart Then irow = r .Cells(irow, "A").value = Me.PartTextBox.value .Cells(irow, iCol).value = .Cells(irow, iCol).value + CLng(Me.AddTextbox.value) End With 'clear the data Me.PartTextBox.value = "" Me.MonthComboBox.value = "" Me.AddTextbox.value = "" Me.PartTextBox.SetFocus Me.warehousecombobox.value = "" End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub UserForm_Initialize() 'Empty NameTextBox PartTextBox.value = "" 'Empty PhoneTextBox AddTextbox.value = "" 'Empty DinnerComboBox 'Fill DinnerComboBox With MonthComboBox .AddItem "Current Month" .AddItem "Current Month +1" .AddItem "Current Month +2" .AddItem "Current Month +3" .AddItem "Current Month +4" End With With warehousecombobox .AddItem "Elkhart East" .AddItem "Tennessee" .AddItem "Alabama" .AddItem "North Carolina" .AddItem "Pennsylvania" .AddItem "Texas" .AddItem "West Coast" End With End Sub
如果列总是连续的，也许你可以添加第二个integervariables，告诉代码包括多less列。 举个例子，在你的文章中，你会发现Current Month + 1从Column N列开始，向右延伸3列（O，P，Q）。 你的代码可能看起来像这样：
Select Case MonthComboBox.value Case "Current Month + 1" iCol = "C" nExtend = 4
然后，当你处理这些值时，代码看起来像这样：
.Cells(irow, iCol).Resize(,nExtend).value = .Cells(irow, iCol).value + CLng(Me.AddTextBox.value)
注意：即使您在技术上扩展3列， Resizefunction的input也是4.还要注意前导逗号，因为我们不更改行大小。
基于新的信息编辑：
使用循环更改范围中的每个值，如下所示：
Select Case MonthComboBox.value Case "Current Month + 1" iCol = "C" nExtend = 4 For Each cel in .Cells(irow, iCol).Resize(,nExtend) cel.Value = cel.Value + CLng(Me.AddTextBox.Value) Next cel