対象となるシートをアクティブにしてからSelectメソッドを記述しないと、 アクティブでないシートからだと、エラーになる。 対象シートをアクティブにする記述＋セレクトメソッドを書くように。

Sub 配列テスト1() Dim aryY(4) As String Dim i As Integer Dim msr As VbMsgBoxResult i = 0 Range("A1").Select Do While ActiveCell.Value <> "" aryY(i) = ActiveCell.Value msr = MsgBox(aryY(i) & "編集しますか？", vbYesNo) If msr = vbNo Then ary…

セルに100byte以上入力されたエラーメッセージをだしたい 変数 = thisWorkbook.WorkSheets(1).Range("A1").value 変数 = LenB(StrConv(変数,vbFormUnicode)) IF 変数 >= 101 Then MsgBox(変数) End IF