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(水) 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で数秒待ってあげるとエラーが出なくなるんですが……
仕方ないんですかね？

2022/05/03(火) 16:57:37.12

エラーをキャッチすれば？

2022/05/03(火) 18:40:38.57

エラー発生時にエラータグにとばしてそこで数秒待って再度実行も試しましたが結局永久ループになってしまいました。

2022/05/03(火) 18:51:21.27

DoEvents入れてみるとか

2022/05/03(火) 19:57:23.11

DoEventsも最初に試しましたがイマイチでした。
あまり同じような症状が出ている方少ないのかな？重い処理だと次の処理が追い越しちゃってエラーが出てる感じなんですよね。

2022/05/03(火) 23:05:49.83

Application.ScreenUpdating = False
をやってから処理して、終わったら
Application.ScreenUpdating = True
にしてみたら？

2022/05/04(水) 01:08:45.09

>>987
まぁ同期が取り切れていないということで、
コピーが終了したタイミングが取得出来ないと言うことなら待たせるのは仕方ないんじゃないかな？

後続の処理の流れによりけりになるけど、
ある程度時間が経過すればエラーが起きなくなると言うことであれば、それを待たせる時間がもったいないなら
そこで貼り付けはしないで後続処理を進めて、貼り付け自体はタイマーでイベントを起こしてそこで貼り付けの処理すれば時間の節約にはなるかも知れない。
内部的にどんな感じで処理されてるか分からないから後続処理の内容によって待つ時間を増やさなければいけなくなるかも知れないけどね。

2022/05/04(水) 04:41:51.29

アドバイスありがとうございます。
Application.ScreenUpdating＝Falseはいれています。

やはり仕方無いのですかね？
PCの性能面でも良くないのかも知れません。
メモリーリークのような事が起こっているのでしょうかね？

2022/05/04(水) 06:45:06.11

オブジェクト変数のその都度開放とかは？

2022/05/04(水) 07:00:53.96

>>994
メモリーリークというのは
メモリの解放を上手く行えずゴミが溜まったり
本来指すべきメモリのアドレスを
違うアドレスをさして変なアドレスからデータ読んだり
変なところに飛んだりすることを指す訳だけど
話を聞いた限りだとその可能性は低いかな。

強いて言えばコピーする際にクリップボードが
数、あるいは容量的にパンパンで次のコピーを
行おうとしたときにもうコピー出来ない、
またはコピーしようとしているんだけど
空き容量が少なくて、そこで内容を展開しているから
時間が掛かっているとかの類が考えられるかな。

どのくらいコピーペーストしているのか分からないけど、
とりあえずコピーペーストする前かした後に
一回一回、クリップボードをクリアする処理を挟んでみては？

2022/05/04(水) 07:22:42.23

Excel2019当方でも同じ
PCの性能が良すぎてExcelの処理が追いついてない感じ
極力クリップボード経由を避ける
どうしても必要なら間にDoEvents - Sleep - DoEvents を入れる

2022/05/04(水) 07:28:33.66

>>996
> 本来指すべきメモリのアドレスを
> 違うアドレスをさして変なアドレスからデータ読んだり
> 変なところに飛んだりすることを指す訳だけど
それはメモリーリークとは言いません