質問: textbox5.value ・ ・ ・ こんな感じで規則的に記述しただけです。(文字数が多いので最後は省略しました) 段差がなくて見づらいですが、宜しくお願いします。
回答: ifに頼りすぎです。こんな感じですかね ※全角の空白を使ってます。半角の空白に置き換えてね dim b_blank as boolean dim w_sh as worksheet b_blank = true set w_sh = sheets("総合(得点)") if textbox1.value <> "" then w_sh.cells(t + 3, u) = textbox1.value b_blank = false end if ' 省略 if textbox6.value <> "" then w_sh.cells(t + 9, u) = textbox6.value b_blank = false end if if b_blank = true then msgbox ("得点が入力されていません。") end if