求助。我想让1~6数字在每一个工作表相同单元格实现循环

zhhjhpp

求助各位高手。我想在一个工作簿多个工作表的同一单元格实现1~6循环出现。如在表一A1是1，表二A1是2，表三A1是3,表四A1是4，表五A1是5，表六A1是6，表七A1显示为1。以此类推自动循环显示。怎样能做到。

山菊花

Sub xunhuan()
    Dim n As Integer
    Dim sht As Worksheet
    For Each sht In Worksheets
        n = IIf(n = 6, 1, n + 1)
        sht.Range("a1").Value = n
    Next
End Sub

zhhjhpp

首先谢谢山菊花。想追问一下，如果是B1为1～8，。c1为1~7,怎样写。

山菊花

Sub xunhuan()
    Dim n1%, n2%, n3%, sht As Worksheet
    For Each sht In Worksheets
        n1 = IIf(n1 = 6, 1, n1 + 1)
        n2 = IIf(n2 = 8, 1, n2 + 1)
        n3 = IIf(n3 = 7, 1, n3 + 1)
        sht.Range("A1").Value = n1
        sht.Range("B1").Value = n2
        sht.Range("C1").Value = n3
    Next
End Sub

zhhjhpp

谢谢指导。

zhhjhpp

山菊花大师，因为我对代码使用不会，现将工作簿上传，麻烦您能给做一下。在班组下，B3为1-6循环，B4为1-8循环，B5为1-7循环。

山菊花

启用宏。
按Alt+F11查看代码。
按Ctrl+Shift+T执行程序。

zhhjhpp

山菊花大师，这个代码放到另一个工作簿(只在您做的附件上好用)，怎么不好用。另外如果B3是2.3.4.5.6.7.8.1，怎样修改代码。

山菊花

zhhjhpp 发表于 2017-11-3 13:09
山菊花大师，这个代码放到另一个工作簿(只在您做的附件上好用)，怎么不好用。另外如果B3是2.3.4.5.6.7.8.1 ...

Sub xunhuan()
    Dim n1%, n2%, n3%, sht As Worksheet
    n1 = 1
    For Each sht In ThisWorkbook.Worksheets
        n1 = IIf(n1 = 8, 1, n1 + 1)
        n2 = IIf(n2 = 8, 1, n2 + 1)
        n3 = IIf(n3 = 7, 1, n3 + 1)
        sht.Range("b3").Value = n1
        sht.Range("b4").Value = n2
        sht.Range("b5").Value = n3
    Next
End Sub

zhhjhpp

山菊花大师，追问个问题。如果b4是两天一变循环，怎么修改代码？谢谢你耐心指导。