cj_moverのプロフィール

いつもお世話になっております。 エクセル2013のVBAで質問です。 例えばJ192セルに　=SUM($M192:$AX192)　と入力されていたとします。 これの範囲の幅（38列分）はそのままで、下記のコードで得た　end_col　の列番号(CD)の位置まで列をずらすような指定の方法はありますか？ただし、end_col　は一定ではありません。 VBAで位置をずらして、このような数式に範囲を変えたいです。　=SUM($AS192:$CD192) Sub test() Dim end_col As Long Cells(3, Cells(3, Columns.Count).End(xlToLeft).Column).EntireColumn.Select end_col = Selection.Column End Sub すいませんが、ご教授ください。

いつもこちらの識者の皆様にはお世話になっております。 VBAのことで質問させてください。 毎日吐き出される複数のcsvファイルを、開いてファイル名を変えてxls形式に変更してパスワードをかけて保存する。 という処理を現在マクロで行っているのですが、特に不備はないものの、csvファイルの数が多く、時間がかかっています。 後学のために教えていただきたいのですが、この処理を高速化することは可能でしょうか？ 現在はworkbooks.openでcsvを開き、workbook.saveasでファイル名・ファイル形式の変更とパスワードの設定をし、workbook.closeでファイルを閉じる。 という処理をfor iで回してやっています。 質問に不備不足等ございましたらご指摘ください。 ご面倒お掛けしますがよろしくお願いします。

Ｅｘｃｅｌ2003で作成した図書館員の当番表でマクロで当番表を自動作成させています。 サンプルとして用意した当番表のシートを実際の月当番表を作成するときに、シートのコピーをして作成します。シートはコピーされたのですが、そのシートに張り付けた印刷ボタン（クリックすると自動印刷）が今まで一緒にコピーされたのですが、コピーされません。 マイクロソフトの前回の問題と関係するのでしょうか？ コピーされていた古いファイルでしても同様です。

フォルダを指定したら、その中のフォルダ一覧を配列に取得したいのです。 どうすればいいでしょう？中の中までは不要です。出来ればFSO使用で教えて下さい。

フォルダを指定したら、その中のフォルダ一覧を配列に取得したいのです。 どうすればいいでしょう？中の中までは不要です。出来ればFSO使用で教えて下さい。