![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
こんばんは。
とりあえず私の想像で産婦いるマクロを組んでみましたうまく動作するかどうか次のように操作してみて下さい。・在庫一覧を立ち上げ、ALT+F11キーを押してVBE画面を表示させ、画面右上にVBAProjectと書かれている上でダブルクリックし、表示された右側の白い部分に下記のコードをコピー&ペーストする。
Sub test()
Dim myRow As Long
Dim DirName As String
Dim myWbn As String
Dim i As Long
MsgBox Workbooks("在庫一覧.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
If Workbooks("在庫一覧.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row <> 1 Then
myRow = Workbooks("在庫一覧.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("在庫一覧.xls").Worksheets(1).Rows("2:" & myRow).Delete
End If
DirName = "C:\My Documents\仕訳帳\"
myWbn = Dir(DirName, 16)
Do While Len(myWbn) <> 0
If (myWbn <> ".") And (myWbn <> "..") Then
Workbooks.Open Filename:=DirName & myWbn
i = Workbooks("在庫一覧.xls").Worksheets(1).Cells(Rows.Count, 1).Offset(1, 0).low
ActiveSheet.Cells(i, 1).Value = Workbooks(myWbn).Worksheets(1).Range("B2").Value
ActiveSheet.Cells(i, 2).Value = Workbooks(myWbn).Worksheets(1).Range("B3").Value
ActiveSheet.Cells(i, 3).Value = Workbooks(myWbn).Worksheets(1).Range("B4").Value
ActiveSheet.Cells(i, 4).Value = Workbooks(myWbn).Worksheets(1).Range("B12").Value
ActiveSheet.Cells(i, 5).Value = Workbooks(myWbn).Worksheets(1).Range("C12").Value
ActiveSheet.Cells(i, 6).Value = Workbooks(myWbn).Worksheets(1).Range("B13").Value
ActiveSheet.Cells(i, 7).Value = Workbooks(myWbn).Worksheets(1).Range("C13").Value
End If
myWbn = Dir()
Loop
End Sub
・ALT+F11キーを押してエクセルの画面にもどり、メニューバーの上で右クリックして表示されたプルダウンメニューのユーザー設定をクリックする。
・表示されたダイアログボックスのツールバータブをクリックし、右側の新規作成ボタンをクリックして表示されたボックスを何もせずOKボタンで閉じる。
・ダイアログ僕巣のコマンドタブをクリックし、分類と書かれている下の白いボックスから新しいメニューを選択する。
・コマンドと書かれている下にも新しいメニュと書かれているのでそこにマウスポインターをあわせ、左ボタンを押したまま表示されているツールバーの上までドラッグしてツールバーの上でボタンを離す。
・選択したボタンの編集と書かれているボタンをクリックして表示されたプルダウンメニューの名前と書かれている右の四角の中にマクロ実行と入れてマクロの登録と書かれている場所をクリックする。
・表示されたダイアログボックスの中の白いボックス(広い方)にThisworkbook.testと書かれている部分にポインターをあわせてクリックするとその上の白いボックスの中に同じものが表示されるので、それを確認後OKボタンでダイアログボックスを閉じ、ユーザー設定ダイアログボックスも×ボタンを押して閉じる。
・表示されているツールバーにマウスポインターをあわせ、浸りボタンを押したままメニュバーのところまでドラッグする。
マクロ実行ボタンをクリックするとマクロが走り出すので、動作を確認してみて下さい。
ありがとうございます!!
お礼が遅くなって申し訳ございません。月末、月初処理と風邪で倒れこんでしまってました。
これで少しは仕事が楽になる気がします。
ありがとうございました。
No.2
- 回答日時:
こんばんは。
返答が遅くなって申し訳ございません。聞き忘れたことがございますので、再度補足させて下さい。・単票ファイルをウインドウズの中のマイドキュメントの中に"単票"という名前のホルダーを作り、その中に単票ファイルをすべて保存することが可能かどうか教えて下さい。
・単票ファイルのB2・B3・B4・B12・B13・C12・C13の内容を在庫一覧ファイルのA列~G列まで左から順に並べてよいかどうか教えて下さい。
・在庫一覧ファイルをウインドウズの中のマイドキュメントの中に"在庫"というホルダーを作り、その中に在庫一覧ファイルを保存することが可能かどうか教えて下さい。
・サンプルマクロを書くだけでいいのか・サンプルマクロの操作方法も教えなければならないのかその点について教えて下さい。
お手数をおかけいたします。よろしくお願いいたします。
ありがとうございます。
・単票をマイドキュメントにフォルダを作り、入れました。
・B2・B3・B4・B12・C12・B13・C13の順でお願いします。
・在庫一覧ファイルをマイドキュメントの中にフォルダを作って入れました。
・すみません。マクロ初心者なので操作方法も教えてください。
お手数おかけして申し訳ありません。よろしくお願いいたします。
No.1
- 回答日時:
初めまして。
コピー&ペーストするだけで動作するサンプルマクロを組んでみたいと思います。次の内容を教えて下さい。・単票すべてのブック名
お手数をおかけいたしますが、よろしくお願いいたします。
この回答への補足
早速ありがとうございます。
単票には、11-1-1、11-1-2、11-1-3、11-2-1、11-2-2、・・・・と遠々に日付ごとに連番でついるのですが、、、、
もしだったら、連番に全部名前を変えたりしますが、、、そうすればできますでしょうか?
よろしくお願いいたします。
ありがとうございます。質問者のrariです。
すみません、よくわからなくて、補足のところにかいてしまいました(汗)
どうぞよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) EXCEL関数LOOKUPとFILTERについての質問です 1 2022/12/21 05:53
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) エクセルで納品書を作成中ですが、関数を教えて下さい。 2 2022/09/05 10:32
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
- Excel(エクセル) エクセルを活用して受注表を作成中ですが関数が分からなく困ってました。 1 2022/07/22 09:14
- その他(IT・Webサービス) サイト上のフォルダ階層一覧、ファイル一覧を閲覧する方法は? 1 2022/11/11 15:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロエクセルのブロック解除
-
エクセル終了時の保存確認メッ...
-
コピーしたファイルのマクロを...
-
excelファイルに使われているVB...
-
エクセルファイルを自身のファ...
-
別のパソコンでエクセルのマク...
-
マクロでマクロを削除する
-
VBAを一度起動するとずっと出て...
-
アクセスでファイルを開いたと...
-
Excelからnotesメールを自動で...
-
昨日まで動いていたエクセルの...
-
エクセルでファイルを表示した...
-
【マクロ】エラーが発生⇒実行時...
-
AccessからExcelマ...
-
マクロを消すマクロは不可能?
-
個人用マクロブックにマクロを...
-
マクロを設定したのに、拡張子...
-
Excelが勝手にシート移動してし...
-
エクセルでマクロを有効にする...
-
Excel>マクロを使っていないは...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
VBAを一度起動するとずっと出て...
-
【マクロ】その時、その時で変...
-
VBA マクロ実行時エラー’1004Ra...
-
昨日まで動いていたエクセルの...
-
マクロの有効化するダイヤログ...
-
別のパソコンでエクセルのマク...
-
コピーしたファイルのマクロを...
-
EXCEL マクロ クリップボードク...
-
excelファイルに使われているVB...
-
エクセルファイルを自身のファ...
-
Excelマクロ ファイル名が変わ...
-
Microsoft Excelのファイルのエ...
-
Excelが勝手にシート移動してし...
-
excelが別プロセスで起動してし...
-
エクセルマクロ実行中に別ファ...
-
エクセル2013vbaで、見えない名...
-
マクロでマクロを削除する
-
アクセスでファイルを開いたと...
-
Excel2010 PERSONAL.xlsbの挙動...
おすすめ情報