★Word/Excel (MS-OFFICE) 初心者スレッド Part23★

このエントリーをはてなブックマークに追加
30ひよこ名無しさん
Excelで、見積書を作ってそのファイルを開く度に自動でシリアルナンバーを付ける事って可能でしょうか?
初心者なので、右も左も分からないんで優しく教えて下さい
31ひよこ名無しさん:2005/06/06(月) 10:23:28 ID:???
>>30
どういう規則のシリアルナンバーをどこに付けたいんでしょうか?
質問内容が曖昧で、右も左も分からないんで優しく教えて下さい
32ひよこ名無しさん:2005/06/06(月) 10:24:07 ID:???
>>30
Excelでつくる簡単作成!見積・注文・納品・請求書
http://kanpo.net/item/4949.html
3330:2005/06/06(月) 10:48:13 ID:Ex4TrVga
分かり辛くてすいません。
雛形になるファイルを開くと自動でコピーしたファイルが出来上がりますが、そのコピーされたファイル上で
見積書番号:00001
みたいな感じで表示させて、コピーを作る度に番号を1づつ増やしていきたいのですが、可能でしょうか?
34ひよこ名無しさん:2005/06/06(月) 10:52:42 ID:???
マクロ使えば可能です
35ひよこ名無しさん:2005/06/06(月) 10:59:44 ID:???
>>33
> 雛形になるファイルを開くと自動でコピーしたファイルが出来上がりますが
何が何処にコピーされるの?

> そのコピーされたファイル上で 見積書番号:00001 みたいな感じで表示させて
ファイル上のどこに表示させたいの?

イベントプロシージャとかで特定の数値をひとつづつ増やすなら
対象セル.value=対象セル.value+1
でいけるけど。
情報小出しにするなら、その情報内で得られる回答のみを頼りに、あとは自分で出来るのかな?
「対象セル.value=対象セル.value+1」以上の答えが欲しいなら、情報の小出しはやめよう。
3630:2005/06/06(月) 11:22:11 ID:Ex4TrVga
>>35
たとえばファイル1のA1セルに0001があるとして、そのファイルをテンプレート?にしたとします。
ファイル1を開く度にA1の値を+1したいのです。
出来れば、具体的なやり方を教えていただけると助かります。
37ひよこ名無しさん:2005/06/06(月) 11:47:22 ID:???
>>36
1. 対象セルを右クリック→セルの書式設定→表示形式→ユーザー定義→「0000」
2. シートタブを右クリック→コードの表示
3. 左のツリービューから「ThisWorkbook」をダブルクリック
4. 下記の3行のコードをコピペ
Private Sub Workbook_Open()
 Worksheets("sheet1").Range("A1").Value = Worksheets("sheet1").Range("A1").Value + 1
End Sub
5. VBEを閉じて、ファイルを上書き保存し閉じる。
6. 再度ファイルを開くとsheet1のA1セルの数値が増える。

※"sheet1"の部分は対象シート名に合わせて書き換え
※マクロを有効にしておくこと