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

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

<材料>(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"))