Option Compare Database Option Explicit Private Sub ラベル0_Click() Dim ret As Integer 'msgbox関数の戻り値 ret = MsgBox("変換シートを入力しますか？", vbYesNo + vbQuestion, "選択～") Select Case ret Case vbYes 'はい DoCmd.RunMacro "インポート" Call torikomi Dim sdbs As Database Dim srst As Recordset Dim recmax, i, j As Long Set sdbs = CurrentDb Set srst = sdbs.OpenRecordset("取込み") srst.MoveLast recmax = srst.RecordCount srst.MoveFirst j = 1 srst.Edit srst.Delete srst.MoveNext For i = 2 To recmax j = j + 1 srst.Edit srst.Delete srst.MoveNext Next i srst.Close Case vbNo 'いいえ ' End Select ret = MsgBox("変換シートを出力しますか？", vbYesNo + vbQuestion, "さてと～") Select Case ret Case vbYes 'はい DoCmd.RunMacro "エクスポート" Case vbNo 'いいえ ' End Select End Sub Public Sub torikomi() Dim dbs As Database Dim rst As Recordset Dim recmax, i, j As Long Dim F1 Dim F2 Dim F3 Dim F4 Dim F5 Dim F6 Dim F7 Dim F8 Dim F9 Dim F10 Dim F11 Dim F12 Dim F13 Dim F14 Dim F15 Dim F16 Dim F17 Dim F18 Dim F19 Dim F20 Dim F21 Dim F22 Dim F23 Dim F24 Dim F25 Dim F26 Dim F27 Dim F28 Dim F29 Dim F30 Dim F31 Dim F32 Dim F33 Dim F34 Dim F35 Dim F36 Dim F37 Dim F38 Dim F39 Dim F40 Dim F41 Dim F42 Dim F43 Dim F44 Dim F45 Dim F46 Dim F47 Dim F48 Dim F49 Dim F50 Dim F51 Dim F52 Dim F53 Dim F54 Dim F55 Dim F56 Dim F57 Dim F58 Dim F59 Set dbs = CurrentDb Set rst = dbs.OpenRecordset("取込み") rst.MoveLast recmax = rst.RecordCount rst.MoveFirst j = 1 rst.Edit F1 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] rst.Update rst.MoveNext For i = 2 To recmax j = j + 1 rst.Edit If j = 2 Then F2 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 3 Then F3 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 4 Then F4 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 5 Then F5 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 6 Then F6 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 7 Then F7 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 8 Then F8 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 9 Then F9 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 10 Then F10 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 11 Then F11 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 12 Then F12 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 13 Then F13 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 14 Then F14 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 15 Then F15 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 16 Then F16 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 17 Then F17 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 18 Then F18 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 19 Then F19 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 20 Then F20 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 21 Then F21 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 22 Then F22 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 23 Then F23 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 24 Then F24 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 25 Then F25 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 26 Then F26 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 27 Then F27 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 28 Then F28 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 29 Then F29 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 30 Then F30 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 31 Then F31 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 32 Then F32 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 33 Then F33 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 34 Then F34 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 35 Then F35 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 36 Then F36 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 37 Then F37 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 38 Then F38 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 39 Then F39 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 40 Then F40 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 41 Then F41 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 42 Then F42 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 43 Then F43 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 44 Then F44 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 45 Then F45 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 46 Then F46 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 47 Then F47 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If If j = 48 Then F48 = rst![F1] & rst![F2] & rst![F3] & rst![F4] & rst![F5] & rst![F6] & rst![F7] & rst![F8] & rst![F9] & rst![F10] & rst![F11] & rst![F12] & rst![F13] & rst![F14] & rst![F15] & rst![F16] & rst![F17] & rst![F18] & rst![F19] & rst![F20] End If rst.Update rst.MoveNext Next i rst.Close Dim odbs As Database Dim orst As Recordset Set odbs = CurrentDb Set orst = odbs.OpenRecordset("変換くん") orst.AddNew orst![1] = F1 orst![2] = F2 orst![3] = F3 orst![4] = F4 orst![5] = F5 orst![6] = F6 orst![7] = F7 orst![8] = F8 orst![9] = F9 orst![10] = F10 orst![11] = F11 orst![12] = F12 orst![13] = F13 orst![14] = F14 orst![15] = F15 orst![16] = F16 orst![17] = F17 orst![18] = F18 orst![19] = F19 orst![20] = F20 orst![21] = F21 orst![22] = F22 orst![23] = F23 orst![24] = F24 orst![25] = F25 orst![26] = F26 orst![27] = F27 orst![28] = F28 orst![29] = F29 orst![30] = F30 orst![31] = F31 orst![32] = F32 orst![33] = F33 orst![34] = F34 orst![35] = F35 orst![36] = F36 orst![37] = F37 orst![38] = F38 orst![39] = F39 orst![40] = F40 orst![41] = F41 orst![42] = F42 orst![43] = F43 orst![44] = F44 orst![45] = F45 orst![46] = F46 orst![47] = F47 orst![48] = F48 orst.Update orst.Close End Sub