3の倍数と3が付く数字のときだけアホになるグルメレース - Niconico Video
「3の倍数と3が付く数字のときだけアホになります」のネタといえは、世界のナベアツ(現: 桂 三度 かつら さんど )さん。 こいつをVBAの繰り返し処理でやってみましょう。 そうそう、今回のネタはAccessだけでなく、ExcelなどのVBAでもできますよ。 懐かしの名ネタをVBAで再現! 3の倍数でアホになる. 繰り返す範囲は、1~40。 1、2…とメッセージボックスを繰り返し40回表示させます。せっかくなんで、途中でやめてしまう処理も含めます。 アホにならないときは、 (* ̄o ̄)/< 1 ! というメッセージボックスを。 アホになるときは、 3 ━━━━(@∀@)/━━━━!! を表示させます。 VBAのコードです 使用される際は、そちらの環境で十分テストのうえ使用してください。 コードはこちら。標準モジュールに記述してください。 Option Compare Database Option Explicit Sub fool_when_Including3_or_MultipleOf3() Dim LPcnt As Long Const srusmsg = "(* ̄o ̄)/< " 'アホでないときの顔文字を格納 Const flmsg = " ━━━━(@∀@)/━━━━!!" 'アホの顔文字を格納 '1から40まで繰り返し For LPcnt = 1 To 40 '変数 LPcnt の数が3の倍数のとき If LPcnt Mod 3 = 0 Then If MsgBox(LPcnt & flmsg, vbOKCancel, "アホ") = vbCancel Then Exit Sub '変数 LPcnt の数が3の倍数でなかったとき '3が含まれるかどうか判定する ElseIf LPcnt Like "*3*" Then '変数 LPcnt の数が 3を含む数であったとき Else 'そうでなかったとき If MsgBox(srusmsg & LPcnt & "! ", vbOKCancel, "アホではない") = vbCancel Then Exit Sub End If Next LPcnt MsgBox "オーモロ" & flmsg, vbExclamation, "世界のナベアツに敬意を込めて!" End Sub 実際に動かしてみましょう では、実行してみます。 「OK」を押せば、カウントアップして次のメッセージボックスを表示させます。 「もうええわ!」となったところで「キャンセル」を押してください。繰り返し処理から抜け出します。 解説です Dim LPcnt As Long 変数「LPcnt」を宣言します。ちなみにLoop counterの略です。ループしている回数を数えます。 Const srusmsg = "(* ̄o ̄)/< " 'アホでないときの顔文字を格納 Const flmsg = " ━━━━(@∀@)/━━━━!!"
1 れもん 2021/04/14(水) 19:55:03. 82 ID:iR4dl7bE0 1 ハ%'') シュルリシュリ… / ‰ [ ̄ ̄] ソー ハ%'') ウッシャァァー!!! / ‰ 今度コソ 触手ノカチィー! [ ̄ ̄] 華麗ナル 忍ビコミデ触手選手大勝利ナノダー!! ミタカー!コレガ触手ノ実力ゥウゥ! ハ%'') ・・・・・ / ‰ [ ̄ ̄] ハ%'') 次ハ54カ… / ‰ [ ̄ ̄] シュルッ ハ%'') イェーースうぅ!! / ‰ 触手選手二度目ノ勝利デスッ!! [ ̄ ̄] コノ美しい蔓サバキ!! 昼ノ最悪デハ無敵ニ独走シテオリマス!! アホアホダンス モ決まっテマスねぇー! ヨッ!オレ カッコイイ!!モテスター! シュルッ ピシーィー!! ハ%'') ・・・次ハ57 / ‰ [ ̄ ̄] ハ%'') ソーォーッと / ‰ [ ̄ ̄] シュルン ハ%'') オレッテ ツオォイイー!! / ‰ フゥーフゥーフゥーフウゥー♪ [ ̄ ̄] アホ モンスタァーフウゥー♪ ハ%'') ・・・次60!! / ‰ [ ̄ ̄] ( ̄ ̄ ̄ ̄⌒ヽ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ~ ̄ ̄ ̄(_ノ、ノ < 暖かく見守ってるよ触手の一人遊びかわいいねよしよし UU ̄ ̄ U U \__________ ハ%'') オウフゥゥーーーーッ!!! / ‰ 育ムヨウナ暖かナ視線・・・ [ ̄ ̄] コレハ・・・ハズカシイィィーー!!ヒョうー!!! 61 れもん 2021/04/15(木) 12:26:14. 3の倍数でアホになるスレ [sc] | 2ch検索. 53 ID:q2dhPCzE0 そろそろどれが3の倍数かわからなくなってきたぞ。。。 62 れもん 2021/04/15(木) 15:22:34. 18 ID:q2dhPCzE0 触手こういうスレ好きやったんやね。意外。 ( ̄ ̄ ̄ ̄⌒ヽ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ~ ̄ ̄ ̄(_ノ、ノ < 63は素数なので3の倍数ではないはず UU ̄ ̄ U U \__________ 64 れもん 2021/04/15(木) 16:15:36. 31 ID:q2dhPCzE0 めちゃ頭ええアホや。 65 k 2021/04/15(木) 20:54:26. 25 ID:0iERmpM10 ∧☆彡 / ̄ ̄ ̄ ̄ ̄ ̄ ~''"1☆''∬゚∀゚) < 全回避☆ UU ̄ ̄ U U \______ 66 れもん 2021/04/15(木) 20:57:36.
3の倍数でアホになるコドライバー作ってみた - Niconico Video
(笑) 例えばお金があなたに この台詞を言われて あなたの元に行こうと思うか 話を戻しますが 要は日本人はもっと 感情を 否定せず に 感じたことを そのまま 認めればいい と思います。 ポイントはそこにジャッジを入れないこと!
3の倍数でアホになるナベアツ電卓 - YouTube
25 西日本豪雨災害によるお届けの影響について 今回の豪雨の影響で、弊社(広島県呉市)は物流等に影響が出ております。 ご注文・ご依頼をいただくお客様、お取引先各社様には、 到着の遅れなど、大変ご迷惑をおかけいたしますが、何卒よろしくお願い申し上げます。 現時点の発送状況・お問い合わせ状況につきましては、以下をご確認くださいませ。 【2018. 07. 25更新 災害による状況の詳細】 2018. 6. 5 らくらくパンツ(テレコ)再入荷しました! らくらくパンツ(テレコ) を、数量限定で再入荷しました! 伸縮性に優れているため動きやすく、身体の動きを妨げにくいボトムスです。 2018. 2 ぜんらっく(ワッフル)/らくらくパンツ(ワッフル)を入荷しました! らくらくパンツ(ミニ裏毛)に新色追加! 2018. 5 ポイント5倍キャンペーンを開始しました! 水土里ネットてしおがわ. いつもハッピーおがわ製品をご愛顧いただき、誠にありがとうございます。 ハッピーおがわショップの登録会員様に、次回のお買いものでご利用いただけるショップポイントが5倍になるキャンペーンを実施中です! ぜひ、お買いものは会員登録の上お楽しみくださいませ。 今後とも、よろしくお願い申し上げます。 2018. 10 【終了】ショップメンテナンスのお知らせ 2018年1月10日11時からのメンテナンスは、同日13時に終了しました。 引き続き、ハッピーおがわwebショップをご利用いただけます。 主な変更点は以下の通りです。 ・ 送料改定 を行いました ・配送方法に「 クリックポスト 」を追加しました。 ・webショップでも日時指定が可能になりました。(フルサイズマットレスは不可) おんぶらっく 22, 000円(税込) 【呉市安全対策課監修】避難用具大人用おんぶ紐。階段の昇り降りに活躍します。何十回も失敗を繰り返して今の形にたどり着きました。 作務らっく(かのこ) 6, 490円(税込) 和風の装いはいかがですか?介護用衣服「作務らっく」。介護向けに設計!介護用に見えないのが喜ばれています。 ハッピーそよかぜ 66, 000円(税込) 寝たきりの方でも24時間快適!床ずれ防止用の高反発マットレス ハッピールーファ 93, 500円(税込) ハード・ソフトのリバーシブル。一枚使用できる特殊寝台付属品マットレス
プロフィール Author:次郎 はじめまして次郎です。 このブログでは次郎オリジナルの画像をアップします。 画像の著作権はブログ管理者にありますので無断での転用は固く禁じております。 限定公開の記事にはパスワードが必要ですが、現在発行してません。 運営継続のためブロマガも配信しますのでご理解お願いします。 カレンダー 07 | 2021/08 | 09 日 月 火 水 木 金 土 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 - アクセスランキング ランキングに協力お願いします ブロとも申請フォーム QRコード
(別窓・動画が流れます) 2021. 7. 27 夏季営業日について 平素は格別のお引き立てを賜り厚く御礼申し上げます。 下記の期間、休業とさせて頂きますので、ご案内申し上げます。 夏期休業期間 2021年8月13日(金)~8月15日(日) 2021. 4. 26 ゴールデンウィーク期間中の営業日のお知らせ 休業期間 2021年5月2日(日)~2021年5月5日(木) 2020. 12. 22 年末年始の休業日について 下記の期間、年末年始休業とさせて頂きますので、ご案内申し上げます。 年末年始休業期間 2020年12月29日(火)~2020年1月3日(日) 2020. 27 夏期休業期間 2020年8月13日(木)~8月16日(日) 2020. 5. 22 新作衣服完成しました! 作務衣を介護用に仕立てた「作務らっく」です! 着やすさ着せやすさはもちろんのこと、見ている側も癒しになります。 作務らっく 和風の装いをぜひお楽しみください。 2020. 27 休業期間 2020年5月3日(日)~2020年5月6日(水) 2020. 2. 13 カープグッズ入荷しました! かわいいカープ仕様のミニハーモニカです。 今年こそV奪還!ミニハーモニカを吹いて応援しましょう! カープ応援ミニハーモニカ プレゼントに喜ばれること間違いなし!ぜひご覧ください。 2019. 20 年末年始休業期間 2019年12月29日(日)~2020年1月5日(日) 2019. 18 夏期休業期間 2019年8月10日(土)~8月14日(水) 2019. 22 休業期間 2019年4月28日(日)~2019年5月7日(火) 2019. おがわクリニック｜大阪狭山市｜内科｜循環器科｜消化器科｜予防接種. 1. 4 新年あけましておめでとうございます。 本年もどうぞよろしくお願い申し上げます。 2018. 19 年末年始休業期間 2018年12月29日(土)~2019年1月3日(木) 2018. 9 配送状況に関して 被災から2ヶ月経ちました。おかげさまで通常配送可能になりました。 引き続き、よろしくお願い申し上げます。 2018. 8. 9 盆休みについて 下記の期間、夏期休業とさせて頂きますので、ご案内申し上げます。 夏期休業期間 2018年8月13日(月)~8月15日(水) 尚、2018年8月11(土)12日(日)は通常休みとさせていただきます。 休業期間中は何かとご迷惑をお掛けすることと存じますが、何卒よろしくお願い申し上げます。 2018.
水土里ネットてしおがわのホームページをご覧いただきありがとうございます。 水土里ネットてしおがわ《てしおがわ土地改良区》は、安心して食料を供給するための農業用施設(用水路等)を維持管理して おり、水稲に不可欠である"水"の配分を行っておりますが、近年の混住化、異常気象等 により農業用施設の役割は農業以外の多面的機能を発揮しており、地域の皆さまにも農 業用施設へのご理解をいただけるよう様々な活動を行っておりますが、あまり知られて いないのが現実であります。 組合員の皆様はもとより、地域の皆様に土地改良区をご理解いただくための啓蒙の一 つとしてホームページを開設いたしました。これから、土地改良区の活動等について発 信していきたいと思いますので、是非ご覧いただきますようよろしくお願いいたします。
「みんなで作るグルメサイト」という性質上、店舗情報の正確性は保証されませんので、必ず事前にご確認の上ご利用ください。 詳しくはこちら 店舗基本情報 店名 わたや (【旧店名】料理・酒 おがわ) ジャンル 居酒屋、日本酒バー 予約・ お問い合わせ 048-831-0426 予約可否 予約可 5名以上不可 住所 埼玉県 さいたま市浦和区 常盤 4-3-15 大きな地図を見る 周辺のお店を探す 交通手段 JR浦和駅より、徒歩約15分 浦和駅から769m 営業時間 [月~金] 17:00~23:00(L. O.
詳しくはこちら