找满足条件的三位数

xihaihandsp

求助各位老师！！！！！！！！！！！！！！万分感谢！

xihaihandsp

求助各位老师！！！！！！！！！！！！！！！！！！！！！

duquancai

xihaihandsp 发表于 2018-8-11 09:21
求助各位老师！！！！！！！！！！！！！！！！！！！！！

按照你的描述转化为语句就行了！！！

xihaihandsp

duquancai 发表于 2018-8-11 09:31
按照你的描述转化为语句就行了！！！

老师，代码不会写啊    ！！！！！！！！！！

duquancai

xihaihandsp 发表于 2018-8-11 09:33
老师，代码不会写啊    ！！！！！！！！！！

意思是等别人给你写好代码？

DevilW

Sub test()
    For i = 0 To 999
        ge = i Mod 10
        If InStr(34678, ge) = 0 Then GoTo tiao
        shi = (i - ge) / 10 Mod 10
        If InStr(5678, shi) = 0 Then GoTo tiao
        bai = Int(i / 100)
        If InStr(1246, bai) = 0 Then GoTo tiao
        he = (ge + shi + bai) Mod 10
        If InStr(34789, he) = 0 Then GoTo tiao
        cha = Application.Max(ge, shi, bai) - Application.Min(ge, shi, bai)
        If InStr(4567, cha) = 0 Then GoTo tiao
        If t = "" Then t = t & i Else t = t & "-" & i
        [a1] = t
tiao:
    Next
End Sub

xihaihandsp

DevilW 发表于 2018-8-11 10:37
Sub test()
    For i = 0 To 999
        ge = i Mod 10

谢谢老师您辛苦了   ！！！！！！！万分感谢！！！！！！！！！！！！！！！！！！！！！！！！！！

xihaihandsp

DevilW 发表于 2018-8-11 10:37
Sub test()
    For i = 0 To 999
        ge = i Mod 10

老师您的代码我看懂了 ，思路简洁明了，太棒了！！！