27コメント19KB

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

■ このスレッドは過去ログ倉庫に格納されています

0001ほんわか名無しさん

NGNG

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

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

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

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

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

0002ほんわか名無しさん

NGNG

0003ほんわか名無しさん

NGNG

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

　　　　　　　　　　　　　　

0004ほんわか名無しさん

NGNG

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　

0005　| ﾟДﾟ)＜ペニス勃起厨 ◆y05xadrI

NGNG

ペニスぴんこ起ち！

0006ほんわか名無しさん

NGNG

0007ほんわか名無しさん

NGNG

0008ほんわか名無しさん

NGNG

0009ほんわか名無しさん

NGNG

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

　　

0010ほんわか名無しさん

NGNG

0011ほんわか名無しさん

NGNG

0012　| ﾟДﾟ)＜良ｽﾚ判定厨 ◆SurePTTc

NGNG

良スレ！　　　　

0013ほんわか名無しさん

NGNG

0014ほんわか名無しさん

NGNG

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

0015ほんわか名無しさん

NGNG

0016ほんわか名無しさん

NGNG

＜過去のキリ番一覧＞
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

0017ほんわか名無しさん

NGNG

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

「スクリプトによる貼り付け処理の許可」を有効にしないと、
コピー機能は使えません。その場合は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>

0018ほんわか名無しさん

NGNG

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

-----------------ここから
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;
-----------------ここまで

0019ほんわか名無しさん

NGNG

＜カウント補助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

0020ほんわか名無しさん

NGNG

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

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

0021ほんわか名無しさん

NGNG

4583611

0022ほんわか名無しさん

NGNG

4583612

0023ほんわか名無しさん

NGNG

4583613

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

0024ほんわか名無しさん

NGNG

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

0025ほんわか名無しさん

NGNG

さげ忘れてた。すまそ。

0026暇パカ ◆hiMaPacA

NGNG

アッチ書けます？

0027ケン

NGNG

昇竜拳！！

■ このスレッドは過去ログ倉庫に格納されています