Select Case ステートメント|For～Nextステートメント|Do Loopステートメント|OUTLOOKメール操作メール送信|MsgBox関数|InputBox関数|Replace関数|Len関数|right関数|Left関数|Mid関数|Trim関数、Ltrim 関数、Rtrim 関数|strconv 関数|instr 関数|instrrev 関数|format 関数|JOIN 関数|split 関数|IsNumeric ...
xlBookName = InputBox("開くExcelブック名を入力") xlSheetName = InputBox("Excelシート名を入力") dbTableName = "T_Master" dbShortPath = Application.CurrentProject.Path 'Accessの起動位置を取得 CurrentDb.Nameに »C:\Users\ Cosmology \OneDrive\...\xxxx\yyyy\zzz..accdb”が入ってい...
または、カンマを加えて複数の数字が完全に一致するかどうかをテストします。 Case20,30,40 SubExactMatch_Numbers()DimnAsIntegern=CInt(InputBox("..."))SelectCasenCase10' nが10の場合Case20,30,40' nが20/30/40の場合CaseElse' nが10/20/30/40でない場合EndSelectEndSub ...