数据录入不在默认位置

15288431649

在excel里面用控件实现商品登记，但是不会登记到默认的位置，只能当鼠标在正确位置才可以。要怎么修改

那么的帅

把代码发上来

15288431649

Private Sub Cb1_Click()
Sheets("品名").Select
Range("A3:C3").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub Cb2_Click()
Sheets("品名").Select
Range("A4:C4").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub Cb3_Click()
Sheets("品名").Select
Range("A5:C5").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb4_Click()
Sheets("品名").Select
Range("A6:C6").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb5_Click()
Sheets("品名").Select
Range("A7:C7").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb6_Click()
Sheets("品名").Select
Range("A8:C8").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb7_Click()
Sheets("品名").Select
Range("A9:C9").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb8_Click()
Sheets("品名").Select
Range("A10:C10").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb9_Click()
Sheets("品名").Select
Range("A11:C11").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb10_Click()
Sheets("品名").Select
Range("A12:C12").Select
Selection.Copy
Sheets("花卉登记 表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb11_Click()
Sheets("品名").Select
Range("A13:C13").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb12_Click()
Sheets("品名").Select
Range("A14:C14").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb13_Click()
Sheets("品名").Select
Range("A15:C15").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb14_Click()
Sheets("品名").Select
Range("A16:C16").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb15_Click()
Sheets("品名").Select
Range("A17:C17").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb16_Click()
Sheets("品名").Select
Range("A18:C18").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb17_Click()
Sheets("品名").Select
Range("A19:C19").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb18_Click()
Sheets("品名").Select
Range("A20:C20").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub


Private Sub cb19_Click()
Sheets("品名").Select
Range("A21:C21").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb20_Click()
Sheets("品名").Select
Range("A22:C22").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb21_Click()
Sheets("品名").Select
Range("A23:C23").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb22_Click()
Sheets("品名").Select
Range("A24:C24").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb23_Click()
Sheets("品名").Select
Range("A25:C25").Select
Selection.Copy
Sheets("花卉登记表").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Private Sub cb24_Click()
Sheets("品名").Select
Range("A26:C26表").Select
Selection.Copy
Sheets("花卉登记").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

这个是各种商品信息！
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
  Do Until ActiveCell = ""
  Range("A4;E4").Select
  Selection.Copy
  Sheets("入库").Select
  Sheets("入库").Range("A2").Select
If ActiveCell.Offset(2, 0) <> "" Then
  Selection.End(xlDown).Select
  ActiveCell.Offset(1, 0).Select
  Else
Do Until ActiveCell = ""
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
  End If
Loop
End If
  ActiveSheet.Paste
  Application.CutCopyMode = False
  ActiveCell.Offset(1, 0).Range("A1").Select
  Sheets("花卉登记表").Select
  Range("A4:E4").Select
  Selection.EntireRow.Delete
  Range("A4").Select
  Loop
End Sub

Private Sub CommandButton3_Click()
  Do Until ActiveCell = ""
  Range("A4;E4").Select
  Selection.Copy
  Sheets("出库").Select
  Sheets("出库").Range("A2").Select
If ActiveCell.Offset(1, 0) <> "" Then
Selection.End(xlDown).Select
  ActiveCell.Offset(1, 0).Select
  Else
Do Until ActiveCell = ""
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
  End If
Loop
End If
  ActiveSheet.Paste
  Application.CutCopyMode = False
  ActiveCell.Offset(1, 0).Range("A1").Select
  Sheets("花卉登记表").Select
  Range("A4:E4").Select
  Selection.EntireRow.Delete
  Range("A4").Select
  Loop
End Sub

这个是控件代码