マコテキ-些細な日記

贅沢な昼ごはんですYO！








ミックスジュースとアーモンドトーストなんだけど、これが好きになったのは地元の喫茶店で美味しい店があったからですわ＾＾
ただ作るのに時間がかかってしまうのが欠点だわね＾＾；

保険料控除とかいう書類を書いてたのだが、何分初めてなんで書き方やら記入するところなどが全然わからなかったわ(´・ω・`)

そこで派遣元から渡されているお役立ち情報のブックやらグーグルとか使って記入方法などを調べること2時間弱・・・・。

一番解りやすいページを見つけたんだが・・・。
結局上の名前と住所以外何も書かなくていいということが解った・・・・orz

全く・・・・なんて時間の無駄なことをしてたのだろうか(ノ_-;)…
最も、これで来年は問題なしだわ( --) ・・・・・・
 

昨日書いたマクロのソースを試して見たんだけと思っていたのと違うデータが出来てしまったw
シート別にはなっていたんだけど、データがCSV型になってて表が崩れてましたわ＾＾；

あぁ～なんてこったい。結局理解してない者がコピペだけで何とかしようというのが間違いなんですね(´・ω・`)

さて、いろはから勉強しますか( --) ・・・・・・

1つのエクセルデータ(ブック)内に複数のシートが存在する。
そのシートを1つずつ切り取ったブックデータを作らなくてはいけないんだが・・・

楽な方法はないかと探してたんが、意外と簡単に見つかったわｗ
以下　マクロのソース

Sub Sheet_bunkatu()
Dim ws As Worksheet
Dim cvsDir As String
Dim csvPrefix As String
Dim wsName As String ' このブックのパスを取得
csvPrefix = ThisWorkbook.Path + "\" + ThisWorkbook.Name
csvPrefix = Left(csvPrefix, Len(csvPrefix) - 4) ' シートの数だけループを回す
For Each ws In ThisWorkbook.Sheets
ws.Activate
wsNname = ws.Name
ws.SaveAs Filename:=csvPrefix + "_" + wsNname + ".xls", FileFormat:=xlCSV, _
CreateBackup:=False
ws.Name = wsNname
Next
End Sub


実際には参考にしたページがあるんだけど閉じちゃった・・・orz
ただ使った感じまだ改善できそう・・・。

使用方法は分割したいエクセルデータにマクロを貼り付けて実行するだけ
実行するとエクセルデータと同じ場所にブック名_シート名.xlsデータが作成されていく。

VBAをもうちょっと勉強せねば・・・

豚の角煮を作ったYO!
角煮だけだとなんだか寂しいと思い、大根と卵、焼き豆腐を一緒に入れてコトコト2時間煮込みましたわ＾＾


 
 

まぁ～醤油がしみこむこと＾＾；
豆腐も白色が完全に染まっている・・・。まぁ～その分味が染みてて美味しいのだがｗ

おでんも作ってみたいと思うが、おでんよりこっちの方が私は好きだわ～