▼歌詞 一年生になったら 一年生になったら ともだち100人 できるかな 100人で 食べたいな 富士山の上で おにぎりを パックン パックン パックンと 「しゃぼんだま」 しゃぼんだまは作曲者の息子が亡くなった時に作られた曲 子供のまま大人になることなく逝った我が子をしゃぼんだまに例えている ▼歌詞 シャボン玉飛んだ 屋根まで飛んだ 屋根まで飛んで こわれて消えた 風 風 吹くな シャボン玉飛ばそ シャボン玉消えた 飛ばずに消えた 生まれてすぐに こわれて消えた 風 風 吹くな シャボン玉飛ばそ 「グリーングリーン」 戦争に行く父との会話を息子が回想してる歌 ▼歌詞 ~ 5 その朝 パパは出かけた 遠い旅路へ 二度と 帰って来ないと ラララ ぼくにもわかった グリーン グリーン 青空には 虹がかかり グリーン グリーン 丘の上には ララ 緑がはえる ~ 7 いつか ぼくも 子供と 語り合うだろう この世に生きる喜び そして 悲しみのことを グリーン グリーン 青空には かすみたなびき グリーン グリーン 丘の上には ララ 緑がひろがる 関連まとめ 「サザエさん」の怖い・シュールな画像集
こんにちは(*'ー'*)ノまきゅです。 さっき子供達とお風呂で話してた事なんですが… 昔よくやった『花いちもんめ』の歌詞が子供達と全く違う😰 一緒に歌ってたら私だけ違う😭 世代が違うからか生まれが違うからかこう言うことが多々あります。 私は生まれも育ちも兵庫で子供達は生まれも育ちも大阪。 そして『花いちもんめ』ですが… 『私の場合』 あの子がほしい あの子じゃわからん この子がほしい この子じゃわからん 相談しよう そうしよう きーまった ○○ちゃんがほしい ○○ちゃんがほしい じゃんけんで決めよう そうしよう 勝って嬉しい花いちもんめ 負けて悔しい花いちもんめ 隣のおばさんちょっとおいで 鬼が怖くていかれません おかまをかぶってちょっとおいで それでも怖くていかれません そしてはじめにもどっていました。 『子供達の場合』 勝って嬉しい花いちもんめ 負けて悔しい花いちもんめ タンス長持ちどの子がほしい どの子じゃわからん 相談しましょ そうしましょ ベー(あっかんべーをする) きーまった ○○ちゃんがほしい ○○ちゃんがほしい そしてじゃんけんしてはじめにもどるそうです。 なんでタンスなんだろう?べーって あと鬼ごっこのこと『おにご』とか『大阪じゃんけん』とかあってまだまだ知らないものがでてきそうです
昔から日本で親しまれている「伝承遊び」。保育園や幼稚園でも、鬼ごっこや折り紙など、昔からある遊びを楽しんでいるところも多いのではないでしょうか。それ以外にも、日本にはたくさんの伝承遊びが伝わっています。今回は、古くから伝わる伝統文化を感じながら、園で子どもたちと楽しめる遊びをご紹介します。 伝承遊びとは 日本で古くから親しまれている遊びのことを「伝承遊び」といいます。例えば、普段から楽しんでいる鬼ごっこや折り紙はもちろん、季節の遊びとして取り入れる園も多いけん玉やコマ回しもそのひとつです。どれくらい古くから伝わってきているかと言うと、例えばコマ回しは、平安時代より前に中国から朝鮮半島を経由した伝わったことが文献に残っています。民間で遊ばれている姿が南北朝時代(西暦420年~589年)の文献に記述されていますので、1600年以上も前から親しまれてきた伝承遊びということが分かりますね。 今回は、伝承遊びの良い点やおすすめを紹介していきます。ぜひ日々の遊びのレパートリーに、取り入れてみてくださいね。 伝承遊びを取り入れるメリット まずは、伝承遊びの良いところをまとめてみました。保育に取り入れると、どんなメリットがあるのでしょうか?
ERI ROCK 2016/02/29 風をあつめて はっぴいえんど 窪田正孝 ボーカル ✱追記: ♯6〈🌷女性キー〉のエアハモも作りました! 6コラボ 玻璃(はり)@『罪と罰』椎名林檎🍎 2020/11/20 風をあつめて はっぴいえんど ギター 名曲をギター伴奏。 しびたす 2016/07/10 歌おう、演奏しよう、コラボしよう。 スマホでつながる音楽コラボアプリ 使い方・楽しみ方 nanaのよくある質問 お問い合わせ プライバシーポリシー 特定商取引法に基づく表示 資金決済法に基づく表示 利用規約 会社概要 コミュニティガイドライン ©2012-2021 nana music
役に立ちませんでした。 素晴らしい! フィードバックをありがとうございました。 この回答にどの程度満足ですか? フィードバックをありがとうございました。おかげで、サイトの改善に役立ちます。 フィードバックをありがとうございました。
Name = "NewSheet" 抽出データ出力用のシート作成して、ws2として扱うようにします。 そしてws2のシート名をNewSheetとします。 プログラム6|列番号として使用する変数kを設定 Dim k As Long k = 1 プログラム13で、抽出先のシート(ws2)に列データを書き出していきます。 このデータの書き出しを行うとき、列番号を指定するのですが、その初期値を1としています。 k=1としているのは、A列(列番号1)から書き出しを行うためです。 プログラム7|最終行の行番号をcmaxとして設定 Dim cmax As Long cmax = ws1. Count 変数cmaxをws1の最終行の行番号を取得する変数として設定します。 上記のws1の最終行を取得できます。 ただし「対象シート. UsedRange」で取得できるセル範囲は、対象シートで[Ctrl] + [End]のショートカットキーを実行したときに選択されるセルとなります。 この事例ではデータは16行目までしか入っていませんが、[Ctrl] + [End]のショートカットキーでE18を選択しています。 よって18行目まで処理を行うことになります。 intで検証してみます。 intでの検証結果 Debug. Print ws1. Count >>> 18 プログラム8|変数設定 Dim rng As Range Dim keyword As Variant 変数を設定しています。 プログラム9|対象データを列ごとに処理 Dim i As Long For i = 1 To ws1. セル内の一部の文字を取り出す －MID 関数 など－｜クリエアナブキのちょこテク. Count '(中略) Next 対象データのシート(ws1)を列ごとに処理していきます。 上記のws1の最終列を取得できます。 Debug. Count >>> 6 UsedRangeの仕様上、6列目(F列)まで取得します。このときF列は空欄ですが、VBAの処理は実行されます。 しかし大きな影響はないため、特に問題なしとして進めています。 プログラム10|各列の範囲を取得 Set rng = ws1. Offset ( 0, i - 1) 対象データのシート(ws1)の各列の範囲をrngとして取得します。 以下のように記述しても同じ処理を実行できます Set rng = (cells(1, i), cells(cmax, i)) Rangeとoffsetを使った場合と、RangeとCellsを使った場合がありますが、どちらでも処理は実行されるので馴染みの方法を選択すればよいです。 プログラム11|プログラム2のキーワードを全て取得 For Each keyword In Split ( keywords, ", ") '(中略) Next プログラム2で入力したkeywordsを「, 」で区切って、繰り返し処理を行います。 ここでは「keywords=ID, 取引金額」なので、intで検証すると以下のようになります。 For Each keyword In Split ( keywords, ", ") Debug.
質問日時: 2017/03/11 11:10 回答数: 6 件 関数初心です。 画像のように、例えば★を含むセルの文字全てを抽出する方法をどなたかご教示いただけませんでしょうか? もう少し詳しくいうと、A列で★を含むセルの文字である「★バナナ」と「★レモン」を抽出する、という場合です。 どうぞ、よろしくお願いいたします。 No. 4 ベストアンサー 回答者: siffon9 回答日時: 2017/03/11 13:03 B2 に以下を入れます(配列数式なのでCtrl+Shift+Enterで入力) =IFERROR(INDEX($A$2:$A$7, SMALL(IF(LEFT($A$2:$A$7, 1)="★", ROW($A$2:$A$7), 10000), ROW(A2)-1)-1), "") あとは下へ向けてフィルドラッグです。 0 件 No. 6 tom04 回答日時: 2017/03/11 18:14 こんばんは! No. 4さんとほとんど同じやり方ですが・・・ B2セルに =IFERROR(INDEX(A$1:A$1000, SMALL(IF(ISNUMBER(FIND("★", A$1:A$1000)), ROW(A$1:A$1000)), ROW(A1))), "") 配列数式なのでCtrl+Shift+Enterで確定! B2セルのフィルハンドルで下へコピーしてみてください。 ※ 「★」がどこに含まれていても大丈夫です。m(_ _)m No. 5 yuji3690 回答日時: 2017/03/11 13:32 A列の左にIDを入れる列を挿入します。 A列:ID、B列:名称、C列抽出結果となります。 A2=IF(LEFT(A2, 1)="★", MAX(A$1:A1)+1, "") これを必要なだけ(例の場合A3~A7に)コピーします。 これで名称が★から始まっていれば、そのA列にIDが振られるようになりました。 C2=IF(ROW()-1>MAX(A:A), "", VLOOKUP(ROW()-1, A:B, 2, FALSE)) これを必要なだけ(例の場合最大でC3~C7、★の数の上限が分かっていればそこまででもよい)コピーします。 2行目を1つめとしているので、ROW()-1を使います。★の数を超えた場合は空白を表示するようになっています。 No.