★Word/Excel (MS-OFFICE) 初心者スレッド Part23★
30 :
ひよこ名無しさん:
Excelで、見積書を作ってそのファイルを開く度に自動でシリアルナンバーを付ける事って可能でしょうか?
初心者なので、右も左も分からないんで優しく教えて下さい
>>30 どういう規則のシリアルナンバーをどこに付けたいんでしょうか?
質問内容が曖昧で、右も左も分からないんで優しく教えて下さい
33 :
30:2005/06/06(月) 10:48:13 ID:Ex4TrVga
分かり辛くてすいません。
雛形になるファイルを開くと自動でコピーしたファイルが出来上がりますが、そのコピーされたファイル上で
見積書番号:00001
みたいな感じで表示させて、コピーを作る度に番号を1づつ増やしていきたいのですが、可能でしょうか?
マクロ使えば可能です
>>33 > 雛形になるファイルを開くと自動でコピーしたファイルが出来上がりますが
何が何処にコピーされるの?
> そのコピーされたファイル上で 見積書番号:00001 みたいな感じで表示させて
ファイル上のどこに表示させたいの?
イベントプロシージャとかで特定の数値をひとつづつ増やすなら
対象セル.value=対象セル.value+1
でいけるけど。
情報小出しにするなら、その情報内で得られる回答のみを頼りに、あとは自分で出来るのかな?
「対象セル.value=対象セル.value+1」以上の答えが欲しいなら、情報の小出しはやめよう。
36 :
30:2005/06/06(月) 11:22:11 ID:Ex4TrVga
>>35 たとえばファイル1のA1セルに0001があるとして、そのファイルをテンプレート?にしたとします。
ファイル1を開く度にA1の値を+1したいのです。
出来れば、具体的なやり方を教えていただけると助かります。
>>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"の部分は対象シート名に合わせて書き換え
※マクロを有効にしておくこと