Excel VBA 質問スレ Part60

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:09.64

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/04/17(水) 18:30:47.49

>>732
そういう馬鹿なところのために、
マイク・スピーカー端子経由でデータのやりとりをする
ツール作ったら便利なのだろうかね？

**デフォルトの名無しさん** · 2019/04/17(水) 18:35:35.55

>>733
頼む、作ってくれ！、とのこと

**デフォルトの名無しさん** · 2019/04/17(水) 18:36:55.93

個人的には申請出せば色々使えるけど、それが面倒くさいというのもある。

どうせ、VBAでどうとでもなる。
よっぽどどうにもならない場合は申請出すけど。

最近流行りのRPAとか全く必要無い。
簡単にソース作成する個人ライブラリが既にある。

**デフォルトの名無しさん** · 2019/04/17(水) 22:16:54.35

PC-8001ではカセットテープにプログラムを保存したんだよな
それを最近のPCで録音して、音声ファイルからプログラムデータを復元するWindowsアプリがフリーで公開されてる

**デフォルトの名無しさん** · 2019/04/17(水) 22:20:25.13

FAXみたいな原理だな

**デフォルトの名無しさん** · 2019/04/17(水) 23:42:32.81

下手なの作ってフリーズしたり過去のデータが消えたら責任とれるの？って話になるからな

**デフォルトの名無しさん** · 2019/04/18(木) 00:51:43.65

ITに戦略がないとそうなる

**デフォルトの名無しさん** · 2019/04/18(木) 05:33:25.25

ライプラリってそんな知る人ぞ知るってマイナーな使い方じゃなく簡単に情報入手出来るようになって価値があるよね
汎用性があり改変もしやすくオープンなのが増えると良い。
そんなのVBAじゃなくともって言う人もいるけどそれでもVBAが存在して使用されてるんだから有用なライプラリはあった方が良い

**デフォルトの名無しさん** · 2019/04/18(木) 07:22:37.37

GithubでVBAっていれて検索すると3000以上のリポリトジがあるけど、
どうすれば有用なものが見つけられるか
まるでわからん

**デフォルトの名無しさん** · 2019/04/18(木) 07:34:41.63

VBAが有用じゃないし

**デフォルトの名無しさん** · 2019/04/18(木) 09:32:20.75

なんとなくvba利用しているような運用職なんですがモノは良いのでもっと横展開出来て再利用性高いものが作れたら作って欲しいと言われました

再利用性が高いとはつまりどういうことでしょうか…
モジュールをそのままコピペして全く別のものでも動くように…？

**デフォルトの名無しさん** · 2019/04/18(木) 09:40:51.83

>>743
決め打ちとしてない？
データ全部を処理する時にfor i = 1 tto 100000とかテキトーな数値にしたり
そうじゃなく、最終行をちゃんと取るとか

**デフォルトの名無しさん** · 2019/04/18(木) 09:44:43.23

>>743
言ってるやつに聞け。

まあどうせ無理だろ？
どうせそいつが言ってるのは、他の部署でも使えるようにしろってことだろうから
業務内容を統一したものに "変更" しないと無理ですとか言っとけｗ

**デフォルトの名無しさん** · 2019/04/18(木) 09:47:38.84

> 横展開出来て再利用性高いものが作れたら作って

↑これ無理なんだよ。

今あるものを再利用性が高いものにすることはできない。
ただし「再利用性が高いもの」を使うことはできる。

どういうことかというと「今あるもの」は再利用できるものと
再利用できないものが合体してる形。

そこから再利用できるものを分離することはできるが
どうしても再利用できないものは残る。

**デフォルトの名無しさん** · 2019/04/18(木) 10:15:32.81

そうやって責務を分離して再利用性の高いライブラリを構築することは可能。
しかし使いこなすのが難しくなる。
依存関係や凝集度をちゃんと考えた良質なライブラリは玄人受けはするだろうけど、
機能が細分化し抽象性も増すから一般人には豚に真珠状態。

**デフォルトの名無しさん** · 2019/04/18(木) 11:53:10.58

まずはモジュール化
その会社の業務内容に合わせて、部署が違っても共通で使える部分をライブラリとして整備する
まあ言うのは簡単だけど、実際に作るのは死ぬほど大変なんで、理想の高さに比例した地獄が待ってるんだけどな

**デフォルトの名無しさん** · 2019/04/18(木) 13:21:10.78

> その会社の「業務内容」に合わせて、「部署が違っても共通で使える部分」

そんなものは存在しない。

業務内容から生み出されている時点で、業務にべったり依存してる。
再利用性の高いライブラリっていうのは、業務内容を切り離している。
業務内容と関係ないから、共通で使える。

**デフォルトの名無しさん** · 2019/04/18(木) 13:36:25.79

自分の理解で合ってるか確認したいんだけど再利用性高いてのは決め打ち無くして例えば引数とかで使えるようにしてモジュールなりを使い回せる状態
だけども再利用性ない部分（呼び出し元？main？）を作らないといけない限りこれ1つあればどの業務、案件でも使える！てことにはならない
ライブラリ化？とか再利用性を高めることは出来るけど中々難しく初心者には険しい
て感じでおけ？

**デフォルトの名無しさん** · 2019/04/18(木) 15:07:10.61

>>750
ライブラリと業務寄りアプリの難しさは別種のもので初心者にはどっちも難しい。
とはいえライブラリは小さな便利ツールをピンポイントで一個一個作っていくことができる点で
ハードルが低い面はある。

**デフォルトの名無しさん** · 2019/04/18(木) 15:19:41.42

無理だと言うやつには無理のんだろう
汎用性の高いのは別に問題ないのでは？エクセル自体はどの部署でも使ってるんだから追加でどこまで機能を絞るか縛りを緩くするかの問題でしょ

**デフォルトの名無しさん** · 2019/04/18(木) 16:05:19.35

プログラム板の他スレじゃ相手にされない半端者がここならドヤ顔で語れるだろうって調子に乗ってて草

**デフォルトの名無しさん** · 2019/04/18(木) 17:34:24.27

他プログラムはサンプルや情報が多いからVBAより簡単に現象を獲得できる

**デフォルトの名無しさん** · 2019/04/18(木) 17:41:24.05

そもそも他言語はシンプルだしVSならガッツリとインテリセンスが効くから簡単に書けて工数も少なくて済む
文法もVBAは難しい部類

**デフォルトの名無しさん** · 2019/04/18(木) 21:55:37.18

難しいというか不合理なんだよな
内包表記やヌル安全やモナドみたいに別に難しい概念があるわけでは無い

**デフォルトの名無しさん** · 2019/04/18(木) 22:12:05.40

完全な言語なんて存在しないし作るのも不可能

**デフォルトの名無しさん** · 2019/04/18(木) 22:18:06.03

>>757
小学生みたいな発想スね

**デフォルトの名無しさん** · 2019/04/18(木) 22:25:43.62

漠然とした話からは何も産まれない

**デフォルトの名無しさん** · 2019/04/18(木) 23:02:30.65

マクロでブック開くと、データ量が多いブックの場合開き終わるまで拘束されてしまう。
開き終わってセルに書き込みできるまでに他の処理をさせたい

if application.Ready=False then
(その間にやる処理)
endif

こんな感じに、開くまでの間になにか処理をさせたいのです。
なにかできる方法があったら教えてください
その重いブックは自分で作ったものじゃなくてすぐに改善はできない状況です
よろしくお願いします

**デフォルトの名無しさん** · 2019/04/18(木) 23:26:59.03

一瞬、マクロを実行するファイルそのものを開く時の待ち時間かと思ったわ。
VBAじゃなくて、VBSで開かせるなら出来なくもなさそうだけど。

**デフォルトの名無しさん** · 2019/04/18(木) 23:32:51.10

VBAやUWSCのプログラムちょっとできる程度なんだが組み込みのソフトウェア部に転身しろと先輩から言われる。
ちなみに今は製造部の使えないやつ扱いをうけている模様。
これは辞めろってことか

**デフォルトの名無しさん** · 2019/04/18(木) 23:38:14.35

>>762
現場が分かるシステムが欲しいんだろう
かなり必要とされてるように見える。行ってみたら良いだろう
いずれ製造なんて自動化でなくなる部門何だしている

**デフォルトの名無しさん** · 2019/04/18(木) 23:39:24.29

>>760
他の処理ってのがExcel操作だったら無理
ExcelはSTAのCOMなので複数のスレッドからアクセスしても常にタスクを直列にシリアライズして逐次処理する
一個の処理で詰まると後が渋滞するだけ
Officeの他のアプリのVBAとかPowerShellとかJSとかVBSとか、別の言語のプログラムをキックして他のエンジンで処理を実行させることは可能
後でウィンドウなりファイルなりにアクセスすれば処理結果も取れるし

**デフォルトの名無しさん** · 2019/04/18(木) 23:42:06.58

>>763
ありがとう。
その自動化するための機械作ってるのがうちの会社なんだよね。
機械のソフトウェアだからCとかパイソンになるのかな？
一応情報卒なんだけど自信ないよ

**デフォルトの名無しさん** · 2019/04/18(木) 23:47:17.30

>>765
何で遅いか調べないの？
外部リンクとか、シート間参照が多いとか

**デフォルトの名無しさん** · 2019/04/18(木) 23:47:45.92

>>765
そうなのか
言語は多分C辺り、pythonは無いと思う
一度面談受けたら？分からない事がさすがに多すぎる

**デフォルトの名無しさん** · 2019/04/18(木) 23:50:56.85

>>766
すまんアンカー間違えた

**デフォルトの名無しさん** · 2019/04/18(木) 23:51:11.62

>>767
Cだよなぁ、ポインタで挫折しちゃったけいけんがあるんだよなぁ。数字の羅列はやってても楽しくないんだよなぁ。グラフィックに実行結果出ないとつまらないんだよなぁ。
でも一生製造で終わりたくはないし…話ししてみようかなサンクス

**デフォルトの名無しさん** · 2019/04/18(木) 23:51:26.61

>>768
ええんやで

**デフォルトの名無しさん** · 2019/04/18(木) 23:59:44.00

>>764
Excel.Application複数起動してもダメなの？

**デフォルトの名無しさん** · 2019/04/19(金) 05:04:11.19

accessのテーブルに接続するデータテーブルをVBAでrefreshallした時に、
読み込み完了前に次の処理に進むのを止めることできますか？
stopで一時的に止めればいけるけれど、読み込み完了後に次処理に自動的に
進めたいです。

**デフォルトの名無しさん** · 2019/04/19(金) 08:11:56.05

>>771
たぶんできる。
>>764は思慮が足らないと思う。

**デフォルトの名無しさん** · 2019/04/19(金) 10:27:04.15

>>773
Excel2010までは簡単だったがExcel2013から複数インスタンスの起動は難しくなったようだな
ただ、所詮重い処理をそのままにして複数起動してももっと重くなるよな

そもそも、重い原因を確認しないと、自動計算を止めれば早くなる可能性もあるが
それをやっていいかもわからん

**デフォルトの名無しさん** · 2019/04/19(金) 11:03:21.04

正直、余計なことをせずに静観しておいたほうが良い気はする

**デフォルトの名無しさん** · 2019/04/19(金) 11:49:18.40

これもそうだな　漠然とした話からは何も産まれない

**デフォルトの名無しさん** · 2019/04/19(金) 13:51:24.35

けどこのスレの人間って、無駄話で罵り合いするの好きだよね w

**デフォルトの名無しさん** · 2019/04/19(金) 14:22:48.38

漠然とした話から連想ゲームして、自分語りを始める
で、好きな事違うから無駄な話が続くんでない

**デフォルトの名無しさん** · 2019/04/19(金) 15:58:50.09

VBA界には有名人がいないから、いじる対象がないってのもある
他言語だとコミュニティの顔みたいな存在がちらほらいるけどVBAは活動自体ないからな

**デフォルトの名無しさん** · 2019/04/19(金) 18:35:20.89

ないねぇ
オープンマインドじゃないし自分の考えが正論だと信じ込んでるから新しい発想は受け入れないもん
全部排除

**デフォルトの名無しさん** · 2019/04/19(金) 19:33:45.34

>>772
解決しました

**デフォルトの名無しさん** · 2019/04/19(金) 21:09:28.46

書道家にWord使ったほうが早いのにとか言っても仕方ないだろ？
VBAは伝統芸能なんだよ

**デフォルトの名無しさん** · 2019/04/19(金) 21:28:42.21

書道家だってWordくらい使うだろ

**デフォルトの名無しさん** · 2019/04/19(金) 21:31:43.30

しょれはどうか？
しょどうか？

**デフォルトの名無しさん** · 2019/04/19(金) 22:09:23.17

>>780
オープンマインドってなんですか？

**デフォルトの名無しさん** · 2019/04/20(土) 00:10:38.45

昇順で並べたデータ（日付など）の変わり目に一行挿入を繰り返すマクロは作れるかな？
セルの差分の列を作って0でないところに行挿入を考えてるんだが、他に何かないでしょうか先生方

**デフォルトの名無しさん** · 2019/04/20(土) 00:19:14.02

>>786
上下のセルの内容が同じじゃなかったら挿入

**デフォルトの名無しさん** · 2019/04/20(土) 00:30:38.72

>>787
これは早速素晴らしい案をありがとう！よほどシンプルに行けるわ

**デフォルトの名無しさん** · 2019/04/20(土) 00:41:38.87

>>788
念の為、
for i 最終行 to 2 step -1
で回すんだぞ

**デフォルトの名無しさん** · 2019/04/20(土) 01:43:17.46

このスレだとプログラマではないひとの質問が書かれるか。

**デフォルトの名無しさん** · 2019/04/20(土) 02:10:30.65

>>789
行がずれるから逆から回すということかな、助かりますありがとう！

**デフォルトの名無しさん** · 2019/04/20(土) 02:37:10.84

>>790
そりゃそうだろう
vba使う層って事務のにーちゃんねーちゃん＋できる営業マンが片手間に使うぐらい

**デフォルトの名無しさん** · 2019/04/20(土) 06:25:29.61

VBAをプログラムだと思ってる人はいない

**デフォルトの名無しさん** · 2019/04/20(土) 07:10:53.95

きみの勝手な思い込みだよ、
と思われたくないなら客観的な根拠をあげた方がいいね

**デフォルトの名無しさん** · 2019/04/20(土) 08:13:49.91

エクセルの画面が右上に飛んで行って、
画面に「どこいくね～ん!」って表示させるのはどうでしょう?

**デフォルトの名無しさん** · 2019/04/20(土) 08:27:11.00

>>779
居るだろ。
君が知らないだけじゃね?
パッと10人くらいは思いつく。

**デフォルトの名無しさん** · 2019/04/20(土) 09:01:22.69

>>796
例えば誰？

**デフォルトの名無しさん** · 2019/04/20(土) 10:40:51.92

>>797
聞いちゃいけない事ってあるだろ、ニタニタで我慢しろよ

**デフォルトの名無しさん** · 2019/04/20(土) 11:00:20.54

どうせtwitterのキーワード検索にVBAって入れて出てきたやつとt.tanakaぐらいだろうよ

**デフォルトの名無しさん** · 2019/04/20(土) 11:38:03.85

Office田中さんはその内の1人だね。
あとはA○○○さん、k○○○○○○さん、魔○○○○○○さん、じ○○○○○○さん、熊○○○さん、K○○さん、き○○○さん、s○○○○さん、y○○○○○○さん、Y○○○○○○さんとか。

き○○○さんは今も活躍されてるけど今は見かけなくなった人が多いけどね。
.netの方へ移動された人もいるし。
ここ数年でVBAやりはじめた人じゃ知らないのも無理無いが。

**デフォルトの名無しさん** · 2019/04/20(土) 11:40:06.78

ああ、A○○○さんはA○○○○さんだった。
今はA○○○○○さんかな。

**デフォルトの名無しさん** · 2019/04/20(土) 11:47:01.11

>>800
T○○○さんもI○○○○さんもいないじゃないか

**デフォルトの名無しさん** · 2019/04/20(土) 11:49:12.54

名前は覚えてないな
サイト見たら大体思い出す

**デフォルトの名無しさん** · 2019/04/20(土) 11:50:13.86

Office田中はサイトの修正点を送っても反映してくれないのがネック
後続のためにも直してくれ～

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

解説系とライブラリ提供系に分けられるがそれなりに有用
しかしコミュニティを形成してるかと言うとちょっと

**デフォルトの名無しさん** · 2019/04/20(土) 12:20:16.39

>>802
I○○○○さんは想像つく。
けど、俺がいた所じゃ見かけたことが無い。
そういやtwitterで発言されてるらしいけど、俺VBA関連はtwitter見て無いんでな。
T○○○さんは想像つかないな。

田中さんは有名人だけどあの人のサイトでは教わることは無いな。
基本的に全て知ってることだから。
でも>>800で挙げた人達は全員俺よりかなりレベルが上だ。

**デフォルトの名無しさん** · 2019/04/20(土) 12:22:08.90

VBAのworksheetfunction.vlookup関数で
該当の値がないときエラーを回避してそこの処理は無視させるにはどんなコードを書けばいいですか？
該当なしだと問答無用でエラーが出て止まってしまう。

**デフォルトの名無しさん** · 2019/04/20(土) 12:27:26.17

>>807
>>423からの流れを読んでね。

**デフォルトの名無しさん** · 2019/04/20(土) 12:29:15.35

>>807
'forなどで回す時はラベル付けて飛ばす
Sub foo()
On Error GoTo err
For i = 1 To 5
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
'エラーじゃない時の処理
err:
'共通の処理。無ければ何も書かない
Next
End Sub

'使い捨てプログラムならonerrorで囲んでしまうという手もあるが、あまりオススメできない
Sub foo()
On Error Resume Next 'エラーを無視
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
On Error GoTo 0 '無視を無効化
End Sub

**デフォルトの名無しさん** · 2019/04/20(土) 12:43:34.58

>>809
お前ね何度書けば・・・
Sub foo()
On Error GoTo err
For i = 1 To 5
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
'エラーじゃない時の処理
goto 共通
err:
ERR時の処理
共通:
'共通の処理。無ければ何も書かない
Next
End Sub

**デフォルトの名無しさん** · 2019/04/20(土) 13:02:36.97

>>810
ちゅまん

**デフォルトの名無しさん** · 2019/04/20(土) 13:23:10.42

>>811
てか、WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
見過ごしたけど、これ何？

**デフォルトの名無しさん** · 2019/04/20(土) 14:04:44.42

>>812
引数を適当に入れただけ

**デフォルトの名無しさん** · 2019/04/20(土) 14:36:59.58

>>807
Trueならエラー起きないんじゃない?

**807** · 2019/04/20(土) 15:39:14.34

on errorはセンスがないように感じるのですが。
わたしのセンスがon errorを使うことを許しません。
どうしたらいいですか？
こんなとき定番のような方法はないですか？

**デフォルトの名無しさん** · 2019/04/20(土) 15:49:30.44

on errorで問題ないならそれで良いじゃん
そんな瑣末な事に時間を使わずにもっと生産性のある事に時間を使って組織や社会に貢献して下さい

**デフォルトの名無しさん** · 2019/04/20(土) 15:56:13.97

On Errorを使うのがセンス無い?
何処の初心者だ?

想定された動作なのに一緒くたにするのが嫌というならOn Errorの使い方を知らないだけだろ。

**デフォルトの名無しさん** · 2019/04/20(土) 15:56:41.52

>>815
センスとか気になるならVBAに関わるのは止めた方が良いよ

**デフォルトの名無しさん** · 2019/04/20(土) 15:58:32.36

>>815
ID:9HZyCDJwのキチガイが起こってるぞw

**デフォルトの名無しさん** · 2019/04/20(土) 16:10:16.59

>>819
センスの無いお前には言われたくね―なw

**デフォルトの名無しさん** · 2019/04/20(土) 16:44:47.04

vbaにtrycatchが無い以上、onerrorで分岐するしかない
ただ今回に限って言えば、ワークシートにvlookup()を入れてその結果で分岐させることは可能

**デフォルトの名無しさん** · 2019/04/20(土) 17:45:57.42

こんな方法もある

Range("Z1") = WorksheetFunction.VLookup( 略 )

結果をどこか空いてるセルに入れてしまえば、エラーでも止まらずに結果を判定することができる
もうひとつ、試したことはないけど

WorksheetFunction.Iferror( WorksheetFunction.Vlookup ( 略

みたいな方法でもエラーで停止するのを回避できそうな気がするけど、Vlookupで止まるかなあ

**デフォルトの名無しさん** · 2019/04/20(土) 17:53:15.47

>>822
間違えた
こうだった
Range("Z1") = Application.VLookup( 略 )

**デフォルトの名無しさん** · 2019/04/20(土) 17:58:05.16

ちゃんとエラー番号調べて処理すりゃ良いだろ

**デフォルトの名無しさん** · 2019/04/20(土) 18:00:15.98

>>823
なんでセル
変数でいいじゃん

**デフォルトの名無しさん** · 2019/04/20(土) 19:12:25.83

じゃあLeft Outer Joinで。

**デフォルトの名無しさん** · 2019/04/20(土) 19:43:05.64

>>807
・VlookupじゃなくてFindを使う
・事前にcountifとかエラー値が返らないもので存在確認してから使う
・worksheetfunctionの代わりにApplication.VLookupを使うと見つからなかった場合N/Aが返るが、旧バージョンの命令だからあまりおすすめしない

**デフォルトの名無しさん** · 2019/04/21(日) 10:03:39.80

質問者は、もっと具体的に書くべきだな、対応方法は多種多様にあるから
質問に対するベストな回答が、質問者の意図するベストの回答とは限らん

**デフォルトの名無しさん** · 2019/04/21(日) 15:50:42.83

もうね、On Error Resume Nextが嫌とか、宗教だと思うんですよ。

**デフォルトの名無しさん** · 2019/04/21(日) 15:59:22.44

んて訳の分からん面倒なコードを書くとかキチってるよね

**デフォルトの名無しさん** · 2019/04/21(日) 16:03:59.70

>>829
でも配列の次元すらOn Error 使わないと求められないってひどくないですか？

**デフォルトの名無しさん** · 2019/04/21(日) 16:50:25.73

>>831
何も分かってないんだから大人しく使いなよ