Excel VBA 質問スレ Part72

2021/07/18(日) 08:42:15.37

!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

2021/07/19(月) 19:11:28.85

>>69
どう見ても無理でしょw
ネットの知識しかなさそうなのは>>2でGoogleのURLつけたままな時点でバレバレやし

2021/07/19(月) 19:14:08.38

>>70
犬の散歩先から書き込みってどんだけ必死なんだよw
しかも自分にレスして自演バレバレw
お前、言いたくないけど性格にも問題あるな。
普通の奴ならこんな見えすいた誤魔化ししてしかも失敗するなんてありえないからwwwwww

2021/07/19(月) 19:15:48.69

>>71
うわぁ
バレてるのにまだ自演が通用してると思ってる・・・
ここまでの基地外っぷりは久しぶりだわwwwwww

2021/07/19(月) 19:30:05.06

ああ自演だと思わないとやってられないのな
まあそう思いたければいいんじゃね
論点で返せ無い奴がIDガーとか言い出すのはよくある話だしw

2021/07/19(月) 19:33:58.79

65 名前:デフォルトの名無しさん (ﾜｯﾁｮｲ 558e-6DSo) :2021/07/19(月) 18:44:40.24 ID:Y/ahokVJ0
>>64
解放すれば問題ないだろ
馬鹿が書いてる｢開放｣は俺が思ってる｢解放｣とは違うかもしれんけど

67 名前:デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM0e-+scu) [sage] :2021/07/19(月) 18:56:09.92 ID:Olx6NaliM
>>65
無能にはMarshal.ReleaseComObjectを使いこなすのはハードル高いからしょうがない
そんなレベルでよくアドインとか言えたもんだとは思うけど
まあ実際にアドイン作ったことはなくてネットの知識でCOMは危ねーとか思い込んでるんだろうなw

68 名前:デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp75-kRLG) [sage] :2021/07/19(月) 18:57:46.21 ID:vpQnSn/Bp
>>67
おやおや今度はIDまで変えて必死だなwwwwww
雑魚は分かりやすくていいな、バカだからwwwwww

70 名前:デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM0e-+scu) [sage] :2021/07/19(月) 19:09:43.23 ID:Olx6NaliM
>>68
すまんな今はわんこの散歩で外からだからな
Marshal.ReleaseComObjectにレスしないのは笑うけど

・・・うわぁ、今日の私の相手、基地外すぎwwwwww

2021/07/19(月) 19:37:34.12

>>75
｢開放｣って何だ？

2021/07/19(月) 19:44:40.07

草生やすのにw連打するのがとてもおじさん臭くて好き

2021/07/19(月) 19:51:08.03

>>76
書くのめんどいから丁度俺の言ってることにマッチするページ探したから貼っとくわ
https://qiita.com/mima_ita/items/aa811423d8c4410eca71

使われるインスタンスは全て最初に定義して設定して開放しなければならないことも追記しておこう。

2021/07/19(月) 20:36:10.82

開放と解放をバカにされてる事ぐらい気付けよw
そのサイトに書いてる事ぐらいは常識の範囲だし、ググればすぐ出てくるしな

まあIDisposeにしてDisposeで解放するようにしてくれよって思うけど何故かやってくれないんだよね
なにかデメリットあるんだろうか？

2021/07/19(月) 20:38:06.05

>>79
ああ、なんだ、負け犬か
お前のこともう頭から無かったわ

2021/07/19(月) 21:05:40.94

結局論点で返せなくて遁走
哀れやねw

2021/07/19(月) 21:56:40.71

>>81
あれ？ごめんごめん
負け犬に負け犬って言ってそんなにイキリ立って顔真っ赤にするとは思わなかったわwwww
大元の論点ってなんだったっけ？
ああ、そうか「VBAはクソ、C＃でなければ作らない」って主張だったっけ。

勝手にすれば？
アドインなんてちょっと知ったくらいではしゃぎ回って「俺ならCOM使うぜ、凄えだろ」とかいう雑魚と話す価値も見いだせない。つまりここまで弄り倒してお前から得られるものは0だった。
大概ここまで会話があれば得られるもののひとつやふたつあるもんだがここまで会話する価値がないと思えた奴には正直初めて会ったかも知れない。
挙句の果てに消えたのを見計らってコソコソと「敗走したね！はい俺の勝ち～」とか下らないことやって喜んでるんだから・・・小学生かよ。

今日は歩いてて犬の糞踏んだような気分だ。全くついてない。

2021/07/19(月) 22:16:47.24

配布ツールの為、設定の「VBA プロジェクトオブジェクトモデルへのアクセスを信頼する」へのチェックは必ずしも入っているわけではないという前提で質問させてください
ツールから他のExcelファイルに手を加える処理を行います
処理を行うシートはオブジェクト名がSheet1で確定しているもののシート名は変わる可能性があり、インデックスもWorkSheets(1)以外になる可能性がある場合にシートの指定を自動化するのであればどの様にシートの指定を行うのが良いでしょうか
運用環境上、ExcelVBA以外は使用できないのでその点ご留意頂ければと思います

2021/07/19(月) 22:22:12.32

>>83
activesheetじゃダメですか？

2021/07/19(月) 22:26:55.99

>>84
説明不足で申し訳ありません
必ずしも対象のシートで前回保存者が上書き保存をかけているとは限らない上に対象のファイルにはマクロを積めないのでActivsheetでは対象のシートからズレる可能性が高いです

2021/07/19(月) 22:30:08.34

対象シートにしかない文字や、文字の位置関係を検索する
この文字があって斜め下にこの文字があったら対象シートだなとか
あるいは対象のシートのどこかに識別用の文字を置いとく

2021/07/19(月) 22:31:19.26

あと、検索かけて候補のシートがあったら
念の為類似性を点数化して
最後に一番類似性の高いシートを選ぶ

2021/07/19(月) 22:33:34.06

文字や配置以外ならシートの罫線やセルの幅の識別でもいい

2021/07/19(月) 22:39:42.74

>>82
論点で返せないからグダグタ中身のないレスを連ねるしかないんだろうな
おつかれさんw

2021/07/19(月) 22:44:10.31

>>83
そのシートは元々あってシート名は変わるけどシート自体はなくなったりしないの？
そうであればCodeNameで識別すればいい
https://www.moug.net/tech/exvba/0040012.html

2021/07/19(月) 22:45:09.29

そんな方法あるのか…

2021/07/19(月) 22:48:35.68

>>86-88
ありがとうございます
参考になります
起草を別部署が行っており、間に何部門かで編集が行われた上でウチの部署に投げられるファイルが処理の対象なので名前もフォーマットもシートの順番も毎回違うものが飛んでくるのでどうしたものかと悩んでいまして
ウチの部署でも処理をかけるのが私１人であればVBComponentsで指定してしまうのですが、ExcelでSum関数を扱うことすら怪しい事務のお姉様方に配布するツールなので頭を抱えています

2021/07/19(月) 22:49:31.75

>>90
！！
そっか！それだ！その方法があった！！
ありがとうございます！！助かります！！

2021/07/19(月) 22:56:17.93

なんだがな
凄えストレス溜まってんのなアンタ

2021/07/19(月) 22:58:11.41

>>89
論点って「VBAは糞！！C#以外使いたくない！！」ってアレだろ
お前なんでVBAスレに居るんだ？
C#スレに帰れって言いたいところだけどC#もよく解って無さそうだしな
Rubyスレに帰ったら？

2021/07/19(月) 23:01:09.50

50の倍数をIFの条件にする方法はありますか？
if 変数 = 50　then
if 変数 = 100　then
if 変数 = 150　then
このように全部書けば良いのでしょうが膨大かつ複雑になってしまいます。といいつつ2000ぐらいまであれば良いのですが、、ｗ

2021/07/19(月) 23:03:45.59

>>96
変数=1000
If (変数 Mod 50) = 0 Then
Debug.Print 1
End If

MODのカッコは本来いらないけど見やすくするためにあえて付けてる
不要だったら消して

2021/07/19(月) 23:05:45.76

>>97
ぎゃあああ！まさかこんなのがあるとは思っていませんでした！！　1ヶ月ぐらいな病んでいたいのでうれしいです！！ありがとうございます！！！

2021/07/19(月) 23:11:12.02

いつものあいつ

2021/07/19(月) 23:12:43.18

>>97
ゲームのテクスチャループでよく使われるやつ

2021/07/19(月) 23:47:43.08

>>95
開放と解放とかは？
まあここ質問スレだから回答の一つでもできないなら黙ってなよ
また恥晒すだけだしw

2021/07/20(火) 00:01:03.99

>>101
ああ、あの書き間違いを鬼の首取ったように重箱の隅突いて歓喜してた奴ね
で、リフレクションの方は結局調べきれなかったのかな？
まぁ雑魚だから元々期待はしてないから大丈夫だよ

2021/07/20(火) 00:01:07.25

みんなはIfとSelect Caseどっち使うことが多い？
というかどういう使い分けしてるか気になる

2021/07/20(火) 00:10:01.11

>>103
そんなコードがあるのか。また一つおれは賢くなってしまったようだな

2021/07/20(火) 00:11:15.13

select case はある変数が取る値による分岐に用いるけど、if はもっと自由で
だけど、if と elseif で別の変数を評価するのも気持ちが悪いことが多いから、
if をネスとしたりコメントで補ったり

2021/07/20(火) 00:15:52.31

>>102
ようやく間違いに気づいたのかw
で、リフレクションがどうしたって？
まだ恥晒し続けるのか？

2021/07/20(火) 00:19:29.74

>>103
基本的に２分岐ならIf
多分岐で無理なくSelect Case使える時はSelect Caseを使う
そうでないならIfを使うことが多いかな

VBAのSelect Caseはやけに高機能だから他の言語より使用頻度は高いかも

2021/07/20(火) 00:22:53.97

>>106
なんだ記憶力ないんだな。
大丈夫、さっきも言ったけどお前には何の期待もしていない。
まぁ誰にも期待されていないだろうけどな。

2021/07/20(火) 00:24:14.92

仕事とあれば何十層ものIfを構築してみせます

2021/07/20(火) 00:26:08.35

>>109
これが地獄か

2021/07/20(火) 00:27:49.81

>>108
期待されてなくても君とは違って一応感謝はされてるけどねw

2021/07/20(火) 00:29:32.57

>>109
本物のプログラマやねw

2021/07/20(火) 00:29:43.96

>>109
場合分けをどう表現するかだからね

2021/07/20(火) 00:32:49.10

>>111
まさか本当に誰にも期待されていないとはな・・・
なんかすまんかったw

2021/07/20(火) 00:34:23.11

elseif
なんか見にくいから使わないわ

2021/07/20(火) 00:42:55.21

>>114
うんうん、役立たずは辛いねw
そもそも期待なんて自分で言うことではないしね
そういう常識身につけたほうがいいと思うよ
もう遅いかもしれないけど…

2021/07/20(火) 00:43:44.59

>>103
厳密には決めていないけどVBAでは
強いて言えば後ろに評価する必要があるものが無ければIfで飛ばしてそうでなくて同じ変数を何度も評価する際にはCaseかな

まぁSelect Case Trueって書いて別の変数を評価に使うことも出来るけどあまり個人的には好きじゃない

実際には処理が重い関数の戻り値とかを評価に使わない限りあまり気をつけることはないかな

2021/07/20(火) 00:57:18.13

>>116
そうか、役立たずで誰にも期待されていないのか・・・残念な人生だろうけど諦めるしかないよ。だって性格も頭も残念だもの。
俺もまぁ性格はいいとは言えないけど、とりあえず結婚して都心に3階建ての家が買えるくらいの給料は貰ってるし、自分の現状を見ればどのくらい期待されているかは大体分かるよ。
自分で言うことではないと言うけれど、そんなもの自分の現状が直視出来ない人の言い訳だと俺は理解しているよ。

2021/07/20(火) 01:05:39.86

聞いてないのに自分語り
まあ頑張れw

2021/07/20(火) 01:07:34.83

>>119
お前も残念な人生だろうけど残念なりに頑張れよw

2021/07/20(火) 04:54:15.65

せめて感謝ぐらいはされる人生が歩めればいいねw

2021/07/20(火) 05:45:05.58

>>121
さぁな
別に感謝されようなんて思って生きてないし
感謝することはあっても感謝されてるかなんて考えたこともないから分からんな

2021/07/20(火) 06:37:45.29

ん？
・感謝されて嬉しい
・感謝されようとしてる
って全然違うけど？
曲解してまで相手貶めようとしてるのかな？w

2021/07/20(火) 07:39:59.27

>>123
お前本当にヒネてるなぁwww
相手が俺を感謝しようがどうだろうが
あまり興味がないってこと。他意はない。
まぁされてるっぽいなと思うことはあっても
本人に聞くこともないしな。
面と向かって言われたら例え社交辞令でも
多少嬉しいかも知れないがな。

2021/07/20(火) 07:50:02.77

まぁお前には感謝されてるって確信出来ることがあって、それで幸せに思えるんならそれでいいんじゃないか？
それこそ俺には全く興味のないことだけれどな。

2021/07/20(火) 07:53:09.29

まあその知能じゃこのスレで感謝されるなんてことはないだろうからそれでいいんじゃね？
なんでこんなスレにいるのか知らんけどw

2021/07/20(火) 08:03:40.29

>>126
ああ、このスレとかそういったミニマムな話か。
まぁ答えればありがとう的な返事も返ってくるけど別に一喜一憂するほどのもんだと思ったことはないな。

逆にそういうことで一喜一憂出来るお前が羨ましいかもな。

2021/07/20(火) 08:10:20.55

一喜一憂w
そう言うのは答えてから言わないとね

2021/07/20(火) 08:12:11.39

>>128
巨大なブーメランが頭に突き刺さって血吹き出してるけど大丈夫？

2021/07/20(火) 08:35:55.24

>>129
えっ？
>>90で普通に回答してるのに何を言ってるのかな？w

2021/07/20(火) 08:50:12.41

>>130
え？それ以外は？
ひとつだけじゃん

まぁ俺は今このスレではお前専属になっているから
他のレスに返答はしていないのは確かだな
そもそも一々几帳面にどのスレの
どのレス番号で回答したかなんて覚えてないしな
まぁ性格的なものなのだろう。
あ、決して自分がレスした番号まで覚えてて気持ち悪いとか引くとかそう言う意味じゃないから
そこはまた変に曲解するなよ。

2021/07/20(火) 09:04:42.71

今時マクロを許可してるセキュリティ意識の低い会社って個人商店とか零細企業？

2021/07/20(火) 09:12:02.59

>>132
いや、ショックかも知れんけど
銀行では行員が使うツールをVBAで作る部署がある。
赤い銀行も、青い銀行も、緑の銀行も、な。

2021/07/20(火) 09:15:13.71

前スレ848です
VBAを廃止しましたがまだ作業が発生しておらず、何も変化がない状態です
同僚からは「私のせいで落ち込んじゃった

2021/07/20(火) 09:21:26.80

すいません
途中送信してしまいました

同僚からは「私のせいで落ち込んじゃった？」と嫌味を言われましたがそれくらいです

同僚のvlookupも使えない人より名言が飛び出したので共有しておきます

※個人のエクセルスキルに依存しなくて済むよう、引継ぎしやすくなるよう、

また自由度が高くなるよう、あえて入力規則やマクロは使っていません。

2021/07/20(火) 09:24:03.52

>>132
某東証一部上場企業の品質保証部門で事務業務の自動化に使ってるやで

2021/07/20(火) 09:26:10.47

>>131
１つも出せてないお前が言うなよ
ああ>>2があったな、感謝どころか恥を晒しただけだったけど…

番号覚えてない？
専ブラ使えてない無能ですって言うカミングアウトかな？
まあいきなり自分語り始めるよりは気持ち悪くないだろw

2021/07/20(火) 09:31:14.50

>>135
報告ありがとう。はやく地獄絵図が見たい。
引き続き楽しみにしてる。

2021/07/20(火) 09:37:48.92

>>137
専ブラって・・・
お前、昨日から何レスつけてんのか分かってて言ってるのかな？
専ブラ使ったって結構なレス数になるになると思うけどその中から必死に調べて回答したひとつを探し当てて「あった、回答して感謝レスもついてて完璧！！」とかやってるってことだよなぁ。
・・・別にそれが悪いこととは思わないけど俺にはちょっとついて行けない世界だわ。

2021/07/20(火) 09:49:14.47

>>135
へぇ、そちらには済まないけど早く作業が発生してくれるといいな。
まぁ折角だから自分専用のツールとしてVBAを使わずにどこまで出来るかやってみると面白いかも知れないよ。
俺も今同じようなことやっててテーブルからどうしたらSQLのWhere区みたいに数式で複数の列を拾ってその項目を表示出来るかやってたとこ。
項目がイコールで判断出来れば項目の値繋げてキー項目作ってVLookupで拾えばいいんだけど
抽出項目が～以上、～以下とかが混じっているからちょい面倒くさい。

2021/07/20(火) 09:52:04.98

>>139
回答した内容はおぼろげに覚えてるから今回の件ならselectで検索すればいいだけ
ここム板だぞ、まさかそんな機能も知らんのか？

2021/07/20(火) 09:55:38.05

>>141
まぁどうでもいいや
お前がどんな質問回答してどんなにほくそ笑んだかなんて別に興味ないし

2021/07/20(火) 09:56:55.04

>>１４０
パワークエリでVBA は相当なくせましたね

2021/07/20(火) 09:57:27.23

銀行は利益もないから、Office みたいな有料ツールは使わないだろ。
Libre, サクラエディタ、安い秀丸などを使う

国債よりも、倒産リスクの高い銀行が、
国債よりも、低金利な利子の国は日本だけ

商売のほとんどが、何もやっていない。
財務省主導の護送船団方式による中抜きだけ

預金で国債を買って、高い利子を受け取って、
それよりも安い利子を預金者に返す

YouTube で、高橋洋一が説明していた。
これを指摘したら、大変な事になったとかw

銀行にとっては、低リスク・高金利の国債を直接買われるのが、最もイヤ。
中抜きできなくなるから、倒産するしかない

2021/07/20(火) 09:57:47.44

>>142
どうでもいいならレスしなきゃいいのにw
恥の上塗り乙

2021/07/20(火) 09:59:27.66

>>144
そんなこと言われても実際そういう部署があるんだから仕方ない。

2021/07/20(火) 10:00:29.47

>>145
ええ？！
どう見ても構って欲しそうに見えるけど

2021/07/20(火) 10:02:45.86

>>140
> 抽出項目が～以上、～以下とかが混じっている
ちょっと勘違いしてたらゴメンやけど
sumproductはダメなん？

2021/07/20(火) 10:04:38.74

>>135
ひゃっほう、お墨付きを貰ったじゃあないか！
vlookupも使えない人に合わせた環境にしてしまえ！

2021/07/20(火) 10:06:32.55

なろうで追放復讐系が流行る理由が今わかった

2021/07/20(火) 10:09:47.29

>>148
あ、ありがとう。ただ今回は集約値を求めたい訳じゃなかったから・・・
SUMPRODUCT使って行のセルアドレスが求められる方法があるなら是非教えて欲しいけど、なんかごめんね。

2021/07/20(火) 10:18:07.62

>>150
来季公開予定
落ちこぼれ錬金術師が勇者パーティーから追い出された結果～パーティー全員の装備が石器になりスライムにも勝てずに泣きついてきた～

2021/07/20(火) 10:18:08.83

>>147
俺のことなんて関係なくね？
おまえがどうでもいいと思ってるんだからお前がレスしなきゃいいだけでしょw
アホなの？

2021/07/20(火) 10:19:32.46

>>152
勇者部じゃん！

2021/07/20(火) 10:22:06.71

おっと途中送信
繰り返しながら、間違っても自分を過剰に責めないようにね
話から察するにパワハラ気質な感じがするけど、何言われても思い詰めないように

2021/07/20(火) 10:23:55.56

>>153
あ、構って欲しいことは否定しないんだ。
仕方ないなぁw

2021/07/20(火) 10:28:54.92

>>155
諸々ありがとう
パワハラ気質というか上司は「曖昧、気分屋、意見が変わる」の暖簾に腕押し系ですね
同僚は「無能、声がでかい、わがまま」という爆弾です

2021/07/20(火) 10:49:15.06

>>156
どうでもいいやと言いながらレスし続ける構ってちゃんw
俺は構ってちゃんじゃなくて暇だからアホをからかってるだけね

2021/07/20(火) 11:05:44.32

>>158
暇なのか、いいなぁ
俺なんか作業の合間にちょこっと見て書き込む程度なのに。
そうか、コロナ禍で・・・
早く仕事が見つかるといいな。

2021/07/20(火) 11:12:17.84

>>159
あれ、どうでもいいんじゃないのか？w
構ってちゃん乙

ごめんね、ゆるい職場で在宅だからアホをからかうぐらいの余裕はあるんだわ
そういう意味ではコロナ禍で余裕ができたってことだけどね

2021/07/20(火) 11:32:48.71

>>160
いいなぁユルい職場。
こっちもテレワークだけど
あれやこれやと全然違う言語で出来ている
ソースの解析やお客さんとの打ち合わせやら
要件定義や仕様書の作成のついでに
見積もり計算したり全然楽じゃないわ
まぁ貰うもん貰ってるからいいけど。

2021/07/20(火) 11:39:17.55

また自分語りw
構ってちゃん乙

2021/07/20(火) 12:35:19.71

>>162
済まないな
これから暫く会議に入るから構ってあげることが出来ないんだ。

2021/07/20(火) 13:14:58.69

if分岐の落とし込み条件の
立て方も割とセンス問われるな

2021/07/20(火) 13:20:16.21

誰も構ってほしいなんて言ってないし会議とか知らんがな

てか、どうでもいいとか言う割には会議終わったらレスする気満々やんw

2021/07/20(火) 23:08:44.98

数十時間仕事削減して他人の十倍の仕事をこなしてなおかつ残業代減らしたら、相応とは行かなくても少しは金くれてもいいのに
現実はもらえる金額が減るだけ
時給制ってなんなんだろうね

2021/07/20(火) 23:17:10.09

それは上司と交渉しなよ

2021/07/20(火) 23:42:52.69

上司に相談とかじゃなくて
そもそも時給制って欠陥制度じゃないの
そのまま適用すると関数すら知らない無能のほうがもらえる額大きくなるじゃん

2021/07/20(火) 23:45:05.72

出来高制・歩合制にすると、他人に仕事を振りまくるアホが評価されるって事にもなりかねない
多分、万人が納得行く給与形態ってないと思うぞ

2021/07/20(火) 23:46:48.13

他人に仕事を押し付けた時点でそのアホの成果じゃなくなるのではって思うけど