日本ラクテーション・コンサルタント協会(JALC)では「人工 乳による牛乳アレルギー予防の可能性を示唆する報道等に対するJ ALC の見解」を作成、サイトにアップしています。 その理由は、 母乳だけで育てるよりも混合栄養で 育てる方が、子どもの牛乳アレルギーが予防されるかのよ うな記述が最近の報道でみられます。 新型コロナウイルスCOVID-19についてもそうですが、報道される内容は誤解と偏見に満ちており、医学的な国際常識から遠い場所にあることも、もはや驚きというよりあきらめ感でながめています。 しかし、保護者の方々には正しい知識をお届けしたいと思いますので、HPより情報を転載いたします。 一部を抜粋しておきます。 1. 本件へのJALCの問題意識 最近の報道において、母乳だけで育てるのではなく、母乳と牛乳由来の人工乳を与える混合栄養で育てる方が、子どもの牛乳アレルギーが予防されるかのような記述がみられる。 母乳で育っている乳児に牛乳由来の人工乳を追加することで牛乳アレルギーを予防するかどうかについては、その摂取時期や摂取量、アレルギー発症有無の観察時期により現在様々な異なった結論の報告があり、議論のあるところである。アレルギーに関する研究の一側面を大きく取り上げることで、牛乳アレルギーと授乳についての研究の蓄積がまだ十分ではないにもかかわらず、混合栄養のほうが好ましいと考える医療者や母親が増加すること、また、母乳だけで育てている母親に牛乳アレルギーへの不安を与えることを、当会は危惧している。 出生直後から母乳だけで育てることは、アレルギー疾患予防に関連する腸内細菌叢の形成や免疫の発達の観点からも重要とされる。乳児の栄養方法は、牛乳アレルギー予防の観点だけではなく、より幅広い様々なアレルギー疾患や感染症など他の疾患の予防や児の発達への利点など母子の健康上の利点を考慮して、総合的に判断する必要がある。 2. 少量の人工乳で牛乳アレルギーは防げるのか 少量の人工乳を与えることで牛乳アレルギー予防の効果があるとの最近の報道の根拠として、2020年9月に発表された 崎原らの論文 1) が引用されていることが多い。この論文は、出生直後から牛乳由来の人工乳を与えられている児が多数を占める集団を対象とした論文であり、結果の解釈にはいくつか注意点がある。 崎原らの論文の概略を以下に示す。この研究は、乳児に少量の人工乳を投与することによって、牛乳アレルギーのリスクを低下させられるかどうかを調べたランダム化比較試験である。504名の乳児がランダムに投与群と回避群に割り振られた。投与群では、生後1か月から2か月間、毎日10ml以上の牛乳由来の人工乳を与えるように養育者に指示した。回避群では、母乳以外のものを与える場合には、大豆を原料とした人工乳を与えるように指示した。生後6か月時に牛乳由来の人工乳を用いて経口食物チャレンジテストを行ったところ、投与群では牛乳アレルギーの発症者が有意に少なかった(投与群0.
どんなウンチをしますか?
この記事の監修ドクター りょうキッズクリニック(埼玉県所沢市)院長。平成10年順天堂大学卒業後、日本大学小児科研修医、沼津市立病院小児科、横須賀市立市民病院小児科、日本大学小児科助教、瀬戸病院小児科医長を経て現在に至る。小児科専門医。 「梁尚弘 先生」記事一覧はこちら⇒ 赤ちゃんのアレルギーと母乳の関係 授乳中は母乳の質と赤ちゃんの健康を考え、たばこやアルコール、薬はもちろん、食べるものにも神経質になりますよね。ママが食べたもので、母乳を飲んだ赤ちゃんに影響が出ることはあるのでしょうか?母乳と乳児アレルギーの関係について見ていきましょう。 母乳で赤ちゃんが食物アレルギーになることはある? ごくわずかではありますが、母乳中にはママが食べたもの(成分)が含まれます。ママが食べた卵や小麦のたんぱくは、食べた後2~6時間後から4日後まで母乳中に検出されたというの報告があります[*1]。実際、母乳を介してアレルゲン(アレルギーの原因となる物質)を赤ちゃんが摂取することで、アレルギー症状を起こすことがありますが、多くの場合は母乳を飲んでもアレルギーの症状を起こさないか、軽くすみます。 アレルギー予防のため、妊娠中・授乳中に食事制限を行うことは推奨されていません。食物除去はママや赤ちゃんの栄養障害を起こす可能性がある[*2]ので、自己判断で行うことはやめましょう。 授乳中に食物アレルギーが疑われるときは? 赤ちゃんにアレルギーのような症状が見られたからといって、すぐに食物アレルギーと断定できません。アレルギーの要因は多岐にわたり、食物以外にほこりや洗剤など、生活環境の影響を受けている可能性も高いためです。そのため、アレルギーの原因がどこにあるのかは、詳しい検査をしないとわかりません。 赤ちゃんに湿疹や皮膚の赤み、かゆみなど、アレルギーが疑われる症状が出ても自己判断で授乳を中止することはせず、まずは小児科やアレルギー科を受診しましょう。 アレルギーの要因は詳しく調べないと判別できないことが少なくありません。赤ちゃんの症状にもよりますが、まずは外用薬での治療や正しいスキンケア(清潔と保湿)を行い、それでも改善しないときは、医師の指導のもと食物除去試験と食物負荷試験を行うことがあります[*3]。 食物除去試験とは、アレルゲンとして疑わしい食べ物をママが一定期間(1〜2週間)完全に食べないようにし、これで赤ちゃんの症状が改善するかどうかを観察する検査です。一方の食物負荷試験は、食物除去試験に続き、ママがアレルギーの要因と思われる食べ物を食べた上で母乳を与え、赤ちゃんに症状が出てくるかどうかを観察する検査です。この結果を受け、食物アレルギーの診断を行います。 赤ちゃんが食物アレルギーと診断されたら?
8%vs回避群6. 8%)。この結果により、著者らは「生後1か月から2か月間、牛乳由来の人工乳を毎日与えることは牛乳アレルギーの発症予防になる」と結論づけた。 ここで注意したいのは、崎原らの研究は、母乳だけで育てる群と母乳と人工乳との混合で育てる群とを比較したのではないという点である。回避群であっても、生後3日以内に94%が牛乳由来の人工乳を与えられていた。つまり、回避群は母乳だけで育つ児の群ではなく、生後1か月以降の2か月間に牛乳由来の人工乳を避けた群であった。崎原らの論文は、出生時から母乳だけで育てるよりも、母乳と牛乳由来の人工乳を与えながらの混合栄養で育てた方が牛乳アレルギーの発症のリスクを下げる、と示したものではない。 3.
プロローグ( とばしてください ) あなたは、「ネ申エクセル」という言葉を聞いたことがあるだろうか。 本来は計算に使うエクセルを、文字と罫線を配置するためだけに使うことを揶揄する言葉だ。※1 理系出身の方なら、「こんな酷いエクセルを見た」という笑い話で盛り上がった経験があるだろう。情報系の学科を卒業した私も、一度や二度ではなくそのような場に居合わせてきた。しかし告白しよう。そのような場に渦巻く哄笑の中でひとり、冷たい汗が背中をつたう私がいたことを! 印刷会社の営業職を続けて10年余。私は日々「ネ申エクセル」と戯れ、そして慣れきってしまった…… いや、それだけではない。 見た目を整えるという「表のネ申エクセル」から遠く離れ、計算するでもなく書類を作るのでもない「裏のネ申エクセル」。 いわば、「 闇のエクセル術――エクセル黒魔術 」とでも言うべきものに、私は取り憑かれてしまっているのだ。 ※1 情報を再利用しにくくなったり、データ分析やRPAツールなどの機械的な処理が難しくなるので、良くないとされています。 こんにちは。営業部の斎藤です。今回は印刷会社(弊社だけ? 【Excel】ファイル名一括変更・ファイル一括移動ツール – 微風 on the web…. )での、ちょっと変わったエクセルの使い方を紹介します。決して正道ではありませんが、あなたの業務にも役に立つかもしれませんよ。 エクセル黒魔術とは エクセル黒魔術は、私一人が名付けているだけの、時短テクニックです。簡単にいうと、 「エクセル」 と 「正規表現(テキストエディタ)」 と 「コマンドプロンプト(闇、黒き画面)」 を活用して、作業の効率アップをはかります。いろいろな事に応用できますが、今回はその便利さを紹介するために一例を紹介しましょう。 ※ 呪文である正規表現は、追加の道具が必要なため今回は扱いません。 テストケース:卒業アルバムの顔写真データに、出席番号と氏名のファイル名をつける。 想定ケース: ある学校の卒業アルバム制作が進行中。生徒の顔写真は、出席順にカメラマンが撮影済。 納品の直前に、写真データも納品することになり、 すべての写真に【出席番号と生徒名】のファイル名をつけることに! さぁ手作業だと大変です…… 左の写真データに、右のようなファイル名を付けます。 材料: 出席順に撮影された写真データ、 出席名簿のエクセルファイル 道具:(Windowsの想定です) エクセルと メモ帳 ダミーデータは こちら からダウンロードできます。 step1 出席番号から、納品ファイル名を作る 左側の客先支給の名簿から、納品ファイル名を作ります。 エクセルに慣れた方なら、文字列を結合する関数や、"&"演算子を使って処理すると思いますが、ここでは「邪道」としてテキストエディタを使います(今回はメモ帳でどうぞ)。 手順はこうです。 1.列を追加して、"組"、"番 _ "、"" でフィルする。 2.エクセルからメモ帳にコピペ。 3.タブを、置換して削除。ついでに、姓名の間のスペースも削除 4.エクセルに戻す。 メモ帳でタブを置換するには、タブをコピーして、置換メニューに貼り付けます。 ちょっと不便ですね。 エクセルデータをメモ帳にコピペすると、 列の境目はタブ、行の境目は改行 になります。これを利用して、メモ帳に貼り付けてからタブを置換することで、 簡単に結合 ができます。 (関数を使わないので、エクセルの再利用ができませんが、良いのです。エクセル黒魔術は一度きりの作業をいかに早く済ませるかがキモなのです!)
いざ実行!! 実行すると、以下の画像のように変更したいファイルがA列に一覧表示されます。 手順③B列の情報を手動で記入する 変更後のファイル名はさすがに自動設定はできませんので、 変更したい名前をそれぞれ記入 してください。 私の場合は以下のように記入を行いました。 ※上の画像のように連番ファイルを作成する場合は基準となるセルの角をダブルクリックすると一瞬で記入することができます。 ここまでで下準備完了です。 手順④ファイル名変更を実行する 準備が整ったら、もう一度VBAの記述に戻ります。 次はファイル名変更コードを記入しましょう。 以下のコードを丸ごとコピーしてください。 Sub file_rename() Dim j As Integer j = 1 Do Until Cells(j + 3, 1) = "" Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2) j = j + 1 ※今回はマクロが2つあるので、ご注意ください。 file_renameの方を実行します。 再び、いざ実行!! (実行しても、エクセルシート上はなにも変化はおきません。) 実行が終わったら、ファイルが保存してあったフォルダを確認してみましょう。 ファイル名がエクセルシートのB列に記入した名前に変わっているはずです。 終わりに というわけで今回は、指定したフォルダ内のファイルの名前を一括変更する方法をご紹介しました。 一度作っておけば、いろいろな場面で活用できるはずです。ぜひ時間のあるときに作っておきましょう。 このブログでは、エクセル(VBA)を中心に、様々な業務効率化スキルを紹介しています。 ■生産性の低い作業ははるべくしたくない。 ■もっと業務を効率化したい。 こんな人はぜひ他の記事も読んでみてください。 また、VBAを使ってこんなことがしたいんだけど、やり方がわからない、という悩みを抱えているかたは、お気軽にコメント欄から質問してください。 私にわかる範囲であればご協力いたしますので。(もちろん無料です。) 最後に・・・ このブログを応援してあげても良いよ、という方は以下のボタンをポチっていただけると嬉しいです。 にほんブログ村 Twitterもやっていますので、興味があれば覗いてみてください。 Follow @HigashiSalary それではまた!!
大量のファイルの名前を書き換えないといけない。ひとつひとつ手作業でやっていたら日が暮れそうだ。 この記事では、こんな悩みをエクセル(VBA)を使って一瞬で解決します。 さっそくやっていきましょう!
仕事でも趣味でも、PC上のファイル名を一括変更したい時、たまにありますよね?
オススメ記事
SelectedItems(1) ' ユーザーに処理方法の確認 Dim rc rc = MsgBox("指定したフォルダのファイル一覧を取得します。" & vbCrLf & _ vbCrLf & _ "現在のファイル一覧は残したまま、その後ろに追加しますか?" & vbCrLf & _ "※ 「いいえ」を選択した場合、現在の一覧をクリアして、新たに一覧を作成します" _, vbYesNoCancel) If rc = vbCancel Then MsgBox ("処理をキャンセルしました。") Exit Sub ElseIf rc = vbNo Then '既存データクリア (headerR + 1 & ":" &). ClearContents End If ' ファイル情報一覧を作成 Dim fileObj As Object Dim i As Long: i = 1 Dim endR: endR = Cells(, "A")(xlUp) For Each fileObj In tFolder(folder) If (tributes And 2) Or (tributes And 4) Or (tributes And 8) Or (tributes And 16) Then '2:隠しファイル 4:システムファイル 8:ディスクドライブボリュームラベル 16:フォルダまたはディレクトリ はスキップ Else 'ファイル一覧に追記 (endR + i, "A") = folder (endR + i, "B") = tBaseName(fileObj) (endR + i, "C") = tExtensionName(fileObj) (endR + i, "D") = (endR + i, "E") = Created (endR + i, "F") = LastModified i = i + 1 Next End Sub Sub ファイル移動名前変更() rc = MsgBox("ファイル名一括変更 & ファイル一括移動処理を行います。よろしいですか? ", vbOKCancel) ' 変数宣言 Dim errFlg As String Dim procFlg As String Dim oldFileName As String Dim oldFolderPath As String Dim oldFileType As String Dim oldFileFullPath As String Dim newFolderPath As String Dim newFileName As String Dim i As Long Dim endR: endR = ("A3") + ("A3").