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

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

cell (1170), filename (1984)

[[20200511113538]]: #score: 11157; @digest: a1ce575f5b83f015c14c7611a2ea8a0f; @id: 83484; @mdate: 2020-05-11T08:50:20Z; @size: 4171; @type: text/plain; #keywords: 業ブ (17193), zwbnm (14996), zwsnm (13718), ダ1 (13022), zwb (11145), zprogramid (6567), ztb (5208), ブフ (5051), noa (4306), 隠居 (4199), 問[[ (3163), ク. (2914), く2 (2852), サブ (2742), 居じ (2392), じー (2307), ク1 (1840), 別ブ (1824), は^^ (1566), ブッ (1454), usedrange (1453), （no (1398), ォル (1336), 月) (1190), ルダ (1144), ト( (1014), ーさ (1013), 前回 (947), ん様 (942), フォ (937), （隠 (928), 2020 (908); 『リストの文字列を使い、参照して開く』（noa）
（他の質問[[20200510143625]]が完了していない状態で新規質問申し訳ありません。）よろしくお願いします。別ブックの別シートから内容をコピペしたい。参照したい別ブック名&別シート名は、作業シートのセルに入力されており、その入力内容を使って、別ブックの別シートからコピペしてきたい。たとえば、作業ブックのシート(1)のセルA1に「ぶっく2」セルB1に「しーと2」と入力してある。作業ブックのシート(2)に、上記の「ぶっく2」の「シート2」のA:Dをコピーして貼り付けたい。 …といったことは可能でしょうか。＜使用 Excel:unknown、使用 OS:unknown ＞ ---- こんにちは ^^ 可能だと思いますので、ご質問の内容は前回と同じ処理なら、マナさんのご質問にお答えください、それと、EXCELのバージョン、とOSも教えていただくと、多数アドバイス、回答が有ると思います←多分^^;。。。でわ。。。m(_ _)m （隠居じーさん） 2020/05/11(月) 14:10 ---- 隠居じーさん様ありがとうございます。＞質問の内容は前回と同じ処理なら、マナさんのご質問に「前回と同じ処理」おっしゃる意味が理解できていませんが（すみません）、ひとまず前の質問にも追記してみます。＞EXCELのバージョン Excel2016 ＞OS win10 です。（noa） 2020/05/11(月) 14:24 ---- こんにちは ^^ すみません、別件でしたら、その、各ブックのフォルダは同じフォルダ内というう事でしょうか。それとも、作業ブックは、とあるフォルダに有りぶっく2は＞＞セルA1に「ぶっく2」にフルネーム（絶対パス指定）で格納されているのでしょうか。（隠居じーさん） 2020/05/11(月) 14:35 ---- 隠居じーさん様ありがとうございます。フォルダ1 vbaを置きたいブック1 関係ないブックサブフォルダ1 参照したいぶっく2 関係ないブックの形で入っています。ブック1に入力されている「ぶっく2」「しーと1」は、それぞれブック名とシート名が文字列として入っているのみです。 ChDir Thisworkbook.Path & "¥サブフォルダ1￥" workbooks.open filename:=thisworkbook.path & "¥サブフォルダ1" & range("A1").value & ".xlsx" ↑こんな感じで始めればいけるのかな…?と試行錯誤していますが、この後のシート指定、コピー等もふくめ、うまくいきません。（noa） 2020/05/11(月) 15:05 ---- こんにちは ^^ いろいろ方法はあるかと思いますが、一案で。。。(#^.^#) 作業ブック.xlsmの左から2番目のシートは初期化されます。要バックアップです。 ^^; Option Explicit Sub OneInstanceMain() Const zProgramID As String = "作業ブック.xlsm" Dim zTb As Workbook Dim zWB As Workbook Dim zWbnm As String Dim zWsnm As String Set zTb = Workbooks(zProgramID) With zTb.Worksheets(1) zWbnm = .Cells(1, 1) zWsnm = .Cells(1, 2) End With zTb.Worksheets(2).UsedRange.Clear Set zWB = Workbooks.Open(zTb.Path & "/サブフォルダ1/" & zWbnm) Intersect(zWB.Worksheets(zWsnm).Range("a:c"), zWB.Worksheets(zWsnm).UsedRange).Copy _ zTb.Worksheets(2).Cells(1) zWB.Close False Set zWB = Nothing Set zTb = Nothing End Sub （隠居じーさん） 2020/05/11(月) 15:17 ---- 隠居じーさん様ありがとうございます! 無事動きました。重ねてお聞きしてよろしいでしょうか。 Intersect、Usedrange 、調べてみたのですがよくわからず・・・指定した範囲の中の、データが入力されているところだけ指定する、ということでしょうか。（noa） 2020/05/11(月) 16:51 ---- こんにちは ^^ え〜と、「範囲が重なった部分」だったかと思います。わたしのいい加減な説明よりも下記サイト等が参考になるかと思います。でわ http://officetanaka.net/excel/vba/cell/cell10.htm https://excel-ubara.com/excelvba1/EXCELVBA402.html （隠居じーさん） 2020/05/11(月) 17:18 ---- 隠居じーさん様何度もお付き合いありがとうございました。 usedrange、便利ですねぇ。使えるようになったら指定漏れが減りそうです。 intersectは、読んでみましたがどうやって使えばよいかまだ理解できていません。が、もうちょっと勉強してみます。ありがとうございました。（noa） 2020/05/11(月) 17:32 ---- こんばんは ^^ ご丁寧に、恐縮です。。。m(_ _)m 私も、楽しく勉強させて戴きました。試しに、selectで範囲指定してみると、解りやすいかもしれません。私は、配列等に格納する前に、テストでよく希望の範囲が選択されているか。頻繁に確認致します。では、失礼致します。m(_ _)m。。。（隠居じーさん） 2020/05/11(月) 17:50 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200511113538.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ