2021-10-11から1日間の記事一覧
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…