恳求老师帮忙写出SpinButton初始值为活动单元格值的代码！

一片薄云

比如：图中的a2是活动单元格，点击SpinButton1使活动单元格a2的“17”加1或减1.

Excel学徒123

1. Private Sub SpinButton1_SpinDown()
   
2.     DTPicker1.Value = DTPicker1.Value + 1
   
3.     [A2] = DTPicker1.Value + 1
   
4. End Sub
   
5. 
   
6. Private Sub SpinButton1_SpinUp()
   
7.     DTPicker1.Value = DTPicker1.Value - 1
   
8.     [A2] = DTPicker1.Value - 1
   
9. End Sub
   
10. 
    
11. Private Sub UserForm_Activate()
    
12.     If Len(ActiveCell) > 0 Then
    
13.         DTPicker1.Value = ActiveCell
    
14.     End If
    
15. End Sub
    

复制代码

代码试试，不知道是否是你要达到的效果

一片薄云

Excel学徒123 发表于 2016-8-23 14:57
代码试试，不知道是否是你要达到的效果

这个代码只选择了a2，我说的是活动单元格。比如活动单元格是a1或a3，或其他单元格时也一样。

Excel学徒123

1. Private Sub SpinButton1_SpinDown()
   
2.     DTPicker1.Value = DTPicker1.Value + 1
   
3.     ActiveCell = DTPicker1.Value + 1
   
4. End Sub
   
5. 
   
6. Private Sub SpinButton1_SpinUp()
   
7.     DTPicker1.Value = DTPicker1.Value - 1
   
8.     ActiveCell = DTPicker1.Value - 1
   
9. End Sub
   
10. 
    
11. Private Sub UserForm_Activate()
    
12.     If Len(ActiveCell) > 0 Then
    
13.         DTPicker1.Value = ActiveCell
    
14.     End If
    
15. End Sub
    

复制代码

Excel学徒123

一片薄云 发表于 2016-8-23 15:37
这个代码只选择了a2，我说的是活动单元格。比如活动单元格是a1或a3，或其他单元格时也一样。

答案看4楼，把[A2] 改成ACTIVECELL就可以了

一片薄云

非常感谢耐心回答！我表达的不是太清楚。
我的要求是直接更改活动单元格的值，不是改变DTPicker1的值。
比如：如果图中的活动单元格是a3，则控制“31”，如果图中的活动单元格是a1，则控制“12”。
活动单元格原先已有数据，然后选择为活动单元格。谢谢！

bingshou

求解