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

2022/05/04(水) 11:56:06.30

pc買い替え

2022/05/04(水) 12:08:38.05

1000

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 83日 21時間 44分 6秒