質問: .top + 80 end with end sub という状態になっているのですが、文章を入力して16行目で改行するとシートの方で「#value!」と出てきてしまうので一旦ユーザーフォームを閉じてもう一度フォームを立ち上げると 「実行時エラー’-2147352571(80020005) valueプロパティが設定できません。種類が一致しません。」 と出てきます。 デバッグすると private sub commandbutton1_click() → userform1.show end sub と出てきます。 なにがおかしいのでしょうか? 今回初めてvbaを作っているので初歩的な間違いかもしれませんがよろしくお願いします
回答: 追体験しましたが、質問のようになりませんでした。とりあえず報告します。 >横がa~k、縦を9~34までのシートを結合して 横方向にa列からk列、縦方向に第9行から第32行まで、セルを (シートでなく)結合しているでしょう。 ーー 文章でも何がやりたいか、主なるものを書き添えてください。 今回はセルに入力しないでテキストボックスに入力して、セルの値にしたい、ですね。 ーー 私がやったら、質問の状況になりませんでした。(セル結合は小範囲でテストしましたが) 1行が長い文章でしょうか。 ーー それで 消去法で (1)セル結合をやめる (2)private sub userform_activate() をやめる。課題の本質と関係ないと思うので。 (3)private sub userform_activate() をやめる (4)1行を短い文章にして、16行目で同じになるか。 をやって、どうなるか見てはどうでしょう。