Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2023/06/06(火) 10:51:50.21

それはw　小学生の英語ぢゃねーか　どうやったら間違えるんだ
独仏伊蘭どの言語でも無く英語でしか使わないってのに　耳文字でエウスってか？　それ言い出したら全部違うけど

2023/06/06(火) 12:26:16.59

あえて初心者のまねしてるだけだし

2023/06/06(火) 13:24:20.68

>>420
ウィンドウズωもかなり恥ずかしい表記

2023/06/06(火) 13:25:24.97

>>422
warning 読み方

2023/06/06(火) 13:36:23.12

Warning incoming missile!
ウォーニンインカミンミッソー！
で覚えた

2023/06/06(火) 13:56:33.46

Countif＝コウントイフと言ってるようなもんか？？

2023/06/06(火) 19:20:42.66

なかなか俺のファルス発言で盛り上がってるじゃないか

コンピューターに英語で話しかけてるわけではなく、所詮記号なんで覚えやすいファルスで頭の中は統されてるわ

それに Falseって普通の文章や会話で使ったことないし、フォルスを使わなくて困ったことないわ

2023/06/06(火) 21:23:43.30

兎に角
なんだかよくわからない
長ったらしい英単語は
アイエニューメラブルってよんどけ

2023/06/06(火) 21:43:42.66

https://www.youtube.com/watch?v=3H4y5ExBofk

2023/06/06(火) 22:03:14.44

>>430
托

2023/06/07(水) 00:19:01.88

>>433
？

2023/06/07(水) 01:40:06.04

托
ｷﾓ
キモ

2023/06/07(水) 12:26:38.14

旧中山道＝いちにちじゅうやまみち

2023/06/07(水) 12:43:49.08

>>435
ありがとうそういう意味だったんですね

>>433
托をキモと読ませるのはFalseをファルスと読む100倍斜め上いってるとおもわんかい？
まあそのあたりに気づくほどのオツムがあれば433のような書き込みはしないだろうけどな(笑)

2023/06/07(水) 16:57:56.82

ﾜｯﾁｮｲなしスレから誘導されてきました

t検定で「範囲」にCOUNTIFやAVERAGEIFみたいな感じで対象とするセルをIF指定することはできませんか？
検定したい群を最初から整列して2群に分けておく必要があるでしょうか？

2023/06/07(水) 18:47:39.61

それのどこにVBAが？

2023/06/07(水) 19:53:14.11

>>438
WorkseetFunction使ったらいかんの？

2023/06/07(水) 23:28:59.63

>>438
ここは何のスレかわかってる？

2023/06/08(木) 03:12:22.48

そもそもt検定なら元データが2群でないと成り立たないだろ

2023/06/08(木) 11:10:53.59

>>437
キモいのはファルス自体じゃなくそういうところ

2023/06/08(木) 19:34:47.21

みんなは重複をなんと呼ぶ？
ちょうふく？じゅうふく？

2023/06/08(木) 19:40:21.93

かさかさ

2023/06/08(木) 19:41:37.46

昔はじゅうふくって言ってた
今はまちまち

2023/06/08(木) 19:41:38.42

仕事を引き受ける時には
今までした事のない事、やった事のない事、実績のない事は
「やった事がないので出来ません」
とハッキリ言って断るべきなんですよね？

2023/06/08(木) 19:41:52.90

>>443
苦しいな

2023/06/08(木) 19:42:49.87

>>444
スレ違い
漢字について語るスレ 2
https://lavender.5ch.net/test/read.cgi/gengo/1534748118/

2023/06/08(木) 19:46:13.14

>>447
やったことないということは伝えるべきだが、断るべきかどうかは違う

2023/06/08(木) 19:53:15.66

>>448 托過ぎて草

2023/06/08(木) 19:57:37.22

>>451
ID 変えてもワッチョイで身元バレバレの托托ちゃん(笑)

2023/06/08(木) 20:00:05.44

>>450
職場の私よりお偉いさんたちは
出来もしない事はするな
とか
できるのか出来ないのかわからない事はできると言うな
とか
出来ると言って出来なかったら嘘つきとか詐欺師とか
そんな事を言ってきます
なのでやった事のない事、実績のない事は　やるな
という事なのだと理解しました

どうして未経験者に経験や実績が最初からあるのでしょうね

会社は学校じゃないらしいです

2023/06/08(木) 20:11:07.38

>>453
仕事頼まれて内容を確認しないでこんなの簡単とかすぐできるとか言う奴もいるからな
そのつもりで頼んだのに後になってうまく動かないとかなったら上司の責任問題になる

2023/06/08(木) 20:19:16.31

>>454
私はそう言う事が初めての経験で全く何が何だかさっぱりわからなくて理解が出来ていません

それを言うならば未経験の事はするな、引き受けるな、出来ると言うな
という話になると思います
それにOJTとはなんですか？

2023/06/08(木) 20:20:21.37

あなたが欲しい答えはこうでしょう。
誰々が断れと言ったので断ります。

2023/06/08(木) 20:28:49.61

私は今まで働いてきて聞いた限りの話では
出来ない事を安請け負いするな、仕事だから
みたいな話なのでこれからはやった事がない事は全て断ろうと思います

2023/06/08(木) 20:33:09.84

>>452
セルラー通信だから勝手に変わってるだけで、
ID:Snmtqfef0とID:Wxh+dghv0みたいな丁寧な自演と比べちゃダメでしょｗ

2023/06/08(木) 20:55:57.80

>>458
日付が変わってるから ID が勝手にしろ変わるだけでそれを自演と言われちゃな
やっぱ妄想がひどいわ(笑)

2023/06/08(木) 21:21:22.44

>>457
もし何もできないのであれば全ての仕事を断ればいい
それで給料もらえるのかは知らんが

2023/06/08(木) 21:30:46.15

>>460
出来ない事やわからない事を出来るというな、とか引き受けるなとか言うなら
何にも引き受けられませんよー

2023/06/08(木) 22:17:36.82

>>461
俺はできる側だから関係ない

2023/06/08(木) 23:03:31.49

>>462
素敵🥹

2023/06/09(金) 01:41:19.35

出来るか出来ないか分からないときは調査費用見積もればいい
身内相手でも時間くれでいい
話通じないならもう無理でええやろ、次に行く

2023/06/09(金) 07:51:36.36

>>459
遠回しに言っても理解できないみたいだから丁寧に言うと、
> なかなか俺のファルス発言で盛り上がってるじゃないか
匿名掲示板で自己顕示欲を発露させてるのがまずキモい
それも誇れるどころかむしろ恥である読み間違いにおいてってところがまたキモい

> コンピューターに英語で話しかけてるわけではなく、所詮記号なんで覚えやすいファルスで頭の中は統されてるわ
>
> それに Falseって普通の文章や会話で使ったことないし、フォルスを使わなくて困ったことないわ

誰も聞いてないのに間違いの言い訳始めるのがキモい
角行間に改行入れてるのがキモい
隙あらば自分語りがキモい
それらを踏まえた上での托
要するに間違いそのものより精神性が気持ち悪い

2023/06/09(金) 07:55:56.79

やったとこがない仕事を勉強してやる事さえ否定的な考えの人たちが世の中には多いみたいなので
やった事がない事は何もするべきではないのでは
私が色々聞いた話の理解では、例えば医療従事者は例えどんな些細なミスでも許されない、という様な話でした

2023/06/09(金) 09:06:25.43

>>465
本当に全部しょうもない理由で他人をキモ呼ばわりしてるわけだ
その偏狭な精神性がキモいわ
NG 登録しとくからさよなら

2023/06/09(金) 10:51:38.01

>>466
仕事しない会社員は会社辞めるしかないんじゃね

2023/06/09(金) 11:22:56.72

ワッチョイなしもありも雑談スレに成り下がってほんと不快だな
どういう生き方したらこんなゴミみたいな人間出来るんだろ

2023/06/09(金) 11:35:57.88

雑談専用スレ立てるとか言って何年経つんだよ？

2023/06/09(金) 12:37:16.30

雑談スレを作っても誰も使わないから無駄
ここの惨状を見てみ

【質問不可】Excel総合相談所スレの雑談・議論スレ5
https://mevius.5ch.net/test/read.cgi/bsoft/1624005735/

2023/06/09(金) 14:23:04.85

簡単なユーザー定義型（2～3値を格納しておくだけの構造体）をtypeじゃなくクラスで作って、dictionaryオブジェクトのitemに9万個ぐらいインスタンスを紐付けたら、
コード終了時のオブジェクト解放にめちゃくちゃ時間がかかるようになった（数十秒）
やっぱこういうときは配列にするしかないのかな？

2023/06/09(金) 18:12:33.56

>>472
スピードを取るか保守性を取るか
スピード優先ならクラスなんか作らずに単純な配列にする
たった数十秒なら俺ならそのままにする

2023/06/09(金) 20:25:26.92

オブジェクトの開放だけで数十秒もかかるのか

俺もその手法を多用するから興味あるな
俺が扱うデータは一万から三万行程度だけどどのコードも一～二秒くらいで終わる

2023/06/10(土) 13:37:17.92

>>473-474
レスサンクス
言われてみると確かに時間かかりすぎてるし変だなと思ってよくよく確認したら、
まず、9万個のインスタンスを紐付けた辞書の他に、16万個のインスタンスを紐付けた辞書が作られてた
更に、プロパティの一つに別のユーザー定義型のインスタンスが格納されてた
（コンストラクタあるしGetプロパティもSetで返ってたが見落としてた）
そっちのクラスのデストラクタが書かれてなかったので記述したら、普通に一瞬で終了するようになった
色々と教訓になった、ありがとう

2023/06/11(日) 07:46:10.07

MsgBoxがUserFormとシートの間に挟まって見えないの何だぜ

2023/06/11(日) 08:13:28.91

よく調べてみ

2023/06/11(日) 11:03:32.46

あるあるじゃんか

2023/06/12(月) 14:12:41.04

>>475
デストラクタにどんな処理書いたら早くなったんだ？

デストラクタに処理を追加して早くなるとは思えんのだが

2023/06/12(月) 14:23:56.15

使ってないインスタンスを随時終了させたってだけでしょ
意図しないオブジェクトがメモリ圧迫してたなら速くなって当然

2023/06/12(月) 16:01:58.40

>>480
随時なら、デストラクタに来るまでに解放するってことなんだが...

デストラクタで解放されなかったメモリを解放したって話なら、循環参照してたぐらいしか思いつかんが
それをデストラクタの段階で解放して処理が早くなるとは思えんが

そもそもメモリ圧迫で速度低下したって話なら、もとの
>コード終了時のオブジェクト解放にめちゃくちゃ時間がかかるようになった
ってのが間違った前提だったって話になるんだが

2023/06/12(月) 22:08:42.75

>>481

まぁ、デストラクタの記述でメモリが開放されることはないのはあなたの言う通りだね

文面を読むにClassTerminate記述のことじゃなくて
単に意図しないオブジェクトに対してNothingを設定したって意味だと思ってたけど違うのかな？

2023/06/13(火) 18:54:34.11

オブジェクト指向が理解できねぇ

2023/06/13(火) 19:05:33.87

最初のOOP学習にVBAは相応しくない

2023/06/14(水) 11:48:51.61

実際のところ、VBA使用者の中でオブジェクト指向まで
使えるようになる人の割合ってどの程度なんだろう？

ただ配列が使えるようになるとかとは学習コストの次元が違うから相当少ないとは思うけど、
他言語やってた人ならオブジェクト指向は使えて当然だしなぁ。

2023/06/14(水) 12:09:21.27

哲学的な話になるけど
単なる事務仕事の自動化にオブジェクト指向の出番はほとんどない
使わないけど知識として覚えるだけならVBAは教材に向いてない

2023/06/14(水) 12:15:21.92

使う使わないは一先ず横においておかないと話が噛み合わなくなる

**sage** (ﾜｯﾁｮｲ 8b10-mVGR) · 2023/06/14(水) 15:15:49.61

半角アルファベットと記号の文字列があると仮定して
半角カタカナに変換して
[0(ゼロ)]と[O(オー)]、「I(アイ)」と「l(エル)」と「1(イチ」
の違いをわかりやすく可視化する時
どう組まれてますか？

0O10l1I ⇒　ゼロ,オー,イチ,ゼロ,エル,イチ,アイ

全部パターン分けで組まないといけない感覚あり

2023/06/14(水) 15:36:18.32

ConsolasかCascadiaあたりでも使えばいいだろ

**sage** (ﾜｯﾁｮｲ 8b10-mVGR) · 2023/06/14(水) 16:01:17.58

そうですよね
「Consolasでいいじゃないですかｗ」という話をしていました（汗

2023/06/14(水) 20:22:58.59

継承もできない、まともなエラー処理もできない言語
そんなのでオブジェクト指向プログラミングなんて苦行をあえてする必要ない
VBAでオブジェクト指向プログラミングすることが目的の奴だけがやるべき
openPyXlとかxlwingsとか使ってpython使うのが正解

2023/06/14(水) 21:29:42.81

じゃあそもそもVBAのクラスモジュールは何の為にあるんだよ

2023/06/14(水) 21:43:21.66

ちょっとだけ便利にするためでしょ

**デフォルトの名無しさん** (ｽﾌｯ Sd33-V2/r) · 2023/06/14(水) 22:16:22.00

>>492
自作イベント用かな

2023/06/14(水) 22:46:01.86

関数自作するときとか場所分けたいじゃん

2023/06/15(木) 01:14:11.47

UIAUTOMATIONでWindowsアプリを操っていたら、突然アプリが落ちた!
さあ、エクセルとアプリ、悪いのはどっち?

2023/06/15(木) 01:24:53.94

クラスモジュール、普通に便利だけどね
特に再利用と拡張が楽なのがいい

そういえば継承をVBAで使いたいと思ったことないな
合成、オーバーライド、インターフェースあたりは使えればいいなとおもうけど

でもそんなのよりパラメータ付コンストラクタを普通に使えない、とかのほうが俺的には余程ストレスだな

**475** (ﾜｯﾁｮｲ 13e3-atBl) · 2023/06/15(木) 09:33:06.27

>>479
Class_TerminateにSet xxx=Nothingを書いた
諸々の処理が「終わってから」なかなか終了しなくなったんで、たぶんどこかで循環参照になってたか、カウンタがゼロにならないとかでオブジェクトへの参照がまだ残ってる判定になってたんだと思った
でも、今同じように戻しても再現しなくなってしまったが、コードを変えた直後の最初の一回だけ終了にやたら時間がかかるケースが出てきた
（「コンパイル」を実行して保存しても最初の一回だけ遅くなる）
クラスが7つもあってごちゃごちゃしてるから、その辺から整理しないと本当は何が悪かったのかまで今はまだわからん

2023/06/15(木) 12:32:47.10

>>497
オーバーロード、オーバーライドは使えないけど
インターフェースは使えるよ。

パラメータ付きコンストラクタは使えないけど
その辺拘るならCallByNameやAPIのコールバックで
何とか汁。

2023/06/15(木) 14:36:06.97

自動でインデント調整を行う方法があれば教えてください。
今まではSmart Indenterを使用。windows10、エクセル2010

windows11、エクセル2021にしてからは使えなくなってしまいました。下記を参考にインストールしましたが出来ず。
http://tradememo.techblog.jp/archives/73543570.html

2023/06/15(木) 22:40:10.51

>>498
そのxxxはどこで定義された変数で、何が入っていたんだ？

つかほんとに単にメモリ不足で速度低下してるだけの気がしてきたな

2023/06/16(金) 11:57:31.84

人名がずらずらと並んでいるプルダウンをチェックボックス形式にする。
一人だけ選択ならそのままセルに入力され、複数人選んだら一人目の頭に①
半角スペースが空いて二人目の頭に②と自動でついて入力されたらとても嬉しいのですが、
どういうコードが考えられるか悩んでおります。

2023/06/16(金) 19:46:08.99

条件付き書式でいいんじゃね

2023/06/16(金) 20:08:57.82

○の中の番号って20まで？

2023/06/16(金) 20:30:31.09

21～50までは、「挿入」－「記号と特殊文字」で出て来るダイアログから選べば可
51以上は丸文字をWordの機能を使って入れる形式　←　面倒臭い

2023/06/17(土) 00:19:14.62

(2)
括弧でええやん

2023/06/17(土) 00:36:25.59

使うとしたらせいぜい⑩までです。
色々ご回答ありがとうございます。

2023/06/17(土) 10:20:45.20

丸数字を配列にしておくなり文字列にしておくなりして
人数の位置から配列や文字をMIDなりで取得して編集すればいいんじゃね

2023/06/18(日) 01:03:31.39

文字コード11553が①
文字コード11554が②
つまり =сｈａｒ(11552+A1) で丸付き数字に変換できる

2023/06/18(日) 02:43:33.18

>>502
こんなことで悩むようなら止めとけ

2023/06/18(日) 03:31:13.66

>>506
俺も諦めてそうしたことあるわ。
スターどっきり(秘)報告とかさ。

2023/06/18(日) 04:18:49.74

㊙

2023/06/18(日) 06:42:10.69

>>502
ここまで目的が、決まってるならビーイングに聞いたら教えてくれそうな気がする
騙されたと思ってやってみ
完全ではないにしろかなり正しい流れはわかる

2023/06/18(日) 11:00:24.16

⚠

2023/06/18(日) 11:19:52.82

>>502
513 だけどビーングに聞いてみたよ
回答結果貼っておくね
正しいかどうかは自分で判断してね

そのような処理を実現するために、次のようなコードが考えられます。

```vb
Sub CheckBoxToCell()
Dim i As Integer
Dim count As Integer
Dim result As String
count = 0
For i = 1 To 10 ' チェックボックスの数だけ繰り返す
If ActiveSheet.CheckBoxes(i).Value = 1 Then ' チェックされている場合
count = count + 1
If count = 1 Then ' 最初の選択肢の場合
result = ActiveSheet.CheckBoxes(i).Caption
Else ' 2つ目以降の選択肢の場合
result = result & " " & ChrW(9311 + count - 1) & ActiveSheet.CheckBoxes(i).Caption
End If
End If
Next i
Range("A1").Value = result ' 結果をセルに入力する
End Sub
```

このコードは、10個のチェックボックスがあると仮定しています。チェックボックスの数に応じて、`For i = 1 To 10` の部分を変更してください。また、結果が入力されるセルは `Range("A1")` になっていますが、必要に応じて変更してください。

2023/06/18(日) 13:02:31.47

複数選択時に一人目に丸数字つかなくね？

2023/06/18(日) 23:32:00.05

>>515
それ、コメントも勝手に入れてくれてるの？
どんな内容で聞いたのか気になるが、結構使えるかもしれんな

2023/06/19(月) 00:19:50.80

>>517
502の本文をそのまま貼り付けただけだよ

コメントもつけてくれる

意外とやるよね

特にメソッドとかプロパティとかを忘れた時に非常に便利

2023/06/19(月) 19:05:37.62

意外とAIの書いたコード見た目は良くね？？
まあ正しいかは分からんが。

2023/06/19(月) 21:15:03.13

AIは、ちょっと複雑なコードを要求すると、実在しない理想の関数とか持ち出してくる
その関数はどこにあるか聞くと自分で作れと言われる
そこの部分が一番知りたかったのに
半月ぐらい前に経験した実話よ

2023/06/19(月) 21:51:52.81

ガンダーラを探しているみたいだな

2023/06/20(火) 01:05:06.73

Gandhara, Gandhara
From the United Kingdom
I'm looking for heaven
I'm going to California
だったか

2023/06/20(火) 02:18:29.21

>>520
その関数の機能は AI の方から説明があると思うのでそれをそのまま AI に聞いて関数を作ってもらうことはできないの？
完璧なコードでなくても大きなロジックが分かるだけでもすごく時間節約になると思うけど