Excel VBA 質問スレ Part75

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-wadS) · 2022/02/09(水) 14:24:32.62

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けるナリ

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

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

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

2022/04/20(水) 00:24:45.89

>>887
馬鹿が悔しくて質問か？
除算で1÷3だったらどうなると思う？

2022/04/20(水) 00:37:19.89

>>887
除算した結果をどうしたいのかによる
結果を他の数値と比較したいのなら、比較したい数値に除数を掛けて比較する

2022/04/20(水) 02:03:14.67

実際のところ除算の丸め誤差が問題になることは少ない
数値計算では有効数字と桁数さえ把握していれば十分な精度で演算できる
というか浮動小数点だろうが固定小数点だろうが四捨五入すれば必ず丸め誤差は発生する
むしろ浮動小数点を扱う場合は桁数の差が大きい数値を加減算する時の情報落ちと、値が近い数値同士を減算する時の桁落ちの方が厄介

2022/04/20(水) 02:16:34.57

>>889
分かりにくかったらごめんなさい
・数十行(場合により数百行から千行弱)の作業計画表があってそれぞれ開始日、終了日、工数を作業担当者が決定し、それとは別に納期を設定します
・各行では作業日数を算出し、工数を日割り計算し、小数点第二位で四捨五入、最終日に余りを加算して進捗の計画とします
・作業担当者は日毎に各項目の進捗率を入力します
・作業担当者はこのファイルとは別に上位工程担当者との連絡シートを更新し、そこで発生する追加工数などをこのファイルで読み込みます
・上記データを元に様々な演算を行い、納期に対して進み見込みか遅れ見込みか、またそれが何日の見込みかを算出します
・結果を当初計画、進捗実績および予測、納期などをグラフで可視化

という仕様のツールなのですが２つ目のあたりで余計なズレが発生して演算が狂ってしまう場合があり、
currency型に値を放り込んで強引にズレが生じないようにしているのが現状です
100%発生するのではなく20物件に1件程度の発生率なので如何したものかと頭を悩ませております

2022/04/20(水) 04:15:00.17

>>891
算数わかる？

2022/04/20(水) 06:42:44.94

>891
２つ目のあたりというのがよく分からないけど箇条書きの２段目の項目のことなら処理の仕方が間違ってる
最後に余りを足すなら途中経過はすべて切捨てで処理、途中経過を四捨五入するなら全ての累積値を最後に被除数から引いて加算値を求める
どちらかで処理しないとズレるのは当たり前

2022/04/20(水) 07:19:32.03

Currency型てのは誤差が出ないわけじゃなくて精度が固定されてるっていうことなんだけどな
そもそも工程表程度の精度で浮動小数点の誤差が問題になることなんてないだろうに
どうしても誤差が気になるなら割り算を商余で表現するとか演算順序の見直し（割り算を最後に）

2022/04/20(水) 07:23:24.83

>>893
余りは工数-日毎工数x作業日数で算出していましたが処理が違いますか？
勿論この場合余りが負の値になる状況もあるので正確には余りとは違う表現をするのが正しいのですが
これで算出した最終日の工数が3.5hになるべきところが3.49999hになるのは計算式の誤りですか？

2022/04/20(水) 07:34:26.59

>>895
最後に小数点以下第二位で四捨五入すればいいじゃん

2022/04/20(水) 07:40:54.07

>>895
どこでどれぐらい誤差が出るかは元データと計算式とデータ型によるから、その情報だけではどこが悪いか判断できない
工数は小数点以下第何位まで入力されてんの？

そもそもデータが1000行しかないんなら別にCurrencyのままでいいじゃん
仕事の目的はプログラミングじゃないんだから、結果がちゃんと出たんなら現時点ではそこで終わっとけ
誤差の処理をちゃんとやうとすると情報サイエンスの基礎をみっちりやらないと無理だから、今回の件とは別に自宅で時間かけて勉強しろ

2022/04/20(水) 07:47:48.41

>>896
四捨五入した値をdouble型に代入した際にもこの誤差が発生する場合もあったのですがその場合の対処はDoWhileで数値が丸められるまで四捨五入を繰り返す処理を噛ませれば良いですか？
それよりcurrency型に代入した方が処理を省略できるのではないでしょうか
担当者の癖や上位工程担当者の癖、物件の種類などを加味して分析して完了予測を出すためツール全体で2万弱のステップ数があり、可能な限り処理を早めたいです
まぁそんなの誤差の範囲じゃんとかもっと別に短縮出来る所あるだろって言われたらそれはそうってなるんですが

工数は小数点第一位までの入力です

2022/04/20(水) 08:21:13.14

>>898
10進数の0.1は2進数だと循環小数になるんだわ
Doubleは単に桁数が増えるだけで誤差がなくなるわけじゃないから、たぶん根本的に理解が間違ってる

2022/04/20(水) 11:58:28.08

>>898
そもそも何が問題かわかってる？
コンピュータ(VBA)の割り算では例えば0.999999とかになる問題は常にあることと、有効桁数を常に頭に入れてロジックを組む必要がある
割り算した結果の少数点同士の足し算もできるだけ避ける
小数点以下は一桁と決まってるなら最初から10倍しといて見せる時だけ小数点を付ける
最終的に割り算したら四捨五入する
などなど当たり前のことをわかってないから数値が合わないように見える
こんなの基本だが

2022/04/20(水) 12:03:05.91

それと、変数や定数、埋め込み数値の型に気を付け、違う型同士の演算ではどういう結果になるかも言語の仕様を常に調べるのは当たり前のこと

2022/04/20(水) 12:14:09.69

>>901
なるほど！さすが物知りですね！
でもここは質問スレだからもう少し人には優しくしてくださいね

2022/04/20(水) 12:39:04.97

プログラムの本質からは外れるけど、現場の工場要員を秒刻みで拘束することに繋がるのを
把握しておくべき　上の方の役員からの指示でのシステム構築なのか、現場の意見を汲んだ
システム化なのかでも変わってくるかも知らんが、古来そういうのは運用し出してから破綻する
相手がロボットならまだしも、自分だって作業を秒刻みで拘束されたら嫌気さすだろうに
システム構築する側の自己満足に過ぎないような無駄なヶ所に注力したところで給料泥棒化するだけ

実際には不良(材料不良・加工不良・落下などの破損・etc)が出たり加工機械の不具合で作業がSTOPしたり
余った時間をバッファに充てるだけじゃ無くて、敢えて余裕をもたせたプランニングを意識しないと
全社員から反発くらって、せっかくの仕事が無かったことにされる　黒歴史の予感しかしない
ロボットやオートメーション機器のためのプログラムだとしたらVBAは間違ってると思うし

2022/04/20(水) 13:55:16.24

>>900
浮動小数点数は特定の桁数の2進数で表現できる数字に丸める表現方法で、10進数の有効桁数は関係ないんじゃ？
そもそも「有効桁数を頭に入れて〜」みたいな正確さを考えて使う型じゃなくて、曖昧で良い場合に使う。

小数同士の演算は（オーバーフローを無視すれば）固定小数点数で問題なく行えるから避ける必要ない。

2022/04/20(水) 13:58:17.02

基本は大事だから
何度でも繰り返しておくんなまし。

2022/04/20(水) 14:12:37.06

質問ですが、
VBAからwebページのデータを取得するとき、
CreateObject("InternetExplorer.Application")とかってやりますが、
サポート終了後はどうなりますか？

Edgeでできる？

2022/04/20(水) 14:45:20.55

>>906
Selenium Webdriver

2022/04/20(水) 15:54:04.07

>>906
当分サポート終了はないけど、そうなったらできなくなる。
Edgeじゃできないから代替案を考える必要がある。

有名なのはSelenium、Chrome DevTool Protocol

前者はライブラリ（参照設定する奴）を利用者全員にインストールしてもらい、
更にブラウザとのバージョン互換性にも対応する必要がある
ただし動作環境はエクセルのみっていうVBA最大のメリットを失う

後者は単独で動作するモジュールが作られてる

VBA以外の言語の開発環境があるなら、
スクレイピング部分はそれで作成してVBAから呼び出すって方法もある。
自分はそうしてるよ

2022/04/20(水) 15:57:01.62

edgeじゃできない、は
CreateObject("InternetExplorer.Application") を使ってedgeを操作できないって意味ね
だからseleniumとかでedgeを操作することになる

2022/04/20(水) 16:15:46.15

>>904
わからないなら黙っていればいいのに

2022/04/20(水) 16:20:42.29

固定小数点は格納するたびに四捨五入するようなもんだから誤差の蓄積は多いが
人間社会ではコレをヨシ！としているから問題ない
天文学的な計算では命中しないだろう

2022/04/20(水) 16:26:01.75

>>907
ありがとう。

2022/04/20(水) 17:45:44.86

>>911
>固定小数点は格納するたびに四捨五入するようなもん
もってる精度の桁数を超えない限りそんなことはないわ
想定する桁数内で誤差がでないから固定小数点使うんだぞ
逆に一般的なプログラム言語の浮動小数点は小数以下桁数が浮動する癖に0.1が正確じゃなかったりするから問題なんだよ

2022/04/20(水) 19:09:32.27

0.1は0.1だよ

2022/04/20(水) 19:25:53.48

0.1E+15
桁数は10の15乗の1京
有効数字は1桁の0.1
値は1000兆でも数値は0.1

2022/04/20(水) 19:43:46.55

Trunc関数で不要な桁をバッサリ逝けば良いんじゃない？

2022/04/20(水) 20:09:02.82

>>908
ありがとうございます。

iMacrosってのを試してました。

Selenium、Chrome DevTool Protocolを調べてみます。

Excelで入力ダイアログボックスを出して、入力した番号に応じて、そのページのデータを取りに行く、
ってことがやりたいです。

言語はなんでもいいですね。
できれば、Visual Studioを使いたいですが…ｗ

2022/04/20(水) 20:56:24.65

なんだIEEE754仕様問題の話題か。
10進と16進(2進)の浮動小数差異が出るのはまぁある意味仕方がない。
固定小数点の型を持つ言語を使うか、割る前に何桁か分10のべき乗数を掛けて割った後に同じだけ割ってやって適当なところで諦めるか、というところが落としどころだろうね。

ちなみにEXCELの数式の四捨五入は本当に四捨五入だけど、VBAの四捨五入は銀行丸めだから気をつけてね。

2022/04/20(水) 21:03:02.83

因みにパワクエも銀行丸め
いい加減統一して欲しいわ

2022/04/20(水) 21:09:55.19

四捨五入はRound使わなくてもできるらしいで
知らんけど

2022/04/20(水) 21:17:52.87

>>906
おれも心配してたけどオートメーションの場合は6月以降も使えるらしいな

2022/04/20(水) 22:25:36.74

>>918
暗黙の変換（丸め）を四捨五入というのは問題があるかと

2022/04/20(水) 23:37:18.06

>>922
何故に暗黙の変換限定の話と思ったのかは分からないけど、型はなるべく明示的に変換しないとね。
その辺、VBAはOption Strict Onが使えないから大変。
もっとも、.Netでも匿名型を使うメソッドは固めてOption Strict Offに設定したモジュールに突っ込んでおく必要があるけど。

2022/04/21(木) 17:21:20.11

ああ、そうだな。Cxxxで明示的に型変換しても銀行丸めだから
暗黙の変換に限った話ではなかったな

匿名型のくだりは何を言ってるか意味不明だがな
匿名型は名前がついてないだけで厳密に型指定されているんだが

2022/04/21(木) 23:11:20.77

CcxxとかじゃなくてもRound使ったって普通に銀行丸のだろ

2022/04/22(金) 02:09:40.61

ワークシート関数のROUNDは四捨五入
VBAのRound関数は銀行丸め
VB.netのMath.Roundメソッドも銀行丸め
これ真面目な話テストに出るし実務でもトラブルの元だからちゃんと覚えて使い分けろよ

2022/04/22(金) 08:50:16.15

そもそも四捨五入や銀行丸めは暗黙の(型)変換でも何でもないけどな

2022/04/22(金) 12:17:14.78

VBAの四捨五入は型変換でやるもんだと思ってるんだろ

2022/04/22(金) 12:26:05.45

VBAで全ての物事を解決したいと考えています。
まずはOCRからやっていきたいです。
次に、人工知能とビッグデータに関する VBA のライブラリを充実させたいです。
それができたら、VBA で、callbyName を使って、疑似マルチスレッド化してサーバーOSを作り、
メタバースを作りたいです。
どうしたらいいですか？

2022/04/22(金) 12:56:56.20

沢山金がある
→MSに依頼する
少しだけ金がある
→スクールにでも通う
金が無い
→自力で調べろ

2022/04/22(金) 13:46:25.69

>>929
もう休み始まったのか羨ましいな

2022/04/23(土) 07:32:43.48

VBAのコードをパスワードではなく
AccessのようにMDEまたはACCDE化して隠蔽できないのかね？

2022/04/23(土) 13:58:03.66

あったとして、ワークシートが見れない

2022/04/23(土) 21:14:41.84

VB6.0の質問となります。
ご存じのかた、ご教授お願い致します。

CommandButton1のDownPictureプロパティ（ボタンを押すと指定したピクチャが表示される）
で設定するピクチャファイルをボタンを押すたびにランダムのピクチャを
表示する方法はありますでしょうか？
ピクチャを固定でなく、可変でいろいろなピクチャを表示することはできるのでしょうか？

宜しくお願い致します。

2022/04/23(土) 21:26:02.35

>>934
可能だけどスレチ
VBとVBAは似てるけどまったく違う言語なのよ
VB専門のスレで聞くか、できるという情報を手がかりにぐぐって

**934** (ﾜｯﾁｮｲ 2590-WvSx) · 2022/04/23(土) 21:56:53.10

>>935
ありがとうございます。
VBスレで聞いてみます。

2022/04/24(日) 03:02:47.88

なんで.netじゃなくてVB6.0？

2022/04/24(日) 07:12:27.67

聞いてやるな

2022/04/24(日) 08:27:40.38

保守案件じゃねーの？
それより
> VBとVBAは似てるけどまったく違う言語なのよ
のほうが気になるわ

2022/04/24(日) 08:33:51.29

VB6とVBAは割りと似てるよ
.netは別物だけど

2022/04/24(日) 09:47:15.58

VB.NetとVBAが違うと言いたかったんじゃないか？
VBAとVB6.0なんてガワ以外大して変わらんだろ

2022/04/24(日) 11:05:42.56

それなら全くスレチって言うわけでもないだろうしVB6以前スレに誘導してもあっちは過疎ってるから>>935の真意がわからん

古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]c2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1440930335/

2022/04/24(日) 11:34:19.84

>>934
配列かコレクションに取りうる画像ファイルのパス全部突っ込んどいて
毎回Rnd関数でランダム添え字作成してDownPictureへ代入する処理を
Timerイベントで定期的に起こせばいいんじゃね

2022/04/24(日) 12:34:51.24

>934の方法で出来るね
vb.netはCommandButtonというコントロールがないからButtonコントロールで処理することになるけど

**934** (ﾜｯﾁｮｲ 2590-WvSx) · 2022/04/24(日) 14:05:21.06

>>943
教えていただき、ありがとうございます！
この方法でできました！
助かりました！

>>944
.netは方法が違うんですね。
ありがとうございます。

2022/04/24(日) 14:18:48.53

VBAに聞けば、VB6.0の問題が解決すると思ってる魂胆がむかつく

2022/04/24(日) 14:19:17.64

次の質問どーぞー！

2022/04/24(日) 14:49:27.80

>>933
なんでだよ　Accessだってオブジェクトはそのまんまだぞ　Codeを隠すってだけだ
まあ、Excelでそんなことしたら阿鼻叫喚の地獄絵図がそこら中で起きるだけだろうが

2022/04/24(日) 15:00:54.37

>>945
結局、こういう馬鹿は馬鹿だからこんな書き込みをすることになるんだよな

2022/04/24(日) 19:19:11.64

>>949
そうそう、まさに>>949みたいな感じで

2022/04/24(日) 20:32:26.94

VBAのコードを隠すとかｗ
いやらしいコードとか胸アツ

2022/04/24(日) 21:56:52.40

ソースを見たらBase64が書き込まれてるとかかｗ

2022/04/24(日) 22:10:43.02

変数や関数名を1文字にして、インデントをなくし、マルチステートメントを使い、GoToで飛ばしまくる
これぐらいやっとけばニワカには暗号化されてるのと同じに見えるよ
組み込み関数に型文字を付けたり、行番号とか書いとけばさらに混乱するんじゃない？

2022/04/24(日) 22:11:47.35

代入のLetを省略せずに書くとか

2022/04/24(日) 22:21:56.70

例えばこういうのは初心者だとVBAのコードだと認識できない

Option Explicit
Sub a()
10 Dim i%, s$: For i% = 0# To 15 Step 1&: Let s$ = Hex$(i%): Debug.Print s$,
20 Next i%: GoTo Next_i: Let i% = 999#
30 Next_i: Debug.Print
End Sub

2022/04/25(月) 16:32:49.44

もっと初心者だとこういうもんだと覚えて、ウルトラコード量産して
逆にそれがウケてそこら中から引っ張りだこに成る可能性も

2022/04/25(月) 18:25:34.65

あとどこからも呼ばれないコードを周囲に書いとくとか

2022/04/25(月) 22:42:22.33

難読化してくれるサイトもあるようだがAIでも駆使してんのかよ

2022/04/26(火) 13:34:27.36

VBを学んでみたいのだけど、専用アプリをインストールすれば良いのですか？

2022/04/26(火) 13:39:28.14

それを聞くようでは勉強進まないと思うぞ
VBAなら、Excelのオプションから設定しよう

2022/04/26(火) 13:41:38.59

はい！分かりました先輩！

2022/04/27(水) 11:18:39.59

VBとVBAは違うだろ

2022/04/27(水) 11:35:58.26

めんどくさくなりそうだからその話題はいいわ

2022/04/27(水) 12:17:37.70

ヤフーの質問サイトをたまに見ていると、VB板なのにExcel VBAの質問している方が多いですからね。

2022/04/27(水) 14:37:20.10

これはマイクロソフトが悪い

2022/04/28(木) 02:09:14.27

質問と言うわけじゃないんだけど、最近VBAのお仕事が立て込んでて、こねくり回していたら変な現象が起きたのでちょっと報告。

セルのフォーマットを変えても値がそのフォーマットに合わせて変更されず、セルの中身を触ろうとして初めて設定したフォーマットが反映されることがある。
個人的に勝手に「ガラスのフォーマット」と呼んでいるけど、これをVBA上でフォーマットを反映させたいと思い、Cell(1,1).value = Cell(1.1).valueみたいにすれば行けるかなと思ってやってみたら行けたので、
範囲でも行けるかなと思ってRange(“A:A”).value = Range(“A:A”).valueとしてみたら行けた。

調子にのって複数のセル範囲を一度にしてみたら、VBA側ではエラーはなくセルの内容がまばらに#N/Aとなった。
それも何かしら値が設定されていたセルもそうでないセルも関係なくまばらに#N/A。

複数範囲、例えば”A:A,B:B”みたいなのをSplitで「,」で分割してひと範囲づつ行ったら起きなくなった。

まだ詳しくは調べていないし、ヘルプも見ていないけどEXCELのバグと考えるのは早計かな？

2022/04/28(木) 06:30:27.37

ストゼロのコピペみたいになってるので先ずはExcelの異常より自分の異常を気にした方が良い
お大事に

2022/04/28(木) 06:56:19.59

>>966
重い

2022/04/28(木) 07:13:52.33

うーんこの

2022/04/28(木) 08:23:08.41

同一sheet、複数areaの仕様通り

2022/04/28(木) 10:11:30.42

新人の頃、なんでもやたらバグ！と言い募ってたら、ここの諸先輩にブン殴られた
何でもかでもぜんぶ他者のせいにしてると、モニタから腕が伸びてきてホントにブン殴られる
多分、立て込んでるがキーワード　立て込んでるなら尚更マシン複数台用意して
作業を分散して負荷を軽減するなり、都度都度保存してExcelも終了させておいて
合間にエロ動画見たりしながらExcelさんを休ませてあげないと、テンポる

2022/04/28(木) 14:24:22.28

糖質か

2022/04/29(金) 15:02:24.64

ここ最近、５ちゃん全体が重いのだが？
同志達もそう？

2022/04/29(金) 17:00:23.18

>>973
昔から2ちゃん5ちゃんは世界のどこかで紛争が起きるとアクセスが急増したりサイバー攻撃されたりで重くなる
今はロシちゃんウクちゃんのせい

2022/04/29(金) 19:06:07.89

5chのサーバーはアメリカにある
なんかあるとすぐに攻撃されるからな

2022/04/30(土) 00:10:15.39

まったく重くないが。
そろそろ次スレよろ

2022/04/30(土) 10:32:12.86

>>976
はぁ？よろじゃねえよ
てめえが立てろハゲ

2022/04/30(土) 10:33:08.68

よろ～☆ミ

2022/04/30(土) 11:25:04.05

46497！

2022/04/30(土) 15:57:06.54

あれ？昔からのしきたりで、スレ主が次のスレ立てを担当するはずでは？？

2022/04/30(土) 15:58:48.35

質問したい奴が立てればいいぐらい
どうでもいいスレだろ

2022/05/01(日) 00:13:28.72

980番を踏んだ奴が立てるんじゃなかったか

2022/05/01(日) 01:58:03.34

建て方知らないもん
アソコの立て方は得意だけどさ

2022/05/01(日) 02:01:11.00

立てても使い道(相手がいない)がないのになぜ立てるか

2022/05/01(日) 02:24:06.36

立てたぞ

Excel VBA 質問スレ Part76
https://mevius.5ch.net/test/read.cgi/tech/1651339421/

2022/05/01(日) 05:51:26.54

>>985
有能

2022/05/03(火) 14:10:11.29

Excel2019になってから重いデータを処理する時にエラーが出やすくなりました。
7000データあるものから鳥瞰図を作成して画像として貼り付ける処理をしているんですがコピーして貼り付ける際にたまにエラーが発生します。(1004データを貼り付けできません)

バッファとして貼り付ける前にwaitで数秒待ってあげるとエラーが出なくなるんですが……
仕方ないんですかね？