每打印一次。数字加1，VBA怎么写

ljc6

yaojil 发表于 2018-6-15 16:18
无附件，无米之炊？？？

可不可以弄个多项选择，用，类似InputBox  用1 “打粉”，2“切片”，只要填入数字，就可以了

yaojil

可以参考下面例程代码，case 很多选项

1. Private Sub CB1_Click()
   
2.     Select Case Sheet1.Range("A1")
   
3.         Case "A"
   
4.             Sheet1.Range("A3") = "联想"
   
5.         Case "B"
   
6.             Sheet1.Range("A3") = "华硕"
   
7.         Case "C"
   
8.             Sheet1.Range("A3") = "惠普"
   
9.         Case "D"
   
10.             Sheet1.Range("A3") = "IBM"
    
11.         Case "E"
    
12.             Sheet1.Range("A3") = "三星"
    
13.         Case Else
    
14.             Sheet1.Range("A3") = "不知道"
    
15.     End Select
    
16. End Sub

复制代码