求助论坛老师 求一段 点击单元格 能在其他区域显示的代码

三等菜鸟

老师：大家好

我有一个问题困扰我一定时间了希望得到老师们的帮助。

如图，a1:f6的6*6方框里是数据池（辅助用），右边是选中后的存放域，所有的数据均来自于这个池。为快速输入，避免一次一次的输入 按方向键 还要点鼠标，特麻烦。所以想用下面的方式解决输入问题。

在6*6框里任选28，显示在I1，第二次按15，希望这个15显示在j1,如再按36，则要求显示在K1,次数不定，但最多不会超过6次，

按OK后，进入下一次选择，所选数字都显示在第2行

再按OK，进入第3次选择，显示在3行

以此类推

谢谢！！！

liulang0808

附近内容供参考。。。。。。

三等菜鸟

谢谢版主！！！
试用了一下，很管用，基本满足我的期待。
有一个小缺陷：如果想重新输入一边，代码不是从I1开始显示，而是从上一次结束的位置开始

三等菜鸟

版主 ：能不能加一个重新开始的按钮？

三等菜鸟

版主老师，表格关闭后再打开，发觉出“1004”的错误，这不知是什么原因啊？

三等菜鸟

恳求版主老师 其他VBA大师帮忙

打开表格后，一按指定范围，下面一句的前面一部分出错 （弹出黄色提示）
If Cells(i, x) = "" Then                     Cells(i, x) = target.Value: Exit Sub

Datous

插入一个ActiveX控件，代码为

1. Private Sub CommandButton2_Click()
   
2.     i = 1
   
3.     Columns("I:N").ClearContents
   
4. End Sub

复制代码

三等菜鸟

谢谢Datours的出手帮助。
我找到原因了：因为没有按OK控件，导致代码没执行完，所以使用前要先按下OK扭，试用了下，符合。

现在又有1个小的问题，起始行号怎样定到 比如第10行？
希望老师们看看
谢谢！

三等菜鸟

继续来问一直遗留的问题：如何把起始行号改成第5行期？附代码

Private Sub CommandButton1_Click()
    i = i + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Set isect = Application.Intersect(Target, Range("a1:f6"))

If Not (isect Is Nothing) Then
    For x = 9 To 14
        If Cells(i, x) = "" Then Cells(i, x) = Target.Value: Exit Sub
    Next x
End If
End Sub