数字を数えて1億を目指すスレ Part81

数字を数えて1億を目指すスレ Part81 です。

前スレ
http://yasai.2ch.net/test/read.cgi/honobono/1016227367/

一気に数えるもよし。記念に数えていくのもよし。キリ番を狙うもよし。
過去スレ・キリ番履歴・カウント補助ツールは >>2-20 のどこか。

スレの最初の数から 55000 以上数えてたら、スレのサイズ制限に注意。
496KB以上の警告が出たら次のスレを立てましょう。
かちゅ～しゃ等のツールを使っている人もスレのサイズはチェックしましょう。

前スレは 4583610 までです。ではどうぞ。

2 ：ほんわか名無しさん：02/03/16 23:17

3 ：ほんわか名無しさん：02/03/16 23:17

　　　　∧ｖ∧
　　　（〃ﾟーﾟ）　　　　　　　　ｺﾉﾋﾄ
　　　　ﾉ　∞ 　　　　
　　⌒（っＵＵっ

　　　　　　　　　　　　　　

4 ：ほんわか名無しさん：02/03/16 23:17

　　　　∧ｖ∧
　　　（〃ﾟーﾟ）　　　　　　　　ｺﾉﾋﾄ
　　　　ﾉ　∞ 　　　　
　　⌒（っＵＵっ

　　　　　　　　　　　　　　　　　　　　　　　　　　　

5 ：　| ﾟДﾟ)＜ペニス勃起厨 ◆y05xadrI ：02/03/16 23:17

ペニスぴんこ起ち！

6 ：ほんわか名無しさん：02/03/16 23:17

7 ：ほんわか名無しさん：02/03/16 23:17

8 ：ほんわか名無しさん：02/03/16 23:17

9 ：ほんわか名無しさん：02/03/16 23:18

　　　
　　　　∧ｖ∧
　　　（〃ﾟーﾟ）　　　　　　　　ｺﾉﾋﾄ
　　　　ﾉ　∞ 　　　　
　　⌒（っＵＵっ

　　

10 ：ほんわか名無しさん：02/03/16 23:18

11 ：ほんわか名無しさん：02/03/16 23:18

12 ：　| ﾟДﾟ)＜良ｽﾚ判定厨 ◆SurePTTc ：02/03/16 23:18

良スレ！　　　　

13 ：ほんわか名無しさん：02/03/16 23:18

14 ：ほんわか名無しさん：02/03/16 23:18

　　　　∧ｖ∧
　　　（〃ﾟーﾟ）　　　　　　　　ｺﾉﾋﾄ
　　　　ﾉ　∞ 　　　　
　　⌒（っＵＵっ

15 ：ほんわか名無しさん：02/03/16 23:19

16 ：ほんわか名無しさん：02/03/16 23:20

＜過去のキリ番一覧＞
1 1 名前：ニーノ ◆GipySMGk 投稿日：01/10/12 18:48
500000 67 名前：ニーノＺＥＲＯ ◆GipySMGk 投稿日：01/11/20 14:22
1000000 5 名前：履歴屋投稿日：01/11/28 08:22
1500000 139 名前：わかめ投稿日：01/12/27 00:54
2000000 225 名前：ほんわか名無しさん投稿日：02/01/12 20:07
2500000 247 名前：履歴屋 ◆bsRireKI 投稿日：02/01/19 00:41
3000000 213 名前：ほんわか名無しさん投稿日：02/02/07 07:26
3500000 291 名前：ほんわか名無しさん投稿日：02/02/28 04:39
4000000 68 名前：さわやか名無しさん投稿日：02/03/13 03:21

1111111 180 名前：わかめ投稿日：01/12/06 19:35
2222222 230 名前：ほんわか１億くん投稿日：02/01/15 21:50
3333333 254 名前：ほんわか名無しさん投稿日：02/02/26 04:07
4444444 118 名前：ほんわか名無しさん投稿日：02/03/16 00:46

17 ：ほんわか名無しさん：02/03/16 23:20

＜カウント補助スクリプト＞
「初期値」と「増分」を入力すると、結果をテキスト出力します。

「スクリプトによる貼り付け処理の許可」を有効にしないと、
コピー機能は使えません。その場合はCtrl+Cでコピーしてください。
以下のコードをコピーしてHTMLファイルにしてください。


<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>

18 ：ほんわか名無しさん：02/03/16 23:20

＜カウント補助秀丸マクロ＞

-----------------ここから
selectall ;
delete ;

#i = 1;
#count = 200;
#num = val(input("start ="));

while( #i <= #count ){
insert str(#num) ;
if(#i%10 == 0) insert "\n" ;
else insert " ";
#num = #num + 1;
#i = #i + 1;
}

selectall ;
copy;
-----------------ここまで

19 ：ほんわか名無しさん：02/03/16 23:20

＜カウント補助EXCELマクロ＞
　
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

20 ：ほんわか名無しさん：02/03/16 23:21

＜過去のキリ番一覧＞　（追加）

4500000 128 名前：ほんわか名無しさん投稿日：02/03/16 03:05

21 ：ほんわか名無しさん：02/03/16 23:22

4583611

22 ：ほんわか名無しさん：02/03/16 23:23

4583612

23 ：ほんわか名無しさん：02/03/16 23:31

4583613

(･∀･)ｶｹﾞﾅｶﾞﾗ､ﾐﾏﾓｯﾃﾙｿﾞ!!

24 ：ほんわか名無しさん：02/03/17 00:39

重複なのでこちらへどうぞ
http://yasai.2ch.net/test/read.cgi/honobono/1016284251/

25 ：ほんわか名無しさん：02/03/17 00:40

さげ忘れてた。すまそ。

26 ：暇パカ ◆hiMaPacA ：02/03/17 00:41

アッチ書けます？

27 ：ケン：02/03/22 00:07

昇竜拳！！