うなぎ神田川本店。
2度目の登場。
7月の丑の日前後に予約がいっぱいでなかなか行けませんでしたが、先日ようやくゆっくりと行って来ることができました。
(^-^)
秋葉原の大通り沿いにあるのですが、このたたずまいはいつ見てもいいですね～。
なんだか急に別の世界に突入したような感覚です。
電気街を歩いてから来ると、よけいにそう感じますね。
(ﾟｰﾟ;
うなぎはいうまでもなく最高級のうまさです。
ふっくら感と香りがいいね！
o(^▽^)o
ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ
さて、前々回の「マクロの記録」で、こんな↓マクロが生成されましたね。
（このネタだけでもう10回目になりますが、もう少しだけお付き合いください。）
中身を確認していきましょう。
いつも言ってますが、自分が操作した手順がそのまま順番に記録されているだけなので、特にコードを知らなくても、中学レベルの英語でだいたい意味はわかるはずです。
まず、1行目、
Range("J5:J13").Select
「Range」は「範囲」、「Select」は「選択」。一番最初に操作した、セル範囲J5:J13を選択するのが、このコードの意味です。
2行目
Selection.Copy
[ホーム]タブから[コピー]ボタンを選択してクリックしましたね。それを表しています。
3行目
Range("C3").Select
C3セルを選択。
4行目
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ちょっと長いですが、操作手順から見当をつけましょう。
セル範囲J5:J13を選択し、[ホーム]タブから[コピー]ボタンを選択してクリックした後、C3セルを選択したところまで来ています。
その次にやった操作は、「値のみ貼り付け」でしたね。
コードを見ると、「PasteSpecial」で、なんか特別な貼り付けをしていることがわかりますし、その後の「…None」とか「False」で、その特別なオプションの内容をセットしていることが想像できると思います。
で、想像通り、このコードが「値のみ貼り付け」を意味しています。
次、5行目
Range("K5:K13").Select
から、9-10行目
Selection.PasteSpecial ～～～
にかけては、前の1～4行目と同じことを、セル範囲を変えてやっているだけです。
実際にそういう操作をしましたね？
セル範囲K5:K13を選択してコピーし、C3セルを選択して値のみ貼り付けをしたと思います。
その次も同様に、セル範囲L5:L13を選択してコピーし、C3セルを選択して値のみ貼り付けをしました。
範囲だけ変更してコピペ操作はまったく同じなので、繰り返しのコード
For ～ Next
が使えそうですね。
次回はコードを編集して、For～Next文を入れていきます。
(^-^)/