VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

関連スレ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/

Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/

**デフォルトの名無しさん** · 2016/04/09(土) 21:28:53.86

windows なら黙って search everything 入れろ
考える余地なし

**デフォルトの名無しさん** · 2016/04/09(土) 21:30:12.16

あ、業務用のマシンだとマズいか

**デフォルトの名無しさん** · 2016/04/09(土) 21:43:59.08

>>179
> 目視も検索フィルタにとりあえず *.dll で全DLLを出してからやっています。
プログラマーに向いてないんじゃね？
コマンドプロンプトで
dir /s /b \ABC.dll
ってやればいいだけだろ

**デフォルトの名無しさん** · 2016/04/09(土) 23:15:48.61

>>180
ODBCのコネクションを張る関数で、特に自分の場所が関係する処理はしてないですね。

>>181-186
全ドライブを検索した結果（search everythingは入れてませんが dir/s はやってみた）
C:\Users\*****\Google ドライブ\
に見つかりました。
しかし、これを消しても現象は変わらなかった（もともと参照パスに入ってない）ので、諦めの気分です。

**デフォルトの名無しさん** · 2016/04/10(日) 00:12:20.49

元々の質問は、挙動が変わることがあるか？で、
あるって回答で解決だと思うけど、どうしてもないってことにしたいの？
ゴールが見えないよ

**187** · 2016/04/10(日) 00:39:39.00

>>188
あるって回答（>>176）もあり、ないって回答（>>180）もありで、判断がつかない状況です。

**187** · 2016/04/10(日) 00:47:04.09

それと、>>173と>>176もいまいち理解できておりません。
「dllのパスを取得」とは、実際の存在はひとつでもDeclare文での指定のしかたまでも検知できるんでしょうか？

**デフォルトの名無しさん** · 2016/04/10(日) 01:04:43.27

まさか、パス・ユーザー名など、システムに関係する部分に、
日本語を使ってないだろうな？

それで、バグってるとか？

**187** · 2016/04/10(日) 01:08:14.87

>>191
ないですね

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

そのDLLの作者が外人で、DLL内で、パス・ユーザー名を扱っていた場合、

もしその中に日本語が入っていれば、バグるかも

**デフォルトの名無しさん** · 2016/04/10(日) 01:22:30.64

>>187
>ODBCのコネクションを張る関数で

それなら、そのDBのメーカーが(ドライバーが)、絶対パスしか許可していないのかも。
相対パスの危険性も考慮して、そういうアクセス許可にしているのかも

絶対パスを使えばいい

**デフォルトの名無しさん** · 2016/04/10(日) 05:47:22.16

>>187
> 特に自分の場所が関係する処理はしてないですね。
ん？
自分で作った dll なの？
だったら自分でデバッグしなよ

**デフォルトの名無しさん** · 2016/04/10(日) 10:59:47.17

全ドライブを検査してひとつしかdllファイルがなかったって言ってるんだろ。
それが本当なら何も対処できないよ。OSレベルの不具合。

**デフォルトの名無しさん** · 2016/04/10(日) 17:49:12.01

VBAをコーディングするのに最適な画面サイズとモニターの台数は何台ですか？
縦と横どっちでつかってすか？
4Kディスプレイはどうですか？

**デフォルトの名無しさん** · 2016/04/10(日) 18:54:26.34

(´・ω・｀)

**デフォルトの名無しさん** · 2016/04/10(日) 19:33:25.31

>>197
3台
縦
4Kいいよ

**デフォルトの名無しさん** · 2016/04/27(水) 21:49:20.13

エクセルのVBA質問があります。
一番前のTOTALシートのA22：H26までを複数シート（20シートくらいある）の最終行の次の行に貼り付けたいのです。
各シートの最終行はバラバラで多いのは数千とあります。
しかも、G列には\と$の通貨マークH列には金額が書いてあり、SUMIFが組んであります。
記録マクロでやると下記みたいになりますが、こんなこと可能なのでしょうか？
調べても出てこないので誰か教えてください。

Sub Macro2()
Rows("24:28").Select
Selection.Copy
Sheets("A").Select
Rows("22:22").Select
Selection.Insert Shift:=xlDown
Range("H22").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUMIF(R9C7:R19C7,RC[-1],R9C8:R19C8)"
Range("H23").Select
End Sub

**デフォルトの名無しさん** · 2016/04/28(木) 00:18:56.90

>>200
可能です

**デフォルトの名無しさん** · 2016/04/28(木) 07:31:01.70

>>201
教えてください。

**デフォルトの名無しさん** · 2016/04/28(木) 08:26:47.90

>>202
具体的にあなたが躓いているところがわかりません

**デフォルトの名無しさん** · 2016/04/28(木) 12:27:24.37

>>203
具体的にあなたが何がわからないのかわかりません

**デフォルトの名無しさん** · 2016/04/28(木) 12:29:10.17

>>200
For Eachで全シートループして、各シート最終行取得して貼り付ければ良いと思いますが、ダメですか？

**デフォルトの名無しさん** · 2016/04/28(木) 20:07:58.00

>>200ですが、出直してきます。

**デフォルトの名無しさん** · 2016/05/01(日) 15:15:56.13

匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrentがオープンソースで開発されています

言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？

Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします
https://twitter.com/Lyrise_al

ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ

The Covenant Project
概要

Covenantは、純粋P2Pのファイル共有ソフトです

目的

インターネットにおける権力による抑圧を排除することが最終的な目標です。そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します

特徴

Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)

接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
ｌ

**デフォルトの名無しさん** · 2016/05/01(日) 23:24:37.04

EXCELのVBAでメール返信(OUTLOOK)をする仕組みを作りたいのですが、
元メールを引用するにはどうしたら良いでしょうか？
タイトルやらアドレスやら本文がくっついてないと、
どうも返信感がでないと思いまして。

**デフォルトの名無しさん** · 2016/05/03(火) 10:11:50.64

>>208
Outlookヘルプから

次の例は、現在のフォルダを受信トレイに設定し、フォルダの 2 番目のメッセージを表示します。
Visual Basic for Applications
Set myOlApp = Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
myFolder.Display
Set myItem = myFolder.Items(2)
myItem.Display

**デフォルトの名無しさん** · 2016/06/04(土) 14:31:26.42

Excel向けだとVBA関連の本は結構あるのにOutlookのVBA本って
あんまり無いですね。
Outlookの仕分け機能では宛先とCCに○○から来た時に動作する
条件を付けられますが、宛先○○から来た時には動作するけど
CCに何か入っていた場合は動作しないマクロは作れないでしょうか。
環境はWin7、Outlook2010です。

**デフォルトの名無しさん** · 2016/06/04(土) 17:57:25.97

>>210
作れるよ

**デフォルトの名無しさん** · 2016/06/04(土) 17:59:26.06

outlook vba mail
とかでググれ

**デフォルトの名無しさん** · 2016/06/04(土) 21:08:48.99

>>210
多分こんな感じでできるかと

Public WithEvents InboxItems As Items
Private Sub Application_Startup()
Set InboxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub InboxItems_ItemAdd(ByVal Item As Object)
Dim mailItem As Outlook.mailItem
Set mailItem = Item
If InStr(mailItem.To, "○○") > 0 And mailItem.CC = "" Then
MsgBox "何かする"
End If
End Sub

**デフォルトの名無しさん** · 2016/06/12(日) 09:42:53.63

　　　　　　　　　　　　　　　【Ｗｉｎ１０】　　　　こんな犯罪級ＯＳ薦めんなよｗｗｗ　　　↓　　　【スパイウェア】

この使用許諾契約書には書かれています

”最後にあなたのコンテンツを含む個人データ（例えばあなたの電子メールの内容や―プライベート通信やプライベートフォルダ内のファイル）にアクセスし―開示し保全します”

開示する　ここ重要だよ

契約がなければ通常　高度な違法行為になりうることです　それはあなたが自分の意思としてこの契約書に同意したのです
https://www.youtube.com/watch?v=ZBwEmgdqB1c

　　　　　　　【秘密保護法】　　ナチスの手口でサヨクを捕まるんだろ？　早くやってみろよ　m9(^Д^)　　【緊急事態法】

スノーデン氏→国家秘密法は諜報機関ＮＳＡの日本での活動を容易にするために米国が設計して日本政府に導入を要求したもの。
全日本人が調査の対象であり、ＮＳＡはあなたの交際関係、信仰等の個人情報を把握している。
https://twitter.com/hopi_domingo/status/740193540529999873
今朝、辺野古で新基地建設に反対するママの会メンバーに対して、機動隊員が「お前たちには汚い血が流れている」などと暴言を吐いたそうです。
自分のやっていることを「だってお金欲しいもん～」「俺の写真を待ち受けにしろ」とも（顔写真）
https://twitter.com/MothersNoWar/status/690357793702940672
サンマ以降のバラエティ芸人の大半が、暴走族出身で極右思想。原発反対派を「放射脳」と嘲笑する連中。
芸能界極右は石原慎太郎一家を筆頭に、上田晋也　草野仁　津川雅彦　向井理　松本人志　宇多田ヒカル　マツコ　春日俊彰　田村淳　北村晴雄
https://twitter.com/tokaia mada/status/630627400552845312

**デフォルトの名無しさん** · 2016/06/14(火) 02:34:53.84

vbaでshell関数を使って指定パスのエクスプローラをファイル選択状態で開いてるのですが、
家でやると何でもないのですが、会社でやると、その方法で立ち上げたエクスプローラは
１分～数分以内に「エクスプローラは停止しました」となって落ちます。そのフォルダだけ
落ちるので他のは巻き込まれないだけマシですが、手動で立ち上げた他のエクスプローラで
このように不意に落ちた事はないので、プログラムから立ち上げたエクスプローラが特別
不安定だとしか思えないのですが、原因が不明です。
それで、家と会社の違いは、会社だと共有フォルダを開いている事です。
家ではテスト環境をローカルで構成している為か、全く問題は起きません。

色々ぐぐってみたのですが原因が不明です。
vbaから開く方法で、解決策、あるいは次善の方法等ありますでしょうか。

shell関数はこのように使っております。
Shell "Explorer.exe /select, """ & path & """", vbNormalFocus

環境はWindows7 Excel2010(32bit)です。

**デフォルトの名無しさん** · 2016/06/14(火) 06:56:55.57

>>215
試しに自宅の環境で共有フォルダをshell関数でファイル選択状態で開いてみたけど
特に問題なかったよ

原因は共有フォルダであること
ではないのじゃないかな

その共有フォルダへのショートカットを作って
それをshell関数を使ってexplorerで開いてみるとかは？

**デフォルトの名無しさん** · 2016/06/14(火) 08:10:13.51

手動で起動したプロセスは、親プロセスが無く、単独のプロセスだから、ずっと生き残るのかな？

Aプログラム(Aプロセス)から起動したプロセスは、親プロセスがAとなり、
Aを終了すると、その子プロセスもすべて、連鎖して終了するのかな？

プロセスを起動する際、親子関係を切れば？
ただしそうすると、起動されたプロセスは、A終了後も残り続けるから、
誰がそのプロセスを終了するのかが、問題となる

漏れは、Windowsはよく知らない。Linuxから推測して書いた

**デフォルトの名無しさん** · 2016/06/14(火) 08:45:39.28

>>216
ショートカットから開く方法ですか、考えもしなかったです。
確実に再現するバグではない（場合によっては２０分くらい経ってからクラッシュしますし、端末によっては何も起きなかったりします。）
なので、原因を掴むのが難しいです。

>>217
なるほど、プロセスが分離されているから巻き込まれなかったんですかね。

前後のコードを見返しているのですが、shell関数を読んだ直後に
Kill thisworkbook.fullName
thisworkbook.close
を読んで終了させているんですが、ひょっとしたらこの兼ね合いが原因かも？とふと思いました。
shell関数は非同期処理で、会社の共有フォルダを開くときはローカルと違って若干起動に時間がかかります。
shell関数の処理が完了しきっていないのに即終了させるから、動作が不安定になってる可能性はありますかね・・。

なのでとりあえずShell関数を、Wscript.ShellのRunメソッドの同期処理に置換えてみました。
それで明日会社でテストしてみます。

**デフォルトの名無しさん** · 2016/06/15(水) 20:38:23.92

それVBAとか関係なく、普通にネットワーク上のフォルダを表示してるエクスプローラでも発生してるんじゃないのか？
https://support.microsoft.com/ja-jp/kb/972685#/ja-jp/kb/972685
https://support.microsoft.com/ja-jp/kb/2494427#/ja-jp/kb/2494427
とりあえず俺はこの二つで直ったが、エクスプローラ落ちるとかでググってみ

**218** · 2016/06/16(木) 07:48:37.40

>>219
同期処理に変えたら全く落ちなくなりました。
どうやら推測は当たったみたいです。

手動で立ちあげてる時には同じトラブルは一度も起こったこと無く、誰からも聞いていないので、
VBA処理が原因で間違いないと思います。

ぐぐっては見てたんですけど、VBA関連でのエラー報告は０でしたね。
しかし、元々この手のトラブル報告がかなり多いことにはびっくりしました。

とりあえずは解決です。皆さんどうも有難うございました。

**デフォルトの名無しさん** · 2016/06/16(木) 14:05:29.72

タイミングの問題で、バグが起きるときは、

sleep 3秒などで、時間稼ぎすることが多いな

**デフォルトの名無しさん** · 2016/06/16(木) 16:27:03.77

>>221
タイミングというか処理を待ち合わせる必要があるって事だよな
3秒で完了しない処理だと問題が起きる
90%くらい解決出来れば実用上は問題にならないかも知れないけど

**デフォルトの名無しさん** · 2016/06/16(木) 21:40:45.67

' キャッシュ反映を待って5秒待つ

↑これなんとかして

**デフォルトの名無しさん** · 2016/06/16(木) 21:53:33.23

>>223
何のキャッシュか判らないけど
キャッシュをフラッシュするインターフェイスがあればそれを使えば良いのでは
無いなら知らない

**デフォルトの名無しさん** · 2016/06/17(金) 01:16:02.29

起動方法と起動のタイミングの問題で
>１分～数分以内に「エクスプローラは停止しました」
>場合によっては２０分くらい経ってからクラッシュ
のような症状が出るとは考えにくいけどな

まあ、直ったって言うならそれでいいけど

**樵の結び目。** · 2016/09/03(土) 18:27:18.44

この作者について
http://img.atwikiimg.com/www9.atwiki.jp/gensouv/attach/346/23/ExcelVBAPractice.html
どう思いますか？？
　

**デフォルトの名無しさん** · 2016/09/28(水) 19:27:48.59

vbaの And, Or って短絡評価してくれないの？？？

**デフォルトの名無しさん** · 2016/09/28(水) 20:30:34.84

>>227
普通しない
（常にしないかどうかは知らんけど）

**デフォルトの名無しさん** · 2016/09/28(水) 22:20:25.14

X(n) And Y(m) で X(n) = False だった場合、Y(m) は評価しなくても式が False と確定する
Or でも同様のことが可能

VBAがショートサーキットしているかどうかは、各関数で Debug ログを出力してみればわかる

**デフォルトの名無しさん** · 2016/09/29(木) 04:55:17.68

>>229
いちいち短絡評価の説明なんてしなくていいよ...

**227** · 2016/09/29(木) 08:22:26.74

くぅ。
短絡評価してくれるもんだと思って、
True, False, Nullを返す関数の結果で、
NullをFalseに倒したくて、
左辺でNot isNullやってたけど、
右辺もNullで動いてしまってエラーになってはまったわ。

**デフォルトの名無しさん** · 2016/09/29(木) 12:46:05.66

VBAあるある

**デフォルトの名無しさん** · 2016/10/06(木) 19:51:33.65

.NetならOrElseやAndAlsoが使えるし
Nullable指定も出来るから便利なんだけどなー

まあ無いものねだりしても始まらないか

**デフォルトの名無しさん** · 2016/10/08(土) 17:43:11.29

VB(A)はWithとかある割にそういうとこは全然気が利かないよな
C言語すら知らない人が作った言語なんだろう事は判る

**デフォルトの名無しさん** · 2016/10/08(土) 22:59:38.27

VBって元々はMSじゃないんだよね　BASIC好きのゲイツが惚れ込んで買収しただけ

**デフォルトの名無しさん** · 2016/10/27(木) 20:44:38.40

vbaの中、上級者向けの書籍を教えてください

**デフォルトの名無しさん** · 2016/10/27(木) 21:44:23.99

漠然と「ＶＢＡの初心者向けの本を教えてください」ってのはよくあるが、上級者向けは珍しいね
ある程度基礎が身に付き、やりたいことが分かってきていれば
○○に関する本、ってなるように思うんだが・・・

田中亨氏の「Excel VBA 逆引き辞典パーフェクト」は名著だよ

**デフォルトの名無しさん** · 2016/10/28(金) 04:23:54.86

>>237
ありがとうございます。
クラスや多段階配列、イベント自作、擬似コントロール配列あたりの情報がある書籍はありませんか？

**デフォルトの名無しさん** · 2016/10/28(金) 15:06:05.95

アプリ作成で学ぶExcel VBAプログラミングユーザーフォーム&コントロール（横山達大著）
かんたんプログラミング応用編（大村あつし著）
同じく、かんたんプログラミングコントロール関数編

デバッグ関連だと
立山秀利著の本

**デフォルトの名無しさん** · 2016/10/29(土) 23:22:10.90

VBAでコードを抜き出してSVNやgitで管理したりするとそれだけで上級者っぽくなる

**デフォルトの名無しさん** · 2016/10/30(日) 08:10:21.54

それ以上にバカっぽいけどなｗ

**デフォルトの名無しさん** · 2016/10/30(日) 09:23:46.57

今時差分管理もしてないのかよ

**デフォルトの名無しさん** · 2016/10/31(月) 23:59:17.10

VBACとか使ってんの？

**デフォルトの名無しさん** · 2017/02/06(月) 12:06:59.89

PowerPointのVBAでファイルを閉じた後も変数の値が保存されるようにしたいんですが外部のテキストに書き出す以外にファイル本体にどうにかして埋め込む方法はありますか？

**デフォルトの名無しさん** · 2017/02/06(月) 14:57:53.43

透明のシェイプとかに書くとか色々あるけど
実際本体ファイルを更新されるとバージョン管理とか使う側が気持ち悪がるとか運用面で問題が出そう

**デフォルトの名無しさん** · 2017/02/06(月) 19:29:23.46

Excel脳っすなぁ
標準的なユーザーデータ保存場所がちゃんとあるんだからそれ使えばいいじゃん

**デフォルトの名無しさん** · 2017/02/06(月) 19:58:54.20

>>246
どうすればいいでしょうか

**デフォルトの名無しさん** · 2017/02/06(月) 21:21:37.88

>>244
Presentation.CustomDocumentProperties
https://msdn.microsoft.com/ja-jp/library/office/ff744661.aspx

**デフォルトの名無しさん** · 2017/02/07(火) 07:09:26.95

>>246
条件によるだろ
思いつきで即答すんなアホ

**デフォルトの名無しさん** · 2017/02/07(火) 07:27:10.54

>>249
条件って
ファイル本体に埋め込みたい
ってことだろ
>>246 の保存場所がどこの事を言ってるのかよくわからんが >>245 より >>248 の方がはるかにマシ

**デフォルトの名無しさん** · 2017/02/07(火) 07:40:32.09

ファイル本体に埋め込みすんのがアホなんだよわかれよ素人
ゴミを量産して人に迷惑かけないでくれ
独りよがりの仕事してんじゃねえよ

**デフォルトの名無しさん** · 2017/02/07(火) 08:07:27.12

単なる基地害だったのか

**デフォルトの名無しさん** · 2017/02/07(火) 20:25:02.30

実際に仕事してるとそれこそ基地外避けを作る必要が出てきたりするんだよな

**デフォルトの名無しさん** · 2017/02/07(火) 21:24:47.40

ユーザーデータを変な場所に保存したりするやつとか避けないとな

**デフォルトの名無しさん** · 2017/02/07(火) 22:43:16.46

>>254
> 変な場所に
透明のシェイプとかのことですね、わかります

**デフォルトの名無しさん** · 2017/02/13(月) 17:14:33.92

50枚のスライドが入ったパワポが5個あります。
これを統合したいのですが
ファイル1の1枚目
ファイル2の1枚目
ファイル3の1枚目
ファイル4の1枚目
ファイル5の1枚目
ファイル1の2枚目。。。

という順番にしたいのです。
どういうマクロを書けばいいでしょうか？

**デフォルトの名無しさん** · 2017/02/13(月) 21:36:30.61

>>256
その通りのマクロを書けばいいのでは？

**デフォルトの名無しさん** · 2017/02/13(月) 21:54:55.31

新規で作ったらコピペを繰り返すだけ

**デフォルトの名無しさん** · 2017/02/14(火) 00:38:49.96

パワポってマクロ使えるんだ
そらそうだわな

**デフォルトの名無しさん** · 2017/02/14(火) 01:58:27.90

ExcelVBAをつかいこなしていても
パワポはマクロの記録がないと腰が重いな

**デフォルトの名無しさん** · 2017/02/15(水) 08:18:34.60

>>256
この作業用を何回も繰り返さないといけないの？
1度きりならあなたの場合は手作業の方が早い気が

**デフォルトの名無しさん** · 2017/02/15(水) 13:14:12.73

>>256
スマホからだから試してないけどこんな感じかな
Application.Presentations.Open(ひとつ目のファイル)
Application.Presentations.Open(ふたつ目のファイル)
...
Application.Presentations.Open(いつつ目のファイル)
Set P = Application.Presentations.Add
For I = 1 To 50
For J = 1 To 5
Application.Presentations.Item(J).Slides(I).Copy
P.Slides.Paste
Next
Next
P.SaveAs(新規のファイル)

**デフォルトの名無しさん** · 2017/02/23(木) 13:32:21.69

選択されているセル範囲内の文字、図形を削除する手順を作ってみましたが、処理がえらく重いです。
もっと処理を早くする方法はないでしょうか？
Sub sakujo()
Application.ScreenUpdating = False 　 '画面更新を停止
Dim shp As Shape
Dim rng As Range
If TypeName(Selection) <> "Range" Then Exit Sub
For Each shp In ActiveSheet.Shapes
Selection.ClearContents
Set rng = Range(shp.TopLeftCell, shp.BottomRightCell)　　'図形の配置されているセル範囲をオブジェクト変数にセット
If Not (Intersect(rng, Selection) Is Nothing) Then　　'図形の配置されている範囲と選択されているセル範囲が重なっているときに図形を削除
shp.Delete
End If
Next
Application.ScreenUpdating = True　　'画面更新を再開
End Sub

**デフォルトの名無しさん** · 2017/02/23(木) 14:40:32.47

>>263
再計算とイベントも停止してみた？
あと、コレクションに対するループの中で自分自身のコレクションが変化するのは、なんとなくまずい気がする
根拠はないけど、それって遅くなる要因と違う？

**デフォルトの名無しさん** · 2017/02/23(木) 15:02:34.32

処理の基本をよく考えるべき。
1.Shape毎にSelection.ClearContentsする意味は?
2.shp.Delete後もループする意味は?
3.そもそもSelectionって何?つまり何が選択されている時に削除したいの?

For Each shp In ActiveSheet.Shapes
If shp Is Selection Then
shp.Delete
Exit For
End If
Next

じゃ駄目?

**デフォルトの名無しさん** · 2017/02/23(木) 15:08:21.72

選択されているセル範囲については最初のIf文でExit Subしてるから削除されないんじゃ?
処理がよく分からん。

選択されているShapeの下のRangeの内容を削除したいならshp=Selectionの場合に
Range(shp.TopLeftCell,shp.BottomRightCell).ClearContents
で良いんじゃ?

**デフォルトの名無しさん** · 2017/02/23(木) 15:10:34.31

shp=Selectionの場合じゃなくてshp Is Selectionの場合だな。
shp.Deleteの前ね。

**デフォルトの名無しさん** · 2017/02/23(木) 15:24:01.29

>>265
質問者じゃないけど変わって説明するよ
・シート上に文字と図形が複数箇所に設定されている
・消す範囲を選択して、その範囲内の文字と図形を消すコードを書いた
・でもなぜか遅い

質問者に言えるのは、
・Selection.ClearContentsはfor eachの外でいい
・試しに100個のshapeを貼り付けて50個くらいが入る範囲を選択して消してみたら一瞬で終了（もちろんコードでだよ）
・遅いって具体的にどれくらいなの？

**デフォルトの名無しさん** · 2017/02/23(木) 16:00:14.32

>>268
コード見りゃわかる。
でもコードがやってることは無駄な部分が多いから聞いてる。

最初のIf文を見ればRangeを選択した場合はExit Subしたいみたいだがら範囲選択した場合は処理して欲しく無いんだよな。
→じゃ、どんな時に処理して欲しいの?

For Each shp In ActiveSheet.Shapes
If shp Is Selection Then
Range(shp.TopLeftCell,shp.BottomRightCell).ClearContents
shp.Delete
Exit For
End If
Next

じゃ駄目なの?

**デフォルトの名無しさん** · 2017/02/23(木) 16:07:14.86

今までは長い時で1～1.5秒程止まっていました
>>268さんの言われた通り、Selection.ClearContentsの位置を変えたらスムーズになりましたのでこれで行こうと思います
たくさんご意見頂きありがとうございました

**デフォルトの名無しさん** · 2017/02/23(木) 16:14:41.52

>>269
> If TypeName(Selection) <> "Range" Then Exit Sub
だよ

**デフォルトの名無しさん** · 2017/02/26(日) 14:44:16.79

エクセルのマクロでも質問大丈夫でしょうか？
名前と同じファイル名の画像を名前セルの隣に貼り付けるプログラムなんですが
Sub ボタン1_Click()
Const n As Long = 2
Dim i As Long
Dim x As Double
Dim s As String
Dim t As FileDialog
Dim m As VbMsgBoxResult
With ActiveSheet
For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row Step 6
Set r = .Cells(i, 3).MergeArea
s = "D:\画像\1\" & .Cells(i, 2).Value & ".jpg"
Dir Application.Path
With .Pictures.Insert(s).ShapeRange
.LockAspectRatio = msoTrue
x = Application.Min(r.Width / .Width, (r.Height - n) / .Height)
.Width = .Width * x
.Left = r.Left + (r.Width - .Width) / 2
.Top = r.Top + (r.Height - .Height) / 2
End With
Next
End With
End Sub
この"D:\画像\1\"の部分をフォルダ選択できるようにしたいので
Dim s As String
　　Dim t As FileDialog
Set t = Application.FileDialog(msoFileDialogFolderPicker)
s = "t" & .Cells(i, 2).Value & ".jpg"
としたら「1004　PicturesクラスのInsertプロパティを取得できません。」と実行できません
どうしたら"D:\画像\1\"の部分をフォルダ選択できるようにできるのでしょうか？ご教示お願い致します。

**デフォルトの名無しさん** · 2017/02/26(日) 16:00:22.84

>>272
Dim s As String
Dim t As String
With Application.FileDialog(msoFileDialogFolderPicker)
　　If .Show = False Then Exit Sub
　　t = .SelectedItems(1) & "\"
End With
'途中省略
s = t & .Cells(i, 2).Value & ".jpg"

じゃないかな?
あと
元コードもそうだけど
フォルダ内にその画像ファイルが存在してなかった時の対策も必要だと思うよ
同じエラーになるぞ　それとも絶対あるのが確定してる?

**デフォルトの名無しさん** · 2017/02/26(日) 16:45:49.33

>>273
大変ありがとうございます！
ただ、貼り付ける画像は複数あり、貼り付けるたびにフォルダ選択画面が出てしまいますので、一気に貼り付けられないものでしょうか？
ファイルが存在してない時の対策は、セルの状態を色変えて罫線で斜線を挿入したいと考えてますが、まだそこまで進む前段階がクリアできないので困ってます
よろしくお願いします

**デフォルトの名無しさん** · 2017/02/26(日) 16:51:45.39

>>274
ん? そこは分ってるとおもたよ
フォルダ選択部分は Forループの外だよ
↓ここねw
With Application.FileDialog(msoFileDialogFolderPicker)
　If .Show = False Then Exit Sub
　t = .SelectedItems(1) & "\"
End With

**デフォルトの名無しさん** · 2017/02/26(日) 16:57:59.74

>>275
あっ！できました！ありがとうございます！助かりました！

**デフォルトの名無しさん** · 2017/03/06(月) 23:29:36.96

こんにちは。

パワーポイント2013のVBAについて分かる方教えて下さい。

やりたいことは、グラデーションの塗りつぶしがあるシェイプのGradientStopsのそれぞれの色を変化させるアニメーションの方法です。

2013ではできないけど2016ではできる等の情報もあればお願い致します。

**デフォルトの名無しさん** · 2017/03/08(水) 21:50:45.20

vbaだけでhttpサーバーって出来る？

**デフォルトの名無しさん** · 2017/03/08(水) 23:04:04.36

俺が手を下すまでもないな
答えてやれよ
>>280

**デフォルトの名無しさん** · 2017/03/09(木) 01:39:01.40

VBAだけってのが
外部コントロール使用禁止
API呼び出し禁止
なら不可能です

**デフォルトの名無しさん** · 2017/04/09(日) 15:56:17.26

VBAの変数の値を次回の処理を行う時まで記録しておくのにセルに書き込みをしたりしていますが、

セルにアクセスするのを減らすためにセルに記録しなくて処理終了時に変数値をVBA内で保存しておいてくれる一次記憶領域みたいな物はないのでしょうか？

**デフォルトの名無しさん** · 2017/04/09(日) 16:02:56.39

ちりも積もればの話ですが
足し算引き算割り算レベルの計算をセルに関数を割り当てて行うのと
同じ計算式を変数を用いてVBAで書いて実行するのとで、より処理速度が速いのはどちらでしょうか？

**デフォルトの名無しさん** · 2017/04/09(日) 16:09:57.30

>>281
セルでいいんじゃないの？
ただそのIOは配列アクセスを使うべき
ループで1セルづつ読み込むとかがナンセンス

**デフォルトの名無しさん** · 2017/04/09(日) 16:14:42.36

>>281
説明がいまいち分かりにくい。
次回ってのは何時のことを言ってる?
グローバルな変数じゃダメなの?
次にそのブックを開くまで保持したいならセルってのも分かるんだが。
で、その場合にセルの代わりに保持したいならCustomDocumetProperties使ったりするかな。