请老师帮忙看看按钮问题。谢谢

lichelleco

aecn 发表于 2022-11-26 09:39
我以前做的，可以参考一下
https://club.excelhome.net/thread-1574157-1-1.html

不错，这是我想要的，不过我想删除数据

准提部林

lichelleco 发表于 2022-11-26 13:04
老师，现在有个问题就是没有办法删除数据。请老师再看看

.select 改成 .clearcontents
代碼都給留後路了, 沒看???
這事總要自己去做吧!

准提部林

lichelleco 发表于 2022-11-26 13:04
老师，现在有个问题就是没有办法删除数据。请老师再看看

不用看 代碼有個加尾巴!!, 自行改下吧!

lichelleco

好的，谢谢老师的帮忙

lichelleco

请老师们看看，这个代码按完会有“”嘟声“ 如果不想要有嘟声要怎么改代码
”Sub TEST_A1()
Dim AA, BB, L(2), K%
With ActiveSheet
     Set AA = .DrawingObjects("ButtonA")
     Set BB = .DrawingObjects("ButtonB")
     L(1) = AA.Left + 1
     L(2) = L(1) + AA.Width - BB.Width - 2
     K = 3 - BB.Text
     BB.Left = L(K): BB.Top = AA.Top + 2.3
     BB.Text = K: Beep
End With
End Sub

Sub TEST_B1()
Dim K%
K = ActiveSheet.DrawingObjects("ButtonB").Text
Range("e11:f20").Columns(K).ClearContents
End Sub

准提部林

lichelleco 发表于 2022-11-27 17:50
请老师们看看，这个代码按完会有“”嘟声“ 如果不想要有嘟声要怎么改代码
”Sub TEST_A1()
Dim AA, BB,  ...

BB.Text = K: Beep

去掉 beep

lichelleco

好了，因为不懂代码，谢谢老师耐心的教导

lichelleco

Sub TEST_A1()
Dim AA, BB, L(2), K%
With ActiveSheet
     Set AA = .DrawingObjects("ButtonA")
     Set BB = .DrawingObjects("ButtonB")
     L(1) = AA.Left + 1
     L(2) = L(1) + AA.Width - BB.Width - 2
     K = 3 - BB.Text
     BB.Left = L(K): BB.Top = AA.Top + 2.3
     BB.Text = K: Beep
End With
End Sub

Sub TEST_B1()
Dim K%
K = ActiveSheet.DrawingObjects("ButtonB").Text
Range("e11:f20").Columns(K).ClearContents
End Sub
老师再请帮忙下如果代码 Range("e11:f20").Columns(K).ClearContents  换成
左边按钮代码是
Range("A14").Copy Range("I12:I41")
Range("B14").Copy Range("J12:J41")

右边按钮代码是
Range("A17").Copy Range("I12:I41")
Range("B17").Copy Range("J12:J41")

要怎么做呢

Xl0000233.zip (17.25 KB, 下载次数: 1)

2022-11-28 15:26 上传

点击文件名下载附件

lichelleco

请在线的老师帮忙看下上面的问题，在线等候，感恩

准提部林

TEST-1//
Xl0000233-1.rar (17.92 KB, 下载次数: 4)

2022-11-28 21:08 上传

点击文件名下载附件