自动换行的问题

1306669687

想实现 退货入库页，  B列输入数据到500行时，自动换到D列。D列输入数据到500行时，自动换到F列。以此类推。。求大神。。

wengjl

看题目，我的回答是 只要在需要换行的地方，加入   chr(10)   即可。打开一看不是这么一回事，是换列

ykcbf1100

就看附件也看不出东西来。不知道要干啥。
就楼主说的情况，可以使用cells来表达单元格，用列号，比如刚开始是使用B列，那就这样写：c=2(c表示列号），cells(2,c)。到500行时，c=c+2，这样就行了。

于箱长

ykcbf1100 发表于 2022-11-25 09:20
就看附件也看不出东西来。不知道要干啥。
就楼主说的情况，可以使用cells来表达单元格，用列号，比如刚开 ...

机智

ykcbf1100

于箱长 发表于 2022-11-25 09:44
机智

大师出手写一个？

于箱长

ykcbf1100 发表于 2022-11-25 09:45
大师出手写一个？

我可不是大师，ykcbf1100老师的思路已经相当棒了

ykcbf1100

于箱长 发表于 2022-11-25 09:51
我可不是大师，ykcbf1100老师的思路已经相当棒了

我主要是看不懂附件，只能空对空来一下。

1306669687

找到了代码，自己照葫芦画瓢改了下，最后是我想要的。B列输入到500行时，自动换到D列。以此类推

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sro, sco, ro, co
On Error Resume Next              
Application.EnableEvents = False   
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
sro = Selection.Row     
sco = Selection.Column   
If sro > 1 And sco > 1 And sco <= 15 Then
ro = Target.Row     
co = Target.Column   
If ro = 500 Then                  
  mysheet1.Cells(ro - 497, co + 2).Select
End If
  If ro > 1 And ro < 10 Then      
  mysheet1.Cells(ro + 1, co).Select
End If
End If
Application.EnableEvents = True   
End Sub