年別アーカイブ: 2014年
【エクセル2013】使い捨てマクロ「結合セルへの転記」（4）
2014年2月18日 マクロ関連（使い捨てマクロ）
ラーメン魁力屋。
今日は免許の更新で、ふだんはまず行かないような郊外の警察署まで、バスに揺られて行って来ました。
するとなんと！目の前に京都でよく行く魁力屋ラーメンが！
(゜o゜;;
…というわけで、九条ネギ味玉ラーメンをいただいてきました。
久しぶりっ！
こっちにもけっこう店舗あったんですね。
知らなかった。。。^^;
ところで、今週の大雪の予報はなくなりましたね。
この間は、雪國かっ！…て、つっこみたくなるくらい降ってましたが、今週はもう大丈夫なんでしょうかね。。
あさっての“最後のセミナー”は晴れるかな。。^^;
まぁ たとえ雪や雨であっても、会場は地下直結なので、電車さえ動いてれば難無く来れますが。
(b^-゜)
⇒ http://www.facebook.com/excelde
ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ
さて、今日も、結合セルにさくっと転記する使い捨てマクロの続きです。
本日の動画 第３弾は最終回です。
こちらからご確認ください。(^-^ )
こちら↓が 最終的に完成したマクロです。
テキストなので、そのままコピペできます。
ご参考まで。。
Sub Macro2()
‘
‘ Macro2 Macro
‘
‘
For i = 2 To 6
Sheets(“Sheet2”).Select
Cells(i, 1).Select
Selection.Copy
Sheets(“Sheet1”).Select
Cells(i + 2 * (i – 2), 1).Select
ActiveSheet.Paste
Next i
End Sub
【エクセル2013】使い捨てマクロ「結合セルへの転記」（3）
2014年2月7日 マクロ関連（使い捨てマクロ）
大阪焼肉「ふたご」
五反田の本店です。
社長と副社長が双子で大阪出身だからそういう名前だそうですよ。
f^_^;
コチラは「黒毛和牛のはみ出るカルビ」
たしかにはみ出とるー。。。
( ﾟ ▽ ﾟ 😉
この後、お店の人が部位ごとに切って説明してくれるので、
「うまいうまい」と食べながらお勉強!?しましょう。^^
お客さんみんなでかけ声をかけたりと、盛り上がれるし、おすすめのお店でしたよ～。
そして、“おすすめ”といえば、
超オススメ 『新春EXCELスペシャルセミナー』 も募集中です！
ピボットテーブルとマクロを一日でマスターしていただけます。
あまり詳しいことはブログでは書けないので、お時間のあるときにぜひフェイスブックページの方も見てくださいね。
(b^-゜)
⇒ http://www.facebook.com/excelde
関東地方は13年ぶりの大雪警報！
気をつけましょう！
ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟ
さて、今日も、結合セルにさくっと転記する使い捨てマクロの続きです。
セルのコントロールが大事です。
さっそく動画をどうぞ！
【エクセル2013】使い捨てマクロ「結合セルへの転記」（2）
2014年1月31日 マクロ関連（使い捨てマクロ）
東京いまむら。
食べログ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
