设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › VBA能被前三位再

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 1755|回复: 1

[已解决]VBA能被前三位再

发表于 2016-4-25 22:08 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

VBA能被前三位再

最佳答案

月排行榜 / 总排行榜

香川群子

2016-4-26 08:28

本帖最后由香川群子于 2016-4-26 08:30 编辑

一共269个解。其中最大位数=9。【381654729】

Dim c() As Boolean, k&, cnt&
Sub 前数整除排列() 'ab/2 abc/3 abcd/4...mod =0
Dim i&, tms#
[a1].CurrentRegion = ""
tms = Timer
ReDim c(1 To 9)
k = 0: cnt = 0: Call dgPL2(0, 1)
MsgBox Format(Timer - tms, "0.000s ") & k & "/" & cnt
End Sub
Sub dgPL2(s&, t&)
Dim i&, r&
cnt = cnt + 1
For i = 1 To 9
If Not c(i) Then
r = s * 10 + i
If r Mod t = 0 Then
If t > 2 Then k = k + 1: Cells(k, 1) = t: Cells(k, 2) = r
c(i) = True: Call dgPL2(r, t + 1): c(i) = False
End If
End If
Next
End Sub

复制代码

跳转到最佳答案楼层

VBA位进可除数.jpg

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2016-4-26 08:28 | 显示全部楼层本楼为最佳答案

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

这个最佳答案由香川群子给出，感谢香川群子的回答。

单击隐藏图章

本帖最后由香川群子于 2016-4-26 08:30 编辑

一共269个解。其中最大位数=9。【381654729】

Dim c() As Boolean, k&, cnt&
Sub 前数整除排列() 'ab/2 abc/3 abcd/4...mod =0
Dim i&, tms#
[a1].CurrentRegion = ""
tms = Timer
ReDim c(1 To 9)
k = 0: cnt = 0: Call dgPL2(0, 1)
MsgBox Format(Timer - tms, "0.000s ") & k & "/" & cnt
End Sub
Sub dgPL2(s&, t&)
Dim i&, r&
cnt = cnt + 1
For i = 1 To 9
If Not c(i) Then
r = s * 10 + i
If r Mod t = 0 Then
If t > 2 Then k = k + 1: Cells(k, 1) = t: Cells(k, 2) = r
c(i) = True: Call dgPL2(r, t + 1): c(i) = False
End If
End If
Next
End Sub

复制代码

评分

参与人数 1	+6	收起理由
vbyou127	+ 6	来学习

查看全部评分

回复

使用道具举报

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-27 09:36 , Processed in 0.309479 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表