Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

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

※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/

※デフォルト設定

**デフォルトの名無しさん** · 2020/06/17(水) 21:30:10.13

>>845
値貼り付けでは反映されんよ

**デフォルトの名無しさん** · 2020/06/18(木) 00:14:55.64

下記のような2次元配列があります。
1,りんご
2,ばなな
3.みかん

これの果物名の列だけをセルに代入したいですが、簡単な方法はありますか？
現状、果物の列を一端列数0の配列に入れなおしてそのままセルに代入する案しか思いつきませんが、
もっとスマートな方法あれば教えてください。

**デフォルトの名無しさん** · 2020/06/18(木) 00:29:49.38

行列入れ替えは考慮外なの？

参考は沢山出てくる
EXCELのVBAで２次元配列の特定の列または行を１次元配列に変換する方法
qiita.com/takahasinaoki/items/1295c3df5ddfb13bdf8e

**デフォルトの名無しさん** · 2020/06/18(木) 01:18:10.70

>>847
3だけピリオド

**デフォルトの名無しさん** · 2020/06/18(木) 08:45:41.41

>>847
貼り付け先の果物の前の列が消されても良いなら配列から1、2、3消してそのまま貼り付ける。
駄目なら貼り付け先の値を配列に入れてから貼り付ける。

貼り付け先の値を入れるのは本末転倒だからそういうデータが少ない場合以外は勧めない。

**デフォルトの名無しさん** · 2020/06/18(木) 09:42:50.65

>>847
地道に入れ直すしかない

**デフォルトの名無しさん** · 2020/06/18(木) 15:10:31.12

てか配列から直接セルに代入しないといけないってのは
データ数が多いとか速度重視したいとか？
そうでないなら基本通りにFor使って入れりゃいいだけなんだけど

**デフォルトの名無しさん** · 2020/06/18(木) 15:51:42.38

セルに入れるのがそもそも簡単なのに何ができないんだかわからん

**デフォルトの名無しさん** · 2020/06/18(木) 16:29:20.31

おまいら質問をちゃんと読んでるか？
「簡単な方法はありますか？」なんだから、Forで回すのは嫌ってことだろ
つまり回答は「そんな方法はない」

**デフォルトの名無しさん** · 2020/06/18(木) 16:32:36.54

ステップ数を減らしたいだけなら、一旦そのまま全部ワークシートに入れて2列目だけコピペか1行目を削除すれば数行で完結する
たぶんForより速い

**デフォルトの名無しさん** · 2020/06/18(木) 16:33:11.78

書き間違い→1列目を削除

**デフォルトの名無しさん** · 2020/06/18(木) 17:30:14.12

質問がどっかの問題の引用っぽく感じたので答えはかかないけどね

**デフォルトの名無しさん** · 2020/06/18(木) 17:38:49.86

同じ社員同士なのにエクセルの便利機能とかを
情報共有しないのってなんなんだろう

**デフォルトの名無しさん** · 2020/06/18(木) 17:57:51.44

ループからの抜け方、①と②どっちが推奨？

①
do while
　for
　　if
　　　脱出フラグ = true
　　　exit for
　　end if
　next
　if 脱出フラグ then exit do
loop

②
do while
　for
　　if 脱出条件 then exit do
　next
loop

**デフォルトの名無しさん** · 2020/06/18(木) 17:57:55.15

嫌われているんだろ

**デフォルトの名無しさん** · 2020/06/18(木) 17:58:44.91

>>858
今まで関わった職場わりとしてるが

**859** · 2020/06/18(木) 18:01:15.31

①の3行目のifは脱出条件な

**デフォルトの名無しさん** · 2020/06/18(木) 18:12:03.89

>>859
処理の抜けや他の処理に影響がないならという条件付きで②、
場合によっては exit sub 、exit function でも書く

**デフォルトの名無しさん** · 2020/06/18(木) 19:24:08.22

do whileの条件とifの条件ををandで繋いでdo while
loop行の前でi=i+1(forのカウンタ代わり)
これでよいのでは

**デフォルトの名無しさん** · 2020/06/18(木) 19:39:21.23

GoToの使用を躊躇しない。

**デフォルトの名無しさん** · 2020/06/18(木) 19:42:12.81

>>864
二重ループの抜け方の作法を聞いてるんだが

**デフォルトの名無しさん** · 2020/06/18(木) 19:48:21.18

do whileとforで２重ループするのが確定で、外側まで一気に抜けるのが確定なら２を選ばない理由がない

**デフォルトの名無しさん** · 2020/06/18(木) 19:53:02.72

>>866
二重ループの内側から一気に抜けたい時は、俺なら内側のループを別プロシージャにするか、Do Loopを二重にする
コード量によってはフラグ変数やExitは見通しが悪くなる、別の言い方をすれば終了条件がわかりづらくなるからあんまり使いたくない

**デフォルトの名無しさん** · 2020/06/18(木) 20:17:54.42

>>864,867,868
とりあえず処理に問題なければ一気に外に抜けること自体は問題ないってことか
確かにDoに変えるのも手だな
適当に使い分けることにするわサンキュー

**デフォルトの名無しさん** · 2020/06/18(木) 20:18:23.62

間違えたわ>>863だ

**デフォルトの名無しさん** · 2020/06/18(木) 20:21:15.52

>>859
囲碁なら上、オセロなら下

**デフォルトの名無しさん** · 2020/06/18(木) 20:25:42.22

すごく個人的には、Do Untilで書いた方が「抜ける！」って読みやすい

**デフォルトの名無しさん** · 2020/06/18(木) 20:26:39.51

Do whileよりって話ね

そう書けば抜ける複数条件をDoの後ろに書いて違和感が無い

**デフォルトの名無しさん** · 2020/06/18(木) 20:28:18.94

これ…　>>871に『その心は？』って聞いてあげた方がいいの？

**デフォルトの名無しさん** · 2020/06/18(木) 20:33:29.27

>>874
おじいちゃん出しっぱなしで片付けないんだもん

**デフォルトの名無しさん** · 2020/06/18(木) 20:34:24.21

Gotoはもちろんのこと、余程のことがない限りはExit For(Do)使うよりはExit Function使った方がいい

**デフォルトの名無しさん** · 2020/06/18(木) 21:01:16.76

>>876
そんなこたあね―な。

**デフォルトの名無しさん** · 2020/06/18(木) 22:48:55.15

Do While
　何で
Loop

While
　2つあるの?
Wend

**デフォルトの名無しさん** · 2020/06/18(木) 23:00:26.73

vbaだから

**デフォルトの名無しさん** · 2020/06/18(木) 23:21:26.57

>>878
while～wendは過去の名残
今はdo whileを使うのが正しい

**デフォルトの名無しさん** · 2020/06/18(木) 23:40:35.48

一応、while wendは最後までループ抜けさせないぞって読ませ方ができる
知ってる人が少なくなってるからむしろ逆効果のお節介となってきているが

**デフォルトの名無しさん** · 2020/06/19(金) 00:17:23.49

行番号とか代入のLetとかも使ってるやつはいない
過去の名残があちこちにあるのがVBA

**デフォルトの名無しさん** · 2020/06/19(金) 08:29:01.10

do while～loopって構文が気に食わんわ

do [処理] while [脱出判定] loop
もしくは
while [脱出判定] do [処理] loop
のほうが思考に沿う
ってかdo必要？

**デフォルトの名無しさん** · 2020/06/19(金) 09:57:59.84

VBA必要？

**デフォルトの名無しさん** · 2020/06/19(金) 09:58:43.65

Excelが必要としてるんだ

**デフォルトの名無しさん** · 2020/06/19(金) 16:55:48.19

だってVBAだから

**デフォルトの名無しさん** · 2020/06/19(金) 18:51:31.92

エクセルマクロとして代替えがないから必要だな

**デフォルトの名無しさん** · 2020/06/19(金) 21:17:20.11

職場の人が書くマクロ、わかりやすいんだけど無駄改行多くてスクロールしないと全体像掴めないでつらい

**デフォルトの名無しさん** · 2020/06/19(金) 21:26:36.78

>>883
While [脱出判定]
　[処理]
Wend

**デフォルトの名無しさん** · 2020/06/19(金) 23:55:48.34

>>888
実は強制終了対策で改行してるとか?

**デフォルトの名無しさん** · 2020/06/20(土) 00:04:01.39

>>883
構文解析でトークンの先読みが少なくて済むための配慮じゃないかな、知らんけど

**デフォルトの名無しさん** · 2020/06/20(土) 00:41:32.09

>>883
英語として

Do while a is b. If a is bigger than b, then break..

というのと

While if a is bigger than a, do something.

どちらが自然かという問題だったようだ。どっちも変だけど

**デフォルトの名無しさん** · 2020/06/20(土) 02:09:29.21

>>888
職場での問題なら職場内で解決しなされ

**デフォルトの名無しさん** · 2020/06/20(土) 04:41:54.35

ちょ、VBAのCollectionのAddメソッドってvalue/keyの順番だったのかよぉ
C#もJavaもPythonもkey/valueの順だから勘違いしてたわ！
なんかおかしいとおもった

**デフォルトの名無しさん** · 2020/06/20(土) 08:01:08.69

>>894
Add時にKeyを省略できるからね
省略するとKeyがどうなるのかは知らんけど

**デフォルトの名無しさん** · 2020/06/20(土) 09:40:22.78

>>895
重複排除できてねぇぢゃねぇかクソ言語がぁぁぁ！って思ってましたごめんなさい

**デフォルトの名無しさん** · 2020/06/20(土) 10:42:49.25

>>896
重複排除したいならdictionaryの方がいいんじゃないか

**デフォルトの名無しさん** · 2020/06/20(土) 12:12:13.86

>>888
それは1プロシージャの行数が多いということかな?
それはダメダメだ。

そういうことになることはあるけど、本人が書ける奴なら自分でも分かってるかもね。
時間があれば直すんだけどってのは時々ある。

**デフォルトの名無しさん** · 2020/06/20(土) 12:16:26.19

>>894
Dictionaryと逆だから注意。

**デフォルトの名無しさん** · 2020/06/20(土) 12:24:38.59

excelからwordのoleなのですが、印刷プレビュー画面が表示されている
あいだは処理を停止させておきたのですが、どうすればできますか？
また、excelのほうのPrintPreviewメソッドではそれが実現できるのですが、
その違いはなんなのでしょうか。

Dim WORD As Object
Set WORD = CreateObject("Word.application")
WORD.Documents.Open(filePath)
WORD.PrintPreview = True
Do Until WORD.PrintPreview = False
Loop

**デフォルトの名無しさん** · 2020/06/20(土) 12:44:36.40

>>896
重複排除したきゃKey指定すればいいだけだろ
てか、そういう使い方しかしたことないわ

**デフォルトの名無しさん** · 2020/06/20(土) 12:57:07.60

keyの位置間違えててできなかったって話だろ…

**デフォルトの名無しさん** · 2020/06/20(土) 15:27:33.55

ああすまん、よく読んだらそうだな

**デフォルトの名無しさん** · 2020/06/20(土) 15:53:54.10

PCに疎い人達の集まる職場

週に1回の頻度で1200個の数値を4時間かけて手打ちしてたのを3秒で終わらせるマクロ組んで改善提案→何かわからんけど組んだんだろ　で300円

他のシートやブックに行き来しやすいように
図形に文字入れてハイパーリンクをセットしたのを2つ作った
→これはいいぞ　1000円

もう嫌だ

**デフォルトの名無しさん** · 2020/06/20(土) 15:58:25.34

300円とか1000円って何？

**デフォルトの名無しさん** · 2020/06/20(土) 16:02:10.10

>>905
改善提案出すとお金貰える仕組みの会社だから
トヨタグルーやトヨタ系とかは結構そうじゃないかな

**デフォルトの名無しさん** · 2020/06/20(土) 16:08:51.15

>>906
単にプレゼンというか説明下手なだけじゃないの？

**デフォルトの名無しさん** · 2020/06/20(土) 16:23:05.64

>>907
もうマクロに関してそこは諦めたわ
if関数使ったりそういう改善のが1000円や1500円で貰えるからそっちでいってる
同僚から組んで欲しいってのも全部断ってる
58歳のパソコンに疎すぎる人に説明する必要性もないかな

**デフォルトの名無しさん** · 2020/06/20(土) 17:02:57.89

まぁ、「実際の能率の向上」より「誰にでも分かりやすく使い易い」にウエイトが傾いてるってのはよくあることじゃね。
どんな評価方法か知らんけど。

・直接的に恩恵を受ける人の数
⇒あくまで例えばだが、>>904の「3秒マクロ」で仕事が楽になるのが数人しかいない、とか、
　「図形2つ」が割と広い範囲で使える上に、他の職場でも応用が利く、とか。

・柔軟性
⇒例えば3秒マクロに何かしら元となるデータがあると仮定して、
　そのデータを出力するシステムの仕様に変更があった場合対応できなくなる、とか。
　他方、図形2つの方は文字どおり図形2つ作って文字入れてハイパーリンクを加えただけなので、
　例えば参照先URLなりが変わったとしても、比較的対応が容易だし、
　よほどのことがなければ「使えなくなる」ということが考えられない、とか。

・上司のその時の気分、あるいは好かれ具合
⇒それな

**デフォルトの名無しさん** · 2020/06/20(土) 17:21:32.15

>>908
同じような所が10カ所(ファイル)あったら10000円～15000円もらえるのかな

**デフォルトの名無しさん** · 2020/06/20(土) 17:21:48.48

相談もなしに勝手なマクロを組んだことで減点対象になったのだろう
もしかしたら、その作業は近々システムの変更でなくなる予定だったかもしれない
作業以外の目的があったのかもしれない

残業が多いなと思っていたら、
余計なものを作って遊んでいた、減給されないだけましだろう

**デフォルトの名無しさん** · 2020/06/20(土) 17:41:36.37

マクロの変更も有識者間でコードレビューして評価報告書提出して上司に確認のサインもらって
修正連絡票回覧するまでやらないとクレームはいったりするよね
知らない間に勝手にマクロが書き換えられていたとか言われたらやばいだろ

**デフォルトの名無しさん** · 2020/06/20(土) 18:45:21.31

>>904
わかりやすく説明するなり評価方法に基づいたアピールするなりすりゃいいじゃん

**デフォルトの名無しさん** · 2020/06/21(日) 05:53:32.39

お前らの職場って大変そうだな
おれんところなんか俺しかVBA触れるやついないから好き放題やってるわ

**デフォルトの名無しさん** · 2020/06/21(日) 09:05:05.14

俺も俺も
初心者に毛が生えた程度の知識だけど周りはPC素人ばかりだからやりたい放題だ

**デフォルトの名無しさん** · 2020/06/21(日) 10:08:30.56

同じく
PCマイスターみたいに見られてるけど、薄々勘付かれているかもしれない

**デフォルトの名無しさん** · 2020/06/21(日) 13:43:26.96

エクセルはそこそこ使いこなせるがマクロは全く知らないってな人に
簡易マクロ作っただけで「ハァ？お前天才かよ？」みたいな反応されるよな。
褒められる優越感と小学生でも書けるコードで褒められる自分へ嫌悪感で
葛藤しまくるよな

**デフォルトの名無しさん** · 2020/06/21(日) 14:00:37.96

いや、別に。

**デフォルトの名無しさん** · 2020/06/21(日) 15:15:50.34

両方とも別に

**デフォルトの名無しさん** · 2020/06/21(日) 17:39:52.32

>>917
他の奴らってそもそも業務が違うだろ

**デフォルトの名無しさん** · 2020/06/21(日) 17:47:04.76

>>920
出来ない正社員と出来るバイトの俺

**デフォルトの名無しさん** · 2020/06/21(日) 17:50:26.78

>>917
読んでるこっちが恥ずかしい

**デフォルトの名無しさん** · 2020/06/21(日) 18:05:28.37

スレチだけどPHPは
ハイパーテキスト・プリプロセッサだってのに
初歩でも神呼ばわりだぜ

【PHP】下らねぇ質問はここに書き込みやがれ 11
http://itest.5ch.net/mevius/test/read.cgi/tech/1591334726/96-107
96
> hoge.com/****
>に指定した数字入れて、html出力ってできますか？

103 foreach(

107
＞>103
神！おっぱ・（自粛）

**デフォルトの名無しさん** · 2020/06/21(日) 19:11:40.34

よくメニューに[＋]があり、
これを押すと隠してあったメニューが表示されるといった仕組みがあるのですが、
これをエクセルで実現することはできるでしょうか。

**デフォルトの名無しさん** · 2020/06/21(日) 19:46:46.68

簡単なのはVisibleプロパティをFalseからTrueにする方法

**デフォルトの名無しさん** · 2020/06/21(日) 19:54:02.33

>>924
ユーザーフォームの使用になる
http://e-tech.life.hyogo-u.ac.jp/contents/kyouzai/vb-ref/contents/part1/button_visible/button_visible.html
ユーザーフォームのイベントで条件を記述してやるのが良い

**デフォルトの名無しさん** · 2020/06/21(日) 19:54:53.04

>>924
グループ化使うとか

**デフォルトの名無しさん** · 2020/06/21(日) 20:09:41.65

>>921
100人規模で周りの人達ができない正社員なわけない
バイト数人が使う程度のマクロだろ

**デフォルトの名無しさん** · 2020/06/21(日) 20:17:13.26

俺も大したことできないけど零細で偉そうにしてるわ
人生なんて鶏口牛後で十分なんだよ

**デフォルトの名無しさん** · 2020/06/21(日) 21:52:25.43

>>928
100人前後の会社で
60人ほど派遣
20人くらいがバイト
10人くらいのパート
正社員は10人ほどのうち確実に7人はエクセルもまともに使えないレベルなのでWord使ってる
エクセルを使うのは正社員1人派遣1人バイトの俺
3ヶ月に一度現れる謎の5人組はよく分からない
そいつらの給料が月70～80万円って言ってた
俺のバイト代は月12万円くらいだった
この国はおかしいって狂ってるよ

**デフォルトの名無しさん** · 2020/06/21(日) 22:06:48.15

大して優秀なわけでもないやつがちょっと優位な部分があるだけで周りを見下すあるある

**デフォルトの名無しさん** · 2020/06/22(月) 00:04:33.28

>>930
Excel vba ができる人が少ないのは会社の重要な業務ではないからだろ
エクセルはあくまで補助的な使い方しかしてないんじゃねーの

**デフォルトの名無しさん** · 2020/06/22(月) 00:17:00.59

採用条件に入ってないし学校やパソコン教室でも普通は教えないからできないのが普通
そもそもプログラミングとは何か、どういう場面で使うと便利なのかもわかってない人が大半
うっかり省力化すると事務員の首が飛ぶから、人の心があれば黙ってるものだし

**デフォルトの名無しさん** · 2020/06/22(月) 01:24:44.89

一般的なプログラミングの話をするならExcelは不向き
そもそも表計算ソフトの延長でしかない

**デフォルトの名無しさん** · 2020/06/22(月) 02:04:25.88

>>932
はいその通りです。
【60代パート】リングファイルを棚にしまう
【社長】ハンコついてパートに渡す
【60代パート】Wordから印刷して社長の机に置く
【50代課長】エクセルからWordにコピペしたファイル名とフォルダをパートに指示
【20代大卒美人派遣】エクセルで原価計算して課長に渡す
【30代バイト】梱包出荷伝票をエクセルに打込み

**デフォルトの名無しさん** · 2020/06/22(月) 02:11:43.53

>>935
多分そういうこと言ってるわけじゃないと思うぞ

**デフォルトの名無しさん** · 2020/06/22(月) 02:30:48.70

>>936
え？
Excel vba を仕事にするのが会社の重要な業務である業界ってどこですか？

**デフォルトの名無しさん** · 2020/06/22(月) 03:23:12.33

>>937
お前の会社は何の業界の会社だよｗ
例えば30代のバイトが梱包している作業のほうが会社にとって利益をもたらすんじゃないのか

**デフォルトの名無しさん** · 2020/06/22(月) 08:49:37.60

ヨコレスだけど30代に梱包やらせる会社とか潰れちまえ
頭も体も回る年代なんだから大いに無駄な事やらせた方がいいと思うね
年食って手数よりも口数のほうが多くなってきたら梱包に回せ

**デフォルトの名無しさん** · 2020/06/22(月) 10:07:31.70

では無能な30代には何をやらせれば良いのだ？

**デフォルトの名無しさん** · 2020/06/22(月) 10:18:08.71

バイトに雑用させるのは普通だし年齢関係ないわ

**デフォルトの名無しさん** · 2020/06/22(月) 10:44:00.06

VBAスレなのにバイトの仕事がどうのって話になってて、さすがだなっておもいましたwww

**デフォルトの名無しさん** · 2020/06/22(月) 10:45:26.13

vbaってプログラミングなの？

**デフォルトの名無しさん** · 2020/06/22(月) 11:16:34.74

プログラミングじゃなかったらなんなんだ
物書きか？

**デフォルトの名無しさん** · 2020/06/22(月) 11:19:23.28

Excel関数の延長？