2011-02-01から1ヶ月間の記事一覧

2011-02-04

■

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim i As Integer Dim lastRow As Long Dim res1 As String Dim res2 As String With Worksheets("E") lastRow = .UsedRange.Rows.Count For i = 2 To lastRow If .Cells(i, "A").Value = "買物" Or .C…

2011-02-02

ワークシートだけでやってみる

http://q.hatena.ne.jp/1296542184 １２０通りパターンを作り出す関数が以下。 ="5" & MID("*/+-=",INT((ROW()-1)/24)+1,1) & "4" & MID(REPLACE("*/+-=",INT((ROW()-1)/24)+1,1,""),INT(MOD((ROW()-1),24)/6)+1,1) & "3" & MID(REPLACE(REPLACE("*/+-=",INT…