点击指定单元格，把指定单元格里的数字，显示到另一指定单元格的代码，非常感谢！

清风竹-

LSYYLW 发表于 2021-3-1 16:05
老师您好：又来麻烦您了，您有时间帮我看一下117楼附件里的问题，拜托您了！

请看附件。

LSYYLW

清风竹- 发表于 2021-3-2 14:51
请看附件。

非常感谢老师，代码非常好用。

LSYYLW

2021-3-5.zip (10.85 KB, 下载次数: 3)

2021-3-5 17:14 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2021-3-2 14:51
请看附件。

老师您好：又来麻烦您了，您有时间帮我看一下123楼附件里的问题，拜托您了！

一把小刀闯天下

'参与一下，123楼附件，，，

Option Explicit

Dim lastvalue(1), lastpos, combarr

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i
  If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
  If Intersect([c35:c36], Target) Is Nothing Then Exit Sub
  If lastvalue(0) <> [c32].Value Or lastvalue(1) <> [c33].Value Then Call init
  If Target.Address = "$C$36" Then
    lastpos = lastpos + 1
    If lastpos > UBound(combarr, 1) Then lastpos = 1
  Else
    lastpos = lastpos - 1
    If lastpos < 1 Then lastpos = UBound(combarr, 1)
  End If
  For i = 1 To 3
    Cells(30, i + 6) = combarr(lastpos, i)
  Next
  Target.Offset(, 1).Select
End Sub

Function init()
  Dim i, j, k, m, n, cnt, a, b
  On Error GoTo errmsg
  a = [c32].Value: b = [c33].Value
  cnt = b - a + 1: n = 1
  For i = cnt - 2 To cnt
    n = n * i
  Next
  n = n / 6
  If n > 10 ^ 5 Then MsgBox Format(n, "组数是否太多0"): Exit Function
  ReDim combarr(1 To n, 1 To 3)
  For i = a To b - 2
    For j = i + 1 To b - 1
      For k = j + 1 To b
        m = m + 1
        combarr(m, 1) = i: combarr(m, 2) = j: combarr(m, 3) = k
      Next
    Next
  Next
  lastvalue(0) = a: lastvalue(1) = b
  lastpos = 0
  Exit Function
errmsg:
  MsgBox "检查输入数据！"
End Function

清风竹-

LSYYLW 发表于 2021-3-5 17:15
老师您好：又来麻烦您了，您有时间帮我看一下123楼附件里的问题，拜托您了！

请看附件。

LSYYLW

一把小刀闯天下 发表于 2021-3-6 10:46
'参与一下，123楼附件，，，

Option Explicit

万分的感谢老师，代码非常好用。

LSYYLW

清风竹- 发表于 2021-3-6 11:11
请看附件。

万分的感谢老师，代码非常好用。

LSYYLW

2021-3-13.zip (16.26 KB, 下载次数: 3)

2021-3-13 11:50 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2021-3-6 11:11
请看附件。

老师您好：又来麻烦您了，您有时间帮我看一下129楼附件里的问题，拜托您了！