[[20200222194525]]　『シート名の取得』（ほーむぱい）　ページの最後に飛ぶ

『シート名の取得』（ほーむぱい）

マクロを勉強中です
A列に行番号にシート名とコード番号を組み合わせようと思います。
最終行と組み合わせ方ができません
教えてくれないでしょうか
お願いします

行番号(5行目から)
C列にコードがあります

Dim i As Integer
Dim sheetName As String

sheetName = Worksheets(1).Name

For i=5To 最終行

＜使用 Excel：Office365、使用 OS：Windows10 ＞

こんばんは　＾＾
Ａ列に、一番左端のシート名と、Ｃ列の値（コード　？）をつなぎあわせたものを
書き出せば良いのでしょうか。
（隠居じーさん） 2020/02/22(土) 20:09

編集がかぶってしまいましたが、そのまま。

＞A列に行番号にシート名とコード番号を組み合わせようと思います。
＞最終行と組み合わせ方ができません

困ってる内容がさっぱりわかりません。

【どうなるつもり】で、どのようなコードを書いたか【全体を示し】、【どうなってしまった】を説明されるとたくさんの回答がえられるような気がします。

とりあえず想像で、こんなことだったんでしょうか？

   Sub 実験()
      Const 最終行 As Long = 5
      Dim i As Integer
      Dim sheetName As String

      sheetName = Worksheets(1).Name
      For i = 5 To 最終行
         ActiveSheet.Cells(i, "A").Value = "シート名：" & sheetName & " 行番号：" & i
      Next i

   End Sub

（もこな２） 2020/02/22(土) 20:15

 あ！なるほど　＾＾　行番号も必要なよぉ～ですね。　(#^.^#)
 m(_ _)m
（隠居じーさん） 2020/02/22(土) 20:22

 >sheetName = Worksheets(1).Name

 これを使うなら、
 最終行 = Sheets(sheetName).cells(rows.count,3).end(xlup).row
（BJ） 2020/02/22(土) 20:25

 ↑
 ひょっとして頓珍漢？

 >シート名の取得
 >A列に行番号にシート名とコード番号を組み合わせようと思います。 
 >最終行と組み合わせ方ができません

 この組み合わせの意味が良く解ってませんでした。
（BJ） 2020/02/22(土) 20:30

 ＞＞この組み合わせの意味が良く解ってませんでした。
いえいえ、あながち、そぉ～とも。。。。。。私も良く
わかっていませんです。＾＾：ご本人にお聞きするしか
ないようですが？　(#^.^#　　)m(_ _)m
（隠居じーさん） 2020/02/22(土) 21:11

おおよそ皆さまからの助言で正答されているのではと思いますが
繋げるとこんな感じかとおもいます

Dim i As Integer　　　　　 'Loop用
Dim SheetName As String　　'SheetName
Dim MaxRow as long '最終行

sheetName = Worksheets(1).Name
With WorkSheets(SheetName)

  MaxRow = .Cells(Rows.Count,3).End(xlUp).Row
  For i = 5 To MaxRow
  .Cells(i,1) = i & SheetName & .Cells(i,3)
  Next i
End With
（VBA勉強中9ヵ月目） 2020/02/22(土) 21:23

あ～読み間違えてました。【行番号】でなくて、【コード番号】でしたね。
失礼しました。

以下、質問とは関係なしです。

＞VBA勉強中9ヵ月目　さんへ

この掲示板は、先頭に半角スペースを1文字以上入れておくと、ちょっと小さ目の文字で改行されずに表示されるようになりますよ。
（私は、余分に１つインデントを足してからコードを貼り付けるようにしています）

ご参考まで。

（もこな２） 2020/02/22(土) 21:34

 ＞もこな２さん
 まだ掲示板に慣れておらず見辛い投稿で申し訳ないです
 ありがとうございます
 是非参考にさせていただきます

（VBA勉強中9ヵ月目） 2020/02/23(日) 14:38

想像してレイアウトしてみました。

     |[A]               |[B]       |[C]       
 [1] |組合せ(行番号あり)|ファイル名|コード番号
 [2] |                  |          |          
 [3] |3ABC10X100        |ABC10X    |       100
 [4] |4ABC11X101        |ABC11X    |       101
 [5] |5ABC12X102        |ABC12X    |       102
 [6] |6ABC13X103        |ABC13X    |       103
 [7] |7ABC14X104        |ABC14X    |       104
 [8] |8ABC15X105        |ABC15X    |       105
 [9] |9ABC16X106        |ABC16X    |       106
 [10]|10ABC17X107       |ABC17X    |       107
 [11]|11ABC18X108       |ABC18X    |       108
 [12]|12ABC19X109       |ABC19X    |       109
 [13]|13ABC20X110       |ABC20X    |       110
 [14]|                  |          |          
 [15]|組合せ(行番号なし)|ファイル名|コード番号
 [16]|                  |          |          
 [17]|ABC10X100         |ABC10X    |       100
 [18]|ABC11X101         |ABC11X    |       101
 [19]|ABC12X102         |ABC12X    |       102
 [20]|ABC13X103         |ABC13X    |       103
 [21]|ABC14X104         |ABC14X    |       104
 [22]|ABC15X105         |ABC15X    |       105
 [23]|ABC16X106         |ABC16X    |       106
 [24]|ABC17X107         |ABC17X    |       107
 [25]|ABC18X108         |ABC18X    |       108
 [26]|ABC19X109         |ABC19X    |       109
 [27]|ABC20X110         |ABC20X    |       110

ほーむぱいさんレイアウト待ってまーす。
（jk） 2020/02/23(日) 16:16

コメントありがとうございます
わかりづらく申し訳ありません

シート名：あいう

行番号　+　シート名　+　コード番号

	A　　	B	　　　　C
1			
2			
3			
4			
5	5　　あいう123		123
6	6　　あいう456		456
7	7　　あいう789		789
8	8　　あいう258		258
9	9　　あいう147		147
10	10　 あいう369		369

（ほーむぱい） 2020/02/25(火) 08:57

あれっすれたのでもう1回
B列は他のデータがあります

	A　　	　　　　　B	　C
1			
2			
3			
4			
5	5あいう123	●●	123
6	6あいう456	●●	456
7	7あいう789	●●	789
8	8あいう258	●●	258
9	9あいう147	●●	147
10	10あいう369	●●	369

（ほーむぱい） 2020/02/25(火) 09:08

 もうレイアウトとかどうでもいいと思っていたのだけれど、
 これだけ事例が出てるから、後は自分で考えて組んでください。
 と、思ってました。
（BJ） 2020/02/25(火) 10:11

（VBA勉強中9ヵ月目） 2020/02/22(土) 21:23
Worksheets(1).NameをWorksheets(あいう).Nameとして試してみましたか。
結果は希望通りになります。

これをどのように使用するか疑問?

（jk） 2020/02/25(火) 17:59

A5=ROW()&RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))&C5

必要分下へコピー

「シート名：あいう」でのみ有効
（余計なお世話） 2020/02/25(火) 18:22

すいません昨日こちらのエラーが出て見れませんでした
皆さんのおかげで無事にA列に行番号にシート名とコード番号が出せるようになりました
ありがとうございます
（ほーむぱい） 2020/02/27(木) 09:32

コメント返信：

[ 一覧(最新更新順) ]

[[20200222194525]] 『シート名の取得』（ほーむぱい） ページの最後に飛ぶ

[[20200222194525]]　『シート名の取得』（ほーむぱい）　ページの最後に飛ぶ