エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1984)

[[20200222194525]]: #score: 11157; @digest: 885cab45a0122b9ec9afbdd93124b507; @id: 82436; @mdate: 2020-02-27T00:32:39Z; @size: 5928; @type: text/plain; #keywords: sheetname (16659), 中9 (13296), 月目 (9462), ド番 (9004), abc16x106 (7748), abc17x107 (7748), abc18x108 (7748), abc19x109 (7748), abc20x110 (7748), abc15x105 (7748), ほー (6023), ト待 (5390), ヵ月 (4482), 号[ (4315), ●● (3595), 行番 (3455), ーむ (3448), 名:" (2854), 強中 (2788), 番号 (1908), 用di (1824), 2020 (1816), （jk (1721), 終行 (1716), ト名 (1592), maxrow (1514), 名| (1504), 組合 (1481), 土) (1474), 隠居 (1399), 最終 (1223), 名: (1084); 『シート名の取得』（ほーむぱい）
マクロを勉強中です A列に行番号にシート名とコード番号を組み合わせようと思います。最終行と組み合わせ方ができません教えてくれないでしょうかお願いします行番号(5行目から) C列にコードがあります Dim i As Integer Dim sheetName As String sheetName = Worksheets(1).Name For i=5To 最終行＜使用 Excel:Office365、使用 OS:Windows10 ＞ ---- こんばんは ^^ A列に、一番左端のシート名と、C列の値（コード ?）をつなぎあわせたものを書き出せば良いのでしょうか。（隠居じーさん） 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 （もこな2） 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文字以上入れておくと、ちょっと小さ目の文字で改行されずに表示されるようになりますよ。（私は、余分に1つインデントを足してからコードを貼り付けるようにしています）ご参考まで。（もこな2） 2020/02/22(土) 21:34 ---- ＞もこな2さんまだ掲示板に慣れておらず見辛い投稿で申し訳ないですありがとうございます是非参考にさせていただきます（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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202002/20200222194525.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ