サクラエディタふぁんくらぶ part8at SOFTWAREサクラエディタふぁんくらぶ part8 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト664:名無しさん＠お腹いっぱい。 07/04/29 15:57:50 Bcai5wiB0 >>662 下記を、拡張子 .vbs で保存 main sub main() dim iStart, iEnd, iStep, sWork iStart = CLng(InputBox("開始の数を入力して下さい。","連番出力","1")) iEnd = CLng(InputBox("終了の数を入力して下さい。","連番出力","1")) iStep = CLng(InputBox("ステップ数を入力して下さい。","連番出力","1")) if iStep=0 then exit sub if Abs((iEnd-iStart)/iStep)>10000 then exit sub sWork = "" for i = iStart to iEnd step iStep sWork = sWork & CStr(i) & VbCrLf next InsText(sWork) end sub 665:662 07/04/29 16:19:59 dbQCvgbB0 ┌───────┐ （｜● ● ｜ ／｜ ┌▽▽▽▽┐ ｜ ／￣￣￣￣￣￣￣￣￣￣ （ ┤ ｜ ｜ ｜＜>>664ど～もです。動作確認しました。神に感謝!! ＼ └△△△△┘ ＼ ＼＿＿＿＿＿＿＿＿＿＿ ｜ ｜＼＼ ｜ ｜ （＿） ｜ ｜ ｜ ／＼ ｜ └──┘ └──┘ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch