ぱぐ犬日記

ブログ画像一覧を見る

このブログをフォローする

1 | 2 | 3 | 4 | 5 | 最初次のページへ >>

'複数シートに同じ作業をする場合

Sub sheet_onajisagyou()
Dim sWB As Workbook
Const DEST_FILE As String = "C:\Data\total.xlsx"

Set sWB = Workbooks.Open(DEST_FILE)

Dim WS As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each WS In Worksheets

If WS.Name <> "" Then
WS.Select
Range("E1") = Application.WorksheetFunction.CountIf(Range("A1:A10"), ">3")
End If

Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Sub Sample3()
Dim sFile As String
Dim sWB As Workbook, dWB As Workbook
Dim dSheetCount As Long
Dim i As Long
Const SOURCE_DIR As String = "C:\Data\Source\"
Const DEST_FILE As String = "C:\Data\AllReports.xls"

Application.ScreenUpdating = False

'指定したフォルダ内にあるブックのファイル名を取得
sFile = Dir(SOURCE_DIR & "*.xls")

'フォルダ内にブックがなければ終了
If sFile = "" Then Exit Sub

'集約用ブックを作成
Set dWB = Workbooks.Add

'集約用ブック作成時のシート数を取得
dSheetCount = dWB.Worksheets.Count

Do
'コピー元のブックを開く
Set sWB = Workbooks.Open(Filename:=SOURCE_DIR & sFile)

'コピー元の「報告書」シートを集約用ブックにコピー
sWB.Worksheets.Copy After:=dWB.Worksheets(dSheetCount)

'シート名をセルA1の値に変更
ActiveSheet.Name = Range("A1").Value

'コピー元ファイルを閉じる
sWB.Close

'次のブックのファイル名を取得
sFile = Dir()
Loop While sFile <> ""

'集約用ブック作成時にあったシートを削除
Application.DisplayAlerts = False
For i = dSheetCount To 1 Step -1
dWB.Worksheets(i).Delete
Next i
Application.DisplayAlerts = True

'集約用ブックを保存して閉じる
dWB.SaveAs Filename:=DEST_FILE
dWB.Close

Application.ScreenUpdating = False
End Sub

Sub Sample4()
Dim i As Long
Dim sWB As Workbook, dWB As Workbook
Const DEST_FILE As String = "C:\Data\total.xlsx"

Set sWB = Workbooks.Open(DEST_FILE)

Range("E1") = Application.WorksheetFunction.CountIf(Range("A1:A10"), ">3")

End Sub

Sub sheet_merge()

Dim sh As Worksheet
Dim sWB As Workbook
Const DEST_FILE As String = "C:\Data\total.xlsx"

Set sWB = Workbooks.Open(DEST_FILE)

'For Each sh In Worksheets

'If sh.Name <> "" Then 'シート名が""でなければ
Range("E1") = Application.WorksheetFunction.CountIf(Range("A1:A10"), ">3")
'End If

'Next

End Sub

食い倒れたろう君

少し前の話になりますが、GWは大阪、京都、奈良に出かけてきました。

大阪といえば！今話題は食い倒れたろう君ですよね？

彼にもちゃんとあってきましたよ。

引退間際とあって、彼の周りは人だかりができてました。。

道頓堀を一通り見回しました。

かに道楽のかにさんです。

おなじみグリコの看板です。

カールおじさんです。

持っているのは、もちろん「うす味です」

関西ではうす味が一番目メジャーなんですよ。

何を食べようかなぁ。。と悩んだ挙句。

これです！

ふぐ。

美味しいふぐを食べて、お腹も満足。

是非また、大阪に行ったときには道頓堀めぐりをしたいですね。

1年

金曜日は仕事で外出でした。

最近、仕事があまり順調ではなくてシンドイのですが、建物の前に桜並木があり、満開の桜を見ながら暫く立ち止まってしまいました。

私は今の仕事を丸3年間やっているので、今回で3度目の桜になります。

1年ってはやですね、でも3年間は振り返ると長い気がします。。

といっても、まだ仕事を離れるわけにはいかないので、4回目の桜もあるんですけどね。。

土曜日は、千鳥ヶ淵の桜を見に行きました。

千鳥ヶ淵の桜は、樹齢が長いのか、1本1本の桜がとっても大きくて綺麗です。

今年もライトアップに行きたいのですが、仕事が片付くかどうかが微妙です。

桜

今日は暖かい春の日でしたね。

桜にはまだ早いかと思ったのですが、新宿御苑までお散歩に行ってきました。

新宿御苑は初めてだったのですが、中がとっても広かったです。。

ラッキーなことに、1種類の桜だけが満開の状態でした。

アップです。

ピンクが濃い種類の桜ですよね。

みんな満開の桜で記念撮影です。

今年は、例年よりもやや早めに桜の開花予定が設定されてますよね。

今年もお花見がんばります！

お一人様休日

今日はだんな様は仕事で出かけているため、一人の休日です。

結婚すると一人の休日って貴重になりますでよね。

お昼は近所のビストロ、カフェローズマリーでランチを食べました。

前菜は、野菜のテリーヌです。

さっぱりしたお味でとてもヘルシーです。

メインはポークでした。

こちらもあっさりしたソースでいただきます。

付け合せのお野菜も焼いただけのシンプルなものです。

それでも、素材のうまみが出ていてとっても美味しいです。

デザートはシフォンケーキです。

こちらも、あっさりしたお味で、食感を楽しみながらいただきました。

近所にあるビストロで休日ご飯ってとっても幸せです。

でも、一人だと、仕事のことを考えてしまいあまりリフレッシュにはならなかったりするんですけれども。。

お食事のあと、24日に会食予定の主人の知り合いで来日中の外国人夫婦に御土産を選びに行きました。

さんざんまよった挙句、小箱に入った千代紙セット、着物の形をしたメモ帳を買いました。

この後京都に行かれるということなのでどうかなぁと思ったのですが、その他によい御土産を思いつかなかったので。。

和食の勉強

最近、お料理の勉強に夢中です。。

料理を作る時間があまりないので、あくまでも本での勉強だけなんですけどね。

先日、分けとく山片倉町に行って以来、分けとく山のオーナーシェフ野崎さんが書いた本を何冊か読みました。

日本料理秘伝帳― 献立必携/野崎洋光
￥2,940
Amazon.co.jp

和食の設計図分とく山/野崎洋光
￥1,680
Amazon.co.jp

野崎洋光の秘伝・直伝・らくらく伝「和」のシンプルごはん―Essay & simple Japanese (Spur mook)/野崎洋光
￥1,575
Amazon.co.jp

野崎さんの本は、素人でも和食の基本の調理法や用語をマスターできるように書いてくれています。

分けとく山？の味を再現可能？とできるように

経験不足ではありますが、実践も頑張ります。

銀杏並木

今日は、休日ランチで代々木上原のコムシェビに行きました。

3500円のコースで前菜の盛り合わせ、ハタのソテー、デザートにマロンパイ、カシスのムースをいただきました。

このお値段で、手の込んだフレンチが味わえるのはとってもCPのよいお店です。

お腹がいっぱいになって大満足の帰り道に、表参道で降りて、外苑前までお散歩。

外苑前の紅葉時期の銀杏並木を一度見たかったのです。

晴れわたった空を背景に黄色一色の銀杏並木は圧巻でした。

よくドラマで使われてますが、紅葉の時期は人が多くてドラマ撮影はさすがにできなさそうですね。。

表参道、神宮外苑は行く機会は少ないのですが、都会でありながら自然も共存していてとても良い環境ですよね。

オフィスがここらへにあったらなぁと少し思いました。。

クリスマスにかけて、イルミネーションが綺麗なところにも行きたいですね。

手作りゴマ豆腐

最近、仕事で調整ごとが多くとても大変です。。

仕事の量は多くないのですが、気疲れでくたくたです。。

しかし、疲れてはいるのですが、最近のマイブームは分けとく山の野崎さんのレシピ本を読むことなんです。

和食のレシピ本って美味しいそうなのがあまりなかったのですが、野崎さんのレシピはとても美味しいそうでう、かつ一ひねりしてるんですね。

今日は、前から作りたいと思っていたゴマ豆腐を作りました。

作り方はほんとに簡単です。

昆布だし500ml作ります、そこにお塩を少々入れて1時間ほど休ませます。

葛を70g、黒引きゴマを70g、そこに昆布だしを入れて中火でとろとろになるまで良く混ぜます。

程よい硬さに固まってきたら、ラップで茶巾にし、冷水で冷やして冷蔵庫に入れます。

冷蔵庫で2,3時間冷やした後、わさびしょうゆを付けて食べます。

ゴマ豆腐がお家でできるなんて今まで考えたことも無かったですが、とっても簡単なので皆さんも試してみてくださいね。

「分とく山」野崎洋光が説く美味しい方程式/野崎洋光
￥1,575
Amazon.co.jp

のんびりの連休

更新が久しぶりになってしまって申し訳ございません。。

一度、更新をとめてしまうと、なかなか更新から遠のいてしまいます。。

私の3連休はほんとにお家でごろごろといった感じでした。

唯一の外出で、昨日はお天気が良かったので、以前より行きたかった国立近代博物館の工芸館に行きました。

建物が近代建築なので、一度行ってみたかったんです。

行ってみるとラッキーなことに無料デー！ラッキーです。

美術館、博物館で作品を見てい時は、別の世界に入っているように？見入ってしまいます。。

今週はいけなかったのですが、新国立美術館でやっているフェルメール展には是非行きたいです！

今日は、神田うのちゃんの挙式、披露宴の模様がテレビで放送されていましたね。

明治神宮での和婚、白無垢もうのちゃんデザインの和洋モダンで新しい挙式のスタイルの提案になっていたんではないでしょうか？

「結婚しても今まで通り、人生を楽しむ。」という記者会見の意見には「うんうん」と私も頷いてしまいました。

結婚しても自分のやりたいこと、夢は持っていないと結局どちらも中途半端になってしまいますよね。

これからもうのちゃんの活躍期待ています。