比如 我要在A1单元格中输入1 A2单元格输入1 A3单元格输入2 A4单元格输入1 怎么编辑按钮1 和按钮2 使其按顺序A1-AN格中一次横向输入
æ¥éª¤å¦ä¸ï¼
1.å¼åå·¥å ·ï¼æå ¥ï¼æé®
2.æå¨ç»å¶æé®ï¼å¨å¼¹æ¡ä¸éæ©ï¼æ°å»º
3.å¨æ°çé¢ä¸è¾å ¥å¦ä¸ä»£ç
4.è¿æ ·ï¼æ¯æ¬¡ç¹å»æé®ï¼å°±ä¼å¨éä¸åå æ ¼ä¸è¾å ¥å 容äº
不对啊
追答这个图与上面的说明不一致呀!
试试
Sub 按钮1()
Cells(1, Range("iv1").End(xlToLeft).Column + 1) = "〇"
End Sub
Sub 按钮2()
Cells(1, Range("iv1").End(xlToLeft).Column + 1) = "⊙"
End Sub
谢谢就是这样了 能帮我解决多一个吗 如果我想在 B1单元格开始又该怎么样了 C1单元格呢
追答现在的就是从B1开始的。
如果要从C1开始,用下面的代码。
Sub 按钮1()
Cells(1, Range("iv1").End(xlToLeft).Column + 1 + IIf(Range("iv1").End(xlToLeft).Column < 3, 1, 0)) = "〇"
End Sub
Sub 按钮2()
Cells(1, Range("iv1").End(xlToLeft).Column + 1 + IIf(Range("iv1").End(xlToLeft).Column < 3, 1, 0)) = "⊙"
End Sub
你有Q不我发断代码给你看看
追答371903662
是这样的 问题是输入要横向移动 比如我按该按钮在A1单元格输入1 我按2按按钮 他会自动在A2单元格输入2
追答按你说的,A1 A2 A3......,那是纵向啊,,搞好了,给我QQ,发给你
如图,看看是不是这个效果
244460821