Excel VBA 質問スレ Part80

**デフォルトの名無しさん** · 2023/05/31(水) 08:23:38.97

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

次スレは>>980が立てること
無理なら細かく安価指定

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

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

**デフォルトの名無しさん** · 2024/01/13(土) 16:41:42.38

>>362
なるほど‥
新規ブックを開いて、pdf化したいシートを順々にコピーしていき、最後に一回だけpdf化するということですね
デメリットとしてはpdfが一つにまとまってしまいますが、運用に支障はないのかもしれません
ありがとうございます
関係者に聞いてみて、それでも問題ないならその方向で行こうと思います

**デフォルトの名無しさん** · 2024/01/13(土) 19:24:41.20

出来上がったpdfを分割までやればいいだけでは？
コマンドラインで動く外部ツール使えばできるような

**デフォルトの名無しさん** · 2024/01/13(土) 20:34:27.31

>>364
後出しで申し訳ないのですが、実は出来上がったpdfをメールで送って、相手方で印刷するのが今回の運用だったのです
なので「pdfを全て開いて印刷するのは結構面倒だよなぁ」とは思っていました
しかし一つのpdfにできるのであれば、その問題も解決できるので、一つの方が今回は都合が良かったりします
pdfを分割して置かなければならない別の機会があれば、そのようなことも検討したいと思います
ありがとうございました

**デフォルトの名無しさん** · 2024/01/13(土) 21:55:24.12

頭の悪い人は解決方法自体を間違えている
いつもの

**デフォルトの名無しさん** · 2024/01/13(土) 22:36:38.78

そういうことを平気で衆人環視の環境で書き込める人は　間違い無く病んでる

適しているかどうかは実際にやってみないといけないでしょ？
最後の大きく成ったブックをPDF化するときにエラー吐いて完走しなかったら
元も子も無いんだし　単なる思い付きで書いただけなので検証を
相手が居るならすり合わせも大事だし　ダメ出しされたら再検討だし

ところで、初手のout.pdf(このネーミングも如何なものか、とちょっと思った
Outputの意味なのか、Out of Orderとかの意味なのか、いずれにしろ経営陣から
したら眉を顰めてしまう単語　ま、それは置いといて)には、どう蓄積されるのか
興味があった　これ走らせたらC:\out.pdfにページが追加されてく？
C:\out.pdfが(2)(3)(4)・・とか増えてく？　　誰か教えて

**デフォルトの名無しさん** · 2024/01/14(日) 01:10:58.98

>>367
すみません、out.pdfというのはネットから適当に拾ったコードなので、自分のコードではチキンとした名前をつけています
これを走らせるとout.pdfが上書きされ、一番最後のpdfしか残りません

また、さっそく一番最後だけpdf化を試してみたのですが、ダメでした
50個回分をシートに蓄積してpdf化を繰り返したところ3回目まではうまく行ったのですが、4回目(160ループ目)くらいからpdfが文字化けしてしまいました
どうもpdf化の回数は関係なく、どれくらいのデータ量をpdf化したかによって上限が来て、それ以降は文字化けするような仕組みみたいです
.ExportAsFixedFormatを使用せずにworksheet.printoutメゾットでpdfに印刷するようにしたら、画質は劣るものの、全てpdf化できました
長々とありがとうございました

**デフォルトの名無しさん** · 2024/01/14(日) 07:32:56.45

次は添付ファイルのサイズ制限に引っかかって、結局分割することになると見た
そしてVBAからメールを連続送信する方法を聞きに来て、最後にPDFがいくつあっても簡単に一括印刷できることを知るまでがセット

**デフォルトの名無しさん** · 2024/01/14(日) 08:46:41.57

>>367はコマンドラインツール使ったことなさそう

**デフォルトの名無しさん** · 2024/01/14(日) 11:11:31.44

>>359
それくらいならChatGptが良いコードを書いてくれるはずだよ

**デフォルトの名無しさん** · 2024/01/16(火) 19:30:09.09

それならそのコードを貼ってあげなよ

**ぐううさ** · 2024/01/16(火) 21:08:30.59

業務でvba上手くいかないので質問させてもらってもよろしいでしょうか？

**ぐううさ** · 2024/01/16(火) 21:08:36.00

業務でvba上手くいかないので質問させてもらってもよろしいでしょうか？

**デフォルトの名無しさん** · 2024/01/16(火) 21:09:02.93

先輩に聞け

**ぐううさ** · 2024/01/16(火) 21:17:31.47

エクセルシートで他システムから吐き出したデータの列の位置や内容がバラバラのため、整理してからまた、他のシステムにデータを取り込むため、列の削除や移動をマクロと変数を使って、ユーザにパラメータを入れてもらって実行することをしたい。
変数にパラメータの値を入れられるが、その後のデータセットからデータの型がとエラーに、なりうまくいかない。
変数はstringsです。

**デフォルトの名無しさん** · 2024/01/16(火) 21:59:35.09

致命的に説明が下手くそなやついるじゃん
376みたいなやつねw

**デフォルトの名無しさん** · 2024/01/16(火) 23:15:06.93

>>376
なにしようとしてるかよくわからないけど、列番号とか指定したいならInteger型にしないといけないんじゃない？

**デフォルトの名無しさん** · 2024/01/16(火) 23:21:40.56

これに下記コードを〇〇できるように書き換えてくださいってソースコード貼付ければいい感じに直してくれるよ
https://www.perplexity.ai/

**デフォルトの名無しさん** · 2024/01/16(火) 23:33:44.09

>>379
ありがとうございます。
会社でやっているのですぐにはわかりかねますが、再度説明し直して書き込ませていただきます。

**デフォルトの名無しさん** · 2024/01/17(水) 02:48:46.43

馬鹿な会社の馬鹿社員
早く潰れろや

**デフォルトの名無しさん** · 2024/01/17(水) 07:28:15.10

自分の能力以上のことを要求されたら
断るのも仕事ですよ

**デフォルトの名無しさん** · 2024/01/17(水) 08:40:16.63

断る勇気も必要ですよ　と書きたかったんだろうけど、断ってばかりじゃ評価下がるしな
どんどん周りの人間の評価が上がり続けちゃったら、遠く無い将来に窓際に追いやられるし
おちんぎんもらってチャレンジできるなら、やらないよりはやった方が自分のためにも成る

もらったデータがどういうファイル形式なのかに依りけり
csv(Comma Separated Valuesの略で、各項目がカンマ（,）で区切られたテキストデータ)なのか
txt(中身が文字だけのデータ)なのか、それ以外の形式なのか
より実務に即した回答が欲しければ、じぶんの環境を提示するのもだいじ　取り敢えず叩き台で
https://www.crie.co.jp/chokotech/detail/264/　　こんな作業をしていてどこで躓いてる、とかを

**デフォルトの名無しさん** · 2024/01/17(水) 09:18:18.18

そんなあなたにPower Query

**デフォルトの名無しさん** · 2024/01/17(水) 10:15:06.17

できないものはできない
請け負った仕事には責任があるんだから最後までやりとげる
能力がないなら評価も低いのは当たり前

**デフォルトの名無しさん** · 2024/01/17(水) 11:50:01.48

今日から始めた初心者ですが
予測変換の決定でエンター押すと改行されてしまうのですが、
それをさせない方法ありますか？
スペースで決定なのはわかるのですが、慣れません。

**デフォルトの名無しさん** · 2024/01/17(水) 12:03:19.97

>>386
それVBAの話？

**デフォルトの名無しさん** · 2024/01/17(水) 14:40:54.05

>>387
VBAのVBEの話ですね

一般的なエディタと挙動が違うので混乱してますが
慣れれば問題ないですかね

**ぐううさ** · 2024/01/17(水) 18:16:44.75

376ですが自力で本日できました。
回答頂いた方ありがとうございました🙇

**デフォルトの名無しさん** · 2024/01/17(水) 19:12:31.19

質問の意味も分からなければ、
回答も役立たず
ただのスレ汚し

**デフォルトの名無しさん** · 2024/01/18(木) 00:33:52.88

VBAの質問なのですが
運送系事務でコース表の各店舗に数量を記入する作業があるのですが
この数量記入を例えば入力用というシートを作り一元管理したいのですが
配送を４社に振り分けている関係で月曜日でも月曜①、月曜➁、月曜➂、月曜④、と
シートが４つに分かれておりシステム上これは変えられないと言われました
店舗も例えばセブン、ローソン、ファミマ、サンクス、ミニストップ、と色々あり
100店舗ほどあるのを該当店舗があるシートへ移動し数量を入力するという…

現状でやり始めた事はデータベースを作りキーワードで検索できるようにし
ドロップダウンリストでセブンを選んだらセブン全店が表示されるようにしました
これを利用してオプションボタン等で月曜を指定し店舗名の右セルに数量を入力すると
月曜日シートにある同名店舗の右セルに入力した数量が反映されるという形にしたいのです
ここまで書いて思ったけどこれってVBAで解決させる物でしょうか？
vlookupとかの関数の領域？　すいません素人に毛が生えた程度の知識しか無いもので
ご教授いただけると幸いです

**デフォルトの名無しさん** · 2024/01/18(木) 01:53:45.90

>>391
ある程度複雑になるとVBAを使わないと何処に何があるかわからなくなって積む
特に他人からするとブラックボックス化する
ドキュメントを残すことができるなら良いけど

**デフォルトの名無しさん** · 2024/01/18(木) 04:26:25.22

ワークシートの内容が固まりきってもう変更は無い、新しいものの追加はない、ならVBAでもいいけど自分なら関数で作る。
VBAで作った方が後々のメンテナンスが大変になる。

**デフォルトの名無しさん** · 2024/01/18(木) 10:41:22.24

>>391
現状を正しく理解できないからなんとも言えないけど、関数かvbaかって質問なら、関数でできるなら関数、できないならvbaってしか答えられないと思う
関数って言っても組み合わせ次第では色々出来るから、vbaでしかできないと思っていても、工夫したら関数でできましたって事なんか腐る程あるし

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

現行のシステムの改良/改善なのか？　それをベースによりよいシステム化をしてもいいのか？
月曜だけで4シートとあるが一週間分で28シートが現状で存在するのか？
100店舗ほどもあるシートに移動して入力した数量はどこの何に反映されるのか？
入力元のデータは指示書のようなカタチでまとまったものがあるのか？
或いは各店舗からの要請があって、それを元に質問者側が曜日で振り分けているのか？
4社に振り分けているとは？下請けの意味？配送コースの4車輛の意味？

コンビニを例えに出しているが、例示が悪いのかどうか、コンテナ(カゴ)に種々雑多な商品が詰め込まれた
イメージが付きまとってしまい、面倒臭いのはもっと他にあるだろうにと思ってしまうが、
あくまでも4社への振り分けが面倒なだけで、積み荷はもっと単純なものなのか(一店舗に一品とか)
全体のボリュームも知りたいところ
物流の観点から言うと、ピッキングなのか仕分けなのか　似たようなものだろと言われるかも知れないが
そのどっち側なのかでも設計も変わるし成果物も変わる　　↓参考までに
https://www.keyence.co.jp/ss/products/autoid/logistics/role/function-safekeeping.jsp

**デフォルトの名無しさん** · 2024/01/18(木) 12:03:28.39

なげーよ

**391** · 2024/01/18(木) 12:31:08.59

曖昧な情報で皆様を混乱させてしまい申し訳ありません
現状でやっている作業の前提条件としては

曜日毎のコース表シートが4つあり
1シート内に曜日毎に決められた店舗の組み合わせで4~5コース存在している
店舗に出荷される数量が前日に確定し全店舗数量一覧が"紙ベース"で来る
数量一覧を元に該当店舗に出荷数を順次入力していく

月曜①～月曜④と分かれているのは下請け配送会社4社に振り分けた形で
月曜①にはA社担当コース、月曜➁にはB社担当コースという形になっています
各曜日シートに数量を記入したらその4つのシートが完成版で共有されます

完成版シートの仕様は変えられないと言われてしまったので
せめて数量入力を一元管理して効率化したいと思っていますが
>>391で作った入力用シートの入力情報を各曜日に転記さたいと思い
ChatGPTを使ってみましたがどうしても上手く行きませんでした
上記作業を持ち回りでやっている人間が3人いて入力作業効率化の提案をしても
「良く分からないからいい」「新しい作業を覚えたくない」「そうやって楽する事ばかり考えるな」
作ったという意見を頂いているのでシステムがブラックボックス化しても問題ありません
他作業と並行しながら2～3時間かかる入力作業を続けたいそうです

**デフォルトの名無しさん** · 2024/01/18(木) 12:51:09.85

>>397
ごめん、結局最終的に何がやりたいのか全然分からないからアドバイスができない
「他作業と並行しながら2～3時間かかる入力作業を続けたいそうです」って言うならそれでいいんじゃない？
と思うけど、聞きたいのは多分そういうことじゃないよね？
言葉で説明されてもこっちはシートがどうなってるのか分からないからなんとも言えない
「東京から大阪まで行きたいけどどう行けばいいですか？」って聞かれても新幹線もあるしバスもあるし飛行機もあるから、なんとも答えられないよね？
それが「東京から大阪まで◯日◯時までにつくように新幹線で行きたいんですけど、どの新幹線に乗ればいいですか？」って聞かれたら答えられる
まずは関数なりvbaなりで自分でやってみて、分からないところのみを聞かないと誰も答えられないと思うよ

**デフォルトの名無しさん** · 2024/01/18(木) 12:59:01.97

あと、無駄な情報が多すぎ
ここは質問をして答えるスレなんだから運用までは面倒見きれない
完成版を変えちゃだめとかブラックボックスが～とかは運用の話であって、その話をされても「はぁ」って感想しかでない

**デフォルトの名無しさん** · 2024/01/18(木) 13:04:56.76

【VBA作成依頼】
５ちゃんねるHTMLを WEBクエリしたんだが、見づらい。
タグ『＜＞』で改行させるVBAコードを誰か作ってください。無料で。
https://i.imgur.com/XMdGvUd.jpg

**デフォルトの名無しさん** · 2024/01/18(木) 14:58:45.62

曜日毎のコース表シートが4つあり　：　それ、火曜日水曜日って続かないってことだよね？
28シートあるのか？の問いに応じずに同じことを繰り返すってことは、そういうことだろ？
つまり、曜日毎は関係無くて、4コース用に4シートがあるだけ　
面倒だけどそれぞれの店舗シートに入力したら、その4シートに反映される　ということだろ？
その100店舗前後のシートを探すのが面倒だから入力用に新たに1シート設けて、そこに入力したら
店舗のシートに反映されて、尚且つコース用シートにもまとめられる　と？　そおゆうのが欲しいと？

**デフォルトの名無しさん** · 2024/01/20(土) 11:31:50.99

>>397
結論から言うとそんなの余裕でできる

その前に、あのさ、君結構アタマいい人でしょ？
話を聞く人の労力もうちょっと考えてわかりやすい説明しようよ

・曜日7日
・コース4～5
・下請け4社
・コンビニ5社（セブン・ローソン・ファミマ・サンクス・ミニストップ）

この4次元マトリックスがどういう風に表になってるのか
口だけで上手に説明するのって難しいし、読む側の読解力にも依存する
ひな形でもいいから自分で簡単なの作ってスクリーンショットとってあげるぐらいしなって

読んでる方はいろんな形式の表が頭に浮かぶんだけど、一体どれなのか特定できないもんだからまともなアドバイスできないわけよ
いろんな人からいろんなアドバイス聞きたいなら、まずどうやればできるだけ多くの人に正しい情報を伝えられるのか工夫しな

https://i.imgur.com/cf3VhMk.jpeg

**デフォルトの名無しさん** · 2024/01/20(土) 12:01:23.58

>>400
タグをvbNewLineに置換するだけ

自　　分　　で　　や　　れ　　

.

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

Excel VBAでAIは作れますか？

**デフォルトの名無しさん** · 2024/01/20(土) 19:05:48.23

>>404
はい
チューリング完全なので

**デフォルトの名無しさん** · 2024/01/21(日) 03:02:30.89

みんなの環境は32bit? 64bit?
世間はどっちが多いんだろう

最近は64bitにしても影響少なくなったと聞くけどどうなんだろう？

**デフォルトの名無しさん** · 2024/01/21(日) 03:14:48.63

MacのVBEの中だけ、
controlキーを使ったショートカットが無効になってるんですが
仕様ですか？
カーソル移動のショートカットが使えないので困ってるのですが
Macの方はどう対応されてますか？

**デフォルトの名無しさん** · 2024/01/21(日) 08:52:16.21

>>406
逆に今32bit選ぶ理由って何？

**デフォルトの名無しさん** · 2024/01/21(日) 11:25:30.02

2021年以降は32bit版のWindowsが原則販売されなくなったんで、Officeも64bit化が急速に進んでると思われる

**400** · 2024/01/21(日) 12:07:31.28

https://i.imgur.com/h1EsLS7.jpg
https://i.imgur.com/QL7Cbdy.jpg
ここまで作った。　ほめて～

**デフォルトの名無しさん** · 2024/01/21(日) 13:35:45.91

>>410
あんたすげえなマジで。

**デフォルトの名無しさん** · 2024/01/21(日) 21:54:39.11

>>408
まだまだ32bit使って所が多いから

以前64bitにしたら客先で原因不明のエラーでまくったことがあってトラウマに
そのころはMSも32bitを推奨してた

ただ自分の周りくらいしかしらないから世間一般ではどんな感じなのかなと思って
ちなみに取引のある某測定器メーカは外に出すファイルは未だに「xls」に変換するなんてルールが残ってる

**デフォルトの名無しさん** · 2024/01/21(日) 21:55:41.57

>>409
そうなんだ、混在によるトラブルが少なくなってきてるなら自分も64bitに変えたいな

**デフォルトの名無しさん** · 2024/01/21(日) 22:45:54.49

取引先が無数にあると、とんでもない環境が残ってるところがあるもんなあ
うちの下請けにもWinXPのとこがあるし
業務用アプリと機器がVista以降サポート外で、それを作ってた会社もなくなってリプレースできないそうだ

**デフォルトの名無しさん** · 2024/01/21(日) 23:16:41.24

64bitの方が高速なんでしょ。わ

**デフォルトの名無しさん** · 2024/01/22(月) 13:22:08.13

32bitのほうが省メモリなので場合によっては32の方が速い

**デフォルトの名無しさん** · 2024/01/23(火) 13:00:26.55

>>416
もしかして、まだWindows95使ってる？
それならその意見も一理あるね

**デフォルトの名無しさん** · 2024/01/23(火) 23:11:52.95

64はパターセーフしろって言われるんだけど、そのくらいエクセルのほうで面倒見てくれんものか
スタート直後に羽根を外そうとしても警告してくれないBウイング並みに気がきかん

**デフォルトの名無しさん** · 2024/01/24(水) 00:26:00.94

PtrはPointerの略
PtrSafeはポインタセーフ

**デフォルトの名無しさん** · 2024/01/24(水) 07:28:58.42

パターセーフからそれ読み取れるのすごいわ
脳が勝手にptrをポインタと変換してしまうから、
何言ってんだコイツとしか思えなかった

**デフォルトの名無しさん** · 2024/01/24(水) 09:04:52.24

>>418
データイーストｗ

**デフォルトの名無しさん** · 2024/01/24(水) 09:35:36.07

酔って書き込んでそう

**デフォルトの名無しさん** · 2024/01/24(水) 13:07:54.28

>>417
意味不明だな
Win95はメモリ8MBでも動作するように設計されたOSだが64bitアプリはサポートしていないぞ

**デフォルトの名無しさん** · 2024/01/26(金) 10:50:59.48

時代は64bit

**デフォルトの名無しさん** · 2024/01/27(土) 00:55:42.82

32ビット版のExcelをやめられるところはまだ少ない。

ようやく64ビット版に置き換えられる大企業が出てきた程度。

**デフォルトの名無しさん** · 2024/01/27(土) 06:28:48.80

Dim i as long と宣言してたのに
i = なんちゃらかんちやら　とかいうコードで
iの価が32000程度を、超えるようなとき、over flowという
エラーになることがあります。

Dim i as long なら、32000を少し超えてもover flow
しないのに不思議です。

なんちゃらのとこには定数3とかの数式なのですが
ヤケクソで定数3を、 3#　にしたらoverflowせず正常に動作しました。

なんでoverflowしたのか、憶測でも構わないので
誰か教えて下さい

ま、おそらくintegerと見做されたのでしょうが
どうして、Dim i as long 宣言したのに、なんか腑に落ちません

**デフォルトの名無しさん** · 2024/01/27(土) 07:28:24.81

なんちゃらかんちやらを正確にここに書いて

**デフォルトの名無しさん** · 2024/01/27(土) 07:38:44.57

>>426
数式中に使っているそれぞれの定数がIntegerの範囲内で、その合計がIntegerの範囲を超えるとオーバーフローするらしい。
定数もあらかじめ変数に入れたりして対策するみたい。
https://www.bold.ne.jp/engineer-club/vba-overflow

**デフォルトの名無しさん** · 2024/01/27(土) 11:56:53.89

そういや32bitから64bitにしたら、
Adoで取得したレコード数をlong型の変数に入れる時に型がおかしいとかいうエラーが出たことあるな。
longlongにしても駄目で、clng()したら動いた。
ワケわからん。

**デフォルトの名無しさん** · 2024/01/27(土) 12:15:04.39

>>429
型ぐらいマニュアルに書いてなかったか？

**デフォルトの名無しさん** · 2024/01/27(土) 16:54:02.91

>>430
マニュアルなんてあるの?
VBなら電話帳より分厚いのがあったけど。

**デフォルトの名無しさん** · 2024/01/27(土) 16:59:10.82

ADOを使うにあたって適切な参照設定が選択されているか

**デフォルトの名無しさん** · 2024/01/27(土) 17:06:20.98

>>431
今どき紙とか光学メディアなんか使うわけないだろ
マニュアルと言ったらWEB上のオンラインマニュアルのことだよ

**デフォルトの名無しさん** · 2024/01/27(土) 18:28:22.44

リファレンスとマニュアルは別だぞ

**デフォルトの名無しさん** · 2024/01/27(土) 19:18:08.00

同じ意味合いで使うこともあるよ

**デフォルトの名無しさん** · 2024/01/27(土) 21:10:11.38

バカが混同してるだけ

**デフォルトの名無しさん** · 2024/01/27(土) 21:49:32.99

いやハゲが光ってるだけだろ

**デフォルトの名無しさん** · 2024/01/27(土) 22:06:36.73

>>434
そんなの文脈次第だろw

**デフォルトの名無しさん** · 2024/01/28(日) 09:17:03.35

AutoFilterもしくはAdvancedFilterで行を抽出する
条件が2つまでしか指定できないので、3つ以上のときは条件を配列変数へ代入するというのがまずよく分からんが
条件にワイルドカードを指定するときは配列要素の3つ目以降は無視されるという制限を知らずに、1日ハマった

**デフォルトの名無しさん** · 2024/01/28(日) 09:25:58.21

Excel VBAの嫌なところはUTF-8のテキストファイルを扱うときだな

UTF-8とは相性が最悪で入力して出力するときになぜか一部がどこかに消える

**デフォルトの名無しさん** · 2024/01/28(日) 14:12:49.59

>>426
iがintegerだとされたんじゃなくて、右辺がintegerだと判定されて、右辺の計算でオーバーフローしてる
>>428
定数の値じゃなくて、定数の型できまるはず

結論はConstにもちゃんと型指定しろ、ってことだ
ちなみに#は倍精度浮動小数点数らしいぞ

>>429
ADOのバージョンは？
一部バージョンでライブラリがばぐってたはず

**デフォルトの名無しさん** · 2024/01/28(日) 15:58:37.92

>>425
やっぱりそうだよね？自分の周りでも64bitに置き換えてる企業ってほぼないので
しかしここでは64bitが当たり前みたいだし、この手の質問を過去にもしたけどまともな回答得られたことないしで、自分の知らないところでは64bitが当たり前な業界もそれなりにあるのかな？と思ってしまった
64bit移行は取引先が多ければ多いほどハードルが高そう

世間一般的に32bitを切り捨てられるタイミングはいつ頃になるのかな
「xls」ですら切り捨てられない企業を見てると、そんなのは当分先になりそうなイメージ
もしくはMSが完全互換を達成してくれるか

**426** · 2024/01/28(日) 16:52:07.92

イロイロ、ありがとう
さて、ま、念の為、何というか、

Dim i as long
Dim x as long
Dim y as long
Dim BDATA(約25000000) as BYTE

For x = 0 to 3840 - 1
For y = 0 to 2160 - 1
i = 3840 * 3 * y + 3 * x
BDATA(i) = 255
BDATA(i+1) = 0
BDATA(i+2) = 0
next
next

は、モチロン、駄目なプログラミング
さて、いや。呟きです。
とにかく、ありがとう

**デフォルトの名無しさん** · 2024/01/28(日) 19:19:46.49

Doevents 入れないのか

**デフォルトの名無しさん** · 2024/01/28(日) 19:53:30.89

>>442
いわゆる大手企業だけど64bit導入済みだよ
元々アドイン禁止だから影響もほぼなし
一部VBAを多少手直ししたくらい

**デフォルトの名無しさん** · 2024/01/28(日) 19:54:43.44

Doevents 入れないのだ
これでいいのだ
バカボンのパパなのだ

**デフォルトの名無しさん** · 2024/01/28(日) 21:08:37.59

Do

Dim i as long
Dim x as long
Dim y as long
Dim BDATA(約25000000) as BYTE

For x = 0 to 3840 - 1
cells(1,"A") = x
DoEvents '''✦✦DoEvents 入れてみた　＼(^o^)／
For y = 0 to 2160 - 1
i = 3840# * 3# * y + 3# * x
BDATA(i) = 255
next
next

って感じでやると　A1のセル、すなわちセルA1が
xの値がドンドン更新表示され、面白いです。
面白いから、これで、良いのだぁぁぁぁぁぁ

**447** · 2024/01/28(日) 21:15:24.83

>>447 自己スレ
でも、DoEvents なくても
xの値は表示されるな🤔　なくてもヨイのだ。
少しギコチナイ動きになる気がするが、
気のせいなら、気にしなくてヨイのだ。🥳

**デフォルトの名無しさん** · 2024/01/28(日) 21:19:00.87

Excel VBAでDVDドライブをオープンさせることはできますか？
部署内のPC端末のDVDドライブを一斉にオープンさせるドッキリをしたいです

**デフォルトの名無しさん** · 2024/01/29(月) 05:09:16.17

>>441
型指定しないと、値によって型が決まる
32767以下の整数だと自動的にIntegerになる

**デフォルトの名無しさん** · 2024/01/29(月) 05:16:06.75

業務アプリをVBAで書いてるとこがあってな
明治時代に創業してみんなも知ってる一部上場企業だよ
膨大な古いアプリを今さら改修とかできないから、なかなか64bitに移行できないんだよ

**デフォルトの名無しさん** · 2024/01/29(月) 05:53:44.09

んー、？
Dim b(40000) as byte
Dim i as long

─途中　省略─

for i=0 to 40000
b(i) = 128
b(i+1) = 128
b(i+2) = 128
next

は、上手くいく予感を感じます。
もしかして、b(i+1) = 128で
iが32000一寸超えたあたりで
なんかある気もしますが、杞憂のような気もするし
実験するのも面倒だな
だってOSや実行環境やバージョンで、
実験結果に再現性がない気もするし
てか、64bitのEXCELにすれば、
配列の要素数的に動画も丸ごとメモリに読み込ませられる
ぢゃーーーん。メモリが、なくなって
障害が、発生が、するなんてことは、アリエナイ❓
b(i+clng(1)) = 128 にしなくてもOkかな
b(i+1#) ＝ 128 にしようかな　それとも
b(i+1&) ＝ 128 にしようかな
&は文字連結だけどこの場合は
ま、1をlongで解釈というか
んー、まぁいいや。

**デフォルトの名無しさん** · 2024/01/29(月) 06:03:43.33

東証一部というか東京一部というか
東証プライムというか東京プライムというか
とにかく、変な名前に変更するのは、反対
64bitにするのは、反対の反対の反対の…なのだ

というか、東証一部なら名門だね。
というか、富士通とかNECとか東芝とかパナソニックとか
社内のは、まだ32ビットのエクセルなのかな❓
これらも、一部を除いて東証一部上場だな

**443** · 2024/01/29(月) 06:14:49.65

ん、いろんな人による
いろんなアドバイス、ありがとう

i = 3840 * 3 * y + 3 * x
でオーバーフローエラーになったら
今度は、
i = 3840 * 3 * y + 3 * x　+　32768 - 32768
って、修正してみようかな❓
ゼッタイ、上手くいくハズだよね❓
でも、面倒だし、次回も3は3#にしゃおうかな
by 姑息な対応するデバッグプログラマでした

2024/01/29(月) 08:04:04.78

>>0454 1h40min前の自分に返信してあげる。
いま、1h40min前の自分の通り実験したけど、
❌　i =　3840 * 3 * y + 3 * x　+　32768 - 32768
オバーフローエラーになっちゃたよん。
ちなみに、#とか定数にヤケクソでつけてもいいけどさ
やっぱり、＆の方がヨイ
🙆　i = 3840& * 3& * y + 3& * x　って感じでバッチリだ
でも、
❌　i = 1& - 1&　+　3840 * 3 * y + 3 * x
の様な気もする。∵イロイロやってみた感触

というか、#とか&を定数の後にくっつけるのってヤヴァイ
様な気もするが、とにかく、珍しく、EXCELがバッチリ動いた＼(^o^)／

**455** · 2024/01/29(月) 08:12:40.14

>>455 5min前の自分に返信してあげる
その数式ないの定数　3とか3840とかの全て、全て、全部に
Clng(3)とかClng(3840)に置き換えなさい。

神からお告げなのだ。ていうか、今実験してみた結果ぢゃ
でも、&とか#の方が短くて見易い

**デフォルトの名無しさん** · 2024/01/29(月) 08:31:12.61

>>451
64bit問題生じて何年経ってると思ってるんだよ
流石に後手に回りすぎ

**デフォルトの名無しさん** · 2024/01/29(月) 10:01:16.80

VBAには、on error goto という、
エラーが発生しても、エラー発生の行でエラー発生せず
処理を続行させちゃう　ウレピィー機能が存在がするようぢゃ、

i =　3*なんちゃらかんちゃら数式 ……🐌
BDATA(i)　=　128
というコードで🐌の行でオバーフローエラーに
なってももしかするとErrをトラップ💃
BDATA(i) = 128 を実行させれるコードも可能ぢゃ
モチロン、配列BDATAの内容はメチャクチャだが
気にしなければ、これでヨシ(๑•̀ㅂ•́)و✧

だって、エラー発生しちゃったらやだろ😎

いや、それより、ドンドン64ビットのエクセルに
移行して、ドンドンバグを潰そう。
テーブルが壊れてバグ発生させても、キニシナイ
ていうか、その方が、バグ対策のノウハウが
バッチリになって株価急上昇の予感がしてきました。
東証プライムどんどん📈しろっう。
てか、そうだ今日は、平日だっけ？
株価をチェックしなければいけないので、では
また今度だ

**デフォルトの名無しさん** · 2024/01/29(月) 10:08:59.28

>>451
改修できないのは能力不足なだけでは

**デフォルトの名無しさん** · 2024/01/29(月) 11:00:49.76

>>454
i = 32768 + 3840 * 3 * y + 3 * x - 32768

**デフォルトの名無しさん** · 2024/02/01(木) 09:50:16.10

>>453
NECはLANPLAN、LANWORDだよ。

**デフォルトの名無しさん** · 2024/02/06(火) 21:11:58.14

以下のコードで構文エラーになる、ならない区別がつかなくて質問します。

クラスモジュール
Function 背景色(ByVal range1 As Range, ByVal range2 As Range)
Dim lng_color As Long
lng_color = range2.Interior.Color
range1.Interior.Color = lng_color
End Function

標準モジュール
Sub test()
Dim rng1 As Range
Dim rng2 As Range
Dim mc As New Class1
Set rng1 = Range("C3") 'C3の色を
Set rng2 = Range("A3") 'A3に適用する
Dim str As String

str = mc.背景色(rng1, rng2)

End Sub

これで、str=の部分をなくすと構文エラーになってしまうのはなぜでしょうか？