Excel VBA 質問スレ Part80

**デフォルトの名無しさん** · 2023/05/31(水) 08:23:38.97

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/

**デフォルトの名無しさん** · 2023/07/04(火) 01:48:13.82

vbaでグラフ？
ボタン1つでグラフ化してくれるんだから無駄じゃないそれ考える時間

**デフォルトの名無しさん** · 2023/07/04(火) 10:31:35.44

>>83
うーん
上手く伝わらないなぁ
AIとか関係ない話
誰でも出来るグラフ化や集計、分析までVBAに拘る価値あるのか？って事
時代遅れの自己満足でしょ

>>84
その通りです。

**デフォルトの名無しさん** · 2023/07/04(火) 12:31:55.15

ワッチョイがないスレはレベルが低くて微笑ましいな
VBAでやろうとする事が古いと言えば良いと思ってるおじさんがドヤ顔
まぁここでは好きにしていいよ
ワッチョイありに来たら狩るけど

**デフォルトの名無しさん** · 2023/07/04(火) 12:49:53.31

>>86
低レベルへようこそ
レベル高い奴はレベルが低いと思ってるスレなんて見ない
ましてや書き込みなんてしない

**デフォルトの名無しさん** · 2023/07/04(火) 12:51:07.83

とりあえず根本否定するやつはほっとけ。ネットでも現実社会でも。

72 · 2023/07/04(火) 12:59:44.29

回答にならない回答にしかならなかった俺が言うのもなんだけど
質問者が>>70のとおり言ってるのに、同じこと（VBAへのこだわり云々）を繰り返し繰り返し書く必要ないと思うんだけどな
あと、COBOLみたいなのがあるように、古かろうがそれを求められるところは世の中に少なからずあって、だからこそこうして質問スレが建ってるもんだと思うんだが

**デフォルトの名無しさん** · 2023/07/04(火) 18:59:21.26

VBA博士が集うスレはココですか？

**デフォルトの名無しさん** · 2023/07/04(火) 19:49:21.24

>>90
VBAに博士号はいないんじゃよ
別の博士号持ってるが白衣も着てないし
〇〇博士と呼ばれても違和感しか感じないな～

**デフォルトの名無しさん** · 2023/07/04(火) 20:00:17.76

仕事じゃないんなら好きに作ればいいんじゃないの？

**デフォルトの名無しさん** · 2023/07/05(水) 16:38:40.78

いつまでもExcel/VBA使ってる香具師は池沼

**デフォルトの名無しさん** · 2023/07/05(水) 17:36:12.52

いつまでもExcel/VBA使ってる人はハゲ

**デフォルトの名無しさん** · 2023/07/05(水) 19:35:47.97

いまだに香具師つかってるやつに言われたくはないわな

**デフォルトの名無しさん** · 2023/07/05(水) 20:40:05.37

使ってないのにスレにいる奴は基本的に荒らしたいだけ

**デフォルトの名無しさん** · 2023/07/05(水) 20:43:41.64

今の時代にExcel VBA？
この業界の流れに乗れなかった人かな
残念

**デフォルトの名無しさん** · 2023/07/05(水) 20:46:48.79

ここはExcel VBAのスレだぞ
残念だろうが使わざるを得ない奴らが集まるところ
文句があるなら自分がよそへ行けばいい話

**デフォルトの名無しさん** · 2023/07/05(水) 21:17:01.68

>>94
Excelを使う限りはVBAとは無縁ではいられんだろうが
働いたこともない引き篭もりなのか？

**デフォルトの名無しさん** · 2023/07/05(水) 21:59:32.04

ここはまぁ引きこもりがネットで拾った受け売りを垂れるのも自由でいいと思う
ワッチョイありにきたら駆除される猿のように狩るけど

**デフォルトの名無しさん** · 2023/07/06(木) 06:42:57.47

ワ有りスレが荒れてても自治せずワ無しスレの荒らしｗ
早く狩ってくれよｗ
それともVBA要らないおじさんの方だったか？

**デフォルトの名無しさん** · 2023/07/07(金) 08:50:12.61

Excel VBA博士って
視野が狭いというか時代遅れというか

見てて痛々しい

時代は凄い勢いで進化してますよ

**デフォルトの名無しさん** · 2023/07/07(金) 10:08:05.12

>>102
あなたはなぜこのスレにいるのですか？

**デフォルトの名無しさん** · 2023/07/07(金) 10:08:37.45

>>97
あなたはなぜこのスレにいるのですか？

**デフォルトの名無しさん** · 2023/07/07(金) 10:09:32.77

>>94
あなたはなぜハゲているのですか？

**デフォルトの名無しさん** · 2023/07/07(金) 20:52:12.62

まあ進歩についていけないからこんなとこに来てんだろ

**デフォルトの名無しさん** · 2023/07/08(土) 04:17:50.63

>>106
おまえは進歩についていけないからこんなところに来ているのか？

**デフォルトの名無しさん** · 2023/07/08(土) 07:48:22.44

>>107
仕事で時代遅れ（）のVBA使ってるから興味はあるからな

**デフォルトの名無しさん** · 2023/07/08(土) 08:20:21.74

なら同じような境遇の人がいることくらい想像できそうなもんだけどできないのね

72 · 2023/07/08(土) 08:29:42.91

進歩についていけなくなったからこんなところまできて時代遅れだなんだと繰り返し繰り返し書き込んで溜飲を下げる人と同じ境遇の人までは流石にいないと思うが

**デフォルトの名無しさん** · 2023/07/08(土) 11:37:09.14

無能がマウント取りに来て
逆に叩きのめされる典型的な例

**デフォルトの名無しさん** · 2023/07/15(土) 20:53:02.93

TALKにも誰も来ない・・・
みんなどこへ行ってしまったのか・・・

**デフォルトの名無しさん** · 2023/07/16(日) 08:25:58.74

今までの環境から見られないとか書き込めないなのかも

LinuxMint Jdimで閲覧も書き込みもできる

まぁ、VBAスレだし、みんなWindowsだよねｗ

**デフォルトの名無しさん** · 2023/07/16(日) 13:39:11.40

もう人いないねこのスレ

**デフォルトの名無しさん** · 2023/07/19(水) 02:13:16.75

変なのがいなくて平和だ

**デフォルトの名無しさん** · 2023/07/20(木) 00:47:37.82

VBAはできますがExcelはできません

**デフォルトの名無しさん** · 2023/07/20(木) 20:35:27.42

>>116
そんなもんだよ
実際、VBAの試験よりEXCELの試験の方が難しいって
よく聞くしな

**デフォルトの名無しさん** · 2023/07/22(土) 06:04:18.53

なるほど。
最初からVBAで入ったから関数とかろくに知らないよ。

**デフォルトの名無しさん** · 2023/07/24(月) 00:21:40.64

VBA使えるならワークシート関数も自分で作ればいい

**デフォルトの名無しさん** · 2023/07/24(月) 07:50:20.29

それが喩え車輪の再発明になろうとも

**デフォルトの名無しさん** · 2023/07/24(月) 23:20:40.20

さすがにSumとIfとCountは知ってるぞ。
まあそれもVBAでやるから必要ないけど。

**デフォルトの名無しさん** · 2023/07/25(火) 22:07:31.93

SUM関数も自作する猛者がいるスレはここですか

**デフォルトの名無しさん** · 2023/07/25(火) 22:45:58.50

オーバーロード面倒くさそう

**デフォルトの名無しさん** · 2023/07/26(水) 07:28:47.49

もはやVBA使うことが目的と化してよね

**デフォルトの名無しさん** · 2023/07/26(水) 22:41:06.54

テキストボックスに3×2の表を連動させたいんですが一番簡単なコードを教えて下さい。

**デフォルトの名無しさん** · 2023/07/26(水) 23:03:11.26

その程度自力でできないでどうすんの

**デフォルトの名無しさん** · 2023/08/08(火) 09:28:01.46

https://i.imgur.com/wcmErcq.png

絞り込んだ状態で、マウスで行を範囲選択し、
その範囲選択した行番号をfor eachやdo loopなんかで取得したいです。
offsetか何かかなーと思い、いろいろやったんですが、うまくいかず。

**デフォルトの名無しさん** · 2023/08/08(火) 10:07:00.40

多分要件がおかしい案件
なんでその操作をフォローする必要があるのか

**デフォルトの名無しさん** · 2023/08/08(火) 13:12:20.45

こうやれば良さげ
https://www.sejuku.net/blog/72244

**デフォルトの名無しさん** · 2023/08/19(土) 19:38:28.21

間違えたっていいじゃないか人間だもの

**デフォルトの名無しさん** · 2023/08/19(土) 20:32:08.15

間違えたっていいじゃないか事務職だもの

**デフォルトの名無しさん** · 2023/08/19(土) 20:50:07.20

ガイアの夜明けではここいいシーンだったんだけどなあ

**デフォルトの名無しさん** · 2023/08/19(土) 20:51:05.45

誤爆！

**デフォルトの名無しさん** · 2023/08/20(日) 01:01:25.83

9月も猛暑らしい。10月に入ったらいきなり寒くなるパターンと予想

**デフォルトの名無しさん** · 2023/08/20(日) 08:58:27.27

日本にはもう夏と冬しかない

**デフォルトの名無しさん** · 2023/08/20(日) 11:09:05.83

sejuku 貼るのやめてもらえませんか

**デフォルトの名無しさん** · 2023/08/20(日) 17:49:56.40

pcの熱暴走がこわいんよ

**デフォルトの名無しさん** · 2023/08/21(月) 10:14:17.54

エアコン付ければいいのに

**デフォルトの名無しさん** · 2023/08/30(水) 20:15:17.59

そのエアコンが逝った　いや、エアコン本体は逝ってはいないが、ルーバーがバグった
だらしなく下を向いたまま風向調整に応じずにガガッ、ガガガッ　と最後の力を振り絞って
上向きに成ろうと頑張りはするが、力尽きてガクンとうなだれる　長い間お疲れ様
　　（いやいやいやいや、まだ夏は終わりそうに無いんだが
真下だけは涼しい　サーキュレーターでかき回してとりあえずは凌げている

**デフォルトの名無しさん** · 2023/08/30(水) 20:57:48.04

>>135
春も来るよ

**デフォルトの名無しさん** · 2023/09/01(金) 06:52:31.47

５ちゃんねる専用ブラウザ Siki などが機能が多すぎて使いにくかったので、
EXCEL VBA（スクレイピング）で自作してみた。
ワンクリックでこのスレを発見できる。
あとはリンクをクリックするだけで開く。
https://i.imgur.com/nDnxnPs.png
便利すぎる、自画自賛。しかし誰にも提供しない。
では質問します。『俺のこと、すごいと思いますか？』

**デフォルトの名無しさん** · 2023/09/01(金) 08:55:44.80

>>141
スゲー

**デフォルトの名無しさん** · 2023/09/01(金) 09:45:35.57

>>141
エエんやないの
オレはRPAの勉強がてらyahoo掲示板をXLやACCESSに取り込んでた

**デフォルトの名無しさん** · 2023/09/01(金) 10:12:30.21

>>139
壊れたエアコン無理に使い続けると
中で氷が出来てゴロゴロ回ってエアコン停まらなくても
氷が融けてぼたぼた落ちて来たことがある

**デフォルトの名無しさん** · 2023/09/01(金) 10:16:44.07

触んじゃね

**デフォルトの名無しさん** · 2023/09/01(金) 13:21:26.05

もう誰も居ないの
ユーザーフォーム上のフレーム内にフレームを動的に追加しようとしたらオートメーションエラー発生するんだけど誰か対処法知ってますか？

**デフォルトの名無しさん** · 2023/09/01(金) 14:53:10.50

「フレーム」はラベルやコンボボックスなどのコントロールをフレーム内に配置するコンテナ
という概念から、フレーム内にフレームは配置できないのでは？
フレーム1内のコントロールの戻り値に依って、ユーザーフォームの他の位置にフレーム2を
動的に配置したいとかなら可能だろうけど

若しくは、動的に生成されたコントロールを、不要になった都度開放していないとかか？

**デフォルトの名無しさん** · 2023/09/01(金) 15:03:21.78

MSコミュニティに似たような質問があるのを見付けた
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel-2007/944a0d3a-4145-4406-bb47-0e7de3d660b3
10年も前の事例だけど、辛辣な回答ひとつしか付いていない
当時はクラッシュしてた、ってんだから、エラーに成るだけ手心は加えられてるのか

**141** · 2023/09/01(金) 15:35:25.53

>>146
そのエラーはデバッグするのが厄介だ。
去年、職業訓練校でVBAを習ったとき、
SQLがちょっと違うだけでそのエラー発生した。

**デフォルトの名無しさん** · 2023/09/01(金) 16:26:50.24

>>147
静的にはできるのにね？
フォーム内に用意した１個のフレーム内に動的に配置しようとするだけでエラー吐くので、後段で以下でご指摘いただいた点はとりあえず無関係のようです
今回は外側をマルチページで代用したけど、モヤっとする…

**デフォルトの名無しさん** · 2023/09/01(金) 16:55:57.14

ン？　静的にはできるんだ　
じゃあ、フレーム内にコントロールを配置する時に、ちょっと順番を間違えるとフレームとの
リンクが切れて、見た目はフレーム内だけど別物として配置されてしまうように成るとかと
似た状況なんじゃ？
動的に配置するモジュール内で、その過程をなぞらないと入れ子フレームとして設置できない
とかが思い付いたが、果たして

或いは、静的に配置しておいてvisibleをon/offで切り替えるとか
何にしろ利用者の現場でトラブらないような、安定した方法が望まれる(シンプルイズベスチャ)

**デフォルトの名無しさん** · 2023/09/01(金) 17:05:15.42

>>149
職業訓練校www

**デフォルトの名無しさん** · 2023/09/01(金) 18:26:16.13

たまに訓練校でVBAコースとか見掛けるけど、どの辺りまで教わるのですか？経験したエロい人教えて

**デフォルトの名無しさん** · 2023/09/01(金) 18:41:22.55

指まで

**141** · 2023/09/01(金) 20:45:25.45

>>153
【架空の店や個人病院など】の『商品CODE一覧表』とか『顧客の住所録』とかを、ACCESSで複数の『データベースの箱』を用意する。
EXCELで入力フォーム作って、SQLでACCESSデータベースの追加・変更。

授業では、スクレイピングや IE制御は習ってない。← これは独学（ネットで）

職業訓練校に通えば就職できる訳ではない。　
俺は『失業給付金の延長』が最大の目的だった。

**デフォルトの名無しさん** · 2023/09/02(土) 09:29:37.93

エロチックな人体験談ありがとうございました。
なるほど給付金延長目当てはあるあるな話ですね。
自分は♀との出逢い目当てで通いますよ。

**デフォルトの名無しさん** · 2023/09/09(土) 09:48:51.46

With Sheet1
Dim ary
ary = .range(セル範囲)
End With

これ多用してきたんだけど、セル範囲がセル一個だけだとaryに配列じゃなくて普通のVariant型が入ることに今気づいた
この後の処理は配列であることを前提にやってるから、そこでエラーが起きる
結構いろんな所で使ってたからこれはやべー・・・・

**デフォルトの名無しさん** · 2023/09/09(土) 09:58:43.37

最終行取得してセル範囲を定義したりすると、
1セルになる可能性があるからダメなんだよな

この方法使う時はセル範囲は固定した上で、
代入された配列の要素が異常値なら排除する仕組みの方がいいのか

**デフォルトの名無しさん** · 2023/09/09(土) 11:21:24.50

選択された範囲がセルひとつだけだった場合は
エラーメッセージ出して範囲を拡げるよう促す　処理を停める　そうする方が手間は少ない

**デフォルトの名無しさん** · 2023/09/09(土) 11:38:21.48

ary = .range(セル範囲)
If (VarType(ary) And vbArray) = 0 then ReDim ary(1 To 1, 1 To 1): ary(1, 1) = .range(セル範囲)

こんな感じで必ず配列になるように対処したことはある。
逆に値を戻すときは、一つのセルに配列を入れようとしてもOK。

**デフォルトの名無しさん** · 2023/09/09(土) 15:33:08.91

>>159
たとえていうなら、この表に追加的に買ってきてほしいものを書いてくれたら買ってきますよ、というようなものなので、買ってきてほしいものがバナナだけの時もあるわけで、バナナだけじゃ困るというエラーメッセージを出すのはちょっと・・・
>>160
それ考えたんですけど、ちょい面倒くさいなぁと思ってやめました
でもそのコードは簡潔でいいですね。拝借させてもらいますね

ありがとうございました

**デフォルトの名無しさん** · 2023/09/09(土) 17:39:26.81

同じ問題に直面したけどググってみつけた自作関数GetArrFromRangeで対応してるわ
https://yaromai.jp/cellvalue-array/
流れとしては>>160に近いかな？

**デフォルトの名無しさん** · 2023/10/05(木) 02:08:04.21

あるセルをマウスで選択すると、
選択したそのセルと隣のセルも消す、
というマクロを作って現在動かしていますが、
どうしても類似のシートをもう一つ作って連動
させたいのですが、例えば、
シートAのセルのE1をマウスで選択した時、
シートBのセルのE1も同時に選択状態にする、
というマクロは可能でしょうか？

宜しくお願い致します。

**デフォルトの名無しさん** · 2023/10/05(木) 03:02:59.67

追記
別に「同時」でなくともいいです。
要は、シートBのセルのE1をマクロで
操作できればなんだっていいです。

**デフォルトの名無しさん** · 2023/10/05(木) 04:09:43.70

同時は無理かも知れんが
同時じゃなくて良ければ可能

次の方どうぞ

**デフォルトの名無しさん** · 2023/10/05(木) 08:25:15.77

>>165
どうやればできるか教えてください

**デフォルトの名無しさん** · 2023/10/05(木) 10:30:07.40

Range("シートB!E1").Select

**デフォルトの名無しさん** · 2023/10/05(木) 12:27:59.35

>>163
「選択したそのセルと隣のセルも消す、というマクロ」
をここに書いてもらえればアドバイスできる。

**デフォルトの名無しさん** · 2023/10/05(木) 20:37:12.52

>>163です。
自己解決しました。
結局ここで質問している方法は分かりませんでしたが、
別の方法でなんとかできるようになったのでそちらを
採用します。皆さん有難うございました。

**デフォルトの名無しさん** · 2023/10/05(木) 20:37:35.99

>>163です。
自己解決しました。
結局ここで質問している方法は分かりませんでしたが、
別の方法でなんとかできるようになったのでそちらを
採用します。皆さん有難うございました。

**デフォルトの名無しさん** · 2023/10/09(月) 18:37:12.70

test

**デフォルトの名無しさん** · 2023/10/09(月) 18:37:28.81

test

**デフォルトの名無しさん** · 2023/10/09(月) 18:43:55.87

MT4のDDEサーバー機能使ってエクセルにリアルタイムレート表示させてるんだが
ここで質問よい？

**デフォルトの名無しさん** · 2023/10/21(土) 00:44:14.90

VBAとVBSで同じ内容をPOSTして、
返ってきたreponsebodyも同じなのに、
操作出来るHtmlElementが違うってどういう事やねん!!

**デフォルトの名無しさん** · 2023/10/24(火) 23:47:02.19

forで配列testにシート名を格納し、Sheets(test).Selectでシートを複数選択したいですがエラー9になります
Sheets(test(0)).Selectとするとエラーは出ないです

Debug.Print test(0)
Debug.Print test(1)
と指定するとシート名が確認できますが
Debug.Print Join(test)
と指定すると空の値でした。test0とtest1の値が連携されて表示される想定でしたがなぜ空なんでしょうか

**デフォルトの名無しさん** · 2023/10/25(水) 01:50:17.21

配列testの初期化かforでシート名を取得している部分がおかしいんじゃない？そこのコードを書いてもらわないと。

**デフォルトの名無しさん** · 2023/10/25(水) 19:24:35.26

>>175
そもそも
>test0とtest1の値が連携されて表示される想定
が間違ってるんだが
それができたとしても、Sheets().Selectで複数シートのセレクトはできないと思うが

**デフォルトの名無しさん** · 2023/10/25(水) 19:32:55.99

>>175
試したけど、
Sheets()に文字列配列渡せば複数セレクトできるな
渡すのは連結された文字列とかじゃなくて、文字列の配列津
testを文字列配列で宣言すればいけるんっぽ

**デフォルトの名無しさん** · 2023/10/25(水) 20:15:45.40

>>176-178
ご指摘いただいて確認し直したところRedimの指定が間違ってました
ありがとうございました

**デフォルトの名無しさん** · 2023/10/31(火) 23:39:07.52

バージョンはExceloffice2019です。
「Sheet1」で購入した野菜の一覧を作成します。

　A1:A100に野菜の種類．例：トマト、キュウリ、キャベツ…
　B1:B100に野菜の産地．例：千葉、埼玉‥‥
　C1:C100に野菜の購入年月日．例：2023/10/31
　D1:D100に野菜の価格．例：1,000

「Sheet2」に
　A1:A5に野菜の種類　
　B1:B5に野菜の産地
　を記載したときに
　C1:C5に、「Sheet1」のAとBの条件に合う一番下の行の購入年月日を返す。
　かつ
　D1:D5に、「Sheet1」のAとBの条件に合う一番下の行の価格を返す。

　これをVBAで表現できますでしょうか。
　何卒、よろしくお願いいたします。

**デフォルトの名無しさん** · 2023/11/01(水) 02:50:19.57

できます

**デフォルトの名無しさん** · 2023/11/01(水) 02:56:30.71

表現

'できらぁ

**デフォルトの名無しさん** · 2023/11/01(水) 03:05:32.93

ぶいば