2008-01-01から1年間の記事一覧

マラソンゲーム２プレイヤーデータ

名前 スピード コーナー スタミナ スパート Mook 28 25 25 22 totsuan 32 33 35 4 FLOW_GAMA 33 34 33 2 tek_koc 30 30 40 5 PoiMan 40 30 30 1 Zelda 40 28 32 4 s-n-k 40 20 40 1 kanihon 42 24 34 4 kaka777 30 40 30 3 skinheadbutt 38 31 31 5 jan8 30 …

マラソンゲーム２

マラソンゲーム２は人力検索とExcelを使った参加型ゲームです。 以前、行ったマラソンゲームに少し手を加えてみました。 第一弾 陣取りゲーム http://q.hatena.ne.jp/1212842604 第二弾 マラソンゲーム http://q.hatena.ne.jp/1213355560 第三弾 プロレスゲ…

電話番号を抜き出す

電話番号が１０〜１３桁になることから判別する部分をいれました。 （ＰＨＳが１１桁で−をいれると１３桁） ただし、 東京都墨田区12-3456-7890 なんていう長い丁番地があると判別不能。ほとんど無いと思うけど。 Option Explicit Sub Macro() ' データファ…

じゃんけんプロレス

id:totsuanさんのじゃんけんプロレスの結果を集計するためのマクロです。 http://q.hatena.ne.jp/1222357834 じゃんけんプロレスでは全員と対戦するということなので１９０試合にもなるようです。 その場合、手作業だとかなり大変でミスもありそうなので結果…

犯人Ｂのヒットマン

プロローグ 犯人Ｂの役割を与えられる。 過去ログをざっと見てわかったことは過去2回犯人はわずか3日で負けていること。そのためか凶行で殺害できる人数を増やし、視界の広い犯人Bを導入することで犯人側を少し有利にしようという変更のようだ。 犯人Ｂとい…

ヒットマン２日目

■

ニクハバ罰ゲーム

■

プロレスゲームデータ

名前 体力 力 技 相性 必殺技 PoiMan 32 67 1 65 ルーマニアン・ソーメン流し改 Zelda 45 30 25 50 野原ひろしの靴かざし hokuraku 40 60 0 100 カントリーマァム・ロケット f_r_a_g_m_e_n_t 30 50 20 22 石の上にも3年 sheile 19 1 80 50 バイキルト GLOOM …

プロレスゲーム

Excelを使った参加型ゲームの第３弾です。 第一弾 陣取りゲーム http://q.hatena.ne.jp/1212842604 第二弾 マラソンゲーム http://q.hatena.ne.jp/1213355560 実際に動かしてみようと思う方は標準モジュールに以下のプログラムをコピペしてください。 ＶＢＡ…

マラソンゲーム結果

以下の表全体を選択状態にしてコピーして、Excelのデータ部分に 形式を選択して貼り付けから、テキストを選んで貼り付けてみてください。プレイヤーデータ 名前 スピード コーナー スタミナ taknt 33 33 34 FLOW_GAMA 33 34 33 kumaimizuki 45 20 35 Zelda 3…

マラソンゲーム

Excelを使った参加型ゲームの第２弾です。実際に動かしてみようと思う方は標準モジュールに以下のプログラムをコピペしてください。 ＶＢＡって使ったことが無いという方はこちらを参考にしてみてください。http://www.officepro.jp/excelvba/ini/index1.htm…

陣取りゲーム

上のようなExcelを使った参加型ゲームを考えてみました。 実際に動かしてみようと思う方は標準モジュールに以下のプログラムをコピペしてください。 ＶＢＡって使ったことが無いという方はこちらを参考にしてみてください。 http://www.officepro.jp/excelvb…

■

1) ｢通販管理｣→「顧客管理」 顧客管理に転記元列を追加。 Sub MacroTuuhanTenki1() Application.ScreenUpdating = False '管理ブックのパスを環境に合わせてください Const myPath As String = "C:\管理" '顧客管理のブック名 Const wbName As String = "顧…

■

全て作業列を使うパターンです。 顧客名簿に全角でも半角でも処理できるようになっています。 スクロールの問題修正。 会員番号の前方一致。 オートフィルターが常に表示されるように修正。 名前・フリガナの検索方法を変更。 ２度目の検索で表示されない不…

■

■

誕生日処理変更。 最終行取得を連番に修正。 修正日処理変更。｢通販管理｣→「顧客名簿」 Sub MacroTuuhanTenki() Application.ScreenUpdating = False Dim i As Integer Dim j As Integer Dim kokyaku_Last As Long '顧客名簿の最終行 Dim tuuhan_Last As Lon…