Question

excel如何在按钮里添加一个功能：让某个固定单元格的值（如C2)随着按钮的点击变成另一列中单元格中的值

如C2的值 通过点击按钮后变成F6 再次点击变成F7 再次电机变成F8 此以类推

Answer 1

Dim i As Integer
Private Sub CommandButton1_Click()
If Range("c2").Value = "" Then i = 6 Else i = i + 1
Range("c2").Value = Range("F" & i).Value
End Sub

Answer 2

再次电机变成F8?

这个需要vba代码

Sub A()

Dim N

N = WorksheetFunction.Match([C2], Range("F:F"), 0)

[C2] = Cells(N + 1, "f")

End Sub

追问

应该是的    原来点击后实现打印功能，但是每次都需要更改数据后才可以继续打印 

Private Sub CommandButton1_Click()

Range("A5:J21").Select

Worksheets("供货凭证").PageSetup.PrintArea = "$A$5:$J$21"

PrintOut

End Sub

追答

SUB 打印()
Range("A5:J21").Select
Worksheets("供货凭证").PageSetup.PrintArea = "$A$5:$J$21"
PrintOut
End Sub
就是个 指定区域打印