Excel VBA 質問スレ Part63

2019/09/16(月) 19:34:59.04

!extend:checked:vvvvv:1000:512

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

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

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

2019/09/21(土) 08:35:41.78

abcdefg

2019/09/21(土) 12:12:30.41

>>45
ページの作りによる。
例えばあなたは20件ずつなどと言っているけど、URLの入力など次第で200件全部表示できるかもしれない。
スクロールが必要かも分からないがSendkeysなんて使うのは子供と考えて良い。

2019/09/21(土) 13:08:32.19

>>47>>49
レスありがとうございます。
私もSendKeysは使いたくなかったので質問した次第です

> ページの作りによる。
ターゲットサイトは、ｄアニメのランキングのページです。
https://anime.dmkt-sp.jp/animestore/CR/CR00000013_001

ここからランキングのデータを抜き出して来ようと思ってますが、20件ずつしか表示されず…
何かいい方法はないでしょうかねぇ

2019/09/21(土) 13:10:12.33

あーざーやーかーにー
いーろづいたっ

2019/09/21(土) 15:10:34.25

うちの会社に、元SEでVBAバリバリ書ける、という人が
入ってきたんですが、色々Excel作業の自動化をお願いするために
現行の作業手順をお見せしたら、「ここの、Excel関数を使っているところは
意味が分からないので、関数の使い方から説明してください。」といわれ、
VLOOKUPとは、からお話ししないといけないそうで、もう自分でVBA
書こうかと思ってしまいます。
はじめはこういうもので、すぐ慣れてくれるんでしょうか？
「SEの資格」を持っている、という触れ込みの、部長の知り合いなので扱いは
要注意なのです。はぁ。

2019/09/21(土) 15:31:27.17

経歴詐称があった場合、解雇はできるのか

結論から言うと、解雇できる場合もあればできない場合もあります。
一口に経歴詐称といっても、軽微なものから重大なものまであり、全てのケースで解雇が可能とすることは合理的ではないからです。
解雇ができるケースは、「重要な経歴」を詐称されたときに限られます（重要な経歴とは何を指すのかは下記で説明します）。

職歴に関する経歴詐称

職歴を詐称していた場合は、採用後の仕事の内容、賃金に直接影響を及ぼすもののため、重要な経歴を詐称していると判断される可能性が高いと言えます。
判例では、グラバス事件（東京地判平成16年12月17日　労判889号52頁）があり、プログラミング能力がなかったにも関わらず、あたかもスキルがあるかのように経歴書に記載。
採用面接でもそのように説明して、ソフトウェア会社に採用されたが、経歴詐称を理由とする懲戒解雇が認められたという事例があります。

2019/09/21(土) 15:53:55.16

そもそも触れ込みから嘘だったのかまで疑ったらキリがないから、そこんとこは何とも言えないけど、
元SEが本当なら、少なくともVB（VBAじゃなく）は書けるけど、普通のオフィスワークはあんましてこなかった、とかじゃないの？
そんな感じのSEさんと一緒に仕事したことはある。ちょっと教えてあげたらあっという間に習得したけど。
でもやっぱ利用頻度の低い関数（LOOKUP系）や若干特殊な使い方（SUMPRODUCTを複数条件の判定や抽出に使うとか）には苦慮してた。

2019/09/21(土) 16:00:48.34

>>52
バリバリ書けるSEならExcelの基本的な関数ぐらい自分で調べられるものだがそれすらできないのはバリバリ具合すら怪しい予感

2019/09/21(土) 17:02:09.02

>>52
バリバリのエンジニアがVBA使う仕事に応募なんてしません

2019/09/21(土) 17:12:54.75

>>52
そもそも謎の「SEの資格」とか言ってるお前も似たようなもんだろ…

2019/09/21(土) 17:23:57.08

知らないことを知らないと言えるやつはまだ大丈夫だわ
ホントにやばいやつってのはな・・・

2019/09/21(土) 21:02:04.95

もちろんできますよ大丈夫です（やべっ何もわからん　どうしよー）

49 (ｽﾌｯ Sd22-plfC) · 2019/09/21(土) 21:13:01.51

>>50
スクロールしないで取得したかったんだが解析面倒で断念。
スクロールはSendkeysではなく、HTMLWindow2のscrollToなどを使う。

https://pastebin.com/V7S3XW71

2019/09/21(土) 21:14:21.75

VBAって必要になったら都度気合いで調べながら書いて、しばらく書かない間に忘れてまた必要になったらまた調べて覚え直すってことを繰り返してる気がする

**デフォルトの名無しさん** (ｽﾌｯ Sd22-/N/j) · 2019/09/21(土) 21:59:24.26

>>52
VBA使いでExcel関数を使わない人もいるからな。
俺はどっちも使うけど両方同時に使うのは避けることが多い。

**デフォルトの名無しさん** (ｽﾌｯ Sd22-/N/j) · 2019/09/21(土) 22:06:05.25

>>59
簡単にそんなこと言うと、その時点でバレるぞ。
普通は分かってたら詳細や、かつてその技術でハマッた体験談を語るもんだ。

2019/09/21(土) 23:00:31.94

あいうえお

2019/09/21(土) 23:30:08.68

>>60
> スクロールしないで取得したかったんだが解析面倒で断念。
> https://pastebin.com/V7S3XW71

おお、わざわざここまで！
大変お手数をおかけすることとなってしまい、申し訳ないやら嬉しいやら…ありがとうございます！！

> スクロールはSendkeysではなく、HTMLWindow2のscrollToなどを使う。
最近、ネットのブログなどを参考に
見よう見まねでExcelのVBAとIE操作を両方一緒に始めたのですが…

ループで200項目取り出すまでの条件の書き方、スクロールの書き方、すごく参考になります！
ランキングデータの取り出し方…、ここまでシンプルに書けるものなんですね！！

恥ずかしながら、まだオブジェクトとかコレクションとかアイテムとかがごっちゃになってて頭で整理できておらず
文法エラー（？）の嵐に悩まされつつコードを書いてる段階で…"ChildNodes"とかもまだ使ったことないです…

本当に感謝です。

2019/09/21(土) 23:32:05.21

また幼稚なゆとり世代馬鹿か

2019/09/22(日) 05:33:04.20

他人の批判しても成果はあがらない

2019/09/22(日) 17:46:57.02

凄く基本的な質問だと思うのですが、
Range("A1".Offset(0,12)).Activate
はだめで、
Range("A1").Offset(0,12).Activate
が正しいのはなんでなのでしょうか？

2019/09/22(日) 17:53:07.62

>>68
VBAでそのへんを正しく理解するのはまず不可能だしその必要もないから、定型句だと思って暗記しなさい
ちゃんと理解したかったらJavaのようなきちんとしたオブジェクト指向言語を学ぶことをお勧めする

2019/09/22(日) 18:49:17.99

>>68
引数が間違ってるから

2019/09/22(日) 19:59:23.95

>>68
一番目の式の方は、"A1".Offset(0, 12)という表現がVBAの構文上無効で何も値を返さない式になっている
なので、参照先のセル範囲の名前をバリアント型の引数として要求しているRangeプロパティ式の評価に失敗してしまい、Rangeオブジェクトの取得にも失敗する

文字列や数値のリテラルに.(任意の値)と続けて何らかのオブジェクトにアクセスしようとしても、そもそもそのようなアクセスルールが定義されていないので当然失敗する

反対にRange("A1").Offset(0,12)の方は構文上無効な表現がなく、RangeオブジェクトのメンバのOffsetプロパティ式を正しく用いているので、Offsetプロパティを介してA1セルから12列分座標移動したセルを取得することができる

2019/09/23(月) 08:06:29.00

なにぬねの

2019/09/23(月) 08:16:13.52

VBAのリテラルはメンバを持たないから
他言語だと型変換とかあるんだけど

2019/09/23(月) 14:19:12.95

リテラルがそのままstring型オブジェクトとして使える言語だとメンバアクセスできて楽だよね

2019/09/23(月) 21:03:41.25

たちつてやと

2019/09/24(火) 00:09:46.67

VBEはインテリセンスがクソ

2019/09/24(火) 00:31:17.33

VBEは静的に型判定できるリテラルくらいハイライト表示対応してくれと思う

2019/09/24(火) 01:28:17.40

そもそもExcelのおまけ機能だし

2019/09/24(火) 12:36:08.37

はひふへほ

2019/09/24(火) 12:41:06.36

イミディエイトとローカルのウインドウ、上下にドッキングしてしまったのだけど、左右にドッキングするようにはどうすればいいのだろう…

49 (ｽｯｯﾌﾟ Sd22-/N/j) · 2019/09/24(火) 12:46:55.24

>>80
ドラックすれば良いんじゃない?
位置調整は難しい場合があるけどウィンドウ枠の表示が変わった時に離すとドッキングするから試行錯誤してみれば良い。

2019/09/24(火) 12:57:05.92

やいゆえよ

2019/09/24(火) 16:39:46.34

いきしちにひみいりい

2019/09/24(火) 19:07:39.27

>>80
移動させる時に判定のシビアなガイド枠みたいなのが出るから置きたい位置にハマるまで頑張る

2019/09/25(水) 00:27:11.58

VBAの代わりにPython実行環境を取り込む動きがあるらしいね
もしそうなったらVBA界隈の閉塞感も変わるかな

2019/09/25(水) 06:45:55.03

まじ？
エクセルやってる一般社員様がpython始めたらどうなるんだろ

**デフォルトの名無しさん** (ｽﾌｯ Sd22-k+x8) · 2019/09/25(水) 08:47:00.45

おっぱいでexcelを自動化する

2019/09/25(水) 09:19:56.07

Pythonエンジン搭載は色んな理由で見送られたはず

2019/09/25(水) 13:51:45.80

>>85
未だにこういう馬鹿がいるのか

**デフォルトの名無しさん** (JP 0H4a-tMNN) · 2019/09/25(水) 17:46:53.71

Python搭載は見送られて代わりにJavaScriptが搭載されるという記事をどこかで見かけましたが。

どなたか>>46わかるかたお願いします。

2019/09/25(水) 19:10:29.50

>>90

>>89
>>未だにこういう馬鹿がいるのか

2019/09/26(木) 00:31:10.28

jsだったらgasと同じような感じになるのかな
gasはそもそもスプレッドシート自体の機能が物足りないからイマイチだったんだけど

2019/09/26(木) 00:57:48.08

これからJSエンジンが実装されるならTypeScriptベースで型付け強制になるだろうな

2019/09/26(木) 20:07:07.87

.ClearContents と .Value="" では実行後のセルの状態は異なりますか？

2019/09/26(木) 20:28:04.65

何も載らないよ
Excel自体クラウド上で使うようになってきてるから
マクロみたい使うならJavaScriptなのかもね

2019/09/27(金) 06:06:27.72

きーよしー
こーのよーるー

2019/09/27(金) 07:55:16.60

ハーゲーはー　ひーかーり

2019/09/27(金) 08:22:15.68

最近はExcel操作のためにVBAを使うのはもうなんか最後の手段って感じがする
PowerQuery(M言語)、PowerPivot(DAX)、JavaScript、Python、PowerShellのどれかで書く方が楽だしメンテも簡単

2019/09/27(金) 08:43:34.46

趣味が大がかりになってきて使う材料の管理が煩雑になってきたのでExcelを使って管理しようかなと考えています

工程が1,2,3…とあって、それぞれの工程で使う部材は今のところ重複はなく(今後どうなるかわからない)部材毎に色違いやグレード違い等の派生品があり、
用途としては工程毎に使う部材を別シートにリストアップしたり、規定量を割ったものをピックアップ
部材の管理番号を振るとき
番号は工程や派生に関わらず一列で一意の連番
3列で工程ｰ工程内の部材を連番ｰ派生を枝番
工程に関わらず部材毎に連番ｰ派生品を枝番
マクロを組むときこれらのうちどうするのがよい構造になるでしょうか？

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-mDN4) · 2019/09/27(金) 09:04:03.76

まず3行にまとめます。

2019/09/27(金) 12:08:52.99

RDBSを使って合成テーブルを作ります

2019/09/27(金) 21:25:04.26

>>98
Excelデータ操作するのにか！？

2019/09/27(金) 21:29:52.64

確かにvlookup関数もCで作ったほうが処理速度速いですし

2019/09/28(土) 01:10:35.83

>>102
情報取得とかテーブル加工とかならVBAよりQueryTable）PowerPivotの方がよっぽど速いし型安全にデータ処理できる
数万行以上のデータのリレーション構築とテーブル加工をVBAやWorkshhet関数で実現するとか正気の沙汰じゃないぞ

2019/09/28(土) 07:02:49.99

なんか齢50近くになると新しい言語？を知らない…power query？power pivot？
…後で調べてみないと…

2019/09/28(土) 07:36:24.34

Ｍ言語ってどうやって勉強するのさ
英語の本け？

2019/09/28(土) 08:34:58.34

>>106
マイクロソフトが仕様書公開してる

2019/09/28(土) 09:58:25.05

>>106
MSが仕様公開して言語レファレンスまで作ってる
開発&実行環境はExcelのPowerQueryに付いてるので特に余分なものは要らない

2019/09/28(土) 14:02:31.05

>>99
一番目の方法でまず一意のIDを持つ部材のマスタを作った方が良い
その上で、派生関係や使用工程は列を分けて部材マスタの属性値として管理する
そうすれば各使用工程で使う部材を抽出するビューが漏れなく簡単に作れるし、部材データの追加も容易

何故他のやり方が良くないかというと、使用工程や派生関係を管理番号で構造的に表そうとしても、一対一の親子関係から外れる複合的な派生関係の表現が難しいし、複数の工程にまたがって使用する部材が登場した場合の付番がとても困難だから

2019/09/28(土) 16:34:58.82

↑仕様もわからないのに勝手に決めつける馬鹿

2019/09/28(土) 17:19:26.34

>>110
データ活用のシナリオの説明もある程度書いてくれてるし、3パターンの中からオススメを選んで教えてくれと言われてるんだから根拠を示しながら回答するのはOKだろ

2019/09/29(日) 08:21:00.73

馬鹿と言いたいだけの馬鹿は相手にしなくていいよ

2019/09/29(日) 09:41:07.61

> 馬鹿と言いたいだけの馬鹿
>>112の悪口はやめなよ

2019/09/29(日) 10:19:36.85

今、困っていることがあり教えてください。

Excelをオープンした時に、入力規則のリストが設定されているセルに
VBAでリストにある文字列を張り付けるとリストが解除されてしまい困っています。
ただ、Excelを既にオープンしている状態であれば、VBAで文字列を張り付けてもリストは解除されません。
Excelをオープンした際の文字列貼り付けでもリストを解除しない方法、何かないでしょうか。

2019/09/29(日) 11:49:35.55

>>114
試してないから自信はないけど配列に文字列の値を格納してからコピー先セルに一括代入してみたらどうかね

2019/09/29(日) 12:33:57.48

計算方法の自動手動を切り替えるとか
doeventsを挟むとか
入力規則を消去して再度設定してみるとか

2019/09/29(日) 13:40:07.40

>>115
適当な配列を用意して、1要素に代入したい文字列を格納した後、該当セルにコピーしたが駄目でした。
もしかして、一括代入の意味の捉え方誤っていますでしょうか？

>>116
計算方法を手動にしてもdoevent挟んでも駄目でした。
入力規則の再設定は大丈夫でしたが、再設定しか駄目なんですかね。

2019/09/29(日) 16:27:33.03

再設定で目的が果たせるならそれでいいんじゃないの
気に入らないかもしれないけど

2019/09/29(日) 19:28:31.60

>>118
目的は達成できるのですが、どうしてそんなことが
起きているのか気持ち悪さが残ってしまって・・・

ひとまずリスト再設定で回避してみようと思います。
皆さん、ありがとうございました。

2019/09/29(日) 20:52:21.32

１ステップずつ何が起こってるか確認してみた？

2019/09/29(日) 21:37:57.26

ウォッチ式で入力規則が無効になった瞬間を捕まえたらどのステップで問題が起きてるか分かるよ
あとApplication.EnableEvents=False の状態で入力規則が無効化する症状が同じように出るかどうかを確かめると良いかも
副作用あるから気を付けた方がいいけどね

2019/09/29(日) 22:03:13.06

デバッグは大事

2019/09/29(日) 23:10:51.27

Worksheetの表示を縮小したときに名前をつけた範囲名が青文字で表示されますが
あれを縮小表示なしに表示するメソッドとかないですかね？
なければ諦めて作ろうと思って、、

2019/09/30(月) 09:40:08.63

以前の勤務表の作成についての質問をしたものです。

指定範囲に対して条件を参照して自動で勤務を組むにはどのようなコードが使えますか。

2019/09/30(月) 09:44:23.17

その通りにコードを組めばいいです
よかったですね

2019/09/30(月) 14:06:19.14

そこまでくると質問というより代わりに作ってって感じな気がする

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-C0+4) · 2019/09/30(月) 14:27:24.46

15万ぐらい払えば作ってくれるよ

2019/09/30(月) 18:03:03.23

任意のフォルダを開きたいくて、そのファイルのパスが
A1に書いてあるときにどんなコード書いたらできますか？だれか教えてください。お願いします🥺

2019/09/30(月) 18:38:27.74

え？ｗ>>124見たいな糞簡単なの作って15万???
うそやろｗｗｗｗｗ

2019/09/30(月) 19:38:06.65

>>128
ファイル形式は？

2019/09/30(月) 20:42:31.76

>>128
次から次へと現れる馬鹿

2019/09/30(月) 21:02:52.82

>>128
フォルダのフルパスがA1セルに入っているなら、

Shell Range("A1").Value, vbNormalFocus

と書けばとりあえずフォルダを開くことはできる
開いたフォルダの中のファイルを選んで何らかの操作をしたいならファイルそのものを掴む別の工夫が必要

2019/09/30(月) 21:15:26.21

.Findで検索するマクロ作ってるけど死にそう
全シート検索で結合セル気にしないでいい方法ないですか
一致したの全部もれなくとるだけなのに
なんでこんな大変なんですか

2019/09/30(月) 22:05:40.31

>>133
何がそんなに大変なの？

2019/09/30(月) 22:43:31.23

初回検索と次項目の検索が別メソッド
検索したあとに問答無用で一周して戻ってくる謎仕様
結合セル最初に見つけたら２週目で見つけられなくて死亡
最初から検索しようとしたら最初の次のセルから開始という超絶理不尽仕様
最終セル開始点にしようとしたら最終セルが結合セルで死亡

2019/09/30(月) 22:55:52.56

http://dsp74118.blogspot.com/2014/08/excel-vbarangefind.html

ってこれなに
うそだろ

2019/09/30(月) 23:15:22.35

あるシートから10000行程クリップボードにコピーして別シートに行挿入する事を10回程度繰り返すマクロがメモリ不足で停止してしまいます。
エクセルは32bitですがメモリ使用量は2.5GB程度、使用率は80%程度なので余裕はあります。
コピー&挿入だけでこんなにメモリ食うのは想定外だったのですが何か良い対策ありませんか？
クリップボードを使ってる理由は書式もコピーしたいからです。

2019/10/01(火) 00:40:37.46

>>137
結合セルがない場合で、書式が行列で統一的に構造化されている(=手動でランダムに設定された書式がない)場合の話だけど、セルの値のコピーはクエリテーブルを使い、セル書式はスタイルとして登録しておいて値をコピーしたあとにテーブル単位で適用するようにする

それができないなら常套手段的な対策として、描画停止、セルの自動計算の無効化、一度のコピー行数の抑制、コピーする情報の量の削減(列を減らす、セルに入れる値の文字列長に上限をつける等)をやるしかない

2019/10/01(火) 00:48:34.75

>>135
検索対象のセル範囲でループを回して、MergeAreaプロパティから取得できる結合範囲の第一セルの値に対してInStr関数でチェックをかけるほうが簡単に実装できる
一度触った第一セルをDictionaryに突っ込んでおけば重複回避の処理も簡単に書けるし

2019/10/01(火) 02:44:48.32

1000行を100回にすれば解決する気がする

2019/10/01(火) 20:19:29.97

>>137
想定して最初から設計しなおした方がいいんじゃね

2019/10/01(火) 20:26:17.87

>>137
一度に全部やらず少しずつやるとか、挿入やめて別シートに貼り付けていくとか

2019/10/01(火) 23:46:40.82

vbaできる人は何歳くらいの方が多いのですか？

2019/10/01(火) 23:51:07.99

100才。
きんは100才100才。ぎんも100才100才。
もう死んじゃいましたけど。

2019/10/01(火) 23:51:51.43

いまは中曽根元首相が100才だよ。

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-S/NQ) · 2019/10/02(水) 10:56:45.47

>>145
もう101歳になった

2019/10/02(水) 16:36:11.08

100才くらいなら健康でも1年後にもまだ生きてる生存率は50%くらいだよな。
そろそろ死神のお迎えがくるかな。