[已解决]求高手（前辈）帮忙修改下【循环录入数字】的宏代码

BL123123

各位高手（前辈）      

近日在网站发帖求助，求得一根据A列最后序号（数值）在指定单元格【C6】，
从1开始逐个录入A列全部序列号的宏代码。非常好用。
      现在，我有个类似问题，既指定的单元格为单元格区域【D8：D15]，不知代码

参数如何修改，请各位高手（前辈）帮忙修改下。原代码如下，详见附件
万分感谢

Sub luru2()

Dim i, s As Integer

i = Sheets("明细").Columns(1).Cells(Sheets("明细").Columns(1).Cells.Count).End(xlUp).Row

For s = 1 To Sheets("明细").Cells(i, 1).Value Step 1

Sheets("录入").Cells(6, 3) = s

ThisWorkbook.Save

Next

End Sub

我想应该是调整  Sheets("录入").Cells(6, 3) =s  参数设置

但我是新手不知参数如何修改。

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-2-8 10:25

1. Sub test()
   
2.     Dim r&, i&
   
3.     With Sheets("明细")
   
4.         r = Val(.Cells(.[a65536].End(3).Row, 1))
   
5.     End With
   
6.     [f6:f13] = ""
   
7.     Do
   
8.         For j = 6 To 13
   
9.             i = i + 1
   
10.             Cells(j, 6) = i
    
11.             If i >= r Then Exit Do
    
12.         Next
    
13.         Loop Until i >= r
    
14. End Sub

复制代码

序号录入.rar (15.41 KB, 下载次数: 7)

2016-2-8 10:25 上传

点击文件名下载附件

跳转到最佳答案楼层

BL123123

附件没有发过去，在重新发一下

BL123123

BL123123 发表于 2016-2-1 12:02
附件没有发过去，在重新发一下

顶一下，望有高手帮助。

高

不懂你要做什么，再表述一下吧

BL123123

高 发表于 2016-2-7 14:16
不懂你要做什么，再表述一下吧

您好，春节快乐！
     简单地说既根据工作表【明细】A列最后非零数字（序号），将该数字（序号）在工作表
【录入】F6:F13区域从1开始逐个录入该数字（序号）的过程。因序号不固定，且数量很
打，每次都需要从1开始重复录入，故此求助用宏代码。见附件   谢谢帮忙。

雪舞子

1. Sub test()
   
2.     Dim r&, i&
   
3.     With Sheets("明细")
   
4.         r = Val(.Cells(.[a65536].End(3).Row, 1))
   
5.     End With
   
6.     [f6:f13] = ""
   
7.     Do
   
8.         For j = 6 To 13
   
9.             i = i + 1
   
10.             Cells(j, 6) = i
    
11.             If i >= r Then Exit Do
    
12.         Next
    
13.         Loop Until i >= r
    
14. End Sub

复制代码

序号录入.rar (15.41 KB, 下载次数: 7)

2016-2-8 10:25 上传

点击文件名下载附件

BL123123

雪舞子 发表于 2016-2-8 10:25

非常感谢雪舞子学委春节期间帮助
      经测试您的代码完全符合我的要求，解决了困扰很长时间的难题，再次感谢。
      再有，我的原求助是拆解求助的，主要问题是解决了，但是实际操作中还未能实现我设想的一键操作的目标，恳请您帮忙看下我的设想能否实现！

求助：

    所举事例为凭证套打标签，每页纸设定为8个标签。因F13单元格设置为回车打印，既：F13输入序号回车后自动打印。所以按录入【打印按钮】只能打印8的整倍数前面序号的物品标签，而8的整倍数后面的序号物品标签不能打印，序号不为8的整倍数时，最后边总有几个物品标签无法打印，如：物品总量18件，按【录入】后17、18序号物品不能打印物；当品总量28件时，按【录入】后25、26、27、28序号物品不能打印；整个操作过程没能实现一键操作。 详见附件

雪舞子

测试一下效果。

一键操作.rar (67.95 KB, 下载次数: 12)

2016-2-9 10:45 上传

点击文件名下载附件

BL123123

雪舞子 发表于 2016-2-9 10:45
测试一下效果。

前两天网站好像有些问题，登录不上去，现在终于恢复正常啦，非常感谢雪舞子学委的帮助，

新代码我试了试，后面的能够打印，但还有些不足，就是把倒数第二页的部分序号也打印了，

因家里没有打印机，看不出效果，所以昨天找了个打印机试了效果，找到了解决办法。再次感谢雪舞子学委。

我还有个问题想请学委帮忙，我原来将H13作为目标单元格，序号能够按要求逐个显示，但是经使用我发现序号电脑录入的太慢。学委给的代码，F6；F13为目标单元格，同样的序号要比我先前的代码块很多，您能否在帮我写段目标单元格在H13的宏代码。   谢谢

雪舞子

1，打印最后一页不足8号时会打印之前的页剩余部分号码，
是因为打印本页时之前未做清空，
不想要剩余部分可以在循环本页时把之前也做下清空，
这样就不会有剩余号数，不知楼主是不是这个意思。

2，看到你那段代码慢的原因，是有一句
ThisWorkbook.Save
这句好像没什么鸟用，楼主可把这句删除，
速度就会提高上去了。