人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelVBAです。

添付ファイルのようなことをしたいのですが

1)分割する行を選択する
2)VBAを実行
3)12行目から下を全て削除し、別名で指定フォルダへ保存
⇒別名で保存:商品別一覧yyyymmdd.xls (yyyymmddは当日)

4)5行目から11行目までを削除し、12行目以降を上方向へシフト(タイトル行の一行下)
⇒上書き保存

教えていただくと作業的に大変助かります。
宜しくお願い致します。

1218293108
●拡大する

●質問者: hananeko_0
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:VBA xls シフト タイトル フォルダ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー

こんな感じでどうでしょう。

Sub Macro()
 Dim wb As Workbook
 Dim r As Long
 Dim bookName As String
 
  '保存するフォルダのパスを指定
 Const BookPath As String = "C:\Documents and Settings\hogehoge\デスクトップ\test"
 
 r = Selection.Row
 bookName = ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd") & ".xls"
 ThisWorkbook.SaveCopyAs (bookName)
 Set wb = Workbooks.Open(bookName)
 ActiveSheet.Rows(r + 1 & ":65536").Delete shift:=xlUp
 wb.Save
 wb.Close
 
 ActiveSheet.Rows("5:" & r).Delete shift:=xlUp
 ThisWorkbook.Save
End Sub
◎質問者からの返答

ありがとうございますっ (*^_^*)

私のスキルが低く申し訳ないのですが、別名で保存したファイルの名前が

日付だけになってしまうので、日付の前に元ファイルの名前を追加

したいのですが(商品別一覧yyyymmdd.xls )どうすれば良いでしょうか?

それから先ほど別件でSALINGERさんからいただいた回答ですが、

私の質問不足で、毎回指定する枚数が違うので、合計する枚数を指定する部分

(4000のところ)をInputboxで入力指定したいのですが、こちらは又質問にあげさせていただきます。

自力でトライしましたが出来ませんでした・・・(/_;)

もしお時間ありましたら、そちらもご回答いただくと大変助かります。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ