求帮助编一下代码

枫丹白露 · 发表于 2011-12-6 19:14

maditate 发表于 2011-12-5 20:26
这个我就不明白了，我不知道你是怎么复制的。

maditate:
再教我一下,你帮我编的代码,编码是在第一列输入的,
如果我现在,编码要在第4列录入编码后,第5、6、7列自动选择的。要怎么改代码？

代码的哪一行是指列的？

谢谢了

maditate · 发表于 2011-12-6 19:22

我也不知道，需在查看原来怎么设计的才能回答。

枫丹白露 · 发表于 2011-12-6 20:36

maditate 发表于 2011-12-6 20:04
具体查看代码，控件没作修改。

我加控件了,运行不了.

我重新调整了编码的位置,你再帮我看一下吧.
可能我原来说的不清楚.

maditate · 发表于 2011-12-6 21:13

工工工工工工工工工

枫丹白露 · 发表于 2011-12-6 21:20

maditate 发表于 2011-12-6 21:13
工工工工工工工工工

非常感谢maditate的热心与神速.

谢谢啦,非常感谢!

maditate · 发表于 2011-12-6 21:32

上面一段代码也要改一下

Private Sub ListBox1_Click()
      行号 = ActiveCell.Row
      For h = 0 To Sheets("入库").ListBox1.ColumnCount - 1
      ThisWorkbook.Sheets("入库").Cells(行号, h + 4) = Sheets("入库").ListBox1.List(ListBox1.ListIndex, h)
      Next h
'       ThisWorkbook.Sheets("入库").Cells(行号, 1) = Sheets("入库").ListBox1.List(ListBox1.ListIndex, 0)
      ActiveCell.Offset(1).Activate
End Sub

枫丹白露 · 发表于 2011-12-6 21:44

maditate 发表于 2011-12-6 21:32
上面一段代码也要改一下

Private Sub ListBox1_Click()

呵...我正要上来找你问呢.没想到你已发改好的代码了.

好象还有一个bug,第1列的序号跟着代码变化，值等于代码这一列。

也就是说第1列和第4列的值一样。

maditate · 发表于 2011-12-6 21:47

改过后好象没有了，序号列没动。

枫丹白露 · 发表于 2011-12-6 22:13

maditate 发表于 2011-12-6 21:47
改过后好象没有了，序号列没动。

再帮我看一下这个文件吧。

我按你的代码修改后，提示有一行代码出错。

maditate · 发表于 2011-12-7 18:01

没发现代码出错提示，能说说是哪一句吗？代码已经修改过，对列表项列宽作了设置。不知道为什么，原来给你的列表框不会变大小，你现在上传的列表框随着使用后会变小，也没查出什么原因，只能在代码中加了宽度也高度。

		自动登录	找回密码
密码			免费注册

[求助] 求帮助编一下代码