WindowsXP EXCELL2003
いつも御世話になります。
納品書と請求書が一緒になった 「納請書」 がブックには3シートを用意しています。
受注が追加されるごとにこの「納請書3」のコピーとして追加します。
図で言うと「納請書4」という具合にです。
この場合
「納請書3」のコピーですからタイトルは
B3 納品書(3)
B32 請求書(3) となりこれを
B3 納品書(4)
B32 請求書(4)
と自動的に変えられる方法はないでしょうか。
可能ならばご指導いただけませんでしょうか。
※現在は 入力規則 でその都度、手動で対応していますが結構変更ミスが多く防止をしたいためです。
シートのコピーのマクロは以下です。
Sub シートの追加()
Dim NewNo As Integer
NewNo = Sheets("月請求書").Index
Sheets("納請書3").Copy Before:=Sheets("月請求書")
ActiveSheet.Name = "納請書" & NewNo
End Sub
No.3ベストアンサー
- 回答日時:
マクロを使わなくともB3セルにシート名から作成する次のような式を入力しておくことでコピーが作られてもそのシート名に対応した名前が表示されますね。
="納品書 (" & MID(TRIM(MID(CELL("filename",B3),FIND("]",CELL("filename",B3))+1,10)),4,LEN(TRIM(MID(CELL("filename",B3),FIND("]",CELL("filename",B3))+1,10)))-3) & ")"
また、B32セルには次の式を入力します。
="請求書 (" & MID(TRIM(MID(CELL("filename",B32),FIND("]",CELL("filename",B32))+1,10)),4,LEN(TRIM(MID(CELL("filename",B32),FIND("]",CELL("filename",B32))+1,10)))-3) & ")"
No.2
- 回答日時:
おや、どこかで見たコードだなぁ。
。。(^^;;というこで、今回も回答せねば。。
'---------------------------------------------
Sub シートの追加()
Dim NewNo As Integer
NewNo = Sheets("月請求書").Index
Sheets("納請書3").Copy Before:=Sheets("月請求書")
ActiveSheet.Name = "納請書" & NewNo
ActiveSheet.Range("B1").Value = "納 品 書(" & NewNo & ")"
ActiveSheet.Range("B32").Value = "請 求 書(" & NewNo & ")"
End Sub
'--------------------------------------------
以上です。
この回答への補足
前回は有難うございました。
テストして、
シートを追加して「納請書3」をコピーして 納品書4 請求書4 はうまくいきました。
このタイトルが左寄りになってセンター寄せにしたいのですが。
半角で17回エンターを寄せればセンターに来るのですがどうすればいいでしょうか。
恐れ入りますが宜しくご指導いただけませんか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
心電図の記録紙について。
-
長文です。 習い事の会計につい...
-
チェーンストア伝票の書き方を...
-
Amazonの領収書を自分で発行し...
-
K という単位の数え方を教えて...
-
旬次とは?
-
スポーツ少年団の会計処理
-
請求書などの書類の日付を空白...
-
伝票などの赤伝・青伝・三角マーク
-
法人名義で自動車購入時に代表...
-
仕訳を教えてください。NO.10
-
会計帳簿って鉛筆書きOK?
-
管理会社に預けている敷金相当...
-
振替伝票は手書きでないとダメ...
-
見積書・納品書・請求書・領収...
-
ネット通販で買い物、納品書が...
-
『合帳』って言葉、ありますか?
-
カンマの書き方について
-
元帳には1か月ごとの合計のみ...
-
会計帳簿が災害でなくなったら。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
長文です。 習い事の会計につい...
-
Amazonの領収書を自分で発行し...
-
K という単位の数え方を教えて...
-
チェーンストア伝票の書き方を...
-
請求書などの書類の日付を空白...
-
EIAJ1標準納品書について
-
振替伝票は手書きでないとダメ...
-
Excelの出納帳で、別シートに自...
-
法人名義で自動車購入時に代表...
-
請求書と領収書の宛名が違って...
-
納品書と請求書の社名が異なる
-
管理会社に預けている敷金相当...
-
見積書・納品書・請求書・領収...
-
納品書とお買い上げ明細書は同...
-
除却済み固定資産の復活時の伝...
-
会計帳簿って鉛筆書きOK?
-
旬次とは?
-
『合帳』って言葉、ありますか?
-
スポーツ少年団の会計処理
-
カンマの書き方について
おすすめ情報