[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
203: デフォルトの名無しさん [] 2016/04/28(木) 08:26:47.90 ID:RqXO/zBw >>202 具体的にあなたが躓いているところがわかりません http://mevius.5ch.net/test/read.cgi/tech/1432173164/203
204: デフォルトの名無しさん [] 2016/04/28(木) 12:27:24.37 ID:xB9gNSEq >>203 具体的にあなたが何がわからないのかわかりません http://mevius.5ch.net/test/read.cgi/tech/1432173164/204
205: デフォルトの名無しさん [sage] 2016/04/28(木) 12:29:10.17 ID:gq5pmM2C >>200 For Eachで全シートループして、各シート最終行取得して貼り付ければ良いと思いますが、ダメですか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/205
206: デフォルトの名無しさん [sage] 2016/04/28(木) 20:07:58.00 ID:iqsXmWMg >>200ですが、出直してきます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/206
207: デフォルトの名無しさん [] 2016/05/01(日) 15:15:56.13 ID:tKi6j9CT 匿名通信（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的に分散され、特定のサーバーに依存しません ｌ http://mevius.5ch.net/test/read.cgi/tech/1432173164/207
208: デフォルトの名無しさん [] 2016/05/01(日) 23:24:37.04 ID:u17iQe5m EXCELのVBAでメール返信(OUTLOOK)をする仕組みを作りたいのですが、 元メールを引用するにはどうしたら良いでしょうか？ タイトルやらアドレスやら本文がくっついてないと、 どうも返信感がでないと思いまして。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/208
209: デフォルトの名無しさん [sage] 2016/05/03(火) 10:11:50.64 ID:YSERRocv >>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 http://mevius.5ch.net/test/read.cgi/tech/1432173164/209
210: デフォルトの名無しさん [] 2016/06/04(土) 14:31:26.42 ID:ZLbjql14 Excel向けだとVBA関連の本は結構あるのにOutlookのVBA本って あんまり無いですね。 Outlookの仕分け機能では宛先とCCに○○から来た時に動作する 条件を付けられますが、宛先○○から来た時には動作するけど CCに何か入っていた場合は動作しないマクロは作れないでしょうか。 環境はWin7、Outlook2010です。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/210
211: デフォルトの名無しさん [sage] 2016/06/04(土) 17:57:25.97 ID:+2vTx5YA >>210 作れるよ http://mevius.5ch.net/test/read.cgi/tech/1432173164/211
212: デフォルトの名無しさん [sage] 2016/06/04(土) 17:59:26.06 ID:+2vTx5YA outlook vba mail とかでググれ http://mevius.5ch.net/test/read.cgi/tech/1432173164/212
213: デフォルトの名無しさん [sage] 2016/06/04(土) 21:08:48.99 ID:xa1tVlDu >>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 http://me
vius.5ch.net/test/read.cgi/tech/1432173164/213
214: デフォルトの名無しさん [] 2016/06/12(日) 09:42:53.63 ID:D40PIOb3 【Ｗｉｎ１０】 こんな犯罪級ＯＳ薦めんなよｗｗｗ ↓ 【スパイウェア】 この使用許諾契約書には書かれています ”最後にあなたのコンテンツを含む個人データ（例えばあなたの電子メールの内容や―プライベート通信やプライベートフォルダ内のファイル）にアクセスし―開示し保全します” 開示する ここ重要だよ 契約がなければ通常 高度な違法行為になりうることです それはあなたが自分の意思としてこの契約書に
同意したのです 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 htt
p://mevius.5ch.net/test/read.cgi/tech/1432173164/214
215: デフォルトの名無しさん [] 2016/06/14(火) 02:34:53.84 ID:2DTiTbF7 vbaでshell関数を使って指定パスのエクスプローラをファイル選択状態で開いてるのですが、 家でやると何でもないのですが、会社でやると、その方法で立ち上げたエクスプローラは １分〜数分以内に「エクスプローラは停止しました」となって落ちます。そのフォルダだけ 落ちるので他のは巻き込まれないだけマシですが、手動で立ち上げた他のエクスプローラで このように不意に落ちた事はないので、プログラムから立ち上げたエクスプローラが特別 不安定だとしか思えない
のですが、原因が不明です。 それで、家と会社の違いは、会社だと共有フォルダを開いている事です。 家ではテスト環境をローカルで構成している為か、全く問題は起きません。 色々ぐぐってみたのですが原因が不明です。 vbaから開く方法で、解決策、あるいは次善の方法等ありますでしょうか。 shell関数はこのように使っております。 Shell "Explorer.exe /select, """ & path & """", vbNormalFocus 環境はWindows7 Excel2010(32bit)です。 http://mevius.5ch.net/test/read.cgi/tech/143217316
4/215
216: デフォルトの名無しさん [sage] 2016/06/14(火) 06:56:55.57 ID:wwwgAdKU >>215 試しに自宅の環境で共有フォルダをshell関数でファイル選択状態で開いてみたけど 特に問題なかったよ 原因は共有フォルダであること ではないのじゃないかな その共有フォルダへのショートカットを作って それをshell関数を使ってexplorerで開いてみるとかは？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/216
217: デフォルトの名無しさん [sage] 2016/06/14(火) 08:10:13.51 ID:BcKyLCvc 手動で起動したプロセスは、親プロセスが無く、単独のプロセスだから、ずっと生き残るのかな？ Aプログラム(Aプロセス)から起動したプロセスは、親プロセスがAとなり、 Aを終了すると、その子プロセスもすべて、連鎖して終了するのかな？ プロセスを起動する際、親子関係を切れば？ ただしそうすると、起動されたプロセスは、A終了後も残り続けるから、 誰がそのプロセスを終了するのかが、問題となる 漏れは、Windowsはよく知らない。Linuxから推測して書いた http:
//mevius.5ch.net/test/read.cgi/tech/1432173164/217
218: デフォルトの名無しさん [] 2016/06/14(火) 08:45:39.28 ID:2DTiTbF7 >>216 ショートカットから開く方法ですか、考えもしなかったです。 確実に再現するバグではない（場合によっては２０分くらい経ってからクラッシュしますし、端末によっては何も起きなかったりします。） なので、原因を掴むのが難しいです。 >>217 なるほど、プロセスが分離されているから巻き込まれなかったんですかね。 前後のコードを見返しているのですが、shell関数を読んだ直後に Kill thisworkbook.fullName thisworkbook.close を読んで終了させてい
るんですが、ひょっとしたらこの兼ね合いが原因かも？とふと思いました。 shell関数は非同期処理で、会社の共有フォルダを開くときはローカルと違って若干起動に時間がかかります。 shell関数の処理が完了しきっていないのに即終了させるから、動作が不安定になってる可能性はありますかね・・。 なのでとりあえずShell関数を、Wscript.ShellのRunメソッドの同期処理に置換えてみました。 それで明日会社でテストしてみます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/218
219: デフォルトの名無しさん [sage] 2016/06/15(水) 20:38:23.92 ID:985LHqkd それ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 とりあえず俺はこの二つで直ったが、エクスプローラ 落ちる とかでググってみ http://mevius.5ch.net/test/read.cgi/tech/1432173164/219
220: 218 [] 2016/06/16(木) 07:48:37.40 ID:MO4h1nff >>219 同期処理に変えたら全く落ちなくなりました。 どうやら推測は当たったみたいです。 手動で立ちあげてる時には同じトラブルは一度も起こったこと無く、誰からも聞いていないので、 VBA処理が原因で間違いないと思います。 ぐぐっては見てたんですけど、VBA関連でのエラー報告は０でしたね。 しかし、元々この手のトラブル報告がかなり多いことにはびっくりしました。 とりあえずは解決です。皆さんどうも有難うございました。 http://mevius.5ch.net/test/read.cgi/tech/14321731
64/220
221: デフォルトの名無しさん [sage] 2016/06/16(木) 14:05:29.72 ID:tOwQ8tvq タイミングの問題で、バグが起きるときは、 sleep 3秒などで、時間稼ぎすることが多いな http://mevius.5ch.net/test/read.cgi/tech/1432173164/221
222: デフォルトの名無しさん [sage] 2016/06/16(木) 16:27:03.77 ID:YtVxucfB >>221 タイミングというか処理を待ち合わせる必要があるって事だよな 3秒で完了しない処理だと問題が起きる 90%くらい解決出来れば実用上は問題にならないかも知れないけど http://mevius.5ch.net/test/read.cgi/tech/1432173164/222
223: デフォルトの名無しさん [sage] 2016/06/16(木) 21:40:45.67 ID:JOmdLZoV ' キャッシュ反映を待って5秒待つ ↑これなんとかして http://mevius.5ch.net/test/read.cgi/tech/1432173164/223
224: デフォルトの名無しさん [sage] 2016/06/16(木) 21:53:33.23 ID:EpEOLr57 >>223 何のキャッシュか判らないけど キャッシュをフラッシュするインターフェイスがあればそれを使えば良いのでは 無いなら知らない http://mevius.5ch.net/test/read.cgi/tech/1432173164/224
225: デフォルトの名無しさん [sage] 2016/06/17(金) 01:16:02.29 ID:Sh+IdTol 起動方法と起動のタイミングの問題で >１分〜数分以内に「エクスプローラは停止しました」 >場合によっては２０分くらい経ってからクラッシュ のような症状が出るとは考えにくいけどな まあ、直ったって言うならそれでいいけど http://mevius.5ch.net/test/read.cgi/tech/1432173164/225
226: 樵の結び目。 [] 2016/09/03(土) 18:27:18.44 ID:Ms7vNg4j この作者について http://img.atwikiimg.com/www9.atwiki.jp/gensouv/attach/346/23/ExcelVBAPractice.html どう思いますか？？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/226
227: デフォルトの名無しさん [] 2016/09/28(水) 19:27:48.59 ID:BVBInYIb vbaの And, Or って短絡評価してくれないの？？？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/227
228: デフォルトの名無しさん [sage] 2016/09/28(水) 20:30:34.84 ID:X231kNmm >>227 普通しない （常にしないかどうかは知らんけど） http://mevius.5ch.net/test/read.cgi/tech/1432173164/228
229: デフォルトの名無しさん [sage] 2016/09/28(水) 22:20:25.14 ID:w7cfX4QA X(n) And Y(m) で X(n) = False だった場合、Y(m) は評価しなくても式が False と確定する Or でも同様のことが可能 VBAがショートサーキットしているかどうかは、各関数で Debug ログを出力してみればわかる http://mevius.5ch.net/test/read.cgi/tech/1432173164/229
230: デフォルトの名無しさん [sage] 2016/09/29(木) 04:55:17.68 ID:IF5lu7hc >>229 いちいち短絡評価の説明なんてしなくていいよ... http://mevius.5ch.net/test/read.cgi/tech/1432173164/230
231: 227 [sage] 2016/09/29(木) 08:22:26.74 ID:l2tsRcXf くぅ。 短絡評価してくれるもんだと思って、 True, False, Nullを返す関数の結果で、 NullをFalseに倒したくて、 左辺でNot isNullやってたけど、 右辺もNullで動いてしまってエラーになってはまったわ。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/231
232: デフォルトの名無しさん [sage] 2016/09/29(木) 12:46:05.66 ID:tIM+raH6 VBAあるある http://mevius.5ch.net/test/read.cgi/tech/1432173164/232
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 770 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.018s