主页 / user-2601393

uncleuhls's questions

Martin Hope
uncleuhls
Asked: 2025-02-03 06:45:55 +0800 CST
  • 5

我正在为台球联赛制作在线记分表。我试图创建一个宏，当记分员单击按钮（sheet1）时，所有比赛统计数据都会存储到数据库（sheet3）中，sheet 1 会被清除并准备用于下一场比赛。我的代码如下，运行良好，除了它会覆盖 sheet 3 上的第二场比赛数据等等。我确实认为我需要使用 nextrow 并将范围从特定单元格更改为列，但我无法让任何东西工作。我对 vba 很陌生，还是一个谷歌复制粘贴新手哈哈。

Sub EnterStatsandClear()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet3")
    wsTarget.Range("A2").Value = wsSource.Range("B5").Value
    wsTarget.Range("a3").Value = wsSource.Range("e5").Value
    wsTarget.Range("b2").Value = wsSource.Range("i17").Value
    wsTarget.Range("b3").Value = wsSource.Range("i17").Value
    wsTarget.Range("c2").Value = wsSource.Range("i8").Value
    wsTarget.Range("c3").Value = wsSource.Range("i9").Value
    wsTarget.Range("d2").Value = wsSource.Range("p21").Value
    wsTarget.Range("d3").Value = wsSource.Range("s21").Value
    wsTarget.Range("e2").Value = wsSource.Range("q21").Value
    wsTarget.Range("e3").Value = wsSource.Range("t21").Value
    wsTarget.Range("f2").Value = wsSource.Range("r21").Value
    wsTarget.Range("f3").Value = wsSource.Range("u21").Value
    wsTarget.Range("g2").Value = wsSource.Range("j13").Value
    wsTarget.Range("g3").Value = wsSource.Range("j14").Value
Worksheets("Sheet1").Range("b5:c5,e5:f5,a8:b8,i8:i9,b10:f22").ClearContents

End Sub
microsoft-excel