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

LSYYLW

2020-5-31.zip (2.06 KB, 下载次数: 18)

2020-5-31 12:30 上传

点击文件名下载附件

风筝那根线

不知道加一个按钮控件行不行，L11,M11有数字就显示B12的按钮，没有就隐藏按钮，别的想不出什么好办法了

清风竹-

请看附件。

一把小刀闯天下

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$B$12" Then Exit Sub
    If Len([l11].Value) = 0 Then
      [l11] = [a10].Value
      [m11] = [a11].Value
    Else
      [l11].Resize(, 2).ClearContents
    End If
    Target.Offset(, 1).Select
End Sub

张小生

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Static n As Integer
   
3. If Target.Address <> "$B$12" Then Exit Sub
   
4. n = n + 1
   
5. If n Mod 2 <> 0 Then
   
6.    Range("l11") = [a10]: Range("m11") = [a11]
   
7. Else
   
8.    Range("l11") = "": Range("m11") = ""
   
9. End If
   
10. Range("a1").Select
    
11. End Sub

复制代码

张小生

详见附件，请根据实际情况进行修改

LSYYLW

清风竹- 发表于 2020-5-31 13:49
请看附件。

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

LSYYLW

一把小刀闯天下 发表于 2020-5-31 16:12
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

LSYYLW

张小生 发表于 2020-5-31 16:56
详见附件，请根据实际情况进行修改

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

一把小刀闯天下

一把小刀闯天下 发表于 2020-5-31 16:12
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$B$12" Then Exit Sub
    If Len([l11].Value) = 0 Then
      [l11] = [a10].Value: [m11] = [a11].Value: [l8] = "上"
    Else
      [l11].Resize(, 2) = Empty: [l8] = Empty
    End If
    Target.Offset(, 1).Select
End Sub