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

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

cell (1170), filename (1984)

[[20190728054346]]: #score: 11157; @digest: 06b171d4557ef406e214bae4cfbfcc89; @id: 80336; @mdate: 2019-07-28T19:39:16Z; @size: 9989; @type: text/plain; #keywords: 賞状 (73618), msgbv (27250), 式シ (26592), buffer (24071), v41 (23966), 日記 (19818), 字バ (16967), v10 (16286), の賞 (14096), 字氏 (12838), ヨッ (11469), 索転 (10933), 簿シ (8570), 式") (7413), 名簿 (5443), なま (5400), 簿") (5336), 隠居 (4665), 状を (4257), srcsh (4002), printpreview (3949), 漢字 (3831), 名前 (3221), 居じ (2990), じー (2884), 日) (2224), worksheets (2132), 氏名 (1936), 転記 (1917), まえ (1912), ッシ (1861), buf (1848); 『賞状をつくりたいです。』（ヨッシー）
A5判の日記の賞状を2枚縦に並べた書式をつくりました。名簿から日記の中に、1枚目にはAさん、2枚目にはBさん・・・と入れたいのですがどうすればいいでしようか。全員分の賞状をつくるコードは、 Sub 日記作成() Dim r As Range Dim ws As Worksheet For Each r In Selection If r.Value <> "" Then On Error Resume Next Set ws = Worksheets(r.Value) On Error GoTo 0 If ws Is Nothing Then Worksheets("日記").Copy after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = r.Value End If End If Next End Sub 氏名欄に名前を入れる数式は、 =RIGHT(CELL("filename",V10),LEN(CELL("filename",V10))-FIND("]",CELL("filename",V10))) です。どこをどのように変えればいいのでしょうか。＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- おはようございます ^^ 何処にお名前があって何処に転記すればよいのでしょうか（氏名欄は何処に?）ひょっとしてシート名がお名前ですか。 selectionはどの範囲を指しているかなどさらに詳しくご説明いただくと、多数アドバイスが有るやもしれません。以下気が付いた点だけで済みません。日記をたくさん作成されるようですが。日記は一つで、そこへ名簿から名前を (必要なら他の物も)検索転記する方がややこしく無くて良い気がするのは私だけでしょうか。。。m(_ _)m （隠居じーさん） 2019/07/28(日) 07:41 ---- 隠居じーさんさんありがとうございます。「どこに名前があるのか」⇒名簿シートがあって1から22名の名前が並んでいます。「どこに転記するのか」⇒書式シートのV10セルとV41セルに転記したいのですが、 V10セルには1番の子、V41セルには2番目の子というように転記したいです。「Selectionの範囲」⇒名簿シートの1から22名の名前すべてです。「検索転記」とはどういう方法でしょうか。教えていただければ勉強になります。（ヨッシー） 2019/07/28(日) 11:37 ---- こんにちは ^^ 別段深い意味など御座いませんで。。。^^; お名前を探して所定のセルに書き出す、という意味です。＞＞名簿シートの1から22名ってセルでいうとどの範囲なのでしょう、例えば A1 〜 A22 でせうかでわ m(_ _)m （隠居じーさん） 2019/07/28(日) 12:25 ---- 横からですけど (1) ＞「どこに転記するのか」⇒書式シートのV10セルとV41セルに転記したいコードは【シート】をコピーすることになってますけど、これはこれで必要なんですよね? Worksheets("日記").Copy after:=Worksheets(Worksheets.Count 【Worksheets(r.Value)】じゃなくて、【書式シート】へのコピーでよいのです? (2) ＞V10セルには1番の子、V41セルには2番目の子というように転記したいです。 3人目以降はどうするのですか? (3) 転記ということだけ考えると、こんな感じになりそうにおもいます。（コンパイルエラーにはなりませんが、実行テストはしてません） Sub test() Dim i As Long Dim srcSH As Worksheet: Set srcSH = Workbooks("名簿.xlsx").Worksheets("名簿") Dim dstSH As Worksheet: Set dstSH = ThisWorkbook.Worksheets("書式") For i = 1 To 22 If i Mod 2 Then dstSH.Range("V10").Value = srcSH.Cells(i, "A").Value Else dstSH.Range("V41").Value = srcSH.Cells(i, "A").Value End If '3人目以降に進む前の何らかの処理 Next i End Sub (1)と(2)を踏まえて想像すると、やりたいことは、・一旦名前を書式シートへ転記してから、・書式シートを自ブック（日記シートのあるブック）の末尾にコピー挿入・2名ごとに繰り返ししたいってことなんでしょうか? （もこな2） 2019/07/28(日) 13:40 ---- >>名前シートの1から22 というのは、A1からA22に漢字氏名、B1からB22までにひらがな氏名があります。漢字バージョンの日記賞状とひらがなバージョンの日記賞状をつくりたいです。もこなさん、ありがとうございます。もこなさんの指摘されたことをやりたいのです。 A5判の賞状1枚ずつ作るのは、最初のコードでできるのですが、A5判の賞状を2枚、つまりA4判1枚に2名分の賞状を作り、印刷していきたいです。だから、2名ごとの繰り返しになります。（ヨッシー） 2019/07/28(日) 14:47 ---- こんにちは ^^ なにかの足しにでも。。。 m(_ _)m Option Explicit Sub OneInstance() Dim Ws As Worksheet Dim i As Long Dim j As Long Dim Buf As Variant Dim Buf2 As Variant Dim Buffer As Variant Set Ws = Worksheets("書式") Ws.Range("V10,V41") = "" With Worksheets("名簿") Buf = Intersect(.Cells(1).CurrentRegion, .Range("A:A")) Buf2 = Intersect(.Cells(1).CurrentRegion, .Range("B:B")) Buffer = Array(Buf, Buf2) For i = 0 To UBound(Buffer) For j = LBound(Buffer(i), 1) To UBound(Buffer(i), 1) Step 2 Ws.Range("V10") = Buffer(i)(j, 1) If j + 1 > UBound(Buffer(i), 1) Then Ws.PrintPreview Exit For End If Ws.Range("V41") = Buffer(i)(j + 1, 1) Ws.PrintPreview Ws.Range("V10,V41") = "" Next Next End With Set Ws = Nothing Erase Buf, Buf2, Buffer End Sub （隠居じーさん） 2019/07/28(日) 15:30 ---- ＞もこなさんの指摘されたことをやりたいのです。であれば、提示したものを改造すればできそうな気が・・・どこがわからないですか? （もこな2） 2019/07/28(日) 16:19 ---- 隠居じーさんさん、ありがとうございます。漢字バージョンとひらがなバージョンの両方が印刷プレビューされました。 2点お願いがあります。 1点目ですが、名簿シートのA列目に漢字氏名、B列にひらがな氏名があります。漢字氏名を選択したなら漢字バージョンの賞状だけ、ひらがな氏名を選択したならひらがなバージョンの賞状だけできるようにはならないですか。 2点目ですが、印刷プレビューではなく、書式シートの後にすべての賞状が順番にできるようにはならないですか。できた賞状に個人ごとに手を加えたいことがあるので、賞状シートがあれば助かります。すいませんが、よろしくお願いします。（ヨッシー） 2019/07/28(日) 17:50 ---- こんばんは ^^ ＞＞書式シートの後にすべての賞状が順番にできるようにはならないですかえ〜と。なにか賞状の文面を個人ごとに変えられるのでしょうか。それでしたら名前の横に（C列）に文面を入力して書式シートの何処に（セル番地を）それを表示させるのかを教えて下さい。マージセルがあるならその情報もお願いします。 ↑と違っていましたら、さらに詳細のご説明をお願いします。でわ ← 出来るかどうか解りませんが。。。作ってみます。。。他の回答者さまから、回答がありましたら、私の案はゴミ箱にでも A(◎_◎;)。。。m(_ _)m （隠居じーさん） 2019/07/28(日) 18:15 ---- どうもやりたいことは、差し込み印刷ならぬ差し込みシート複製っぽい。ただ、どこがわからないのかわからないし、どうもただの作業依頼のようにも思えてきました。質問である場合は、具体的にどのようにしたら思う通りの結果でなくなってしまったのかなどをご説明いただくとアドバイスできることがあるかもしれません。そうでなくて、ただの発注なら私は降ります。（やる気になってる回答者さんの邪魔をするのも悪いですし・・）（もこな2） 2019/07/28(日) 18:32 ---- ＞＞やる気になってる回答者さんの邪魔をするのも悪いですし・・私の事でしたらぜんぜん悪くないですよ。。。(^^) どんどん、回答してあげて下さい。 m(_ _)m （隠居じーさん） 2019/07/28(日) 20:44 ---- シート名名簿 A B C 1 名前A なまええ最初の人です 2 名前B なまえびよくできました 3 名前C なまえしもうすこしがんばりましょう 4 名前D なまえで数学よかったです 5 名前E なまえいあああ 6 名前F なまええふいいい 7 名前G なまえじううう 8 名前H なまええっちととと 9 名前I なまえあいいえいえ 10 名前J なまえじぇとてもとても 11 名前K なまえけよいよい 12 名前L なまええるわるくない 13 名前M なまええむとてもいい 14 名前N なまええぬなかなかいける 15 名前O なまえおとてもいいかも 16 名前P なまえぴぐぐぐ 17 名前Q なまえきゅげ 18 名前R なまえあるいや〜 19 名前S なまええすでわでわ 20 名前T なまえてさすがさすが 21 名前U なまえゆいやいやなかなか 22 名前V なまえぶいさいこうさいこう! 23 DUM ダミーゆうれいですダサいコードになってしまいましたが。。。^^: Option Explicit Sub OneInstance() Dim i As Long Dim Buf As Variant Dim MsgBV As Variant MsgBV = MsgBox("漢字=OK ひらがな=NO", vbYesNo) With Worksheets("名簿") Buf = .Cells(1).CurrentRegion End With With Worksheets("書式") .Range("D10,D41,V10,V41") = "" For i = LBound(Buf, 1) To UBound(Buf, 1) Step 2 .Range("D10") = Buf(i, 3) If MsgBV = vbYes Then .Range("V10") = Buf(i, 1) If MsgBV = vbNo Then .Range("V10") = Buf(i, 2) If i + 1 > UBound(Buf, 1) Then .PrintPreview Exit For End If If MsgBV = vbYes Then .Range("V41") = Buf(i + 1, 1) If MsgBV = vbNo Then .Range("V41") = Buf(i + 1, 2) .Range("D41") = Buf(i + 1, 3) .PrintPreview .Range("D10,D41,V10,V41") = "" Next End With Erase Buf End Sub コード内に書込み位置の間違いがあり、修正致しました 22:23 （隠居じーさん） 2019/07/28(日) 22:11 ---- 追記かってに想像でシート書式のD10 と D41 を使用しましたが実際の書込み位置に合わせて変更してください。でわでわ。。。m(_ _)m （隠居じーさん） 2019/07/28(日) 22:28 ---- 隠居じーさんさん、ありがとうございました。 C列にコメントを入れるところまで考えてくださり、大変助かりました。（ヨッシー） 2019/07/29(月) 04:39 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201907/20190728054346.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ