前回コマンドボタンを配置したことで、全体が1行下に下がりました。
実際に動かしてみたところ、不具合が見つかりました。
よくよく確認すると、
a = Worksheets(“アンケート結果”).Range(“結果内容”).Rows.Count →15
となり、
Range(Cells(3, 4), Cells(a, 4))→D4からD15
と本当はD16まで指定したいとこと、1行足りていません。
原因は名前の定義であれば自動的に範囲も移動するので、入力フォームは特に
訂正は要りませんが、集計フォームは単純に範囲を指定しているだけなので
このようなケースが出てきます。
訂正方法は、単純に
a = Worksheets(“アンケート結果”).Range(“結果内容”).Rows.Count+1
実行結果です。
ExcelVBAの場合、シート上で何か変更した場合、必ず変数が正しく動いているのか
確認することが大事です。
またシート名を変えると一発で全て動かなくなるので、基本的に何か変更するという行為
は避けた方が無難です。変更するときは、必ず作成者にお願いするようにして下さい。
昨日少し考える時間があったので、自己紹介文を作りました。
短い文章ですが、自分の強みをまとめるって結構苦労しました。
その分いい文章ができたのでは？と思います。
税理士の三浦です。
専門分野は小規模システム構築・会計・税務です。
強みは、システム構築・運用から決算、税務申告まで一貫して
サポートできるので、無駄がなく、かつきめ細かいサービスが
提供できます。
本日も最後までお読みいただきありがとうございます。
