Sub TEST01()Dim Db As Database Dim tdf As TableDef Dim tbl As Recordset Dim fld As Field Dim i As Integer Dim intCnt As Integer Dim strFields(50) As String Dim strTarget As String Dim strDummy As String intCnt = 0 strTarget = "T_印刷前"Set…

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

この頃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…

Sub ChangeQuery() '記述場所：モジュール「AddressBookModule」 On Error GoTo Err_Process Call Table_Open Dim tq As QueryDef Dim strOuttable As String Dim strOutfile As String Dim strIntable As String Dim strIntfile As String Dim strJoukenn(5…