The Road to EXCELER ~エクセラーへの道~
ブログ
  • HOME »
  • ブログ »
  • 月別アーカイブ: 2014年1月

月別アーカイブ: 2014年1月

【エクセル2013】使い捨てマクロ「結合セルへの転記」(2)

東京いまむら。
食べログTop5000のラーメン屋さんです。
(*^o^*)

こちらは、鶏ガラと魚介のしょうゆラーメン。
味も良かったですが、器にまずビックリですね。

店が狭すぎてゆっくりできないのが難点ですが、そういうのが「アジ」なんでしょうね。

「特製」を頼んだときはちょっと多すぎました。。。
σ(^_^;)

特製の『新春スペシャルセミナー』も募集中ですよ!

ピボットテーブルとマクロを極めればコワいものナシ!

あまり詳しいことはブログでは書けないので、お時間のあるときにぜひフェイスブックページの方も見てくださいね。
(b^-゜)
http://www.facebook.com/excelde

・*:.。..。.:*・゚゚・*:.。..。.:*・゚ ゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚

前回の使い捨てマクロの続きですが、要は、

このようなフォーマットの表があったとして、別シートの名前リスト(こちらは結合セル無し)から 一人ひとりの名前を転記したい、という場合に使うマクロを作成しましょう、

という意味です。

今、サンプルでは3人分転記されてますが、これが50人,100人となってきたら、手でコピペしてられませんよね。。
(^o^;)

…で、やっぱり文章だけではわかりにくいので、動画解説をご覧ください。
(;^_^A

こちらからどうぞ。

こちら↓が 本日作成したマクロです。
テキストなので、そのままコピペできます。
ご参考まで。。

Sub Macro2()

‘ Macro2 Macro


Sheets(“Sheet2”).Select
Range(“A2”).Select
Selection.Copy
Sheets(“Sheet1”).Select
Range(“A2:A4”).Select
ActiveSheet.Paste

Sheets(“Sheet2”).Select
Range(“A3”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“Sheet1”).Select
Range(“A5:A7”).Select
ActiveSheet.Paste

Sheets(“Sheet2”).Select
Range(“A4”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“Sheet1”).Select
Range(“A8:A10”).Select
ActiveSheet.Paste

End Sub

【エクセル2013】使い捨てマクロ「結合セルへの転記」

西新井大師様。

病気でちょっと出遅れましたが、毎年恒例の初詣に行ってきました!

さすがにちょっとすいてましたが、それでも思ったよりは混んでましたね。。

大人気!

(  ゚ ▽ ゚ 😉

『新春スペシャルセミナー』も順調ですよ。

セミナーはいろいろ大変なので、1年に数回程度しかやりません。

ぜひこの機会にチェックしてみてくださいね。

あまり詳しいことはブログでは書けないので、お時間のあるときにぜひフェイスブックページの方も見てください。
(b^-゜)

http://www.facebook.com/excelde

゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚ ゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚

さて、久しぶりに「使い捨てマクロ」ネタ、いきたいと思います。

この間 実際にあった質問ですが、結合セルに、結合していないセルのデータをまとめてコピペしようとすると、

「結合されたセルの一部を変更することはできません」

というエラーが出てそのままではコピペできませんね。

…かといって、データを一つのセルごとにコピーして結合セルに貼り付ける、なんてことをやっていたら日が暮れてしまいます。

そこでマクロの出番となります。

次回から何回かに分けて、結合セルへの転記マクロを作成していきます。

お楽しみにー!

(‘-^*)/

新春スペシャルセミナー開催します!!

お待たせしましたーラブラブ

来月セミナーを実施します。

なんとなんと、今年も実施できる運びとなりました!

(^-^)/

EXCEL界スペシャリストの最強タッグにて、

帰ってきた!

“これまでちょっと避けてきたエクセルユーザーのためのピボットテーブル&マクロセミナー”

ですー。

あまり詳しいことはブログでは書けないので、お時間のあるときにぜひフェイスブックページの方も見てくださいね。
(b^-゜)
http://www.facebook.com/excelde

゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚ ゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚ ゚・*:.。..。.:*・゚

さて、今日は、久しぶりに苦しい体験をしたので、エクセルの話はちょっとお休みしてそちらのお話を少々。。。

始まりは先週連休2日目の日曜日でした。

「あれ…? これは なんかヤバい調子の悪さだゾ…」 と予感し、熱を測ったら39.8度あせる

速攻 寝ましたが、翌日も変わらず高熱でかなり頭が痛かったので休日当番医の病院に行き、とりあえずインフルチェック。でも陰性。

熱風邪の薬を処方され様子を見るも続く高熱。

治るどころか、逆にだんだん咳が激しくなり、鼻づまり・のど痛併発。

風邪じゃないだろ、、と思って次の日には総合病院で半日かけて検査。

インフル陰性、マイコプラズマ肺炎陰性で原因不明!?

…で、結局「マイコプラズマ気管支炎の疑いあり」というあいまいな診断で少し様子を見ることに。

ようやっと体が楽になり始め、土曜日に36度台回復!

その後は急激に元に戻りました。

なんと苦しく体力を消耗した1週間だったことか。。。

皆さんもマイコプラズマ菌にはご注意くださいネ。
検査もレントゲンとらないと、血液検査くらいでは「陰性」になりますよ。

あらためて健康のありがたさを実感しましたね~。

なんか前向きなことにつなげたいので、これを機に家ビールはやめることにしました。

肝臓も健康に!

(^_^)v

Page 1 / 212

最近の投稿