Excel VBA 質問スレ Part81

1 名前：デフォルトの名無しさん [2024/04/18(木) 14:03:38.03 ID:cMr18rZu.net] ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 関連スレ Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり) https://mevius.5ch.net/test/read.cgi/tech/1674875532/ ※前スレ Excel VBA 質問スレ Part79 https://mevius.5ch.net/test/read.cgi/tech/1674874007/ Excel VBA 質問スレ Part80 https://mevius.5ch.net/test/read.cgi/tech/1685489018/ 528 名前：デフォルトの名無しさん mailto:sage [2024/09/19(木) 20:18:28.74 ID:/NVs7a9q.net] >>511 だよね～ 529 名前：デフォルトの名無しさん mailto:sage [2024/09/20(金) 22:36:42.12 ID:F97xUAlJ.net] まだマクロのスレが息しているとは驚き 530 名前：デフォルトの名無しさん mailto:sage [2024/09/21(土) 00:06:25.91 ID:rFMm4e/D.net] >>519 そろそろ就職して現実を見ろよ 531 名前：デフォルトの名無しさん mailto:sage [2024/09/22(日) 09:20:02.85 ID:Fif89iKN.net] >>520 その前に、就職していない現実を見ろよ 532 名前：デフォルトの名無しさん mailto:sage [2024/09/29(日) 10:55:52.42 ID:IMLgMCCX.net] ププッw　効いてる効いてる 533 名前：デフォルトの名無しさん mailto:sage [2024/09/29(日) 10:59:10.16 ID:VFzoAUjL.net] VBAで業務効率化をしたいけどもうこれ以上アイデアが浮かばない アイデアを浮かばせるのによいことってあるかな？ 534 名前：デフォルトの名無しさん mailto:sage [2024/09/29(日) 11:22:06.13 ID:CpzCvyCM.net] アイデアを作る一番良い方法はインプットとアウトプットを増やすこと ってなんかの本で読んだ 535 名前：デフォルトの名無しさん mailto:sage [2024/09/29(日) 16:26:37.39 ID:XFqGlKVL.net] 仕事嫌だけど週末に思いついたはコードを試したい 536 名前：デフォルトの名無しさん mailto:sage [2024/09/29(日) 21:08:04.43 ID:bEUkoqm2.net] >>523 まずは手作業で全部やってみ？ 537 名前：デフォルトの名無しさん mailto:sage [2024/09/30(月) 10:30:36.61 ID:l00cXZwV.net] 色んな情報を脳にインプットすることで選択の幅が広がる それらを実際にアウトプットとして作ることで良い所や悪い所が経験として蓄積されるみたいな 538 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 00:08:28.55 ID:/md2jSGe.net] seleniumBASICをインストールしてヘッドレスモードでスクレイピングしてたんだけど 突然、ヘッドレスモードにならずにブラウザが表示されるようになった chromeとchromedriverをアップデートしたのが原因なんだろうけど 今までアップデートしても何とも無かったのになんでだろう・・・ 　 ブラウザが表示される以外では問題なくスクレイピング出来ています。 なぜだか分かりますか？ 539 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 04:27:07.05 ID:4Z5DZZe1.net] >>528 ブラウザの仕様はしょっちゅう勝手に変わる 540 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 06:33:46.48 ID:cpW1buAI.net] ASISが仕様と諦めて地道に追従するしかない 541 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 07:13:42.06 ID:Ql4d/q6g.net] >>528 白いウィンドウが表示されるやつ？ オプションを　--headless=old　にしたら表示されなくなったよ 542 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 11:08:22.05 ID:uIcos+y8.net] Dim ary(2) As Long ary(0) = 101 ary(1) = 102 ary(2) = 103 Dim dic As New Dictionary 543 名前： dic.Add "a", ary Debug.Print dic("a")(0) '�@ dic("a")(0) = 101000 '�A Debug.Print dic("a")(0) '�B VBAって�@はできるのに�Aはできないのな �@と�Bの結果が同じで101 chatGPTに聞いてみたけどしっかりは理解できんかったわ 参照できないんだってことは分かった 一旦valueの配列を取得してから、この配列の(0)に代入したあとにもう一度元の位置に配列ごと戻せということらしい C#とjavascriptで同じ事やってみたけど普通にできるからVBAが異常なんかね [] [ここ壊れてます] 544 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 11:31:03.00 ID:/md2jSGe.net] >>531 うおおおおおおおおおお モーレツに感動しました マジでありがとう ここ数日悩みまくって　"headless=new"　を試したけどダメだった そうかぁ old　だったかのか・・・ 545 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 11:40:57.94 ID:6vRh522T.net] >>532 配列じゃなくてdicの値を取り出す関数だからね 546 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 11:43:32.60 ID:aeft4n4n.net] 年取ったら超単純な機転が利かなくなっちゃうんだろうな、めげずに頑張れ 547 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 15:03:02.71 ID:uIcos+y8.net] >>534 gptもそんなこと言ってた variant型変数取り出してるからどうのこうの でもそれなら(0)ってつけたらエラー起きちゃうんじゃないの Dim a As Variant Debug.Print a(0) たとえばこうやるとエラー起きるじゃんみたいな話に持って行ったんだけどうまくはぐらかされて撤退してきた エラーが起きるなら仕様なんだなって分かるんだけどエラーでない 101000はどこに行ったのか聞いてみたけどそれもよくわからんかった gptの話だと、結局本体ではなくてコピーに代入してるそうだ そうなのかそうなんだって、わかったふり 548 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 19:54:06.57 ID:4yFbtrHM.net] 他の言語と違ってVBでは配列をコピー（代入）すると 中身も含めて丸ごとコピーされる つまりdicへの格納、取出しのたびに複製された配列が作成される 複製の中身を書き換えても元のデータは変わらない 他の言語では参照のコピーになる事が多いね 549 名前：デフォルトの名無しさん [2024/10/01(火) 23:57:01.81 ID:UgLwFGVQ.net] なので参照になるようにすればエエってこと 550 名前：デフォルトの名無しさん [2024/10/02(水) 10:28:02.48 ID:XbzwGALZ.net] >VBでは配列をコピー（代入）すると >中身も含めて丸ごとコピーされる いや他の言語でもそうだろω 551 名前：デフォルトの名無しさん [2024/10/02(水) 10:33:17.12 ID:837aqOia.net] >>539 あなたは脳弱ですね 552 名前：デフォルトの名無しさん mailto:sage [2024/10/02(水) 10:41:52.26 ID:Yo3NYRw/.net] ByValやByRefは使えないの？ 553 名前：デフォルトの名無しさん mailto:sage [2024/10/02(水) 11:06:17.08 ID:97hNZVMu.net] >>539 参照をコピーする言語の方が多いんじゃね 554 名前：デフォルトの名無しさん mailto:sage [2024/10/02(水) 13:02:33.22 ID:/2Ign3qJ.net] VBAってちょっと小難しいことし始めるとはまる ゴリゴリ書いてれば問題起きないんだけど >>532の続きなんだけど、 結果としてできあがったDictionaryのvalue部分をそのまんまワークシートのRangeに代入しようというのが次の課題です。 dic.Itemsで取得できる配列が、ちょうどVariant型の2次元配列っぽい てことは、これはそのままRangeにぶち込めばいけるんか？と思ってやってみたら、#N/Aが代入されたりとよくわからん もしかして〜と思ってWorksheetfunction.Transposeを二回かけたら、なんか成功した。 これも理由はよく分からんかったのだが、ありがとうございますTransposeさま そもそも2回Transposeかけるとうまくいくってことがあるってのが理解できないのが俺のだめなところなんで勉強してきます 555 名前：デフォルトの名無しさん mailto:sage [2024/10/02(水) 14:54:23.03 ID:/2Ign3qJ.net] あーわかった dic.Itemsで取得できる配列は(1, 1)とかではアクセスできないやつだ (1 556 名前：)(1)か これが前の疑問の答えにも繋がりそう [] [ここ壊れてます] 557 名前：デフォルトの名無しさん mailto:sage [2024/10/03(木) 20:33:55.02 ID:z+TmlZL7.net] （・）（・） 558 名前：デフォルトの名無しさん mailto:sage [2024/10/06(日) 17:37:17.48 ID:XBGRnPc0.net] VBAを利用してURL(WEBにある)画像をはりたい 【状況】 あるシート(シート1とする)のA列に画像のURL(画像.jpｇ)だけが多くの行数に渡りはってある。 なおそのA列の中にはURLがない行もある(1行や2行URL無かったり) 【したいこと】 上と同じシート(シート１)のB列にA列のURLにアクセスしたときの画像をはりつけたい。 またURLがはってある終りの行になったら止まるようにしたい。 なお、URL元リンク参照だけだとリンク切れしたときに画像も表示されなくなるのは困るので、 画像を埋め込んだ形にしたい。 (URL元リンク画像が変更されたときはしかたない) どなたか教えて頂けたら助かります。 OS：windows10 Excel2013 559 名前：デフォルトの名無しさん mailto:sage [2024/10/06(日) 22:29:50.86 ID:LjW/9goQ.net] ブラウザ何使ってるんだろ？ 560 名前：デフォルトの名無しさん [2024/10/06(日) 23:24:40.36 ID:KFHvzP2C.net] >>546 HTMLにはいくつも画像があると思うけど？ 561 名前：デフォルトの名無しさん [2024/10/07(月) 00:25:16.29 ID:zYX/1qdW.net] >>546 セルA1に画像のURLが書かれているとき、その画像をセルB1に表示するVBAコードは Url = Cells(1, 1) Cells(1, 2).InsertPictureInCell (Url) あとは Cells の第1引数を i 等に変えて、Url = "" が何回か連続するまでDo～Loop等で回せばいい が、VBAを使うまでもなく、IMAGE関数を使うほうが楽 B1セルに =IMAGE(A1) と書いて、セルの右下隅にカーソルを合わせ、黒い「＋」が出たらダブルクリック 562 名前：デフォルトの名無しさん [2024/10/07(月) 00:39:41.14 ID:zYX/1qdW.net] 自レス >>549はやっぱうまく動かんかも Select使う形に変更 Cells(i, 2).Select Selection.InsertPictureInCell (Cells(i, 1)) 563 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 07:28:10.74 ID:WKTA2FMr.net] >>548 何言ってんだURIは一意だろ 564 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 08:11:41.52 ID:7m9aEApF.net] >>548 htmlじゃなくてjpgのURLだぞ 質問がわかりにくいけど、そう読み取れる 565 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 09:24:43.78 ID:WJe3vOXb.net] えっちな画像収集のVBAか？　画像のリンクを隠すサイトも多いからどうなんだ つか、Excel2013でネット上のファイル収集　怖いもの知らずか 566 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 18:57:33.84 ID:ehpfJtfp.net] 普段はスケベな画像収集のためにVBA書いてるだけなんでしょ？ 567 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 19:48:37.22 ID:miJRchcr.net] >>546 シート1のA列にあるURLから画像を取得しB列に貼りつけ Sub InsertImages() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim pic As Picture Dim picURL As String ' シート1を設定 Set ws = ThisWorkbook.Sheets("シート1") ' A列の最後の行を取得 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' A列の各行をループ For i = 1 To lastRow picURL = ws.Cells(i, 1).Value ' URLが空でない場合 If picURL <> "" Then ' 画像をB列に貼り付け Set pic = ws.Pictures.Insert(picURL) With pic .Left = ws.Cells(i, 2).Left .Top = ws.Cells(i, 2).Top .Placement = xlMoveAndSize End With End If Next i End Sub 568 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 19:56:22.41 ID:ATZvPGNU.net] >>546で書いた者なのだが https://i.imgur.com/M4CtahS.png とりあえずこれでなんとかいけそう なんとかというかまぁ、いけるがgptに頼った自分にもやもやする >>549 IMAGE関数ってEXCEL2024だか2023の最新版の機能なんじゃないの？ 俺持ってるのEXCEL2013だからIMAGE関数が実装されてない というかもともとIMAGE関数ってあった？いやしらんけど >>553-554 スクレイピングかどうかは俺も良くわからない 569 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 19:59:06.34 ID:ATZvPGNU.net] >>555 遅くなったがサンキュー これを機会にマイクロソフトクエリーと、vbaというか関数込みをしっかりやりたい gpt案外いい先生になる コードに説明添えてとか質問したら答えてくれるし 570 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 21:11:01.50 ID:ATZvPGNU.net] >>555 ' URLが空でない場合 サンキューついでに思ったのだが、 このコメントって　URLが空で（はない）場合、つまりURLがある場合なのか、 URLが空っぽで無い場合、つまりURLがない場合なのか、 というかセルにないのかあるのか、 URL自体が存在ないのかあるのか、 わからん　if　<>　then　で読み取れるちゃとれるが 571 名前：デフォルトの名無しさん [2024/10/07(月) 21:44:05.09 ID:mWca/n3q.net] こんなのサンプルプログラムレベルだろ ChatGPTをありがたがる奴なんてこんなもん 572 名前：デフォルトの名無しさん mailto:sage [2024/10/07(月) 22:19:33.65 ID:WJe3vOXb.net] >>555 のは、リンク先の画像サイズがそのまま貼り付く >>556 のは、セルの高さに合わせてリサイズされたものが貼り付く　共によきかな 573 名前：デフォルトの名無しさん [2024/10/08(火) 03:02:45.83 ID:fm1p80ci.net] >>558 あの書き方はDBなどnullもあり得る場合にも対応できる判定方法 それを踏まえてああ書くように覚えとくといい 574 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 03:27:35.63 ID:Z37XWRbK.net] GPTってファイルサーチのモジュール書いてと言ったら書いてくれるんかね？ 575 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 03:50:49.48 ID:ZlFUv9Vp.net] >>562 ネットの海に誰かの書いたサンプルがあれば探してきてくれる なければ動かないめちゃめちゃなコードを出すか、何の役にも立たないアドバイスをくれるかどっちか 576 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 07:27:56.80 ID:FAnEs44N.net] >>563 何も知らないなら何も言わないほうが良いぞ 馬鹿がバレるから 577 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 09:26:28.18 ID:2vPrSKyO.net] >>559 googleで検索しても該当する妥当なものがヒットしなかった IMAGE関数という最新のExcel2024を用いた検索結果が冒頭にヒットした まぁ販売する側は買わせたいのだろうけどね、生憎俺はExcel2013なんだ その他検索ワードを遡ってみたりしてもうまい具合なのは出なかった 具体的なVBAコード、サンプルコードが出なかった 俺の検索ワードの入れ方が間違っていたのかもしれない 即答性を考えるとChatGPTが良かった 今更ながら実践として懐疑的な見方をしていたがいい具合にでたので結果的には満足だが自分の未熟さは痛感してる 578 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 09:29:20.79 ID:2vPrSKyO.net] >>560-561 たしかにセルの高さに合わせてリサイズだね 最初ChatGPTでそのまま貼りつくがあったんだけど、 ChatGPTが吐いたコードをもう一度質問にいれてもっとよくできないかとか質問したら リサイズとかいろいろ候補だしまくってきて、それが楽しかった 最初手打ちでぽちぽちやろうとしていたのだがその時はセルが大きすぎるから画像サイズがそのままでも よかったんだよね。元の画像を勝手に縮小サイズにされて貼り付けられるのが怖かったけれど。 うまいことセルに合わせてくれるからそれはそれで結果オーライ 書き方についてはなるほどね、nullか。nullと聞いて思い出したのだが 今作ってる表をDB化というかマイクロソフトクエリーでいじりたいと思ってて、 その際空欄セルどうするか考えてたのよね。日付の場合の空欄はどうしようとか、色々 579 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 09:58:30.42 ID:kzEBFuSt.net] 考える前に手を動かせばよかったな 580 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 10:22:56.17 ID:+McDiVVz.net] chatGPTが凄いと思ったことは一度も無い 581 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 10:43:31.59 ID:nj8FtJda.net] 俺は人と違う的なことをいいたがる思春期かよ 582 名前：デフォルトの名無しさん [2024/10/08(火) 12:11:10.81 ID:r7JYN2Az.net] 40代の思春期 583 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 12:41:26.30 ID:WIIl8zzb.net] クエリと null がどう関わって気に成るのか（ま、疑問を持つのはいいことだけど） null IsNull Is Not Null ISBLANK（Accessでしか使えないのも混じってるけど、あれこれ試せばいい） <>"" ="" とかもあったかな　トライ＆エラーはだいじ 584 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 12:59:11.87 ID:ZlFUv9Vp.net] マニュアルをちゃんと読めば、構文が正しいかどうかは試さなくてもわかるんだ でも読む手間より試す手間のが少ないからみんな試すんだ でも長い目で見れば毎回試すよりちゃんと覚えた方が結果的に早道なんだ 585 名前：デフォルトの名無しさん [2024/10/08(火) 15:16:13.86 ID:n2AtMVMI.net] 試行錯誤 586 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 16:52:21.08 ID:WIIl8zzb.net] trial and error だとダメ出しを喰らった　なんてこった　トライアルアンドエラー　舌がもつれる 587 名前：デフォルトの名無しさん [2024/10/08(火) 19:16:43.88 ID:pUNp1Gnc.net] トライアンドエラーは素人が使う言葉 588 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 19:24:29.44 ID:2vPrSKyO.net] >>559 いま思ったんだけど、 こんなのサンプルプログダムだろって書く余裕はあれど その答えをさくっと書かないってのはどうなのかとも思ってみた なんだろう、質問コーナーみてて知ってるのに教えないでそれﾆﾔﾆﾔみてて 解決したのを面白く思わないみたいな感じ？ そういう大人（老害）、心も体もにはならないように俺頑張るよ 589 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 19:36:31.98 ID:qD/4Q5av.net] キーボードで書いたんです 590 名前：デフォルトの名無しさん [2024/10/08(火) 19:53:26.81 ID:pUNp1Gnc.net] そもそもなんでExcel VBAでやろうとしてんのかわからない 591 名前：デフォルトの名無しさん [2024/10/08(火) 19:55:54.79 ID:PlrR/glD.net] >>576 お前みたいな馬鹿に教える理由がないから 592 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 20:04:31.15 ID:2vPrSKyO.net] 質問に答えることはしないくせに、 討論というかレスバというか議論にもならないただの暴言を書きたいだけってのが悲しいと思う やっぱりそうならないように老害にはなりたくない そもそも馬鹿に教える理由はないと思っていながらそれを書いている段階で矛盾している どうでもいいならそもそも何も書かないし相手にもしない 593 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 20:05:26.05 ID:2vPrSKyO.net] >>577 ちなみに寿司打全項目1位です ピクタイピングも1位です etyping上位です 速すぎてごめん 594 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 20:10:47.55 ID:2vPrSKyO.net] 自分の時間って限られてるからね そりゃあどうでもいいものに答える時間があったら他に使うよね 俺はいつもそうしてる そして親切に答えてくれた人には感謝も忘れない 自分の時間を持て余して無駄な暴論や暴言を書き殴れるって羨ましい でもここって書きっぱなしの逃げっぱなしにできるからね 雁字搦めにして徹底的に束縛して殴り続けたいならここは貧相だよ discordとかだと相手してあげなくもないけどね でもちょっとした悪口くらいならどうせサーバー教えてもこっちが待つの無駄でしょ 595 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 20:36:57.82 ID:2vPrSKyO.net] >>547 ブラウザはFirefox一筋です 画像検索結果の表示が他に比べて最も高速は今も譲らないと思うんですよ >>548-551-552-553-554 後付けになるけれど A列に何行も色々な画像の拡張子付きURLがずらずらと書いてある B列の行にはA列の行にある画像を表示させた結果を埋め込む なお埋め込むと書いたのはただ表示させるだけだとA列の画像URLがもしデッドリンクになった時に B列で表示した画像も消えるかもと思ったから 一番の不安はその埋め込みできるかどうかだった 項目は数100万超えはしないが人力でやれなくはないけれど流石にとは思ったから 古いExcelのネット利用は怖いとあるけれど実際案外古すぎるExcelでも実用に耐える なんなら2000くらいでも実用に耐えるむしろヘルプが充実してる なおスケベ画像は他のクローリング使ってるからそれほどって感じ 今回は他の項目も必要だったからということ 新しいExcelの購入も考えたけれどVBAでなんとかなるだろうと 一瞬で閃かなかったのでというか閃く時間が勿体なかったので とりあえず5chにさっと投稿してすぐグーグルで検索したが案の定最新の機能紹介で 上位は埋め尽くされていたし、なにやらよくわからない自称PC自信ニキやらネキの自慢話 含めたやりかた講座やスクロールすると教室紹介のサイトなどあって 無理そうと感じChatGPTで検索してみたわけ。実践でここまでできるのはよかった なおじゃあ2000のヘルプとか他のヘルプもってるのにどうしてと思ったけど こっちはさっさと画像眺めたいし他の作業したいのだよと それだけですはい、あっ、エスパー真美さんみてますか？僕です将軍です。 596 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 21:22:24.08 ID:39Us1gre.net] うわ触れたらアカン奴だ 597 名前：デフォルトの名無しさん mailto:sage [2024/10/08(火) 21:32:33.00 ID:2vPrSKyO.net] >>584 触れたらいけないかいけなくないかは本人の意思決定によるものだと思うけれど、 なにも役立つことをかかずに煽ったり悪口だったり他人を傷つけることしかできない人間は むしろ何も書かないことより罪だと思うよ それでも書かなくちゃいけないってことはどうしても自分の意見をぶつけたい人だってことだろうから 俺に対して何らかの思いがあるんだろうね 残念だけど俺には君に対する思いはそれだけの発言じゃなにひとつ伝わらないけれど 598 名前：デフォルトの名無しさん [2024/10/08(火) 23:32:43.55 ID:pUNp1Gnc.net] 孤独な老人という感じだな 無職確定 599 名前：デフォルトの名無しさん [2024/10/09(水) 00:04:35.96 ID:tHAzNnS7.net] 馬鹿に馬鹿って指摘するとこうなる 600 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 00:28:06.72 ID:+lBoFbSl.net] 他のスレでも連投ちゃんよく見るけど同じ人なんかな… 601 名前：デフォルトの名無しさん [2024/10/09(水) 06:33:08.14 ID:lV+k0WSd.net] >>566 ＞空欄セルどうするか考えてたのよね。日付の場合の空欄はどうしようとか、色々 空欄は基本的に空欄のままでいい 1900/1/1とか入れる手もあるが、空欄か1900年か判定が変わるくらいの話し まあ、個人の作るものは厳密に考えなくても都合のいいように作ればいい 602 名前：デフォルトの名無しさん [2024/10/09(水) 07:49:19.41 ID:RKdx6+Ru.net] Sub Test Dim x As Integer x = 1.9 Debug.Print x End Sub これexcelのvbeで実行すると2が出力されるんだけどどのAIも1が出力されるはずって言うしネットで見てもintegerは小数点以下切り捨てって言う。うちのexcelバグってのか？ 603 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 08:19:42.94 ID:Hn4Fr81+.net] そういう微妙な点に頼らないコーティングを心がけるのがプロ 604 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 08:47:34.26 ID:qrW2MRfZ.net] >>590 AIが間違える、いい例だね ヒントはこれ 実行する前にどうなるか予想してから動かしてみ Sub Test2() 　　Dim x As Integer 　　x = 0.5: Debug.Print x 　　x = 1.5: Debug.Print x 　　x = 2.5: Debug.Print x 　　x = 3.5: Debug.Print x End Sub 605 名前：デフォルトの名無しさん [2024/10/09(水) 11:51:48.33 ID:hKBvtLHc.net] sub test set dic = createobject("scripting.dictionary") set dic("水の呼吸") = createobject("scripting.dictionary") dic("水の呼吸")("壱ノ型") = "水面斬り" end sub …こういうこと出来るの皆もう知ってたの？ めちゃくちゃ便利じゃないか連想配列… 606 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 12:16:49.35 ID:gFmnfeFx.net] createobject使わずに参照設定した方がいいよ 607 名前：デフォルトの名無しさん [2024/10/09(水) 12:22:40.83 ID:hKBvtLHc.net] 参照設定で３行目と同じ挙動を再現できるの？ 608 名前：デフォルトの名無しさん [2024/10/09(水) 12:24:51.56 ID:hKBvtLHc.net] …普通にできたわ。ありがとう 609 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 13:36:52.69 ID:hgkcfRrr.net] 上の方の、画像URLから画像取り込みに関連してだけど これを応用で、どっかのフォルダに溜め込んだファイル名を一括取得して画像を貼り付け　には使える >>555 のだと、元画像サイズがでかいとめっさ時間掛かるし貼り付け後の整理が大変だし >>556 のだと、行高さだけ事前に適宜合わせておかないと後で個別にリサイズが大変だけど そもそも、ネット上の画像のURLリンクを大量に引っこ抜く事の方が大変で面倒なのでは？ 元々、溜め込んだエロ画像のサムネ作りとか用途で思い付いたのかも知れない（おれはそうする 610 名前：デフォルトの名無しさん [2024/10/09(水) 14:18:14.24 ID:YGCM/ZsG.net] 馬鹿を召喚するな 611 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 17:11:11.21 ID:qrW2MRfZ.net] サイトによるけど、URLだけ抜き出すなんて大した手間じゃないし難しくもなんともない むしろ、画像だけダウンロードしようとしても503エラーとかでアクセスできない場合がまれによくあるのが面倒 612 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 18:16:34.84 ID:hgkcfRrr.net] なるほど、これか ps://www.octoparse.jp/blog/bulk-download-images-from-links-top-5-bulk-image-downloaders これとまったく同じことをしたかったってことか　Google Spreadsheet でも出来たんじゃん で、この質問は、ここで相談する前にAccessスレッドでもしてて >1つのレコードに顔写真128*128があって、あとはその人にまつわる出身校や名前生年月日みたいなの という、ぁゃιぃ魂胆が書かれていたんだが、　>野球とかサッカーのメンバー表みたいなやつ　とか 言い訳してたけど、それにしても100万リンクもあるのか？　なんかぁゃιさが増すな 10万が1万だとしても、そんな画像が満載のサイトなんて、どっかの鯖に潜ってハッキングでもしてるのか　ぁゃιぃ 613 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 18:35:24.72 ID:o7Jo2RDp.net] >>600 FBやインスタのクローラーでも作ろうと目論んだんでしょ 614 名前：デフォルトの名無しさん mailto:sage [2024/10/09(水) 22:03:11.00 ID:qrW2MRfZ.net] 特定カテゴリーの名簿を作って売る業者か 今は最低10万レコードないと売り物にならないからな 615 名前：デフォルトの名無しさん mailto:sage [2024/10/10(木) 10:25:55.73 ID:yXpxTEEN.net] 顔写真付きの個人情報？　業者のクセに2013？　ヤバさが否応なしに膨れ上がる どっかの鯖から勝手に引っこ抜くことなんか今日日そう易々と出来ないだろうし、漏れたら委員会と本人にすぐ告知する義務がある アクセスログに記録されて捕まってしまえ 616 名前：デフォルトの名無しさん mailto:sage [2024/10/10(木) 12:08:35.60 ID:ChR6F5ag.net] >>597 R18も確かに一部含まれているが 大量の画像URLリンクを抜くことは問題なくこなせた 面倒で大変というか時間的に置換処理とか効率よくしないとガバガバ時間吸われる で、エクセルで画像抽出関連を調べるとフォルダにある画像を貼りつけるとかはヒットする 俺のようにURLぶっこ抜いて、物故抜いた画像元のURLとか消されてじゃ困るんでマッハで保存もしておきたい、 こんな考えが根底にある場合の想定の質問はあまり見かけなかった というよりGPTもそうだが最近win10に現れてきたコパイロットにも同じ質問してみたが案外いける だが、コパイロット現れた瞬間 「おまえを消す方法」 は忘れずに質問しておおいた。 コルタナさんと同じだね。 617 名前：デフォルトの名無しさん mailto:sage [2024/10/10(木) 12:13:53.05 ID:ChR6F5ag.net] >>600 Accessスレッドでレスしてたのはご名答 もっとも件数でAccessは却下となったが それとoctoparseってたしかスクレイピングのやつよな データスクレイピングで検索すると高頻度のトップで出現するやつ いろんなものガバガバインすトゥールするでやんすしたくないでやんすだったのでスルーしてた が、参考になるな ああ、レコードに顔写真128*128もご名答 書いたけれやきうや国民的球蹴じゃないよ 618 名前：デフォルトの名無しさん mailto:sage [2024/10/10(木) 13:21:24.74 ID:yXpxTEEN.net] 書かせれば書かせるほど、時間軸がズレた人の様子だが、大震災前の世界線からタイムリープしたひとかな？ あれから世の中ゴロっと変わってるんだけど、知らずに勝手なことしてると又塀の向こうへ逆戻りだぞ？ ドラマや映画じゃ、出る時に刑務官から「二度と戻って来るなよ」とか激励されてるだろうに 良い子のみんなはこの人の真似しちゃダメだからな 619 名前：デフォルトの名無しさん [2024/10/10(木) 18:10:24.66 ID:KBIwOLKG.net] こいつ、VBAを知らないワープロが弄れることが自慢だった例の無能爺だろ いつも解決方法自体が馬鹿による馬鹿な発想だったアホ 620 名前：デフォルトの名無しさん mailto:sage [2024/10/10(木) 19:13:42.09 ID:ChR6F5ag.net] >>607 まぁ何事も1位ならなきゃ胸を張れないわね えっと、あなたに何かご自慢なものありますか 単発IDはくやしいのう 621 名前：デフォルトの名無しさん mailto:sage [2024/10/10(木) 20:09:35.79 ID:Gq71bLZa.net] どうせこのスレに来ているヤツなんてじじいばっかなんだからみんな仲良くやれよ 622 名前：デフォルトの名無しさん mailto:sage [2024/10/11(金) 06:58:08.81 ID:PEoEAPVR.net] >>597 面倒ってわけでもない 連番でだいたい規律よく整ってる 連番じゃない場合はそれぞれのurlごと落としてそれぞれのurlから部分抽出したらいい その下あたりにのレスで画像リンク切れでエラー出た場合が面倒とあるけど俺もそれが気になってたけど 俺がgptと相談して書いてもらったコードは修正を数回重ねたものなんだけどその中にurlにエラーとかあればすっ飛ばすってのが あるからすっ飛ばして次の画像取得するようになってる（はず） >>607 というかもう一度書くけど単発IDはくやしいのう 弁明の一つも出来ないのか discord案内したるでｗ 623 名前：デフォルトの名無しさん mailto:sage [2024/10/11(金) 08:50:00.78 ID:vaTsHJnh.net] そんなムキに成って構うってことは、図星だったってことじゃないか しばらく鳴りを潜めていたと思ったらつまんない楽しみ見付けちゃって小躍りしてるってことか 個人情報保護法めっさ厳しく成ってんだけど、懲役１年と罰金100万どっちがいい？　法人でやってたら1億だけど ま、今時画像ファイルに連番振ってるようなサイトは、20年前から放置しっ放しなレトロサイトぐらいだろうけど 最新の情報載せてて連番振ってるようなサイトだとそもそもリンクが辿れない気がするし 624 名前：デフォルトの名無しさん mailto:sage [2024/10/11(金) 10:42:31.49 ID:PEoEAPVR.net] >>611 具体的にどことなんて話してないからあなたの推測でしか書けないわけだけど、 すげー的外れてるかも 俺の場合は機械的に煽られようが何されようが淡々と答えてるだけだからなぁ そこに感情を入れる意味がないし 汚い言葉を使うならゴミの1秒と俺のそれとは価値が違うンだわと だから文句をどうしても言いたいならもっと言わせてやるし、 場所の提供だってしてあげるって話なんだけど飲まないよなぁ、どうしてか ここでいわゆる老害となって邪魔するだけに没頭する存在と化すのもまた自由ともいえる 625 名前：デフォルトの名無しさん mailto:sage [2024/10/11(金) 12:58:23.34 ID:zx9SvTnS.net] 長文ばっかでみんな熱いなあ 626 名前：デフォルトの名無しさん mailto:sage [2024/10/11(金) 13:51:50.63 ID:W/ZPwHBO.net] Excelって全然進化しないよね 627 名前：デフォルトの名無しさん mailto:sage [2024/10/11(金) 13:58:42.69 ID:CVmSb+cA.net] Lambdaはかなりの進化だったんじゃない？ 628 名前：デフォルトの名無しさん [2024/10/11(金) 15:15:16.36 ID:cJEI9XTH.net] 自分の武器使って自分で解決できない無能がいくら喚いてもな をち対象として笑われるだけの空虚な人生はそんなに楽しいのかなと疑問には思うが まあ俺には一切関係の無い馬鹿の他人のことなんでどうでもいいやね

---

---

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

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