[已解决]按要求取数。

mate66

按要求取数。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-8 15:31

1. Sub aaa()
   
2. If Selection.Count > 1 Then Exit Sub
   
3. If Intersect([m17].CurrentRegion, Selection) Is Nothing Then Exit Sub
   
4. Dim i&, j&, arr(1 To 3, 1 To 3), n&
   
5. n = IIf(Selection = 0, 9, Selection - 1)
   
6. For i = 1 To 3
   
7.   For j = 1 To 3
   
8.     arr(i, j) = n + i - 1
   
9.     If arr(i, j) > 9 Then arr(i, j) = arr(i, j) Mod 10
   
10.   Next j
    
11. Next i
    
12. Cells(26, Selection.Column - 1).Resize(3, 3) = arr
    
13. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Intersect([m17].CurrentRegion, Target) Is Nothing Then Exit Sub
   
4. Dim i&, j&, arr(1 To 3, 1 To 3), n&
   
5. n = IIf(Target = 0, 9, Target - 1)
   
6. For i = 1 To 3
   
7.   For j = 1 To 3
   
8.     arr(i, j) = n + i - 1
   
9.     If arr(i, j) > 9 Then arr(i, j) = arr(i, j) Mod 10
   
10.   Next j
    
11. Next i
    
12. Cells(26, Target.Column - 1).Resize(3, 3) = arr
    
13. End Sub

复制代码

mate66

大灰狼1976 发表于 2017-8-8 13:55

是的老师。可否也改成不自动。

大灰狼1976

你这个要改成全部确认的话不太好实现啊，前面的数据都会被后面的数据覆盖掉。

mate66

大灰狼1976 发表于 2017-8-8 14:57
你这个要改成全部确认的话不太好实现啊，前面的数据都会被后面的数据覆盖掉。

这个只针对一个单元格取数。任意选一个单元格，然后得到结果。

大灰狼1976

那你怎么确定单元格，是每次选择一个单元格，按一下按钮，还是预设单元格，按一下按钮？
你把方法告诉我，改改代码就能实现的。

mate66

大灰狼1976 发表于 2017-8-8 14:59
那你怎么确定单元格，是每次选择一个单元格，按一下按钮，还是预设单元格，按一下按钮？
你把方法告诉我， ...

任意选一个单元格，运行代码。然后得到结果。 每次都一样的操作。

大灰狼1976

1. Sub aaa()
   
2. If Selection.Count > 1 Then Exit Sub
   
3. If Intersect([m17].CurrentRegion, Selection) Is Nothing Then Exit Sub
   
4. Dim i&, j&, arr(1 To 3, 1 To 3), n&
   
5. n = IIf(Selection = 0, 9, Selection - 1)
   
6. For i = 1 To 3
   
7.   For j = 1 To 3
   
8.     arr(i, j) = n + i - 1
   
9.     If arr(i, j) > 9 Then arr(i, j) = arr(i, j) Mod 10
   
10.   Next j
    
11. Next i
    
12. Cells(26, Selection.Column - 1).Resize(3, 3) = arr
    
13. End Sub

复制代码