|
??? |
|
Option Explicit
Sub Macro1() Cells(1, 1).Value = 0 Dim A As Integer Dim B As Integer Dim wa As Integer Dim deta As Integer deta = 0 A = 5900 While deta = 0 And A >= 1100 If (A \ 100) Mod 10 > 0 Then B = (A Mod 1000) * 10 + A \ 1000 wa = A + B If wa = 6752 Or wa = 6854 Or wa = 6754 Then deta = 1 Cells(1, 1).Value = A Cells(1, 2).Value = B Cells(1, 3).Value = wa Range("A1").Select End If End If A = A - 1 Wend End Sub |
|
6月3日（木） 9:12:01
36297 |