<!--ここから-----------------------------------> <script language="VBScript"> Sub Count() Dim i, j, k Dim strBuff j = frmText.first.Value k = frmText.increase.Value For i=1 To k strBuff = strBuff & Cstr(j) & " " If i Mod 10 = 0 Then strBuff = strBuff & vbCrLf If i Mod 50 = 0 Then strBuff = strBuff & vbCrLf j = j + 1 Next frmText.txtTarget.Value = strBuff frmText.first.Value = j End Sub Sub txtCopyToClipboard() set rngText = frmText.txtTarget.createTextRange() rngText.execCommand("copy") End Sub </script> <form id="frmText"> <textarea id="txtTarget" rows="25" cols="100"></textarea> <br> 初期値:<input type="text" id="first" value="2000000"> 増分:<input type="text" id="increase" value="200"> <input type="reset" value="clear"> </form> <button onClick="Count()">Count</button> <button onClick="txtCopyToClipboard()">CopyToClipboard</button> <!--ここまで----------------------------------->
Sub mezase_1oku() 'Sheet1の 'A1セルにスタートする数字 'A2セルに終わらせる数字 'A3セルに1行のカウント数 'A4セルに区切り行数(というか、1レスの行数) 'を入れてこいつを実行すると 'Sheet2のA列に入ります Set open_File = Application.ActiveWorkbook Set Settei_Sheet = open_File.Worksheets("Sheet1") Set Kakikomi_Sheet = open_File.Worksheets("Sheet2") Kakikomi_Sheet.Columns("A:A").ClearContents countSTART = Settei_Sheet.Range("A1") countEND = Settei_Sheet.Range("A2") countGYOU = Settei_Sheet.Range("A3") countKUGIRI = Settei_Sheet.Range("A4") cell_A = 1 For i = countSTART To countEND Step countKUGIRI * countGYOU For j = 0 To countKUGIRI * countGYOU - 1 Step countGYOU cell_txt = "" For k = 0 To countGYOU - 1 If i + j + k > countEND Then Exit For cell_txt = cell_txt & " " & (i + j + k) Next Kakikomi_Sheet.Range("A" & cell_A) = cell_txt cell_A = cell_A + 1 Next cell_A = cell_A + 1 Next Kakikomi_Sheet.Activate End Sub