[[20140920193040]]　『別のブックから最終セル自動取得、続き番号を入力』（たいしょー）　ページの最後に飛ぶ

『別のブックから最終セル自動取得、続き番号を入力』（たいしょー）

ネット中探したつもりですが見つからず、こちらで質問させていただきます。

請求書.xlsmと管理用ファイル.xlsmがあります。
管理用ファイル.xlsmの管理sheetから管理ナンバー列の最終セルの値を取得し
請求書.xlsmの請求書sheetのc13に、取得したナンバーの+1を00001の形で入れたいと思っています。

管理ファイル.xlsmには
　　　 A　　　　　　B
1　管理ナンバー　納品日
2　　00001
3　　00002
4　　00003
のように管理ナンバーを保存していきます。

どうかご教示くださいませ。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 管理sheet の A列は数字でしょうか。文字列でしょうか。
 数式を探しているのでしょうか。マクロコードなのでしょうか。

 数字の数式なら、こんなのでもできそうですけれど。
 =TEXT(MAX([管理ファイル.xlsm]管理sheet!A:A)+1,"00000")
（Mook） 2014/09/20(土) 20:19

Mook 様

コメントありがとうございます。
探しているのはマクロです。ボタンに割り当てたいと思っています。
いただいた式をヒントにマクロを組んでみましたがうまくいきません。

管理sheetのA列は00001,00002,00003…といった数字です。

マクロをお示しいただければ幸いです。

（たいしょー） 2014/09/20(土) 22:06

 確認ですが、数字ということは数式バーで見ると 1 という数字が見えて、書式で
 00000 としているということでしょうか。

 あと、自分で試した見たというのであれば、動かなくてもそれを提示できないでしょうか。
（Mook） 2014/09/20(土) 23:02

Mook様

お返事遅くなりました。
なんとかこの個所は希望通りに動くマクロが組めました。
請求書.xlsm　は　請求書フォーム.xlsm　に、
管理用ファイル.xlsm　は　管理用ファイル.xlsx　に変更されています。

何かお気づきの点があればお伺いしたいです。

↓↓↓
Sub 請求書スタート()

 Dim range1 As Range

 Windows("管理用ファイル.xlsx").Activate

 Set range1 = Range("A1").End(xlDown)

 Windows("請求書フォーム.xlsm").Activate

 Range("c13").NumberFormatLocal = "00000"

 Range("C13").Value = range1 + 1

End Sub

（たいしょー） 2014/09/21(日) 15:19

コメント返信：