値を変更しながらの連続印刷 指定したセルに、数字を順番に自動設定し、連続印刷するマクロです。 あるセルに出席番号を入力したら、その生徒データを表示するシートを作成したが、40人の出席番号を順に入力して、その都度印刷ボタンを押すのは面倒。 そのような時に使用します。 ※マクロ実行前に「印刷範囲」や「プリンタ」の設定等を行っておいてください サンプルファイル ●サンプルファイル ダウンロード サンプルコード コードの貼り付け場所 Sub Print_Out_1() 'セルに値を設定しながら連続印刷する。印刷対象:アクティブシート '定数 Const conStart As Long = 1 '開始番号 Const conEnd As Long = 40 '終了番号 Const conStep As Long = 1 '間隔 Const conCell As String = "A1" 'セル番地 '変数 Dim i As Long With Application. ScreenUpdating = False With. ActiveSheet For i = conStart To conEnd Step conStep (conCell) = i. 印刷範囲の設定・印刷範囲のクリア｜VBA技術解説. PrintOut Next End With.
セルの値によりVBA印刷ページ数・枚数を変更する方法 Excel-VBA 2019. 03. 19 2018. 12.
こちらでは、 Sheetオブジェクト の PrintOutメソッド を利用して、Excelの指定したシートを印刷する方法について解説しています。 メソッド とは、 オブジェクト を操作する命令文のことで オブジェクトの動作 になります。 メソッドを利用するにはオブジェクト名とメソッド名の間に「. (ピリオド)」で結んで記述します。 オブジェクト名. メソッド名 目次 はじめに 利用するメソッドについて PrintOutメソッド 引数省略で指定したシートを印刷するサンプルコード 実行結果 解説 ページ番号を指定してシートを印刷するサンプルコード 実行結果 解説 印刷プレビューで確認してからシートを印刷するサンプルコード 実行結果 解説 選択セル範囲を印刷するサンプルコード 実行結果 解説 まとめ エクセルVBAの印刷設定一覧 はじめに こちらでは、 PrintOutメソッド を利用したExcelの 指定したシートを印刷 する方法について解説します。今回は、Sheetsコレクションオブジェクトの PrintOutメソッド を利用しますが、 PrintOutメソッド はSheetsコレクションオブジェクト以外でも利用されますので、どのオブジェクトで利用できるかも確認してください。 利用するメソッドについて 今回利用するメソッドは以下になります。 PrintOutメソッド PrintOutメソッドとは Sheetsコレクションオブジェクトの PrintOutメソッド は 指定されたシートを印刷 します。 Sheets("シート名"). 印刷（PrintOut）｜VBA入門. PrintOut 引数 Sheets(インデックス番号). PrintOut 引数 引数省略で指定したシートを印刷するサンプルコード 今回のVBAコードは引数省略でExcelの指定したシートを印刷する マクロ になります。尚、今回指定する引数は省略しています。 Sub sample() Sheets("Sheet1"). PrintOut End Sub 実行結果 「Sheet1」シートを印刷します。 解説 sample プロシージャ の Subステートメント に引数は設定されていません。Sheetsコレクションオブジェクトには「 Sheet1 」シートが設定されています。そして、「Sheet1」シートオブジェクトの PrintOutメソッド には、引数が省略されていますので、処理を実行すると「Sheet1」シートが 通常の印刷設定で印刷 されます。最後は Endステートメント を利用してsampleプロシージャを終了させます。 Sheetsコレクションオブジェクトは、「シート名」で設定しましたが「 インデックス番号 」でも設定ができます。以下は「インデックス番号」で設定した内容になりますので、参考にしてください。 Sheets(1).
(conCell) = i Call Sleep(conWait) intOut ・「待機時間」 関数の動きが重たい場合は、この値を増やして下さい。1000=1秒 ラベル等 印刷のヒント 1ページに複数ラベル等を連番で表示 あるセルが「1」になったら、ラベル等が 1~6 まで表示され、「2」になったら 7~12 まで表示されるようにしたい。といったような要望を時々いただきます。 そのような場合は、マクロとワークシート関数と組み合わせます。 ラベル等の最初の数値を表示させるセルに次の数式を入力します。 =IF($A$1="", "", ($A$1-1)* 6 +1) 「$A$1」は番号を入力するセルになります。 赤字 の部分は、一度に表示させたいラベル等の数によって変更します。 次の数値を表示させるセルに、次の数式を入力します。 =IF($C$3="", "", $C$3+1) この「$C$3」は最初の数値が表示されるセルになります。 +1 の部分は最初の数値からプラスしたい数です。 他の連続番号を表示したいセルにも、同様の数式を入力します。 このように設定することで、入力するセルの数値が変わるごとに、連続番号をまとめて表示させることができます。
PrintOut ページ番号を指定してシートを印刷するサンプルコード 今回のVBAコードはページ番号を指定してExcelの指定したシートを印刷する マクロ になります。尚、今回は引数を指定しています。 Sheets("Sheet1"). PrintOut From:=1, To:=3 実行結果 1ページから3ページまで印刷します。 解説 Sheetsコレクションオブジェクトの PrintOut には、 引数From に「 1 」を 引数To に「 3 」を設定しています。 引数From は、 印刷を開始するページの番号 を 引数To は、 印刷を終了するページの番号 を設定になります。こちらの処理では、 1ページから3ページまで 印刷します。 また、こちらでは 名前付き引数 を使用して引数設定していますが、 「, (カンマ)」区切り での設定は以下のようになりますので、参考にしてください。 Sheets. Sheets("Sheet1"). PrintOut 1, 3 印刷プレビューで確認してからシートを印刷するサンプルコード 今回のVBAコードは印刷プレビューで確認してからExcelの指定したシートを印刷する マクロ になります。尚、今回は引数を指定しています。 Sheets("Sheet1"). PrintOut Preview:=True 実行結果 印刷をする前に印刷プレビューを実行してから「Sheet1」シートを印刷します。 解説 Sheetsコレクションオブジェクトの PrintOut には、引数Previewに「 True 」を設定しています。 引数Preview は、 印刷をする前に印刷プレビューを実行 するかの設定になります。こちらを「True」で設定することで印刷プレビューを実行してから「Sheet1」シートが印刷されます。 選択セル範囲を印刷するサンプルコード 今回のVBAコードは選択セル範囲を印刷する マクロ になります。 Sheets("Sheet1")("B2:D7") Selection. PrintOut Preview:=True 実行結果 「B2~D7」セル範囲を印刷します。 解説 Rangeオブジェクト の Selectメソッド で「B2~D7」のセル範囲を選択しています。次に Selectionプロパティ で選択しているセル範囲のオブジェクトに対して PrintOut の引数Previewに「 True 」を設定しています。これにより「B2~D7」のセル範囲だけを選択して印刷します。 まとめ 今回は、Sheetコレクションオブジェクトの PrintOutメソッド を利用して、Excelの 指定したシートを印刷 にする方法について解説しました。次回は、エクセルVBAでExcelシートを保護する方法について解説します。 エクセルVBAの印刷設定一覧 印刷する用紙のサイズを設定する 印刷するページの余白を設定する 印刷する先頭ページの番号を設定する 用紙のヘッダー・フッターに情報を設定する 印刷範囲を設定する 印刷プレビューを表示する シートを印刷する
「家事能力人並み以下」なズボライターが、ネットの「ラクしてキレイ技」に挑戦してます! 押入れの奥から出てきた白物衣類。 久々に見たらエリや脇の下がまっ黄色! こっちはまっ青(ll屮゜Д゜)屮 原因は「洗濯しても残る繊維の奥の皮脂汚れが酸化した」ものだそうで、 ネットにはいろいろな「黄ばみ落としハウツー」記事が。 溶剤、使用方法ともいろいろで、何が正解かわかりません。 なのでお手上げ。テヘ❤ ってわけにもいかず、よく調べましたら ・粉末の酸素系漂白剤(過炭酸ナトリウム) ・液体の酸素系漂白剤(ワイドハイターEXなど) ・液体の塩素系漂白剤(台所用漂白剤など) が中心的に使われていました。 素材はたくさんあるし、全部試して「黄ばみ落としは何が正解か」決めてみたいと思います! トライ&エラーの末めでたく「黄ばみ取り選手権」総合優勝に輝いたのは…… 「台所洗剤+過炭酸ナトリウム+スチームアイロン」さんチーム! 「過炭酸ナトリウム」はDCMのホームセンターの洗濯洗剤コーナーにありました。 粉末洗濯槽クリーナーと成分は一緒みたいです。 やり方はこちら! step1 「過炭酸ナトリウム」「台所洗剤」「水」を順に同割で混ぜます。同時にスチームアイロンをスタンバイ。 シュワシュワの最強黄ばみ取りペーストが完成! シリコンの黄ばみを落とそう！酸素系漂白剤できれいに復活 | 店舗発！地域情報. step2 シュワシュワペーストを歯ブラシに取り、綿100%シャツの黄ばみ部分に塗り塗り。 強くこする必要はなし。 step3 塗れたら間髪を入れず、アイロンのスチームをシュー! するとみるみる黄ばみが白くなっていくんですよ! 一瞬で白くなる! マジックみたい。 気が済むまでシューシューし、すすいだのち乾かしますと 結果 完璧まっ白、縫い目の奥までまっ白、布地にダメージなし! この素晴らしい作用の仕組みは 「過炭酸ナトリウム」に水を混ぜて「過酸化水素」を発生 させた。 ↓ 「過酸化水素」が加熱により、水と酸素に分解した。 このとき黄ばみ色素も分解し、無色に変化した。 的な事が、同時多発的に起こったみたいです。 そしてこの現象は、「熱めのお湯漬け」でもおきると判明! 「蒸気一発!」よりは時間がかかるものの、「約50度のお湯に漬けて冷めるまで待つ」 でも効果はありました。アイロンなしでピカピカです♫ 化繊ニットのえりの黄ばみにstep1の過酸化水素ペーストを塗布。 50度くらいのお湯につけ、ビニールをかぶせて冷めるまで放置。 結果 半日程度の放置ですっきりピカピカ!
洗濯ばさみではさんでしまうと、型崩れの原因になるため、できるだけハンガーを使用するようにしましょう。 選ぶハンガーも、針金ハンガーではなく、できれば厚みがあるもの。 すべり止めがついているハンガーなら、より型崩れを防げます。 すべり止めがない場合は、ハンガーにマスキングテープを貼ってあげましょう。 マスキングテープは水に強く、すべり止め効果があるため、手元にある場合は試してみてください。 ・首元の伸びを防止する干し方 Tシャツ干しで一番起きやすいのが、首元がでろんと伸びてしまうトラブル。 せっかく黄ばみが落ちても、首元がヨレヨレでは外へ着ていけないですよね。 このようなトラブルを防ぐためにも、ハンガーは必ず裾側から入れるようにします。 首元から強引にハンガーを通すのは、絶対にNGです。 ・Tシャツのヨレやシワを防止する干し方 干し終わったTシャツに、そのまま袖を通したいなら、ヨレやシワが少ない干し方を選びましょう。 「裾部分が上になるようにして洗濯ばさみでとめる」 「洗濯ロープに両方の袖を通して水平に干す」 「平干しネットを利用して、そのままの形で平干しする」 これらの方法を使うと、干した後の状態が、格段にアップします! 塩素系漂白剤による素材の黄ばみや変色を元に戻す方法とは？ - YouTube. 洗濯ばさみを使う場合は、挟んだ部分が跡になりやすいため、別の布などを間に挟んでおくと安心です。 ヨレができてしまった場合はどうする? Tシャツはシワができやすいため、注意して干していてもシワやヨレができてしまう場合があります。この時、生地を 無理やり 引っ張って伸ばそうとするのは厳禁! Tシャツが傷んでしまう原因になるため、絶対に避けてくださいね。 ヨレやシワができてしまった場合は、 スチームアイロン を使用しましょう。 スチーム機能をオンにしたアイロンを、をヨレやシワが気になる部分に軽くあてるだけで、気になるヨレやシワが消えていきます。 乾燥ジワやヨレを未然に防ぎたい場合は、洗濯前にアイロンをかけておくのもおすすめです。 脱水が終わったTシャツのシワを、先にアイロンで伸ばしておくことで、シワを防げるだけでなく乾燥時間も短縮できます。 Tシャツの黄ばみを防ぐには ここまでで、Tシャツの黄ばみを落とす方法が分かったと思います。 しかし、Tシャツに黄ばみができる前に 少しでも防止する方法 もあるんですよ。 自分ができるものを1つでも多く見つけて、日常に取り入れていきましょう!
皆さんは漂白剤を使っていますか? 「漂白剤を使っても汚れが残る」 「色柄ものの衣類が一部だけ脱色されてしまった」 という場合、もしかしたら漂白剤を正しく使えていないのかもしれません。 せっかく購入した衣類を汚さないためにも、まずは漂白剤の種類や使い方を把握しましょう。 漂白剤とは 漂白剤と洗濯洗剤の違いについてご存知でしょうか?
酸素系漂白剤の特徴 酸素系漂白剤の粉末タイプは弱アルカリ性のため、ウールや絹製品に使うことができません。ですが液体タイプは弱酸性なのでウールや絹にも使用できます。 粉末タイプより洗浄力は劣るものの、液体の酸素系漂白剤は繊維を傷めにくく、使える衣類の幅が広く、扱いやすいためオススメです。 酸素系漂白剤で落とせる汚れの種類について 酸素系漂白剤が得意とする汚れは次のようなタイプです。 【酸素系漂白剤はこんな汚れに】 ・汗じみでできた黄ばみ ・食べこぼしなどの油汚れ ・皮脂汚れ ・口紅汚れ 酸素系漂白剤には除菌・殺菌力もあるので、室内干しの嫌なニオイも残りにくく、梅雨の時期には大活躍してくれますよ!
衣替えの季節。1年ぶりに昨シーズンの服を引っぱり出してみてびっくり! ところどころ黄ばんでいるし、におうし、なんだか輝きがなくなってしまった…なんてことはありませんか。 そんなとき、新しい服を買い直すのもいいですが、衣類をリフレッシュするのもじつは簡単なこと。酸素系漂白剤でのつけおき洗いが有効です。 今回は、掃除研究家でハウスキーピングコーディネーターのおそうじペコさんに詳しく伺いました。 酸素系漂白剤を効果的に使って衣類の黄ばみを元通りに! ●衣類が黄ばむ原因は?皮脂ってどう悪いの? そもそもなぜ、衣類は黄ばんでしまうのでしょうか。原因は、洗濯をしても落ちきらなかった皮脂や繊維の間に残った洗剤・石けん成分が酸化して変色すること。 皮脂は1日に平均14mg分泌されて衣類にまとわりつき、ボンドのような役目をしてホコリや皮ふの汚れを吸着してしまい、洗濯ではなかなか落としにくい汚れを生んでしまうやっかいなものです。意外なことに、皮脂量は夏よりも冬に多いと言います。 また、実験によると皮脂分泌量は男性より女性の方が多い(! 洗濯王子に聞いた！酸素系漂白剤で白のTシャツが黄ばんでしまった理由と対処法！ | トリコスメ. )という結果があります(データ上のことで、個人の体質によって違うこともある、と私は感じます)。 ●酸素系漂白剤の効果を最大限に引き出す3つのポイント 黄ばんでしまった衣類の汚れは普通に洗濯をしてもなかなか落ちません。「汚れを落とす洗濯」ではなく、「汚れを分解し脱色する、漂白」が正しい対処法です。 そこでおすすめなのは、色柄ものにも使用できる粉末の酸素系漂白剤(過炭酸ナトリウム)。粉末の方が液体より、水に溶かしたときの化学反応が生まれて漂白除菌の効果が高くなります。 酸素系漂白剤の効果を上げるには、3つのポイントがあります。 ●ポイント1. 適温で使用する 酸素系漂白剤の適温はとてもデリケート。 上記の図のように、粉末の酸素系漂白剤の成分「過炭酸ナトリウム」は水に溶かすと「炭酸ナトリウム」と「過酸化水素」に分解します。 さらに40℃程度で過酸化水素から酸素が発生し酸化漂白(汚れ分子を短く分断すると白く見える作用)します。 このとき、水溶液の温度が高温すぎると一気に酸素が発生しきって漂白が短時間で終わってしまい、逆に温度が低すぎても酸素の発生がおさえられてしまいます。いちばん安定して効果が出るのは40~50℃です。 ●ポイント2. 保温する 衣類をまんべんなく効果的に漂白するためには、十分な酸素がじわじわと発生する環境が大切。そのため、適温40~50℃がなるべく下がらないようフタやタオルでおおうなどして保温すると効果が持続します。酸素の量が多すぎず、短時間で出しきらない状態です。 ※酸素が発生するので完全密封はしないでください。 ●ポイント3.
翌朝真っ白になったTシャツをみたときは感動ですよ。おかえりー!って! 最初のStudiousのトップスもこの方法で黄ばみが落ちて、こちらも復活しました。 ちなみに今後、日焼け止めがついたトップスを洗う時は付着していそうな部分を洗濯洗剤で部分洗いしてから洗うと落ちるそうです。 LINEの終わり際「ハイドロハイター使っても落ちない場合はまたご相談下さい。」と王子から優しい言葉をいただきました。 対応もめちゃくちゃ王子様でした。ありがとうございました! 洗濯王子中村さんの相談はこちらです↓ メルマガ・LINEの登録 ▼本日のFinalA 【タオルFA】今治タオルはロングヘアの強い味方! ハンドタオルの補助なしで全身の水分を拭きとってくれる! 今日のFinalAはシュシュさんのタオルFAです! 洗濯の記事にタオルの記事シェアって狙ってるようにみられますが、全くの偶然です…!! 今治タオルは私も三年ぐらい使っていますが、全然よれよれにならないし、今でも現役です! それでは、おやすみなさい。
しかも無料!!!!!! ギャーーーーーーー! すぐに王子をLINEにお友達追加!!!! 本当だー!!! 洗濯って人生に不可欠でしょ? !しかも洗濯ってプチ悩み結構多いじゃないですか・・・ こんなライフハック使わない手はない! !すぐさま質問しました。 私の文章の必死さよ…。 洗濯王子というライフハックにたどり着いたことに興奮しすぎて、フォーマットを完全に無視して送ってしまいました…。 (あとで謝罪しました…) もし返信がAIだったら泣いちゃうよ・・・と思いながら返信をドキドキして待ちました。 すると返信が!! 返ってきたー!AIじゃなかったー! そして、まさかの日焼け止めーーーーーー!!!!!! 日焼け止めと言われた瞬間ピンときました。 黄ばんだのは袖と首。日焼け止めを塗っている箇所。 そして、夫のTシャツが黄ばまなかったのも、夫が日焼け止めを塗っていないから。 それだ。絶対に日焼け止めだ! 王子への返信に「塗ってます。日焼け止め 酸素系漂白剤でググるとピンクに変色すると書いてあるのですが黄色も同じ現象ですか?」と送ると 『塩素系の漂白剤ではピンクになるのですが、酸素系の漂白剤でも日焼け止めの中の成分に反応して発色する可能性はあります』 とのこと! 日焼け止めって洗濯洗剤で落ちてるかと思ったけど、実際はあんまり落ちてないのね…。 で、原因はわかったけど、落とし方はまだ解決してない! この黄ばみの戻し方を教えてくれー!と王子に再びアタック!! 還・元・型!!!! 漂白剤には塩素系と酸素系以外に還元系があることを初めてしりました。 なるほど、還元ってまさにやりたいことじゃん。理科の実験みたいだ。 学生の頃の理科の授業はどこで役立つのだろうと思ったら、洗濯で役立つものであった! 王子は優しいのでわざわざリンクも送ってくれました。 ハイドロハイターは唯一の還元系漂白剤らしいです。 どおりで薬局を三軒はしごしてもないはず。 楽天で買いました。送料無料で420円ぐらいでした。 送料高いけど、1つ約220円で売っているショップもありました。 ROOM にはってます! ハイドロハイターで黄ばみを落としてみた やり方は、黄ばんだ部分を洗濯洗剤で部分洗いしてから、ハイドロハイターを40℃のお湯にとかして30分つけおき。 そのあとは普通に、すすぎ→脱水するだけでOK。 すごい!!!!見事に落ちてる!!!!!