Excel VBA 質問スレ Part81

**デフォルトの名無しさん** · 2024/04/18(木) 14:03:38.03

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/

**デフォルトの名無しさん** · 2024/08/19(月) 07:02:08.33

Rubyは言語そのものよりもRubyバカのせいで嫌いになった

**デフォルトの名無しさん** · 2024/08/19(月) 08:50:53.50

そもそもプログラマは
複数の言語をマスターしないといけない境遇の人が多いのに
わざわざRubyを作った松本なんとかというアホのせいで
さらに学習コストがあがるようなバカなことをしやがった。

だから個人的にはRubyは意地でも学習しない。

**デフォルトの名無しさん** · 2024/08/19(月) 08:54:16.52

数年前にブームになったプログラミングスクールがたまたまそのときが人気の最大期だったRubyを採用したところが多いだけの理由で
それを始めた人が多い。
でもスクールは初心者やアホを大量に入学させようとしたので
Rubyが本当に身に付いた人は少ない。

**デフォルトの名無しさん** · 2024/08/19(月) 09:59:14.56

そこらのスクールで身に付くのはごく一部の生徒だけ
言語がメジャーかどうかなんて関係ないぞ

**デフォルトの名無しさん** · 2024/08/19(月) 10:36:56.24

PC教室もプログラミングスクールも大して変わらんイメージ

**デフォルトの名無しさん** · 2024/08/19(月) 10:57:59.24

駅前の教室ってのはね、パソコンでも英会話でも授業料で儲けるのが目的のビジネスなんですよ
あれでできるようになった人は、最初から素質があった選ばれた人なんです

**デフォルトの名無しさん** · 2024/08/19(月) 12:16:05.87

言語の選択は個人の勝手にすればいい
職場で使うかどうかは職場内で決めることであり
余所の人間が口挟む事じゃない
それ以上はスレ違い

**397** · 2024/08/20(火) 00:50:27.87

学校で学んで転職できるのが、Ruby on Rails だけ。
予備校と同じで、再現性が高い。
勉強した分だけ点数が取れる

だから、チート職業。
未経験から、1,500時間ぐらい。
これが例えば看護師なら、何年も掛かる。お金も掛かる

一方、Python はプログラミングとは無関係。
転職は理系で大学院数学科で決まる

大学院数学科の香具師が、プログラミングを勉強する。
逆に、プログラミングを勉強しても、大学院数学科にはなれない。
これを分かっていない香具師が多いから、だまされる

Pythonの学校が無いのは、プログラミングを教えても転職できないから。
だから、ほとんどの学校がRails

PHP は論外。
Java 土方は誰でもなれる

**デフォルトの名無しさん** · 2024/08/20(火) 00:56:12.83

KENTAと書かなくなってやんの( ´,_ゝ｀)ﾌﾟｯ

**デフォルトの名無しさん** · 2024/08/20(火) 07:57:13.13

>>439
言語は道具でしかないし数学教室の連中が使うのはLISPやR、Wolfram
Pythonが世間で良く使われてるのはライブラリが豊富だからだよ
RubyはかつてPerlが6.0への移行を失敗して死んだように、
3.0への移行を失敗して死んだ
Railsで辛うじて延命してる終末期医療患者

**デフォルトの名無しさん** · 2024/08/20(火) 10:04:40.88

また宣伝

**デフォルトの名無しさん** · 2024/08/20(火) 12:41:49.88

Railsまだ生きていたのね

**デフォルトの名無しさん** · 2024/08/20(火) 16:27:25.35

VBAも糞だがRailsはそれ以上に糞
ところでRoRってなんで
Rails on Ruby じゃなくて
Ruby on Rails になったん

**デフォルトの名無しさん** · 2024/08/20(火) 21:31:59.23

香具師とかいつ以来だ…

**デフォルトの名無しさん** · 2024/08/20(火) 22:03:20.45

(ﾜﾗ

**デフォルトの名無しさん** · 2024/08/21(水) 17:56:09.15

まーでも次の言語となったときにWeb系やるならjavascriptは必須だろうね
よくは知らないけどweb版のEXCELもtypescriptって似たようなのが使えるらしいし

**デフォルトの名無しさん** · 2024/08/21(水) 19:53:29.30

>>444
take on meはなんでI on takeじゃないの？
come on nowはなんでnow on comeじゃないの？

**デフォルトの名無しさん** · 2024/08/21(水) 21:11:18.35

25年くらい前のPC教室は本当のPC教室だった記憶。講師陣がパソヲタばかりだったから。
今じゃ何故かお遊戯レベルらしい。

**デフォルトの名無しさん** · 2024/08/21(水) 22:05:33.99

>>449
給料が安すぎるから、素人が素人にテキスト通りに教えているだけだしな。

**デフォルトの名無しさん** · 2024/08/21(水) 22:06:03.45

>>447
いまはJavaScriptそのものを書く時代ではない。

**デフォルトの名無しさん** · 2024/08/22(木) 10:59:48.92

memo
https://nordot.app/1193192112776135228?c=388701204576175201
https://www.mrc.ritsumei.ac.jp/2024/08/19/post-128060/
https://www.ritsumei.ac.jp/se2017/making-things/story/story03.html/

**デフォルトの名無しさん** · 2024/08/22(木) 12:44:57.48

>>449
今何歳？

**デフォルトの名無しさん** · 2024/08/22(木) 13:35:59.57

>>449
今でもあるじゃん
PC教室やスマフォ教室はジジババの相談所

**デフォルトの名無しさん** · 2024/08/22(木) 13:48:48.18

>>449
オタくらい知ってないと、子供のなぜなぜに答えられない

**デフォルトの名無しさん** · 2024/08/22(木) 17:19:57.36

今日、YouTubeのおすすめ動画にUSBメモリの使い方を教える動画が出てきた。

キャップのあり、なしと銀色の方が指すとかこんなのでも需要があることに少し驚いた。

USBを使うことになって参考になったというコメントがたくさんあって説明書を読む習慣もない人間だらけなんだと改めて思った。

そもそも「USB」はUSBメモリのことじゃないのも気持ち悪いコメント。

**デフォルトの名無しさん** · 2024/08/22(木) 17:26:45.95

Excel VBAの動画みたいだね

**デフォルトの名無しさん** · 2024/08/22(木) 19:12:51.77

PC教室は爺様婆様の相談所ところかお茶会（笑）を開く場所になりつつある近所のPC教室。
年賀状の作り方とメールとラインと調べ物の検索のやり方の基本操作教えてあとはお茶会開いて談笑で終わるw

**デフォルトの名無しさん** · 2024/08/22(木) 20:15:42.12

>>458
結局、お金に困ってないからそうなる。iPhoneアプリをガンガン作っているおばあさんのような日本人が多ければ、日本の未来はまだ明るい。

**デフォルトの名無しさん** · 2024/08/22(木) 20:43:48.46

あのお婆さんは特別だね。もって産まれた才能みたいな

**デフォルトの名無しさん** · 2024/08/22(木) 21:06:44.66

でもiPhoneの開発ってwindowsPCじゃ厳しいんでしょ？

**デフォルトの名無しさん** · 2024/08/22(木) 21:56:50.96

VBAが使えれば大体の事できるから困らない

**デフォルトの名無しさん** · 2024/08/22(木) 22:41:37.08

>>461
素人童貞は不可

**デフォルトの名無しさん** · 2024/08/23(金) 11:41:14.53

お、おう

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2024/09/07(土) 11:13:37.83

今まで普通に軽く動いてたVBが極端にメモリ食うようになって重すぎて動かなくなってしまった
メモリ解放のコード入れたり配列化したりしてコード軽くしてもダメで、何か対策ありますかね
多分officeのバージョン上がったのが原因っぽいです

**デフォルトの名無しさん** · 2024/09/07(土) 11:54:53.47

VBはスレチガイだろ

**デフォルトの名無しさん** · 2024/09/07(土) 17:29:43.63

ヨソのネタの焼き直しだろ　うっかりAを書き損ねただけで
未知のウィルスかも知れないから勝手に判断しないで専門機関にただちに通報して調査してもらえ　
と、ここでは目先の変わった回答しといてあげよう

警備員[Lv.1][新芽] · 2024/09/07(土) 18:28:39.57

Officeのバージョンが… とあるから、VBAの話だろう
うちもずっと問題なかったプログラムが、「メモリー不足」のような理由で停止した

**デフォルトの名無しさん** · 2024/09/07(土) 18:52:09.08

ひょっとしてメモリ4GBとかなのかな？
今は最低でも8GBは必要だし
出来れば16GBくらい欲しいところだよね

**デフォルトの名無しさん** · 2024/09/07(土) 18:59:51.26

[2年後]

ひょっとしてメモリ8GBとかなのかな？
今は最低でも16GBは必要だし
出来れば32GBくらい欲しいところだよね

**デフォルトの名無しさん** · 2024/09/07(土) 19:13:02.79

オプション→セキュリティセンター
信頼できる場所→新しい場所の追加
ファイルの格納フォルダを追加

**デフォルトの名無しさん** · 2024/09/07(土) 20:15:57.38

ココ↓
https://mevius.5ch.net/test/read.cgi/bsoft/1709099192/849

**デフォルトの名無しさん** · 2024/09/08(日) 12:02:11.54

EXCELのバグだとしたらEXCEL再起動や、メモリにゴミが残るならメモリ解放アプリ（MSが出してるのあったはず）で一時しのぎしながら修正待つのが無難
うちは32gbだし、それほどマクロ使いまくってないので問題に遭遇していない
（＝対策考えようというモチベが沸かない）

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

コピペさせてると右下ににゅにゅーっとなんか出てきてしばらくの間動作とまるけどあれ何？
とんでもなく時間かかるようになっちまったんだけど

**デフォルトの名無しさん** · 2024/09/08(日) 23:44:38.83

10年ぶりくらいにリリースノート見たわ
えっ、こんなバグあったの？これまでの大丈夫か？と昔も思ってた記憶が蘇ったわ
またしばらく見ないw

**デフォルトの名無しさん** · 2024/09/09(月) 11:40:58.77

イルカ思い出したわωωωωωωωωω

**デフォルトの名無しさん** · 2024/09/09(月) 13:32:37.22

なんか出てきてじゃあ判らない　見てる本人が何なのか把握してから相談しないと
設定のクリップボードで履歴残すようにしてるのでは？　常に消すように設定しとかないと
「今、これコピペしたよ！またしたよ！またまた・・」ってのじゃないのか？
エロ画像次々にDLすると「今、AエロDLしたよ！またBエロDLしたよ！またまたCエロ・・」てのは出る
すべてのDL履歴とかまでご丁寧に残すから、そのたんび履歴削除しないといけなくて面倒
「すべて見ているぞ」っつー典型だな

**デフォルトの名無しさん** · 2024/09/09(月) 20:33:23.82

コパイはそれがもっと酷くなる
家族共用なんて今まで以上に丸見えにw
コパイのせいでxxバレましたってのがこれから溢れるようになる

**デフォルトの名無しさん** · 2024/09/10(火) 13:13:04.96

win8辺りから迷走してるな
勝手に個人情報晒すのやめてくれ
macとかでもそうなんか

**デフォルトの名無しさん** · 2024/09/11(水) 16:48:56.96

VBA素人なんですが、教えて…

for文とCaseって組み合わせて出来ないの？
うまく作動しないし、脳みそが出る

Microsoft365 business

Private Sub cmb_mda_Change()
Dim i As Integer, s As Integer
With Me

i = .cmb_mda.ListIndex

For s = 0 To 30

Select Case i

Case s
cmb_color.RowSource = "基材マスター!V" & "1" & s
s = s + 1

End Select

Next s

End With
End Sub

**481** · 2024/09/11(水) 16:49:54.62

追記

Private Sub userform_activate()
With Me
.cmb_mda.RowSource = "基材マスター!" & "Q2:Q" & Range("Q" & rows.Count).End(xlUp).row
.cmb_color.RowSource = "基材マスター!" & "V2:V" & Range("V" & rows.Count).End(xlUp).row
.cmb_mdaThic.RowSource = "基材マスター!" & "w2:W" & Range("w" & rows.Count).End(xlUp).row
.cmb_accColor.RowSource = "アクセサリーマスター!" & "G2:G" & Range("G" & rows.Count).End(xlUp).row
End With
End Sub

**デフォルトの名無しさん** · 2024/09/11(水) 17:50:24.06

>>481
For ～ Nextの中でsを変えちゃだめ (s = s + 1 の部分)
Caseが1個しかない時は、わざわざSelect Caseなんか使わない（If を使った方がシンプルに書ける)

警備員[Lv.15] · 2024/09/11(水) 20:57:15.88

>>481
For文使う必要ある？
i が30以下なら～で終わりそうな。

**デフォルトの名無しさん** · 2024/09/11(水) 23:08:59.50

部内使う処理程度の話だけど
新人の女の子から先輩まで俺が作ったVBA処理を必須レベルで当たり前に使ってるのを見ると嬉しくなってしまう
これが社畜ってことだな

**481** · 2024/09/12(木) 08:51:21.97

>483
>484

ありがとうございます。
意図として連携してるコンボボックスが3つあり、コンボボックスの中身が今後増えていく予定があります。
中身が増えたときに、Caseを使っていたのですが、Caseだと長々とコードを書かなくてはならないと思い、Forを使いました。

**デフォルトの名無しさん** · 2024/09/12(木) 10:14:19.60

for文以降をインデントしてないことにイラつく

**デフォルトの名無しさん** · 2024/09/12(木) 11:12:58.05

>>487
短気は早漏（損気）だぜｗ

**デフォルトの名無しさん** · 2024/09/12(木) 12:47:42.20

(掲示板では)インデントが難しい

**デフォルトの名無しさん** · 2024/09/12(木) 14:28:52.49

初めて書いたときにビックリしたわ

**デフォルトの名無しさん** · 2024/09/12(木) 15:08:24.92

全部ならともかくDim以降はインデントできてるからな

**デフォルトの名無しさん** · 2024/09/12(木) 16:35:19.97

これがインデントのお手本らしい
https://i.imgur.com/QIQ1bp8.png

**デフォルトの名無しさん** · 2024/09/12(木) 16:43:16.05

>>492
安心する

**デフォルトの名無しさん** · 2024/09/12(木) 21:56:53.49

excelであるセル、例えばセルA5の数字がランダムに変化するのですが、
セルA5に表示された数値の最大値を知りたいのです。
MAX関数等は既に使って知っていますが、MAX関数ではこれは出来ません。
何か方法ないでしょうか？

**デフォルトの名無しさん** · 2024/09/12(木) 22:08:22.31

>>494
A5の内容を書き換えてるのが何者かと、書き換える方法によって最大値を求める方法も変わる

**デフォルトの名無しさん** · 2024/09/12(木) 22:23:01.62

>>495
A5のセルを書き変えているのは株のソフトです。

**デフォルトの名無しさん** · 2024/09/13(金) 08:47:58.84

>>494
俺なら全く同じレイアウトのシートをコピーで作っておいて
セルの値の変更イベントで2つの内容を比較して
大きかった時に退避シートのセルに上書きするかな
もっとスマートな方法があるかもしれない

**デフォルトの名無しさん** · 2024/09/13(金) 10:17:11.58

株のソフト側にそれぐらいの機能はあるだろう　無いのか？
つか、わざわざExcelにデータを落とし込む意味は？　どのくらいの頻度でA5セルを上書きしてるかわからんし
書き変わった数字だけ見てる理由も図り兼ねるし、どの期間の最大値を求めたいかとかすらわからん

**デフォルトの名無しさん** · 2024/09/13(金) 12:28:52.69

株サイトをスクレイピングするマクロを手に入れたはいいけど、仕組みがわからなくてセルに表示された内容を見るしかできない人なんでしょ

**デフォルトの名無しさん** · 2024/09/13(金) 13:02:53.26

そもそも関数とか書いているのだからスレチ

**デフォルトの名無しさん** · 2024/09/13(金) 13:04:59.32

>>499
あらかたそういうことだと皆わかってるけど、今更どした

**デフォルトの名無しさん** · 2024/09/13(金) 13:07:01.80

>>500
えっ？！
バカすw

**デフォルトの名無しさん** · 2024/09/13(金) 13:11:54.62

xlsmでもマクロのパスワードって簡単に解除できるの

**481** · 2024/09/13(金) 13:17:52.39

>>492
その点線の表示はどういう設定ですか？
教えて

**デフォルトの名無しさん** · 2024/09/13(金) 13:31:58.83

>>504
これはExcelの機能じゃない
プログラムを綺麗に整形してくれるサイトとかアプリとかが別にある

**481** · 2024/09/13(金) 13:36:37.63

>>505
ですよね
調べても出てこなかった…

**デフォルトの名無しさん** · 2024/09/13(金) 16:48:32.57

>>485
辞めたら陰でボロクソ言われてる未来

**デフォルトの名無しさん** · 2024/09/13(金) 16:56:09.74

株のソフトってからには、ローソク足チャートとか含まれてそうなものだが
単にスクレイピングしてるってだけなら、Excel側でそのデータをチャートにできる
ps://liibercraft.com/archives/1430　真似するだけで簡単に作れる
最大値知りたい　だけじゃ無く、始値終値安値とかも比較しなきゃ、高値だけ追っても
何が何だか

**デフォルトの名無しさん** · 2024/09/13(金) 17:04:30.81

>>507
辞めた後の評判が自分まで聞こえてくることはないからヘーキ

**デフォルトの名無しさん** · 2024/09/13(金) 21:35:37.59

>>494
Dim maxValue As Double

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
If Target.Value > maxValue Then
maxValue = Target.Value
Range("B5").Value = maxValue
End If
End If
End Sub

**デフォルトの名無しさん** · 2024/09/18(水) 04:18:48.87

>>492
1つ目の段落はしないなー

**デフォルトの名無しさん** · 2024/09/18(水) 09:19:49.82

オレも1段目はしない派だな

**デフォルトの名無しさん** · 2024/09/18(水) 11:09:59.45

IEが使えなくなった今、
VBAからChromeブラウザでHTMLを操作する方法はありますか？

**デフォルトの名無しさん** · 2024/09/18(水) 11:37:48.60

まだIEは使えるしEdgeやChromeも使える

**デフォルトの名無しさん** · 2024/09/18(水) 12:03:02.51

>>514
そのやりかたとは？

**デフォルトの名無しさん** · 2024/09/18(水) 14:03:12.68

Floorp

**デフォルトの名無しさん** · 2024/09/18(水) 16:32:27.89

>>511
Privateは1文字目じゃないのこれ

**デフォルトの名無しさん** · 2024/09/19(木) 20:18:28.74

>>511
だよね～

**デフォルトの名無しさん** · 2024/09/20(金) 22:36:42.12

まだマクロのスレが息しているとは驚き

**デフォルトの名無しさん** · 2024/09/21(土) 00:06:25.91

>>519
そろそろ就職して現実を見ろよ

**デフォルトの名無しさん** · 2024/09/22(日) 09:20:02.85

>>520
その前に、就職していない現実を見ろよ

**デフォルトの名無しさん** · 2024/09/29(日) 10:55:52.42

ププッw　効いてる効いてる

**デフォルトの名無しさん** · 2024/09/29(日) 10:59:10.16

VBAで業務効率化をしたいけどもうこれ以上アイデアが浮かばない
アイデアを浮かばせるのによいことってあるかな？

**デフォルトの名無しさん** · 2024/09/29(日) 11:22:06.13

アイデアを作る一番良い方法はインプットとアウトプットを増やすこと
ってなんかの本で読んだ

**デフォルトの名無しさん** · 2024/09/29(日) 16:26:37.39

仕事嫌だけど週末に思いついたはコードを試したい

**デフォルトの名無しさん** · 2024/09/29(日) 21:08:04.43

>>523
まずは手作業で全部やってみ？

**デフォルトの名無しさん** · 2024/09/30(月) 10:30:36.61

色んな情報を脳にインプットすることで選択の幅が広がる
それらを実際にアウトプットとして作ることで良い所や悪い所が経験として蓄積されるみたいな

**デフォルトの名無しさん** · 2024/10/01(火) 00:08:28.55

seleniumBASICをインストールしてヘッドレスモードでスクレイピングしてたんだけど
突然、ヘッドレスモードにならずにブラウザが表示されるようになった

chromeとchromedriverをアップデートしたのが原因なんだろうけど
今までアップデートしても何とも無かったのになんでだろう・・・
　
ブラウザが表示される以外では問題なくスクレイピング出来ています。
なぜだか分かりますか？

**デフォルトの名無しさん** · 2024/10/01(火) 04:27:07.05

>>528
ブラウザの仕様はしょっちゅう勝手に変わる

**デフォルトの名無しさん** · 2024/10/01(火) 06:33:46.48

ASISが仕様と諦めて地道に追従するしかない

**デフォルトの名無しさん** · 2024/10/01(火) 07:13:42.06

>>528
白いウィンドウが表示されるやつ？
オプションを　--headless=old　にしたら表示されなくなったよ

**デフォルトの名無しさん** · 2024/10/01(火) 11:08:22.05

Dim ary(2) As Long
ary(0) = 101
ary(1) = 102
ary(2) = 103
Dim dic As New Dictionary
dic.Add "a", ary
Debug.Print dic("a")(0) '①
dic("a")(0) = 101000 '②
Debug.Print dic("a")(0) '③

VBAって①はできるのに②はできないのな
①と③の結果が同じで101
chatGPTに聞いてみたけどしっかりは理解できんかったわ
参照できないんだってことは分かった
一旦valueの配列を取得してから、この配列の(0)に代入したあとにもう一度元の位置に配列ごと戻せということらしい

C#とjavascriptで同じ事やってみたけど普通にできるからVBAが異常なんかね