Excel VBA 質問スレ Part72

1 名前：デフォルトの名無しさん mailto:sage [2021/07/18(日) 08:42:15.37 ID:KskL7bEXd.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付けるナリ ExcelのVBAに関する質問スレナリ コード書き込みや作成依頼もOKナリ ※前スレ Excel VBA 質問スレ Part70 https://mevius.5ch.net/test/read.cgi/tech/1616072923/ Excel VBA 質問スレ Part71 https://mevius.5ch.net/test/read.cgi/tech/1621914481/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 331 名前：デフォルトの名無しさん mailto:sage [2021/07/29(木) 21:05:47.52 ID:KHPuP3g90.net] マジでピボットの記録は正気の沙汰じゃないよな あと、普通の記録だとSelectとSelectionが余分なのに初心者はそれを使うのが最適だと思っちゃうからダメ さらに図形とかのObjectとかのTextRangeだとマクロ記録のSelection省略しただけじゃうまく動かなくて混乱するし あとは他でも言われてるようにIfとかAndとかOrとかLoopとか変数とか学べないしね 332 名前：デフォルトの名無しさん mailto:sage [2021/07/29(木) 21:14:45.50 ID:ddohEedh0.net] >>326 そういう人はVBAスレから去るべき 333 名前：デフォルトの名無しさん mailto:sage [2021/07/29(木) 23:42:59.81 ID:1PJWae7Yd.net] >>331 まじこれ Excel使いながらベンダーロックとか騒いでるのが爆笑なんだがww 黙ってGoogleスプレッドシートでも使いながらGoogleにロックされてろよww 334 名前：デフォルトの名無しさん mailto:sage [2021/07/29(木) 23:51:41.95 ID:p4SukJyH0.net] ExcelVBA　MS言語 ACCESSVBA　MS言語 Python　MS言語 VB.NET　MS言語 C#　MS言語 C/C++　準MS言語 Ruby　松本言語 PHP　公式な規格なし。事実上の私言語。Rubyと同格 Perl　オワコン JavaやGOはじめほかの言語もだいたいGoogleやその他企業の私物 ベンダーロックされない言語などあるのだろうか？ むしろ国際規格をきっちり定めているMS言語はもはやベンダーアンロックではないか？ 335 名前：デフォルトの名無しさん mailto:sage [2021/07/29(木) 23:58:22.70 ID:zVCmdr7a0.net] >>333 国際規格で草 その国際規格を制定するメンバーは大抵intelやmicrosoftなどの大手企業 html5に至っては消滅したわ 336 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 00:35:30.86 ID:4LnMwhZSM.net] 国際標準ならECMAやISO、日本標準ならJIS 337 名前：デフォルトの名無しさん [2021/07/30(金) 04:01:44.41 ID:AGz2ssQM0.net] ヒキニートの言う事より、あわしろ氏を信じる。 338 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 13:35:36.57 ID:F+iyq/jq0.net] そりゃニートは潤沢に時間があるからいくらでも勉強し放題だしな 詳しいわけだな 339 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 13:55:06.34 ID:egyKewAD0.net] >>334 そう、つまりMS言語は国際規格になっているのでベンダーロックインはあり得ないということ 逆にRubyは国際規格ではないし開発者が勝手に仕様を頻繁に変更する これは今までに実績があるし本人が言ってる事 さらに言えばRubyはRailsがあってこそ初めて成り立つ開発言語 言語仕様からコンパイラ、エディタ、ドキュメント、サポートまで全て一社でサポートしているMSとは比べようもないリスクがある Javaを見ただろうか？ MS言語ではないばかりにあんな事になっている Rubyを見ただろうか？ バージョンアップごとに対応作業に追われている しかもRubyの変更とRailsの変更で2倍の対応工数をとられる MS言語はVB6（1991年発売)が今でも第一線で働いている ExcelVBA(1993年)なんてここ数年でさらに盛り上がりを見せている もっとさかのぼると1980年代にはBASICは今とかなり近い文法が完成されており 1985年のQuickBASICに至ってはほぼ今のVBと変わらぬ開発環境を整えており36年にわたって同じ開発環境が通用していることを示している 移り変わりの激しいIT業界で36年だ！それがMS言語の息の長さであり変わらぬことの強さなんだ MS言語を信じなさい。MS言語に導かれよ！！ 340 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 14:00:09.98 ID:omgprq0F0.net] >>338 あー だからRubyってあんなに年収やっすいんだね 341 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 14:09:56.93 ID:eptPeGDTM.net] 国際規格じゃなくて デファクトスタンダードな 342 名前：デフォルトの名無しさん [2021/07/30(金) 19:01:26.28 ID:L6BL7yno0.net] レンジ上で足し合わせて入力はできないのでしょうか？ range(c1:c2)=range(a1:a2)+range(b1:b2) だとエラーになってしまいます range(c1:c2)=range(a1:a2) これはできますが… 343 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 19:49:10.10 ID:XTDmAoXAa.net] Valueの概念をググッといて 344 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 21:11:34.63 ID:qdQMd8Fb0.net] オフィススプリクト？だかに移行したいが VBユーザーがどうにもならんのよ 345 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 21:13:59.49 ID:4AGntX9d0.net] いや両方載せればいいだけじゃん 346 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 21:25:29.88 ID:CiBkTLYM0.net] >>341 もし会社とかでこんなこと訊かれたら頭抱えるわ… 347 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 21:42:30.69 ID:zYpnMfjf0.net] >>341 雑に説明するとね Rangeは箱で入力されているデータは箱の中身なんだ だからRange(B1:C1)=Range(B2:C2)みたいにA2:B2って箱をA1:B1に複製する事は出来る でもあくまで箱そのものを操作するだけだから箱の中身をいじる事はできない ならどうするかっていうと箱の中身を箱から出してやる必要がある その為には値を1つ1つ指定してそれぞれで計算してあげなきゃいけないんだ だからRange(″A1″).Value=Rang(″B1″).Value+Range(″C1″).Value Range(″A2″).Value=Rang(″B2″).Value+Range(″C2″).Value ってやるのが正しい 348 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 21:42:52.63 ID:91KFOglq0.net] なんで頭抱える必要があるんだよ 「できない」の一言で会話打ち切りゃ良いだけじゃん 349 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 22:24:06.27 ID:lExP/Tyw0.net] >>333 CがMS言語って・・・ K&RがCを開発したのが1972年、マイクロソフト創業が1975年だぞ 350 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 22:24:33.76 ID:4AGntX9d0.net] スピルでやれって感じ 351 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 22:40:24.48 ID:6IY+PAJYM.net] >>341は別にそんなにおかしな発想ではないと思うけどな Rangeに対する別のRangeが値のコピーになるのはRangeに対する代入操作が特別にそのように定義されているから(デフォルトプロパティ)で、>>346の言うような「箱」じゃ説明がつかない =が特別扱いされるなら同様にRange同士の演算が定義されていたって何ら不自然なことはなくて、たまたまそういう仕様になっていないだけだ 352 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 22:53:33.06 ID:GVWaTyU8a.net] SumなりUnionなりあるじゃん それも「できます」ってのもできてないし 353 名前：デフォルトの名無しさん mailto:sage [2021/07/30(金) 23:00:06.71 ID:xRZDPXU/M.net] もっともらしい説明をするとしたら、 Rangeはあくまでシート上の特定の範囲を指すものであって、必ずその値はシート上に実際に存在していなければならない。 z = x + y は x + y を先に演算してその結果を z に代入するわけだが、Range同士の加算を行った時点では結果の代入先がまだ決まっていない。 従って、必ずシート上に値が存在しなければならないというRangeの定義に矛盾する。 でも実際これは詭弁で、Range同士の加算がRangeではない行列みたいな値を表すオブジェクトを返し、それをRangeのデフォルトプロパティが受け容れればいい話なんだよね 354 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 00:35:02.17 ID:/OoU0klK0.net] Rangeが箱みたいなものってのはまあ良いんだが VBAではRangeのようなオブジェクトに対する演算とかはできなくて、その場合は箱の中身(デフォルトプロパティ)を演算する Range("C1:C2") = Range("A1:A2") + Range("B1:B2")がエラーなのは、 Range("A1:A2")の中身が足し算できないものだから 結果の代入先が決まってないとかじゃなくて、結果を出せないからエラーなんだよ 355 名前：デフォルトの名無しさん [2021/07/31(土) 00:42:26.77 ID:mCBqZyxbM.net] >>341 少し違うけど似た事は毎回思う 表計算ならc列=a列×b列〜z列みたいな処理が普通だしそういった列ごとの記述はないの？ 356 名前：デフォルトの名無しさん [2021/07/31(土) 00:46:23.19 ID:mBcGx4p70.net] >>341 馬鹿は足し算しかしないの？ 357 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 01:07:37.07 ID:z2VXpram0.net] 配列大好きなphpにも無いし諦めて 358 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 02:01:59.82 ID:zyTpcIefM.net] numpyじゃねーし 359 名前：デフォルトの名無しさん [2021/07/31(土) 02:12:54.61 ID:VZqzqhPL0.net] ありがとうございます 出来ないんですね 私の書き方が悪くてエラーになっているのかと思っていました 演算張り付けやスピルみたいなイメージで 似たようなことが出来るのかなあと考えていました >>356.353.352.350.347.346 360 名前：デフォルトの名無しさん [2021/07/31(土) 03:57:57.92 ID:mBcGx4p70.net] >>358 単にお前が馬鹿なだけ 行列計算とか言ってたのならわからんでもないけど 361 名前：まあ俺が言うのもなんだがw mailto:sage [2021/07/31(土) 07:18:03.75 ID:m7lSxL/B0.net] >>341 Valueの概念とか謎の箱理論とかは無視していいw >>350の言うように言語仕様としてできないだけ RANGEじゃないけどFORTRANみたいに配列同士の演算ができる言語もある 362 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 07:34:59.93 ID:gz49wtMt0.net] rangeは範囲だから2セルの範囲に4セル分は入らない 363 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 09:51:11.76 ID:BQeiJ/1Ba.net] 念のため言っとくがイキって煽り散らしたいだけのハゲは無視しとけな 364 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 13:09:56.95 ID:54/p9ERo0.net] バカバカバカバカ言わないでよ もっと平和的にやりとりできないの？ こんなに優れた無料の質問スレなんだから品位を保つべき 365 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 13:15:16.77 ID:TRd8RGa80.net] ならまずは>>363がドレスコードを守ってくれ 366 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 13:26:23.66 ID:r3PlISUvH.net] 当スレは頭の寂しい方はお断りしておりますので 367 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 13:26:59.26 ID:z2VXpram0.net] >>363 なにか勘違いしているようだ 平和とか無料とか、どこかでコストがかかっている。それは誰かが負担している 「日本の平和」はアメリカの核の傘による米軍基地がコスト 掲示板の「無料」は広告。広告が実質ない5chなら、罵倒やマウンティング好きなアホが紛れる事がコストなんだ 君は ・「重火器が飛び交う戦場で無償で敵味方にその場で教えてもらう」 って事をしているんだ もし平和的に回答がほしいなら、先に「おもしろ画像貼りますんでなんとか解決お願いします！」 みたいにすれば色々と有線して解決してもらえるんじゃないかな 368 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 15:03:38.39 ID:yzAefFWlp.net] >>363 マウントじじいが貢ぎもの差し出せって。 でもこんな頭のおかしい連中ばかりじゃないから気にしなくていいよ。 369 名前：デフォルトの名無しさん mailto:sage [2021/07/31(土) 15:37:59.04 ID:Opw93OJSd.net] power queryがなかなか覚えられない みなさんLETは使ってる？ 370 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 00:37:47.31 ID:ayuPdfaZ0.net] スレ間違ってないか？ 371 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 16:26:51.08 ID:12Gisk1n0.net] バカって言うヤツがバカなんだよ！ 372 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 18:09:12.14 ID:xwQRbrXaM.net] と、バカが申しております。 373 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 19:13:18.52 ID:hqZEeiIx0.net] 馬鹿ばっかりだな 374 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 19:46:33.48 ID:RrQoAxKz0.net] むしろ寂しがり屋なのでは 375 名前：デフォルトの名無しさん [2021/08/01(日) 20:59:52.11 ID:SyCmN3PQM.net] ハゲばっかりやな 376 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 21:21:35.58 ID:12Gisk1n0.net] 毛の話しろよ 377 名前：デフォルトの名無しさん mailto:sage [2021/08/01(日) 22:28:03.58 ID:PkMCEWYW0.net] 不毛だな 378 名前：デフォルトの名無しさん [2021/08/02(月) 01:09:21.06 ID:H8/w6NZQM.net] そんなつもりは毛頭ないのですが 379 名前：デフォルトの名無しさん mailto:sage [2021/08/02(月) 13:19:27.48 ID:UEok/DKqd.net] お前は頭髪がない 380 名前：デフォルトの名無しさん mailto:sage [2021/08/02(月) 13:22:42.78 ID:T+xK0N6pd.net] 俺の芋頭がこんなに頭髪ないわけがない 381 名前：デフォルトの名無しさん mailto:sage [2021/08/02(月) 18:21:53.57 ID:R1Xzu7pP0.net] でもおまいらは禿げてるんでしょ？ 382 名前：デフォルトの名無しさん mailto:sage [2021/08/02(月) 23:15:41.33 ID:x232xQhs0.net] >>358 クッソ亀だけどこれでいけない？ Range("C1:C2") = [A1:A2 + B1:B2] 383 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 00:57:35.42 ID:0L18Nxkj0.net] >>370 バカって言うヤツがバカって言うヤツがバカなんだよ！ 384 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 14:28:57.13 ID:lGrUtpF/0.net] うるせーバカ！ 385 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 15:03:01.69 ID:09lFZjv40.net] 相手を見下すというのはそれ相応の教育しかない方が行う所作であります故 386 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 15:54:39.96 ID:jCZ4Eczla.net] アホだ 387 名前：デフォルトの名無しさん [2021/08/04(水) 16:41:44.16 ID:IdaynBO00.net] マウスで選択した範囲のハイパーリンクを自動で開きたいんですがどこを変更すればいいでしょうか？ Aにハイパーリンク　A2からA4をマウスで選択　 A1 B1 C1 A2 B2 C2 A3 A4 ・ A99 B99 C99 Sub Macro1() ' Keyboard Shortcut: Ctrl+Shift+P Dim SelectionArea As Range Set SelectionArea = Selection Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub A5 388 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 17:04:08.48 ID:IZchSkQ4a.net] >>386 SelectionのRangeをFor Eachで回してひとつひとつ開いていく のがVBAの一般的な回答になるかと 389 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 17:16:32.22 ID:5a+p99Z60.net] 変数に入れてる意味なくて草 390 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 17:19:31.98 ID:09lFZjv40.net] >>388 変数に入れるかどうかは「わかりやすさ」が関係してくるよ 個人開発が大きいVBAでその度合いを嘲笑するのは良くないと思う ただ、386は俺も何やってるかよくわからん 391 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 18:15:11.64 ID:Ww92yPFZa.net] テーブルで、フィルタしたあとの行削除をマクロの記録でやりたいけどうまくいかない。 フィルタして出たのが1行だとうまくいくけど、複数だとエラー。 テーブルがある。ある一つの列の、特定の文字をフィルタする。(その文字がないときはマクロ押さないつもり) その列の上の下矢印で全選択、可視セルのみ選択。タブの行削除。フィルタ解除。 この流れって 392 名前：マクロの記録じゃﾑﾘ？ 1行 で1004エラー？ [] [ここ壊れてます] 393 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 18:44:53.04 ID:bSPJ2kBBM.net] マクロで処理するならフィルター要らないかな 記録だけでコード書くのは無理がある処理かな 394 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 18:51:01.89 ID:7NmqzzLqM.net] ムリ 395 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 20:15:52.27 ID:14yWBG2X0.net] マクロの記録だけで業務改善する職場って未来あるよな 396 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 20:43:15.85 ID:b6iWr/iv0.net] 未来は僕等の手の中 397 名前：デフォルトの名無しさん mailto:sage [2021/08/05(木) 14:48:49.27 ID:+e5nazzCa.net] 390ですがインストラクターのネタ帳ってとこの改造してみたらできるようになりました(毎回エラーでるけど成功してるので気にせず😌)。 p.s. 印刷時の見た目だけがいい、セル結合された表テンプレで作業を求められる同士が救済されますように…。。 398 名前：デフォルトの名無しさん mailto:sage [2021/08/06(金) 16:13:36.56 ID:T/jNWxQK0.net] ドの付く初心者です、というよりこういうのを作るのも初めてです Findで任意の文字列が入ったセルを取得して、A1からそのセルまでを削除するマクロを作りたいのですが Findの返り値がRangeなので削除するときの範囲指定がうまくいきません たぶん基礎的なところを理解してないのでダメなんだとは思うんですが、とっかかりが欲しいです お力をお貸しください Dim rng As Range Set rng = ThisWorkbook.Worksheets(1).Range("A1:A10000") _ .Find(What:="SUGOI", LookAt:=xlWhole, SearchOrder:=xlByRows) これでrngに任意の文字列の座標を取得 この後ろでRange().Delete使って消したいです 399 名前：デフォルトの名無しさん mailto:sage [2021/08/06(金) 17:02:36.53 ID:Oz5kLkmeM.net] .range（.cells（1,1）,.range（適当な範囲））.delete 400 名前：デフォルトの名無しさん mailto:sage [2021/08/06(金) 20:18:49.98 ID:8V+dHMZB0.net] 削除して無くなったセルを詰めるのだろうか 401 名前：デフォルトの名無しさん mailto:sage [2021/08/06(金) 20:58:11.36 ID:3pn6mo5YM.net] マクロの記録で、、、 402 名前：デフォルトの名無しさん mailto:sage [2021/08/06(金) 20:58:32.58 ID:ZjxmW7bq0.net] どういう範囲指定か分からんけど返り値のRange.Rowで行数も取れるよ FindはExcel上のCtrl+Fにも影響するからForEachで検索するようになったな 403 名前：デフォルトの名無しさん mailto:sage [2021/08/07(土) 13:00:42.96 ID:slTH9qD1d.net] >>397-400 皆様アドバイスありがとうございます この土日はPCに触れられないため、助言をすぐ実践！とはいきませんが いただいた助言、ありがたく試させていただきます 404 名前：デフォルトの名無しさん mailto:sage [2021/08/07(土) 16:23:06.08 ID:IR0XtVNG0.net] Range("A1",rng).clear Deleteじゃなくてクリアしたいならこれ 405 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 08:21:09.95 ID:ebb310K00.net] クラスでメインコードがすっきりとしていると機能追加も楽だね 406 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 10:53:34.69 ID:Yzbpuv/w0.net] コード書いてる時ってどんな気分ですか？ 407 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 10:59:34.31 ID:5UdbG2j90.net] パズル解いてる気分 408 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 11:24:54.00 ID:XIbBz2idd.net] めんどくせー 結果だけ欲しい 409 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 11:53:06.78 ID:/228TsvP0.net] 外注すればいいんじゃね 410 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 15:58:39.73 ID:wvip2OSH0.net] たしかにパズルだな 411 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 16:26:56.76 ID:gGBnC+Z00.net] 美少女パズルRPG「パズルガールズ」 https://cdn.amz.appget.com/c/wp-content/uploads/2021/07/pg_8142870_1.jpg 412 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 16:30:40.54 ID:N9yN2q6hM.net] VBAなんて所詮操作の 413 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 16:31:53.22 ID:N9yN2q6hM.net] 失礼 VBAなんて所詮操作の自動化なんで、慣れたら� 414 名前：pズルというより手順書書くようなもんだ どっちかというとワークシート関数を使いこなすほうがパズル [] [ここ壊れてます] 415 名前：デフォルトの名無しさん mailto:sage [2021/08/08(日) 23:30:31.22 ID:jh5zCN5Z0.net] ActiveWorkbookが入っているフォルダの名前の先頭に ActiveWorkbookのSheets(1).Range("A2").Valueを付けたいです。 しかしフォルダ名の取得に失敗しています。 ActiveWorkbook.Path(フルパス)を\で区切った最後の文字列だと思いますが もっと手短に取得する方法があったら教えてください。 416 名前：デフォルトの名無しさん mailto:sage [2021/08/09(月) 00:14:13.54 ID:9VfepREK0.net] 名前分解=split（名前,"\"）（ubound（split（名前,"\"）） 417 名前：デフォルトの名無しさん mailto:sage [2021/08/09(月) 00:43:14.90 ID:9VfepREK0.net] あっカッコが足りない 418 名前：デフォルトの名無しさん mailto:sage [2021/08/09(月) 17:35:43.32 ID:gGnrAdRU0.net] ださっ 419 名前：デフォルトの名無しさん mailto:sage [2021/08/10(火) 18:56:58.22 ID:9fiWluCI0.net] FileSystemObject使えばいいんじゃね？ ファイルそのものを操作しないならちょっと面倒に感じるかもだけど 420 名前：デフォルトの名無しさん mailto:sage [2021/08/10(火) 21:44:06.51 ID:dMuyff760.net] やや冗長だけど、fsoは使って損は無いと思う。￥とｓｐｌｉｔは頭が疲れる Sub foo() Set fso = CreateObject("Scripting.FileSystemObject") Set mybook = fso.getfile(ThisWorkbook.FullName) Set mybook_parent = mybook.parentfolder Header = ActiveWorkbook.Sheets(1).Range("A2").Value Debug.Print Header & mybook_parent.Name End Sub 421 名前：デフォルトの名無しさん mailto:sage [2021/08/10(火) 23:53:30.63 ID:Xm+HKu32M.net] splitが楽だと思うが、、、 422 名前：デフォルトの名無しさん mailto:sage [2021/08/10(火) 23:57:50.14 ID:plMJ/ypm0.net] >>404 締切のある「数独」 423 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 02:05:15.42 ID:yV4dFjvN0.net] >>413 ubound（split は禁じ手って言われてる 424 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 02:19:37.21 ID:T0yXhT3EM.net] >>420 なんで？ 同じ処理を2回やってるから配列変数に入れたくなるけど、禁止するほどの理由でもないし 425 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 04:35:09.41 ID:KlHs/LBx0.net] InstrRevじゃだめなん？ 426 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 05:55:28.37 ID:LQvUe8o6H.net] 文字列として取得したいだけならまだしも、フォルダ名変えたいんでしょ？ 普通にFileSystemObject使った方がいいよ 427 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 12:03:15.14 ID:pcBI0cgA0.net] なんにしても、開いてるエクセルのあるフォルダの名前とか変えれんと思うのだがのう 428 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 12:29:18.95 ID:oEEdpHhhM.net] フォルダ作って、開いてないファイルは移動して、開いてるファイルは新しいフォルダーに名前を付けて保存ってして、 最後に要らんフォルダとファイルを消せばリネームしたように見える(見えるだけ) 429 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 12:30:50.00 ID:N26Fs5+x0.net] 20180811_フォルダ名 みたいにバックアップつくル目的かと思ってた 430 名前：デフォルトの名無しさん mailto:sage [2021/08/11(水) 13:00:28.54 ID:pcBI0cgA0.net] リネームすらできないのに、どうやって自分自身を含むフォルダを削除できるんだ？ 431 名前：デフォルトの名無しさん [2021/08/11(水) 13:04:20.40 ID:dnSnLDjMM.net] 名前をつけて保存

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef