Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11097 / 13644 ツリー ←次へ | 前へ→

【18077】エクセル ワークシート名 ino 04/9/14(火) 14:54 質問[未読]
【18078】Re:エクセル ワークシート名 Asaki 04/9/14(火) 15:07 回答[未読]
【18079】Re:エクセル ワークシート名 ino 04/9/14(火) 15:13 質問[未読]
【18080】Re:エクセル ワークシート名 Asaki 04/9/14(火) 15:34 回答[未読]
【18083】Re:エクセル ワークシート名 ino 04/9/14(火) 15:57 質問[未読]
【18084】Re:エクセル ワークシート名 Asaki 04/9/14(火) 16:01 回答[未読]
【18085】Re:エクセル ワークシート名 ino 04/9/14(火) 16:16 質問[未読]
【18095】Re:エクセル ワークシート名 Asaki 04/9/15(水) 9:23 回答[未読]
【18134】Re:エクセル ワークシート名 ino 04/9/16(木) 12:53 お礼[未読]

【18077】エクセル ワークシート名
質問  ino  - 04/9/14(火) 14:54 -

引用なし
パスワード
   エクセルでワークシートをコピーした時に、行番号が引き続くようにしたい時どうすればいいでしょうか?計算式でしょうか?マクロを使うんでしょうか?

【18078】Re:エクセル ワークシート名
回答  Asaki  - 04/9/14(火) 15:07 -

引用なし
パスワード
   こんにちは。

>行番号が引き続くようにしたい時どうすればいいでしょうか?
行番号とは、何を指していますか?
デフォルトで一番左に表示されるやつであれば、それは変えられませんが。

【18079】Re:エクセル ワークシート名
質問  ino  - 04/9/14(火) 15:13 -

引用なし
パスワード
   ▼Asaki さん:
>こんにちは。
>
>>行番号が引き続くようにしたい時どうすればいいでしょうか?
>行番号とは、何を指していますか?
>デフォルトで一番左に表示されるやつであれば、それは変えられませんが。
行番号とは自分でROW関数を使って決めた番号です。
その番号をシートが増えた場合引き続けるようにしたいのですが・・
よろしくです

【18080】Re:エクセル ワークシート名
回答  Asaki  - 04/9/14(火) 15:34 -

引用なし
パスワード
   >行番号とは自分でROW関数を使って決めた番号です。
では、そのMaxをとって、+1すればよいのでは?

【18083】Re:エクセル ワークシート名
質問  ino  - 04/9/14(火) 15:57 -

引用なし
パスワード
   ▼Asaki さん:
>>行番号とは自分でROW関数を使って決めた番号です。
>では、そのMaxをとって、+1すればよいのでは?
ワークシートがコピーして変わっているのですが、できるのでしょうか?
ワークシート1の時は1〜8番まで、2の時は9〜といった感じにしたいのです。

【18084】Re:エクセル ワークシート名
回答  Asaki  - 04/9/14(火) 16:01 -

引用なし
パスワード
   え〜っと、どうしたいのか良く分かりません。

コピー元のシート名で、どの番号にするか判断できませんか?
コピーそのものは、手作業で行うのですか?

【18085】Re:エクセル ワークシート名
質問  ino  - 04/9/14(火) 16:16 -

引用なし
パスワード
   ▼Asaki さん:
>え〜っと、どうしたいのか良く分かりません。
>
>コピー元のシート名で、どの番号にするか判断できませんか?
>コピーそのものは、手作業で行うのですか?
まずB票と言うシートのA7〜A15まで1〜15までの行番号をROW関数を使い表示させます。
次にB票を末尾にB票(2)と言う名前でコピーします。すると、シートのA1
〜A15には16〜30の行番号を同じROW文を使い表示させたいのです。
わかりにくい説明ですみません

【18095】Re:エクセル ワークシート名
回答  Asaki  - 04/9/15(水) 9:23 -

引用なし
パスワード
   取り敢えず、条件付で。

** ThisWorkbook モジュールに
Option Explicit

Private Sub Workbook_Open()
  Dim i    As Long
  ReDim strSheetName(1 To Worksheets.Count)

  For i = 1 To Worksheets.Count
    strSheetName(i) = Worksheets(i).Name
  Next i
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim i    As Long
  
  If Sh.Index <> Worksheets.Count Then Exit Sub
  For i = 1 To UBound(strSheetName)
    If Sh.Name = strSheetName(i) Then Exit Sub
  Next i

  Sh.Range("A1:A15").Formula = "=ROW() + " & Application.Max(Sh.Previous.Range("A1:A15"))
  ReDim Preserve strSheetName(1 To Worksheets.Count)
  strSheetName(Sh.Index) = Sh.Name
End Sub

---------------------------------------
'** 標準モジュールを追加して
Option Explicit

Public strSheetName()      As String
---------------------------------------

シートが追加されるのは、必ず右端で、そのすぐ左隣のシートの
A1:A15のセルの最大値+1 から始まる連番を、追加したシートに振ります。

【18134】Re:エクセル ワークシート名
お礼  ino  - 04/9/16(木) 12:53 -

引用なし
パスワード
   アドバイスありがとうございます。
お陰さまで完成しました。

11097 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free