[[20250503165505]]　『少しお聞きしたいのですが』（すいません）　ページの最後に飛ぶ

『少しお聞きしたいのですが』（すいません）

少しお聞きしたいのですが
1 例えばシート１のA4からB100の内容をシート２に転記するマクロの構文の書き方を教えて下さい
2 あればでいいのですがファイル名をB１に表示する関数はありますでしょうか
よろしくお願いいたします

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

2の件
https://proengineer.internous.co.jp/content/columnfeature/7378
を参考にしてください。
（?） 2025/05/03(土) 17:26:36

1について
https://www.isa-school.net/blog/vba-excelvba02/
https://www.limecode.jp/entry/syntax/rangecopy-pastevalues
などを参考にしてください。
（xyz） 2025/05/03(土) 21:07:27

 あえて意地悪な言い方をすると、このような回答しかつかない理由は
 「ご自身で何も調べようとしていない事」が明白だからですよ
 VBA(マクロ)に限らずプログラミングはカンニングし放題な分野なので
 ご自身で一度調べる事も出来ないなら手を出すべきではないですね

 不躾な言い方で申し訳ございません
（TKG） 2025/05/04(日) 02:14:51

皆さんのリンクを参考にして
Sub てすと()
Range("c4:d1000").Copy
Worksheets("作業").Range("c4:d1000").PasteSpecial xlPasteValues
End Sub
として
動作はできましたが　貼り付け先選択の状態(書き方が適当かわかりませんが)で終わってしまいます
選択の状態で終わらないようにするにはどうすればよろしいでしょうか
（すいません） 2025/05/05(月) 20:14:19

まず自分で試すとか調べるとかしたか？
既に提言されているけど、これを怠っているとすれば、至急撤退すべき。
難しければ、マクロの記録っていう方法もあるだろ。
少しは自分でやれ！

（ばん） 2025/05/05(月) 20:52:46

 悪さはしないと思いますが、気になるならこんな書き方があります。一例です。
 Sub test()
     Dim ws1 As Worksheet, ws2 As Worksheet

     Set ws1 = Worksheets(1)
     Set ws2 = Worksheets("作業")
     ws1.Range("C4:D1000").Copy
     ws2.Range("C4").PasteSpecial xlPasteValues

     Application.CutCopyMode = False
     Application.Goto ws2.Range("C4")
 End Sub

（xyz） 2025/05/05(月) 21:08:01

 Worksheets("作業").Range("C4:D1000").Value = Worksheets(1).Range("C4:D1000").Value　なんてのも。
　
（純丸） 2025/05/06(火) 21:19:23

コメント返信：

[ 一覧(最新更新順) ]

[[20250503165505]] 『少しお聞きしたいのですが』（すいません） ページの最後に飛ぶ

[[20250503165505]]　『少しお聞きしたいのですが』（すいません）　ページの最後に飛ぶ