質問: メルアド帳を作りたいのですが知恵を貸してください。 vbaに関して悩んでいます。 メルアド入力のプログラムを作成してるんですがいまいちvbaを理解しきれていないので教えていただけませんか? インプットボックスにメールアドレスを入力 入力されたアドレスはa列に上から順に格納されていく 格納される前に入力された文字列がメールアドレスかどうか確認するため"@"が入っているものだけokとする。 ngだった場合は"メルアドが間違っています"とmsgboxで確認する。 a列にメルアドが格納されると隣(b列)に入力された日付が入る。 当方かけだしで全然わかりません。 どなたか知恵をお貸しください。
回答: 初心者とはいえ、本質問は、丸投げの質問で、規約上、不適当。 とりあえず sub test01() do p1: d = inputbox("メルアド= (終了=0)") if d = 0 then exit sub if instr(d, "@") = 0 or instr(d, "@") = len(d) or instr(d, "@") = 1 then msgbox "メルアド不適" goto p1 end if r = range("a65536").end(xlup).row cells(r + 1, "a") = strconv(d, 10) '小文字化 cells(r + 1, "b") = date loop end sub やり方やチェックの盛り込み方は色々あると思う。 @の有無、先頭@、末尾@のチェックと、小文字化だけやった。