凯尔特回纹图案—递归画出

micch

简单做一个吧，先手动做一个二阶的。

1. Const Jie As Integer = 9
   
2. Dim midRng As Range
   
3. 
   
4. Public Sub Main()
   
5.     r% = 10 '二阶基础图形，手绘10行10列,B2:K11区域
   
6.     Set midRng = Sheet3.Range("F6:G7") '中心区域
   
7.     With Sheet3.Range("T2") '输出位置
   
8.         .Resize(9999, 9999).Clear '清除右下区域
   
9.         Sheet3.Range("B2").Resize(r, r).Copy .Cells(1) '先复制一个二阶
   
10.         DFS .Resize(r, r), r, 3 '递归
    
11.     End With
    
12. End Sub
    
13. Private Sub DFS(Rng0 As Range, r0 As Integer, Jie0 As Integer)
    
14.     If Jie0 > Jie Then Exit Sub
    
15.     Rng0.Copy Rng0.Offset(r0)
    
16.     Rng0.Copy Rng0.Offset(, r0)
    
17.     Rng0.Copy Rng0.Offset(r0, r0)
    
18.     midRng.Copy Rng0.Offset(r0 - 1, r0 - 1).Cells(1)
    
19.     DFS Rng0(1).Resize(r0 * 2, r0 * 2), r0 * 2, Jie0 + 1
    
20. End Sub

复制代码

代码生成9阶

dongdonggege

micch 发表于 2024-10-28 23:10
简单做一个吧，先手动做一个二阶的。

看到你的图表，我复制前面2阶的图形，运行你的程序，出现“应用程序定义或对象定义错误”。Rng0.Copy Rng0.Offset(, r0)，就是这句。而且也没有图形的复制。

dongdonggege

micch 发表于 2024-10-28 23:10
简单做一个吧，先手动做一个二阶的。

程序复制后，不能运行。

micch

[url=【凯尔特回纹图案的递归】 https://www.bilibili.com/video/B ... 6bae3be1b5babc77410]手工复制也就几分钟，演示一下吧，代码很简单都没啥用[/url]

dongdonggege

哪位老师帮帮我，谢谢。

dongdonggege

micch 发表于 2024-10-29 09:21
https://www.bilibili.com/video/BV1cd1jYzE2q/?share_source=copy_web&vd_source=dafb773bc780c6bae3be1b5 ...

你是设置单元格的格式，斜线，不是用程序做的？我是准备在PowerPoint做的，不合适。

micch

PPT懒得弄，会VBA的话搜一下分形几何，之前有大佬分享过

dongdonggege

哪位老师帮帮我，不会搞啊

dongdonggege

micch 发表于 2024-10-29 15:59
PPT懒得弄，会VBA的话搜一下分形几何，之前有大佬分享过

之前的几位大佬的分形，我都改成了ppt。

dongdonggege

老师帮帮我，这个怎么递归，或者其他方法画出来？