2009-08-11

IE8 Ctrl+Fでページ内検索ができない！

regsvr32 oleacc.dll
新しいページでタブの下にでてきて解決．困ったもんだ．

2009-07-18

datedif what about 閏年？　この計算式は1900/1/1からの計算なのであっているのか？

DATEDIF関数を使用します。
書式は、
「=DATEDIF(開始日、終了日、表示形式)」
です。
表示形式は、
"Y" ：期間内の満年数
"M" ：期間内の満月数
"D" ：期間内の日数
"YM" ：経過した1年未満の月数
"YD" ：経過した1年未満の日数
"MD" ：経過した1月未満の日数
が使えます。（大文字小文字関係有りません。）
なので、「何歳何ヶ月」というような表示をするのであれば、
「=DATEDIF(A1,B1,"Y") & "歳" & DATEDIF(A1,B1,"YM") & "ヶ月"」
といった使い方になります。

2009-06-07

■各行の指定された値をその行の特定部に置換する

Sub rep_charge()
Range("b3").Select
lastrow = Range("b3").End(xlDown).Row
For i = 3 To lastrow
With Selection
cur_val = .Value
Range(.Offset(, 1), .Offset(, 6)).Select
Selection.Replace what:="n", replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace what:="y", replacement:=cur_val, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveCell.Offset(1, -1).Select
End With
Next i
End Sub