多区域保存问题如何简化代码

欧瑞博

各位前辈，老师帮忙看看。

fanyoulin

我提供一个思路：

1、A\B\C\D....它们都有对应的Asc码，A是65，B是66...以此类推。
     你把列表框的内容读出来，用asc函数转换成数字，然后再减64：
      x=Asc(listbox3(selectindex))-64
      上面的x就把字母A\B\C...对应转换成了数字 1\2\3...
2、工作表每个存储列占用8列，因此A\B\C...对应的起始位置应该是：
     cells(i,(x-1)*8+2)     '其中 i 为行参数

欧瑞博

fanyoulin 发表于 2023-4-15 12:25
我提供一个思路：

1、A\B\C\D....它们都有对应的Asc码，A是65，B是66...以此类推。

还没理解你的思路，方便帮忙写一段。

fanyoulin

欧瑞博 发表于 2023-4-15 12:52
还没理解你的思路，方便帮忙写一段。

1、字母A对应65,字母B对应66...
     x=asc("A")   'x的结果就是65
    你把列表框选择的内容读出来，用asc转换成数字就行了；
2、每一个存储区占用8列，a区占用A-H列，B区占用I-P列...所以当前区的第一列就是：
     (x-1)+2
     之所以要+2，因为每个区的第一列都是空列，A区是从B列开始的，A列并未使用；
     你分别用A\B\C验证下就知道了，就是个数学上的数列问题；
3、我本人不太喜欢窗体控件，很多年没用，文本框、列表框大概意思我知道，但真要写还得去复习，比较麻烦。我只记得列表框的当前值大概就是listbox1(selectindex)，至于文本框，我还得翻书。你既然用这个，我估计你比我熟得多，我就不写了；     

杨建营

根据楼主的代码修改一下，请楼主参考。

欧瑞博

杨建营 发表于 2023-4-15 13:53
根据楼主的代码修改一下，请楼主参考。

谢谢老师的解答。

杨建营

欧瑞博 发表于 2023-4-15 15:24
谢谢老师的解答。

在这列需要有数据，否则会覆盖前面写入的数据。