- 1 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:22:23.67 ID:Fd224klc0.net]
- !extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part68
https://mevius.5ch.net/test/read.cgi/tech/1598756127/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
- 610 名前：デフォルトの名無しさん [2021/02/10(水) 01:23:44.62 ID:nFlUbaHj0.net]
- 足し算のできないいつもの人か
- 611 名前：デフォルトの名無しさん mailto:sage [2021/02/10(水) 21:21:46.44 ID:LZ9Af/PB0.net]
- 良かったよ
プロだらけだったらヤバいスレになるw
趣味と後学のために少しずつやっていたら好きになってきた。
仕事で使う機会あまりないわ
- 612 名前：デフォルトの名無しさん [2021/02/12(金) 13:51:51.87 ID:IzjdsqjHM.net]
- しじいの言う「後学」という単語に哀愁を感じる
- 613 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 15:55:10.24 ID:/wh0XpHtM.net]
- Excelの新機能「Lambda関数」によって「Excelの数式がチューリング完全になった」とナデラCEO。プログラミング言語としてのExcel数式であらゆる計算が可能に
https://www.publickey1.jp/blog/21/excellambdaexcelceoexcel.html
- 614 名前：デフォルトの名無しさん [2021/02/12(金) 16:16:26.53 ID:IzjdsqjHM.net]
- チューリングウイルスに期待
- 615 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 17:41:16.52 ID:o9EDytUaM.net]
- マクロを10個くらいリボンに登録したらVBEがアドインだらけになってワロタ
どうやらxmlを作って一つのアドインとしてまとめて登録するのがセオリーみたいだな
- 616 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 20:11:52.96 ID:00Lfe/Nd0.net]
- >>611
ええええええええええええええええええええええええ
ちょっと驚愕のニュースだ
- 617 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 20:13:11.50 ID:00Lfe/Nd0.net]
- つまりもうマクロを四苦八苦して作る必要はないんだな！？
- 618 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 20:18:24.17 ID:00Lfe/Nd0.net]
- Ｅｘｃｅｌだ
Ｅｘｃｅｌの時代が来る
- 619 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 20:22:55.94 ID:eP0byIu+0.net]
- 重さが気になる
便利だけど重くて出来るだけ避けるような関数にならないか
- 620 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 20:59:52.79 ID:jxDcSv/l0.net]
- >>611
よくわからんけどVBA使わなくてもユーザー定義関数が書けるようになったのか？
でもそれだけじゃチューリング完全じゃないよね？
誰が説明してくれ…
- 621 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 21:35:08.47 ID:4lNcO7mK0.net]
- よくわからんがVBA使わないでってことなら
https://papasensei365.com/excel-game-dq3/
- 622 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 22:07:36.71 ID:aXSnuzkq0.net]
- LAMBDA の発表: Excel の数式をカスタム関数に変換する
https://techcommunity.microsoft.com/t5/excel-blog/announcing-lambda-turn-excel-formulas-into-custom-functions/ba-p/1925546
- 623 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 22:29:40.24 ID:aRG7/C7T0.net]
- よく分からんけどlet使えてことだろ
- 624 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 22:35:41.83 ID:jxDcSv/l0.net]
- >>620
ああ、なるほど名前の一種として関数定義ができるのか
再起を使えばチューリング完全にもなりそうだし、これいいな
ただ、また「（俺が見て）わけのわからん機能は使うな」とか老害に言われるんだろうなw
- 625 名前：デフォルトの名無しさん [2021/02/12(金) 23:02:00.32 ID:82D6PoJM0.net]
- vbaにLinq付けてくれたほうが喜ばれるぞ
- 626 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 23:07:09.02 ID:GpQsWoGq0.net]
- Lambdaがファーストクラスオブジェクトなら以下のようなscheme風の無限ループも書ける
((lambda (x) (x x)) (lambda (x) (x x)))
VBAの時代は終わるかも
- 627 名前：デフォルトの名無しさん [2021/02/12(金) 23:12:05.58 ID:82D6PoJM0.net]
- まともなセル内数式エディタは付きますか？
- 628 名前：デフォルトの名無しさん mailto:sage [2021/02/12(金) 23:18:29.37 ID:00Lfe/Nd0.net]
- 恐ろしいことにつくらしい
動画紹介でついてた
- 629 名前： mailto:sage [2021/02/13(土) 01:03:54.87 ID:HkWfV2pEH.net]
- >>611
その lambda とやらは、不動点コンビネータを記述できるのですか？
- 630 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 04:07:19.47 ID:yi//B+MQH.net]
- セキュリティでVBA禁止にしても、開いた瞬間に固まるブックが簡単に作れてしまうのかな
意図せず無限ループになったらデバッグが大変そう
- 631 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 06:10:57.87 ID:qLIOxiK10.net]
- へー
EXCELでLinqやラムダ式が書けるようになるのか
Linqやラムダ式は.Netでも便利だけど
開発者をふるいに掛けているものの一つだから
理解出来ない脱落者はEXCELやVBAの
開発ですら役立たずの烙印を押される
そんなときが来るなんて夢にも思って無かったな
- 632 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 06:48:06.39 ID:qLIOxiK10.net]
- あ、なんだ
VBAで使えたりLinqが使えるようになる訳では無いのか
あいつら基本レイトバインディングだからトレースするとき慣れてないと分かり辛いんだよな
良かったなお前ら
- 633 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 07:44:30.44 ID:PYtZn7CJ0.net]
- >>628
> セキュリティでVBA禁止にしても、開いた瞬間に固まるブックが簡単に作れてしまうのかな
今でもあるけど計算回数の上限決めて打ち切るでしょ
- 634 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 07:56:56.81 ID:IALcuoUI0.net]
- >>627
https://www.microsoft.com/en-us/research/blog/lambda-the-ultimatae-excel-worksheet-function/
LAMBDA is the true lambda that we know and love
you can define a fixed-point combinator
dekiru
- 635 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 11:41:30.80 ID:PelpVnvk0.net]
- >>611
どんだけ凄いの？
だれか40歳にもわかるように説明して
- 636 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 12:21:31.92 ID:PYtZn7CJ0.net]
- >>633
例えば、A1, B1, C1セルの中身をカンマで繋いでD1に格納したい
その際セルが空なら"[空だよーん]"ってしたいとするでしょ
今までは
D1: =TEXTJOIN(", ", FALSE, IF(A1 = "", "[空だよーん]", A1), IF(B1 = "", "[空だよーん]", B1), IF(C1 = "", "[空だよーん]", C1))
って似たようなIF式を何度も書く必要があったけどLAMBDA使えたら
f: =LAMBDA(x, IF(x = "", "[空だよーん]", x))
って定義しておけば
D1: =TEXTJOIN(", ", FALSE, f(A1), f(B1), f(C1))
って書ける
さらに課長に"[空だよーん]"とかふざけんな、"[空でございます]"にしろって言われてもLAMBDAの１箇所を直すだけで済む
- 637 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 12:41:35.80 ID:BN4b1mTrp.net]
- >>633
40のお前がバレンタインデーでチョコ貰えるくらい凄い
- 638 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 12:49:30.81 ID:PelpVnvk0.net]
- >>635
(>_<)\
- 639 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 14:07:20.92 ID:IALcuoUI0.net]
- ただの関数定義じゃないか
それで十分だった気はするが
- 640 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 15:14:43.31 ID:wz9KaBQo0.net]
- VBAに影響ほとんどなさそう
一発でピボ集計とかシート挿入とかに関係ないし
- 641 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 15:33:24.19 ID:QpeYGISo0.net]
- と言うかラムダ式書けるなら、ついでにセル内でも数式の改行とインデントができるようにしてくれればよかったのにな
Excel職人のIFだらけの数式を読むのがまずキツイんだは
- 642 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 15:40:56.55 ID:jHG+5C+w0.net]
- セルで分ければいいんだけど一つの数式にまとめられるのがすごいと思ってるからな
まあ自分もそうだったけど
- 643 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 17:28:35.52 ID:VP7xI/GI0.net]
- 単に複数セル使うのが嫌なだけってのが多いように見える
- 644 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 18:42:07.48 ID:yi//B+MQH.net]
- まとめて印刷とか名前を付けて保存みたいな手作業を置き換えるVBAはなくならないかな
- 645 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 19:19:56.21 ID:PYtZn7CJ0.net]
- >>639
> セル内でも数式の改行とインデントができるようにしてくれればよかったのにな
それ昔からできるぞ…
https://www.becoolusers.com/excel/img/long-formula-line-break20.png
- 646 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 19:28:08.81 ID:jHG+5C+w0.net]
- 営業の要ミーティング恐い((((；ﾟДﾟ)))))))
- 647 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 21:29:40.36 ID:T3s5Sft8d.net]
- >>639
普通にやってるけど。
読むのキツイんだろ。
- 648 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 21:48:38.47 ID:wz9KaBQo0.net]
- うかる！って、説明ヘタだね…
- 649 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 22:16:40.52 ID:OlVotr6u0.net]
- 職場にIf and orの職人がいるオレに謝れ
- 650 名前：デフォルトの名無しさん mailto:sage [2021/02/13(土) 23:44:53.12 ID:29TtheM20.net]
- んー？ 今までセル内の数式って受身の動きだったけど
それ実装すれば自発的に動けるようになるってこと？
- 651 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 00:40:24.25 ID:X0FsHGir0.net]
- >>643
まじか、しらんかったわ
勝手にスペース削られたりするもんだと思ってたわ。。
- 652 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 00:53:19.53 ID:D24G58JB0.net]
- >>648
自発的には動かないよ
今まではVBAでしかユーザー定義関数は作れなかったけどVBA使わなくても作れるって言うだけ
ただマクロを有効にする必要がないから実務としてはそれなりに意味はある
- 653 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 00:53:54.05 ID:D24G58JB0.net]
- >>649
まあ俺もつい1年ぐらい前に知ったんだけどw
- 654 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 05:33:27.25 ID:8cTA8eHd0.net]
- それよりかパイプライン演算子を実装して欲しい
ラムダ関数はその足掛かりな気もするけど
- 655 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 08:25:32.74 ID:0LuW/JvdM.net]
- セルの書式を調べる関数はよ
- 656 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 09:01:53.08 ID:D24G58JB0.net]
- >>653
Cell("format", a1) じゃ駄目なの？
https://dekiru.net/article/4431/
- 657 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 09:44:10.83 ID:9bE5PNm50.net]
- EXCELって意外と古いの使ってたりするから受け渡しがどうかな
- 658 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 09:46:12.37 ID:HYvJ8gAi0.net]
- >>652
一部がダメ文字の文字コード
- 659 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 10:33:56.69 ID:ccxL17vjM.net]
- >>654
ああごめん
表示形式以外の書式ね
色とかフォントとか罫線とか
- 660 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 10:46:19.10 ID:IPhvN32f0.net]
- もしかして >>653 は
データの「表示形式」だけでなくて
フォントや横位置/縦位置、塗りつぶし、罫線なんかの戻り値が欲しいのかしら？
- 661 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 10:47:17.03 ID:IPhvN32f0.net]
- ありゃ。本人からの返事の方が早かった
- 662 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 11:28:53.22 ID:D24G58JB0.net]
- >>657
4.0マクロ関数でどうぞ
https://blog.goo.ne.jp/koyaman2/e/58506c9b0f18f1577aa694ab4af30edf
- 663 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 16:36:27.43 ID:W30Sj/2D0.net]
- VBAはSelectのCaseで、False,Empty,Nullあたりが同一判定されて、個々に行えないのがクソ
- 664 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 17:23:19.56 ID:D24G58JB0.net]
- >>661
VarTypeも知らない僕はアホです
っていうカミングアウトか？
- 665 名前：デフォルトの名無しさん mailto:sage [2021/02/14(日) 19:08:55.75 ID:hT3ZVIIc0.net]
- ねこ
- 666 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 11:39:26.92 ID:S0ZRmbKV0.net]
- DIR関数を利用して以下のりようなロジックを見たのですが、
foldercheck = (Dir(wrkpath, vbDirectory) <> "")
()の中のロジックはどのような技法なんでしょうか
if Dir(wrkpath, vbDirectory) <> " then
- 667 名前：664 [2021/02/15(月) 13:15:47.99 ID:S0ZRmbKV0.net]
- https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/comparison-operators
Dim MyResult, Var1, Var2
MyResult = (45 < 35) ' Returns False.
MyResult = (45 = 45) ' Returns True.
自己解決しました。上記と同じなのですね。お騒がせしました。
- 668 名前：デフォルトの名無しさん [2021/02/15(月) 19:45:33.20 ID:olEKN+utr.net]
- フォルダへの書き込みのアクセス権をチェックするようなサンプルないですかね。
イメージとしてはフォームのフォルダ選択ボタンを押して選んだフォルダが書き込みできなければ選んだ時点でそういうメッセージを出したい。このあとアウトプットフォイルを書き込む際にエラーが出る前に
- 669 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 20:10:33.97 ID:xaJaofAeH.net]
- >>666
まじめにやるならGetFileSecurityとGetAclInformationを使う
もっと簡単にやりたかったら、ダミーのファイルを1つ作ってみてOn Errorでエラーになったかどうか判定
- 670 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 20:15:42.96 ID:nKU68rXI0.net]
- FSOのGetFileでフォルダーを取得して
Attｌibutesプロパティ見ればいいんでないかな
- 671 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 20:16:42.83 ID:nKU68rXI0.net]
- >>668訂正
GetFile → GetFolder
だった
- 672 名前：デフォルトの名無しさん [2021/02/15(月) 20:30:32.32 ID:btvLdCUB0.net]
- >>668
いいわけないだろw
そもそもフォルダのR属性は他の用途に使われている
- 673 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 22:00:51.83 ID:iJ9piVTy0.net]
- 普通にicacls呼べばいいじゃん
- 674 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 22:59:53.76 ID:R4sT9O4+0.net]
- >>662
いや、それだと0と1がIntegerとしか返ってこないし、
TrueとFalseもBooleanとしか返ってこないから判定できないだろ。バカかお前？
- 675 名前：デフォルトの名無しさん mailto:sage [2021/02/15(月) 23:48:13.25 ID:yTkZToOt0.net]
- isnullはあったよなたしか
- 676 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 02:55:26.52 ID:nbeJO0KhM.net]
- CSV形式で保存する前に、Serial値の表示形式をyyyy/m/dにマクロから変更して
保存してからその後開くと、"1/1/2020"とか意味分からんStr型になっちゃうんだけど、
誰か分かるひといる？
csvを取り込むソフトがどうしてもこの表示形式に変更しないと、うまく取り込めない謎仕様なんだ。
ちなみに、いったん保存してから開いてやってもダメだった。
（もちろん、手作業で開いて表示形式変更したらバグらないんだけど・・・）
rngObj.NumberFormatLocal = "yyyy/m/d"
- 677 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 07:43:45.82 ID:+oOyZ54g0.net]
- >>672
型を判定してから値を判定すりゃいいだけだろ
応用力ないのか？
- 678 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 10:30:54.61 ID:OCcCJKsW0.net]
- 整数の1と小数の1.0だと値(バイナリ)が違うって知ったら狂いそうだな
- 679 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 11:04:29.70 ID:+oOyZ54g0.net]
- >>674
いま手元にExcelないから確認できないけど
rngObj.NumberFormat = "yyyy/m/d"
か
book.SaveAs …, Local:=True
に、してみたらどうかな
- 680 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 11:41:24.25 ID:XpWP4Lg+0.net]
- 2021/2/15 6:43
みたいに、時間が入ったセルの、
日付の部分
だけ変えたいんですがやり方がわからないです
セルの日付(2021/2/15)を変数で定義して、新たな日付(2021/2/16)の変数も定義して
replace(セルの位置,セルの日付,新たな日付)
で入れ替えようとすると型が合わないって出てしまうのですが
どうすればいいでしょうか？
- 681 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 11:56:30.35 ID:S5ddSisTa.net]
- >>678
もしかして変数で定義してる型がDateだったり？
- 682 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 11:58:31.61 ID:XpWP4Lg+0.net]
- >>679
dateとstring両方試しました
- 683 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 12:13:25.96 ID:9n1pp/97M.net]
- CStr(Format(a,″yyyy/m/d“))
- 684 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 12:24:02.20 ID:XpWP4Lg+0.net]
- すいません自己解決しました
変数の定義がおなしかったみたいです
- 685 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 13:04:12.03 ID:nbeJO0KhM.net]
- >>677
いけましたサンクス！！！
- 686 名前：666 [2021/02/16(火) 19:15:33.72 ID:+pX1epGPr.net]
- 遅くなりましたが、結局Dummyファイルの書き込みにしました。アドバイス頂いた方ありがとうございました。
- 687 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 21:00:08.21 ID:PQjj23xSa.net]
- スミマセン、セルの特殊な機能だと思うのですが、
セルにポインタを合わせると、セルの外側右下に小さな▼が出現、
▼を押すとセルの下に小さなウィンドウが展開し、羅列された文字や数字を選択できる。
上記機能の名称とは何なのか、
どこでイジれるのか、作成できるのか等わからず困ってしまいました。
機能が生きているセルもありましたため、
新規で作成せずともその機能をコピーしようともしましたが方法わからず。
お詳しい方いらっしゃいましたら
お力添え願いたいです。
失礼します。
- 688 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 21:24:43.99 ID:kmFmEkS70.net]
- VBAとは関係なく
「セルの入力規則」から「リスト」を選択してあとは適宜
詳細は上記キーワードで検索して
- 689 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 22:46:03.00 ID:g3oiZXVYr.net]
- 教えていただけると助かります。
VBAでIEからExcelに文章を写したいです。
アクティブなIEからカーソルで範囲指定して、その内容を写すことは可能なのでしょうか？
例えば、ヤフーで気になる記事の内容だけをコピペといった感じです。
気になるものだけなので、検索を入れ込む必要はないです。
IEとYahoo起動まではできるのですが、その先が分かりません。
よろしくお願いいたします。
- 690 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 23:02:29.70 ID:LtHH0x/40.net]
- それ手動でコピペしたほうが早いんじゃね
- 691 名前：デフォルトの名無しさん mailto:sage [2021/02/16(火) 23:41:10.89 ID:5LT5VcGn0.net]
- 気になる記事の条件は?
それを自分で判断するなら>>688が正解だと思うが
- 692 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 09:01:14.53 ID:tQXaEzsv0.net]
- >>687
ちったぁググれ
https://konowaza.com/excel/copy_paste_macro.html
- 693 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 10:16:38.01 ID:vOoN+LpT0.net]
- >>690
優しすぎる
- 694 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 12:53:19.33 ID:3Z4/s25m0.net]
- >>686
ありがとうございますm(_ _)m
トライします。
- 695 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 12:57:54.00 ID:quEf8nPTr.net]
- いえいえ
- 696 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 12:59:55.94 ID:Mp3MtPnAH.net]
- クリップボードを監視して、新しいデータがコピーされるたびに保存してくれるアプリとか使えばいいんじゃない？
いちいちウィンドウを切り替えたりペーストしなくていいやつあるだろ
- 697 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 15:46:44.57 ID:i293dZUhd.net]
- >>686
機能が生きているセルを上記指南で解析し、
貼り付けで解決しました！
助かりました。
ありがとうございました！
- 698 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:01:12.58 ID:YnE2/fOB0.net]
- 最終列までコピーをしたいんですがエラーを繰り返しなかなか実現できません…
例えばA3セルがデータの始まりでA7セルが最終列の場合、以下の文になるかと思いますRange(“A3:A7”).copy
ただ、半年に一度最終列が一列追加になるので、メンテナンスしなくていいように上の文のA7の部分が最終列になるようにしたいです
この場合何かいい方法はあるでしょうか
- 699 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:41:15.13 ID:FtApzB1S0.net]
- 行じゃなくて列？
- 700 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:42:03.66 ID:tZ0yQ1Z/0.net]
- オーソドックスなのはこれだけど、物凄い珍回答を聞いてみたいわ
Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
- 701 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:45:44.66 ID:LXOFF6tt0.net]
- >>696
last_row = Sheet1.UsedRange.Row + Sheet1.UsedRange.Rows.Count - 1
last_col = Sheet1.UsedRange.Column + Sheet1.UsedRange.Columns.Count - 1
Debug.Print "A3:" & Sheet1.Cells(last_row, last_col).Address(RowAbsolute:=False, ColumnAbsolute:=False)
こんなん？
- 702 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:46:54.85 ID:bJ7UNxEFr.net]
- >>690
ありがとうございます❗
探してたものに出会えました。
ググってはみたんですが、このサイトには巡り会えなかったので、本当に助かります。
やってみたら、思う結果になりました。
ありがとうございました。
- 703 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:47:30.28 ID:YnE2/fOB0.net]
- 行じゃなく列です
最終列が半年に一回追加になるのです…
- 704 名前：デフォルトの名無しさん mailto:696 [2021/02/17(水) 22:50:45.05 ID:YnE2/fOB0.net]
- >>697
ごめんなさい、最終列の話だったのでA3セルからD3セルをコピーする場合、以下になるんでした
Range(“A3:D3).copy
今はD3が最終列ですが、半年後にはD3が最終列になるイメージです
- 705 名前：696 mailto:sage [2021/02/17(水) 22:51:42.12 ID:YnE2/fOB0.net]
- 何度も間違えてすみません…
今はD3が最終列ですが半年後にはE3が最終列になるの間違いでした
- 706 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 22:55:52.03 ID:X7VrF3DN0.net]
- 最終列取得の仕方調べないの？
- 707 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 23:06:07.99 ID:FtApzB1S0.net]
- Range("A3").CurrentRegion.Copy
- 708 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 23:08:53.17 ID:ooyd3US+0.net]
- ColLst = Sheet1.Сells(3,Columns.Count).End(xIToLeft).Column
Range(Sheet1.Cells(3,1),Sheet1.Сells(3,ColLst))
みたいにケツのColumnIndexを可変化させりゃええ
指定範囲より右側にコメントが入るのであれば別の方法を考える必要があるけど
- 709 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 23:09:11.52 ID:LXOFF6tt0.net]
- CurrentRegionは使えそうで使わない
- 710 名前：デフォルトの名無しさん mailto:sage [2021/02/17(水) 23:16:43.14 ID:FtApzB1S0.net]
- UsedRangeだって使うの怖ない？
どっかにドットあるだけども持ってかれる
|
 |
