エクセルのワークシート(テンプレート)に自動連番を付けられますか
今現在使用してますエクセルは「EXCEL2000」です
いつも登録しています自作のテンプレートの連番の位置に[No.000000]を毎回手入力で入れてまして関数か何かで登録できれば非常に助かるので、ご存知の方お手数ですが教えてください。宜しくお願いします

このQ&Aに関連する最新のQ&A

A 回答 (2件)

テンプレートを開くたびに既に使った連番+1が自動的に決められたセルに書き込まれるようにしたいということだと思いマクロを書いてみました。

はずしていたら読み飛ばして下さい。
キー記録での方法はよく分かりませんので直接書いています。

まず、自動ではありませんが、例えばA1セルに[No.000000]を設定したい場合、
 A1:="[No."&RIGHT("00000"&B1,6)&"]"
としてB1に数値を入力する方法はどうでしょう?B1セルの色を白にするとか、セルの書式設定→表示形式のユーザー設定でスペース1つを設定しておけばB1は表示されません。個人的に使用するならB1を覚えておいて入力すればいい?次はむりやり自動的に表示する方法です。

この質問は今回使う連番をどうやって決めるかが要点だと思います。テンプレートに書き込んでおくのも面倒ですし、既に作成したファイルをサーチするのも重い処理になってしまいます。
そこで、テキストファイルを用意して、このファイルに記録した番号を使うようにしています。

ファイルには次に使われる連番をセットしておきます。ハードディスクのどこかのフォルダにメモ帳等を使って次に使う番号を書いたテキストファイルを作ります。(101番だったら101を入力します)
このファイルのフルパスは下記マクロにセットします。

テンプレートの Workbook_Openイベントに書き込みます。(手順は下に)
  ツール→マクロ→Visual Basic Editor でVBE画面に移ります。
  表示→プロジェクトエクスプローラ でプロジェクトエクスプローラを表示し、
  ThisWorkbook をダブルクリックしてエディット画面を出します。
  下記のコードをコピーして貼り付けます。
  次に使う番号を書いたテキストファイル名と、自動連番をセットするシート名とセル番地は
  ご自分のものに合うように変更して下さい。(「これは例です」と書いた箇所です)
次に、自動連番をセットするセルは未入力状態にします(クリアしておきます)
終ったらテンプレートとして保存して下さい。(xlsファイル形式でテストして完成したらテンプレートにしたらどうでしょうか)

欠点・・・
xlsファイルとして保存してもマクロが残ってしまいます。 m(_ _)m
ただし、連番を登録するセルに既に入力(xlsファイルになっている)があれば更新しません。
テンプレートを開いた時点でテキストファイルの連番が更新されるため、そのファイルを保存しなければ連番が飛ぶことになってしまいます。手で修正が必要です。
参考になればと思い作りました。

'***使用済み最終番号を書いたファイル名
Const renbanFile = "A:\Renban\RenbanData.txt" 'これは例です

'テンプレートを開いた時点で連番を読込みシートに書く
Private Sub Workbook_Open()
'書き込む位置の定義
Dim rg As Range '自動連番をセットするセル
Set rg = Worksheets("Sheet1").Range("A1") '***これは例です
If rg <> "" Then
Exit Sub '既に書かれていれば何もしない
End If
Dim fileNo As Integer 'ファイル番号
Dim renban As Long '連番
'連番の入力
fileNo = FreeFile
Open renbanFile For Input As #fileNo
Input #fileNo, renban: Close
'連番を書き込む
rg = "[No." & Right("000000" & renban, 6) & "]"

'連番の更新(次回使う番号を書込み)
Open renbanFile For Output As #fileNo
Print #fileNo, renban + 1: Close
End Sub
    • good
    • 0
この回答へのお礼

かなり詳しく内容を教えていただきまして、本当に有難うございます
また、お礼の返事も大変遅くなりましてすみませんでした。と言いますのもパソコンが故障してしまいましてどうにも成りませんでした。回答いただきました内容で
ベーシックは全然判らないので、ベーシックの解説書を買ってこれから勉強しますので、今後とも宜しくお願いします。

お礼日時:2001/06/18 19:23

補足ようきゅ~


テンプレートって、EXCEL2000特有の機能?
それとも自作のひながた(ワークシート)のことをfuji25さんがそう読んでいるだけなの?
連番の位置とは、シートごとに特定のセルを決めているの?そして、そんなシートが1つのブックにたくさんあるってこと?毎回手入力ってことは、さらにそんなブックがたくさんある(作って行く)ってこと?
あと、マクロ(VBA)は、つかえますか?もし使えるなら、
マクロではいやな理由があるの?

で、とりあえず、勝手な推定でいうと・・・
EXCELマクロで可能です。

(1)ツール/マクロ/新しいマクロ記録 
   マクロ名など適当に・・・
(2)やりたい操作をひとつやる
   (あるシートを選択し、連番のセルに、
    設定したい番号を入れる)
(3)マクロ記録の終了
(4)ツール/マクロ/VisualBASIC....
(5)さっき(1)で選んだ保存先を指定すると
   記録されたマクロが出ます。
(6)ここからプログラムをちょっと変更すると
   できるんですが・・・
   解説書などがあったほうがいいです。
   じっと見てわかっちゃう人もいますが・・
    • good
    • 0
この回答へのお礼

回答くださいまして有難うございましたまた、お礼の返事が遅くなりましてすみませんでした使っているパソコンが故障してましてようやく直りました。
マクロを勉強して見ます。有難うございました。

お礼日時:2001/06/18 19:14

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルで自動連番

エクセル2000で見積書を作成しています。
項目名等のみのフォーマットを原紙として保存してあり、実際に明細を作成した時は別名で新規保存しているのですが、その原紙を起動した時点で自動的に新しい見積書NO.をつけてくれる簡単な機能などありますでしょうか?

Aベストアンサー

最初の設定だけ少し手順が必要ですが
それ以降はボタン1つなのでご協力下さい。
もしもの場合に備えてバックアップをとってから実施して下さい。


では以下の手順でお願します。


「マクロの貼り付け」
「準備」
「実行」



「マクロの貼り付け」
1.見積のブックを開いて
2.Alt + F11 を押して VBE を起動して下さい。
3.ツールバーの「挿入」-「標準モジュール」
を選んで下さい。
4.出てきた白紙に下のソースを貼りつけて下さい。
5.ツールバーの「ファイル」-「終了してエクセルに戻る」
を選択してエクセルに戻って下さい。



「準備」
1.見積書のシート名を「見積」に変えて下さい。
2.ツールバーの
「ツール」-「マクロ」-「マクロ」を選んで
中から「準備」を選択して、実行して下さい。


これで準備完了です。



「実行」
表示された表に
1.会社名
2.支店名
3.パス
を入れて下さい。

1.会社名は実際にあるフォルダの名前を入力下さい。
まだ実際にフォルダが無い場合は、作成後に入力下さい。
3.パスは実際に1の会社名フォルダのある場所を記入下さい。
1と3はそれぞれディスク上に無いとエラーになります。



見積を作成後、スタートボタンを押して下さい。
設定のままだと下の場所に作られます。

C:\WINDOWS\日本株式会社\0001アフリカ支社.xls





「注意点」

1.「設定」では、会社名、支店名、パス以外は変更しないで下さい。
行や列の移動や削除は行わないで下さい。

2.シート「見積」は、名前を「見積」以外にしないで下さい。

3.準備作業は最初の1回だけ行って下さい。
2回やるとエラーになります。
(もし行う場合は、シート「設定」を削除してから行って下さい。)

4.登録するフォルダは事前に作っておいて下さい。
実行後に、実在しないフォルダが指定されているとエラーになります。

5.見積番号は、自動連番です。
1度スタートボタンを押すと、番号が1つ進みます。
もしも番号を操作する場合(一つ戻す、リセットするなど)は、
シート「設定」の非表示にしてある2行目の数字
「前回見積No.」を変更して下さい。
他は計算式が入っているので注意下さい。


スタートボタンは右クリックするとコピーができます。
場所やシートを移動する場合は、適当な位置へ動かして下さい。

その他何かあれば小さなことでも構いません、連絡下さい。



下をコピーして貼りつけて下さい。

Sub 見積連番保存()

見積番号 = Sheets("設定").Cells(4, 4)
会社名 = Sheets("設定").Cells(6, 4)
支店名 = Sheets("設定").Cells(7, 4)
パス = Sheets("設定").Cells(8, 4)
フルパス = パス & 会社名 & "\" & 見積番号 & 支店名 & ".xls"

Sheets("見積").Select
Sheets("見積").Copy
ActiveWorkbook.SaveAs FileName:=フルパス
ActiveWorkbook.Close

Sheets("設定").Cells(2, 4) = 見積番号
ActiveWorkbook.Save

Sheets("設定").Select
MsgBox "見積書を保存しました。 " & フルパス
End Sub
Sub 準備()
Sheets.Add
ActiveSheet.Name = "設定"

Range("C2") = "前回見積No."
Range("C4") = "今回見積No."
Range("C6") = "会社名"
Range("C7") = "支店名"
Range("C8") = "パス"
Range("C10") = "予定ファイル名"
Range("C11") = "予定登録先"
Range("D2").FormulaR1C1 = "0"
Range("D3").FormulaR1C1 = "=+R[-1]C+1"
Range("D4").Formula = "=REPT(0,4-LENB(D3))&D3"
Range("D6") = "日本株式会社"
Range("D7") = "アフリカ支社"
Range("D8") = "C:\WINDOWS\"
Range("D10").Formula = "=REPT(0,4-LENB(D3))&D3&D7"
Range("D11").Formula = "=D8&D6&""\""&REPT(0,4-LENB(D3))&D3&D7&"".xls"""
Range("E2") = "変更不可"
Range("E3") = "変更不可"
Range("E4") = "変更不可"
Range("E10") = "変更不可"
Range("E11") = "変更不可"
'青
Range("B5:C9,D5:E5,D9:E9,E6:E8").Select
With Selection.Interior
.ColorIndex = 34
End With
'グレー
Range("B2:E4,B10:E11").Select
With Selection.Interior
.ColorIndex = 15
End With
'太字
Range("C2:C4,C10:C11").Select
Selection.Font.Bold = True
'16ポイント
Range("D6:D8").Select
With Selection.Font
.Name = "MS Pゴシック"
.Size = 16
End With
'中中
Range("C6:C8").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
'height
Rows("6:8").Select
Selection.RowHeight = 30
'width
Columns("A").ColumnWidth = 1.88
Columns("B").ColumnWidth = 7.38
Columns("C").ColumnWidth = 14.5
Columns("D").ColumnWidth = 51.5
Columns("E").ColumnWidth = 8.75
'グループ化 非表示
Rows("2:3").Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
'罫線
Range(Cells(6, 3), Cells(8, 4)).Borders.LineStyle = xlContinuous
Range(Cells(4, 2), Cells(11, 5)).BorderAround xlContinuous

'ボタン作成
Range("C13").Select
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 63, 211.5, 90.75, 54).Select
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45
Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 2, 1#
Selection.Characters.Text = "" & Chr(10) & "スタートボタン"
With Selection.Characters(Start:=2, Length:=7).Font
.Name = "MS Pゴシック"
.FontStyle = "太字"
.Size = 16
.ColorIndex = 7
End With
Selection.HorizontalAlignment = xlCenter
Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft
Selection.OnAction = "見積連番保存"
Range("D13").Select
ActiveWorkbook.Save
End Sub

最初の設定だけ少し手順が必要ですが
それ以降はボタン1つなのでご協力下さい。
もしもの場合に備えてバックアップをとってから実施して下さい。


では以下の手順でお願します。


「マクロの貼り付け」
「準備」
「実行」



「マクロの貼り付け」
1.見積のブックを開いて
2.Alt + F11 を押して VBE を起動して下さい。
3.ツールバーの「挿入」-「標準モジュール」
を選んで下さい。
4.出てきた白紙に下のソースを貼りつけて下さい。
5.ツールバーの「ファイル」-「終了して...続きを読む

Q見積書をエクセルで作成時に連番をふりたい。

見積書をエクセルで作成しています、セルに見積書番号を付けたいのですが自動で連番を書き込む事はできますか?
見積書のエクセルファイルを開いたときに番号が1つ増えて番号が記入されていく様にしたいと思っています。

Aベストアンサー

VBAになりますね。

Private Sub Workbook_Open()
Sheets("見積書").Cells(1, 1) = Sheets("見積書").Cells(1, 1) + 1
End Sub

これでA1に連番がはいります。

Qエクセルの表を複数枚印刷したときに連番をつけたい

エクセルの1枚の表を100枚印刷し、その表のシート内(AW3)に連番を打ちたいのですが、なにか簡単な方法はありますか?
今までは印刷を100枚して、ナンバーリング(ハンコ)で連番を打っていましたが、ちょっと面倒なんです。
マクロを使ったことのない初心者ですが、何かよい方法はありませんか?よろしくお願いいたします。

Aベストアンサー

#02です。
開始番号、終了番号を指定する場合はこんなマクロです。
ただし開始、終了ともに正の数でないと印刷は行いません。

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
 frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
     & "開始番号を入力してください", Type:=1)
 toPage = Application.InputBox("終了番号を入力してください", Type:=1)
 If frmPage > 0 And toPage >= frmPage Then
  For idx = frmPage To toPage
   Range("AW3").Value = idx
   ActiveSheet.PrintOut
  Next idx
 Else
  MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
 End If
End Sub

#02です。
開始番号、終了番号を指定する場合はこんなマクロです。
ただし開始、終了ともに正の数でないと印刷は行いません。

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
 frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
     & "開始番号を入力してください", Type:=1)
 toPage = Application.InputBox("終了番号を入力してください", Type:=1)
 If frmPage > 0 And toPage >= frmPage Then
  For idx = frmPage To toPage
   Range("AW3...続きを読む

Qエクセルのシートごとに連番を入れたい

エクセルでお客様番号を振ったシートを300枚ほど作ることになりました。
ちなみにお客様番号は連番で通し番号になっています。
エクセルのシートを300枚ほど同じブックに作って
一括で印刷することは可能でしょうか?
ちなみにその番号以外は同じ内容の文章なので
いっぺんに同じ内容のシートをコピーしつつ、番号だけ連番となることが理想なのですが。
マクロの知識はほとんどありませんが、教えていただけるとありがたいです。
どうかよろしくお願いします。

Aベストアンサー

もし印字上番号が振られればよく
300枚のシートを保持する必要がないのなら
差し込み印刷のような機能を使ってみてはどうでしょう

http://www.vector.co.jp/soft/win95/business/se386179.html
このようなものもあるようですので
EXCELだけでも実現できそうです

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Q複数シートの特定の位置に連番を振る方法??

関数もマクロもまだまだ理解できていない初心者です。
エクセルで送り状を作成していまして、毎回「原紙」のシートをコピーして必要事項を入力し
プリントアウトして使っています。
この中の項目に連番でナンバーを振る欄があり(位置は固定されています)、今現在はものすごく原始的に前のシートを確認して、ナンバーを手入力しています。
これを、原紙のシートをコピーした際に、自動でナンバーが振られるようにしたいのですが・・・
何かいい方法はありませんでしょうか??
シート名を日付で管理し、後で確認できるよう、数か月分は保存している状態です。
また、ただの送り状なので、データベース化する必要はありません。
どなたかお知恵をお貸し下さい、よろしくお願い致します。

Aベストアンサー

マクロでやって見ました。
新たなシートを作る時に以下のマクロを動かします。

テンプレートシートのコピーを行い、その際に該当セルの最大値を串刺しで計算。
その値+1を新たに追加したシートの該当セルに入れています。
コード中の連番を入れるセルや、原紙のシート名は実際の物に合わせて下さい。

Sub sample()
  Dim sTarget, sSheet, sCount

  sTarget = "A1" '連番を入れるセル
  Sheets("原紙").Copy After:=Sheets(Sheets.Count) '原紙シートをコピー
  sSheet = "'" & Sheets(1).Name & ":" & Sheets(Sheets.Count - 1).Name & "'!"

  sCount = Evaluate("=max(" & sSheet & sTarget & ")") '該当セルの最大値取得
  If IsNumeric(sCount) = False Then sCount = "0"
  Range(sTarget).Value = Int(sCount) + 1
  'シート名を 日付_シート枚数に変更
  Sheets(Sheets.Count).Name = Format(Now(), "YYYYMMDD") & "_" & Sheets.Count
End Sub

マクロでやって見ました。
新たなシートを作る時に以下のマクロを動かします。

テンプレートシートのコピーを行い、その際に該当セルの最大値を串刺しで計算。
その値+1を新たに追加したシートの該当セルに入れています。
コード中の連番を入れるセルや、原紙のシート名は実際の物に合わせて下さい。

Sub sample()
  Dim sTarget, sSheet, sCount

  sTarget = "A1" '連番を入れるセル
  Sheets("原紙").Copy After:=Sheets(Sheets.Count) '原紙シートをコピー
  sSheet = "'" & Sheets(1).Name & ":" &...続きを読む

Qexcelで抽選券を作り、通し番号を入れたいです

excelで抽選券を作り、通し番号を入れたいのですが、 やり方がサッパリわからなかったので質問させていただきます。

A4用紙に抽選券8枚分をexcelで作り、 その抽選券に連番(No.0001~No.1400)を入れていきたいです。

予算がない為、印刷所にお願いする事ができません。
手入力で連番を入力していくのにも1400まであるので参っています。
何か他に良いアイデアや連番を入れる方法がありましたらお願いします。

Aベストアンサー

レイアウトは、A4縦、2列X4行?
先頭の4コマに、1~4だけを入力(1行目に1と2、2行目に3と4)した後、4つをまとめて下方向にフィルコピー
2列を選択して、書式設定(数字を作り込んで確認した後の方が操作性は良い)
書式:ユーザ定義で0000
フォントサイズ:72(Max?)
フォント:適当に
列幅:40
行高:200
全罫線(切断用)
印刷マージン:全て1.5

これを印刷プレビュ~!!
もっと小さくしてもイイのでは??

QExcelのVBAで自動採番したいのですが

Excel2003のVBAを利用して、例えばコマンドボタンを押した時に、下記のC6の●部分にC列の最大数を検索して自動的に「5」を採番(max+1)入力したいのです。
ただしC2の様に途中に虫食いで空欄があり、またその空欄に後日数字が入る可能性もあります。(C列は多くても40列程度)
数が多くなると採番ミスの恐れがあり、自動化したいのでよろしくお願いいたします。

 |A|B|C|D
1|X|テ|1|
2|L|ス| |
3|V|レ|3|
4|Y|フ|4|
5|N|モ|2|
6|S|シ|●|
7|

Aベストアンサー

選択した行でいいなら

Sub ボタン1_Click()
Dim RG As Range
Set RG = ActiveCell
Range("C" & RG.Row) = Application.WorksheetFunction.Max(Range("C:C")) + 1
End Sub

Q「ご連絡いたします」は敬語として正しい?

連絡するのは、自分なのだから、「ご」を付けるのは
おかしいのではないか、と思うのですが。
「ご連絡いたします。」「ご報告します。」
ていうのは正しい敬語なのでしょうか?

Aベストアンサー

「お(ご)~する(いたす)」は、自分側の動作をへりくだる謙譲語です。
「ご連絡致します」も「ご報告致します」も、正しいです。

文法上は参考URLをご覧ください。

参考URL:http://www.nihongokyoshi.co.jp/manbou_data/a5524170.html

QEXCELでNo.を変えて印刷したい

EXCEL2000でページ数は1枚なのですが、500枚同じものを印刷するときに右上にNo.0001~0500までのNo.つけて一枚づつ印刷するにはどうしたらいいのでしょうか?

Aベストアンサー

エクセル自体にその機能は無いと思います。
VBAを使えば実現できます。
1.ワークシートにコマンドボタンを一つ配置します。
2.コマンドボタンを右クリック→プロパティ
3.プロパティウィンドウのPrintObjectをFalseにします。
4.コマンドボタンをダブルクリックします。→VBAの画面が開く
5.Private Sub CommandButton1_Click()とEnd Subの間に以下のように入力します。

Dim i As Integer
For i = 1 To 500
Range("A1").Cells = "No." & Format(i, "0000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
Next i

6.3行目のRange("A1").Cellsという部分のA1はページ番号を書きたいセルを指定して下さい。
 また、2行目のFor i = 1 To 500はNo.1~500までという意味なので好きな数字に置き換えて下さい。
7.間違いなく入力できたらVBAの閉じるボタンを押して閉じます。
8.エクセルの画面にあるコントロールツールボックスにある緑の三角定規を押して、押して押されていない状態にします。
9.コマンドボタンを押します。

注意:通常使うプリンタに設定されている物に連続して出力します。
途中で止められませんので、最初は試しで少しづつやって下さい。

エクセル自体にその機能は無いと思います。
VBAを使えば実現できます。
1.ワークシートにコマンドボタンを一つ配置します。
2.コマンドボタンを右クリック→プロパティ
3.プロパティウィンドウのPrintObjectをFalseにします。
4.コマンドボタンをダブルクリックします。→VBAの画面が開く
5.Private Sub CommandButton1_Click()とEnd Subの間に以下のように入力します。

Dim i As Integer
For i = 1 To 500
Range("A1").Cells = "No." & Format(i, "0000")
ActiveWindow.SelectedSheets.P...続きを読む


人気Q&Aランキング