娘の「ラーメンが食べたいなぁ」の一言で夕食が決定。 目的の「ラーメン大学」が休業日なのに気付き他の食事を尋ねるも他のラーメン屋を連発。 どろ焼き「南風」、ステーキハウス、中華料理屋を候補に言うが、イマイチ気乗りしない様子。 それならばと、気に…

この頃TVの報道で仮設住宅の空き家（未入居）について取り上げられている。 高倍率のなか折角当選しても未入居のままで放置してある住宅が多いとのこと。 鍵だけ受取って、全く入居した様子の無い家屋。 また未開梱の荷物が放置され、倉庫になっているだけの…

Public Type SyainData 'Dataの構造体（ユーザー定義型）を宣言 Id As Long Name As String Kinzoku As Long Syozoku As String Yakusyoku As String End Type - Public Sub test() Dim i As Long Dim WrkSyainData() As SyainData If GetSyainData(WrkSyain…

この御時勢、まともな政治家が余りにも少ない。

Public Sub test() Dim i As Long Dim WrkRange As Variant If ChkNumber(Range("syain_id"), 3) Then '---- Trueで実行 WrkRange = Sheets("SyainMST").UsedRange For i = 1 To UBound(WrkRange) If WrkRange(i, 1) = Range("syain_id") Then Range("syain_…

Public Sub test() Dim i As Long Dim WrkRow As Long Dim WrkCol As Long Dim WrkRange As Variant With Sheets("SyainMST") WrkRow = .Cells(Rows.Count, 1).End(xlUp).Row WrkCol = .Cells(1, Columns.Count).End(xlToLeft).Column WrkRange = .Range("A1…