目次
予算ファイルの無駄な列を削除する
【VBA】 予実差異分析自働化ファイルを作ってみる 1.新規ファイルを開く・保存する
【VBA】予実差異分析自働化ファイルを作ってみる 2.予算ファイルのシートをコピーして新規ファイルに貼り付ける
【VBA】予実差異分析自働化ファイルを作ってみる 3.コピーして追加したシートのデータを値貼り付けに変える
【VBA】予実差異分析自働化ファイルを作ってみる 4.指定したファイルを開く
予算ファイルをコピーして使うときに予実分析をする際に無駄な列があったりします。
一番、最終行に ○ などの削除フラグ判定をつけて削除したい列は自動的に削除してしまうプログラムです。
以下のコードは、最終行に○がついているのは、残すプログラムです。
データがある最終列から一個ずつ○がついていない列だけ削除していきます。
Sub format()
‘ワークブックを定義する
Dim wb As Workbook
‘文字列を定義する
Dim fileName As String
Dim sheetName As String
‘列の変数を定義する
Dim lastcolumn As Integer
‘変数にファイル名の文字列を代入
fileName = “2022年度予実差異.xlsx”
‘変数にシート名の文字列を代入
sheetName = “予想PL(月次)”
‘指定したExcelファイルを開く
Set wb = Workbooks.Open(“C:\Users\Owner\Desktop\” & fileName)
‘3行目の最終列の数値を取得する
lastcolumn = ActiveWorkbook.Worksheets(sheetName).Cells(3, Columns.Count).End(xlToLeft).Column‘繰り返し文を使って、最終列から一個ずつ○が付いてない列を削除する
For i = lastcolumn To 2 Step -1
’71行目に○が付いている場合は、処理をしない
If wb.Worksheets(sheetName).Cells(71, i) = “○” ThenElse
’71行目に○が付いていない場合は、列を削除する
wb.Worksheets(sheetName).Columns(i).DeleteEnd If
Next
End Sub
1時間当りのおおよそのコンサル料金・おおよその月額サービス料・Myサイト・連絡先
1時間当りのおおよそのサービス料金
円 ※あくまでも目安であり連絡先を交換して交渉してください。
おおよその月額サービス料
円 ※あくまでも目安であり連絡先を交換して交渉してください。
電話番号
メールアドレス
サイト
投稿者のすべてのサービスの内容・プロフィール等
派遣社員一人分程度の値段で上場企業レベルの管理ノウハウを取得
元楽天グループ、元ソフトバンクBB出身者、公認会計士、税理士がAIを活用したIPO準備の体制構築をお手伝いいたします。
ChatGPT、GoogleBard、COPILOTなどのテキスト生成AIを使った業務効率化
Adobe Fireflyなどの画像生成AIを使った資料作成
AIを使った超時短プログラミング開発なども指導します。
コメント