かんたん大学イモのレシピ

昔のテレビ番組の料理コーナーで紹介されたレシピです。随分、作ったなぁ。感謝です。

<材料>(4人分)
・サツマイモ・・・1本(300g) ・砂糖・・・大さじ4
・ しょう油・・・小さじ1/3
・酢・・・小さじ1/3
・ サラダ油・・・大さじ4 ・ 水・・・少々
・ 黒ゴマ・・・適量

<作り方>
1. サツマイモは一口サイズの乱切りにして水にさらしてアク抜きをしたら、 クッキングペーパーなど で水気をよく拭き取っておく。
2.フライパンにサラダ油、砂糖、しょう油、水、最後に酢を入れ、サツマイモを重ならないように並べ、 フタをして弱火にかける。
3. 2.がフツフツしてから2分加熱したら、フタをあけサツマイモをひっくり返して、 フタの水滴を拭き
取ってから再び2分加熱後、 サツマイモをひっくり返しフタの水滴を取ってからフタをして2分加熱
する。
4. 3.を周りに出来た飴とからめて器に盛り、黒ゴマをふりかければ完成。

市販のカツで簡単カツ丼

鍋にめんつゆ：大さじ４　水：大さじ４を入れて、中火で温める。
玉ねぎ１／８カット、しろネギの青い部分を彩りとしてきざんだもの少々を鍋に投入する。
市販のかつを食べやすい大きさにカットする。
ある程度、玉ねぎが煮えてきたら、カットしたカツを投入する。
生卵を小バチに入れて、かきまぜる。そして、はしを使い、少しずつ、回し入れる。
卵の黄身や白身がいい感じになるまで、待ち、火を止める。

ものマネVBA 最終行の求め方

　これまではこれを使ってたが、

Dim 最終行 As Long
最終行 = Range("A3").End(xlDown).Row + 1

　今は、これだ。

Dim 最終行 As Long
With ActiveSheet.UsedRange
最終行 = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
 End With

A列全体の最終行を求めるには

Dim 最終行 As Long
With ActiveSheet.UsedRange
最終行 = Range("A:A").EntireColumn.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
End With

xlDownを使うこれまでの方法だと、行の削除などの操作をすると、ダメなこと＝最終行が非常に大きな値になることがあるのだ、 おそらく、マイクロソフトのバグと思われる。

るんるんVBAはモノマネとVBA snippetsで十分だ

/* Rangeは列(column)ファーストで、Cellは行(row)ファースト。Range is column first,cells is row first. */
/* Range is A1 reference style Cells is R1C1 reference style */
Dim str As String
Range("B3").Value="VBAsnippets" ' Range("RowColumn")
str = Range("B3").Value
Debug.Print(str)
Cells(3,2).Value="VBAsnippets"  ' Cells(row, column)
str = Cells(3,2).Value 
/* Debug is print and breakpoint */
Debug.Print(str)

Worksheets("sheet name").Activate
With Worksheets("Sheet6")
    .Activate
    .Range("A1").Value = "VBAsnippets"
    .Range("A1").RowHeight = 20
    .Range("A1").ColumnWidth = 60
End With
With Worksheets("sheet name")
    .Activate
    With .Range("A1")
        .Value = "VBAsnippets"
        .RowHeight = 20
        .ColumnWidth = 60
    End With
End With
Sub AddWorksheet()
    Worksheets.Add After:=Worksheets("sheet x")
End Sub
Sub Testfornext()
    For i = 1 To 10
        Worksheets("sheet name").Cells(i, 1).Value = i
    Next
End Sub
For Each e in obj
  i = i + 1
Next
If  a >= 20 then
  Msgbox "OK"
Else
  Msgbox "NG"
End If
x = 1 
Do Until Cells(x,1).Value = ""
 Cells(x,1).Value = Cells(x,1) * 10
 x = x + 1
Loop
x = 1
Do While Cells(x,1).Value <> ""
 Cells(x,1).Value = Cells(x,1) * 10
 x = x + 1
Loop
'/* how to find the last row = 最終行の求めかた */
Dim 最終行 As Long
'    最終行 = Range("A3").End(xlDown).Row + 1 '
  With ActiveSheet.UsedRange
  最終行 = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
  End With
' the last day of each Month
    DateSerial(year,month,0)
' VBEの画面を黒画面に変身、クールにせよ！
' VBEのメニューから「ツール」の「オプション」で「エディタの設定」タブにで
'・標準コードに対しフォント：MEIRYO UI 、前景：黄色　背景：黒
'・識別子　前景：白、背景：黒
'・キワード　前景：水色、背景：黒
'・コメント　前景：グレー、背景：黒
' how to use Autofilter
 Sub Macro1()
　　With Worksheets("Sheet1")
　　　　.Range("A1").AutoFilter _
　　　　　　Field:=3, Criteria1:=">=100"
　　End With
 End Sub
' Methos for cells
 Cells.ClearContents   'Clear all the cells without format
 Cells.Delete          'Delete all the cells
' Methods for Workbooks Worksheets
 Workbooks.Add
 Worksheets.Add
 Workbooks("Book1.xlsm").Save
 ActiveWorkbook.SaveAs("D:\sample.xlsm")
 ActiveWorkBook.SaveAs Filename := "d:\sample.xlsm"
 ActiveWorkbook.Close
 WorkBooks.Open Filename := "d:\sample.xlsm"
 Worksheets(1).Activate
 Worksheets(2).Select
 Worksheets("Sheet1").Copy After := Worksheets("Sheet2")
 Worksheets("Sheet1").Move After := Worksheets("Sheet2")
 Worksheets("Sheet2").Delete
' camelCaseNotation
 RowNumber-> rowNum  
 ColumnNumber-> colNum
' SnakeNotation
 Row_Number->Row_Num
' how to use count property
 Workbooks.count finds the current Workbooks
' how to use count prperty example
Sub CommandButton1_Click()
Dim filePath As String
Dim saveFileName String
    filePath = ThisWorkbook.Path
    saveFileName = "Save" & Year(date) & Month(Date) & Day(Date)
    Worksheets("Terget").Copy
    Workbooks(Workbooks.count).SaveAs _
    filename:=filePath & "\" & saveFileName,FileFormat:=xlCSV, CreateBackup:=False
    Workbooks(Worrkbooks.count).Close
End Sub
/* to use EXCEL provided WorksheeteFunctions
 Range("A1") = Application.WorksheetFunction.Sum(Range("A1:A10"))

azdraingとazpainterに出会う

hei jiajia (powered by azdrawing + azpainter)

　azdrawingとazpainterというlinuxのフリーソフトに出会い、ソースコードをダウンロード、コンパイル＋インストールしてみた。凄いのでは？ホント、書きやすいし、素早い。いいね、このフリーソフト。無駄なものがない感じ。世の中に未だ未だ知らんこと、多い。
 　久しぶりに映画館へ出かけ、「蜜蜂と遠雷」を
観た。原作を読んでいたので、こんな曲を弾いていたんだなぁと。小説は、読む人により、頭に描かれる映像が異なる。映画は原作とは異なる作り手のヴァージョンの映像になる。

apple superdriveをlinuxで使う

  apple superdriveをlinuxで使うためには、 Googleでググると、ターミナルでsg_raw /dev/sr0 EA 00 00 00 00 00 01と打てばよいとわかる。ただし、sg3_utilsというパッケージが必要だ。

BionicPup32をFrugalインストール

　Vivid Puppyでいいんだけど、もはやパッケージ更新ができないので、BionicPup32をFrugalインストールしてみた。いい感じ。使えるなぁ。 さすが、puppyだ。重たくない。仕事ではマイクロソフトのワードやエクセルを仕事の相手が指定してくるので、マイクロソフトのWindowsを 使わざるを得ない。しかし、本当はLinuxで同じ仕事がWindwosのGUIよりも効率良くできることを多くの人が知らないと思う。残念だ。もっと、正確に言えば、見栄がする立派なＧＵＩ画面ではなく、コマンドをひたすら打ち込むＣＵＩベースが断然、早い。なぜなら、ＧＵＩの処理が必要ないからだ。
　最近、上田隆一さんの「シェル芸」に大はまり、本を2冊も買ってしまった。１つめは、「シェルスクリプト高速開発手法入門」（改訂２版）で 「フルスクラッチから1日でＣＭＳを作る」と銘打たれている。多分に読み手のスキルに依存すると思われるが、ここまで言いきるところが小気味いい。 凄い本。もう１つは、「シェルプログラミング実用テクニック」。こちらには「UNIX/Linux流のグラミング手法を習得する」 という帯文が付いている。こちらも凄い本だ。ワタシはこの２冊目にヤラレた。前々から自分が思ってというか、感じていたつーか、そんなことを見事にかつ大胆に文章にされていたのだった。今後、じっくりと読みたい。魔法のワンラインの連続。いいですね。 　
　先日、「宮部みゆき全１冊」という本を読んだ。ローレンス・ブロックの「おかしなことを聞くね」というアンソロジーが取り上げられていた。 短篇でも凄いミステリーがある。そうなんですよと。うれしくなったなぁ。