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/

**デフォルトの名無しさん** · 2015/10/28(水) 14:22:04.16

>>119
ハンドル違うんじゃね？

**119** · 2015/10/29(木) 03:59:21.10

>>120
値は取得できてます。
これが本当にメッセージのハンドルなのか調べ方を知らないので合ってるかは分かりません。
FindWindowも間違ってないと思うのですが、こちらも調べてみます。

**デフォルトの名無しさん** · 2015/10/29(木) 21:40:45.69

WM_COMMANDの右2つの引数の指定の仕方が間違ってるのと
有効なウィンドウハンドルかどうかはIsWindowで取得できる

**119** · 2015/10/30(金) 00:47:33.04

Rtn = SendMessage(hWnd, WM_COMMAND, 2, 0)

でうまく閉じてくれました。

>>122さんレスありがとうございます。

**デフォルトの名無しさん** · 2015/11/03(火) 17:46:00.00

質問が2つあります（長文すみませんm(_ _)m

○1点目：vbaを用いた自動化でdiv要素だけのボタンを押す方法
作業->ウェブのあるサービスにログインし、一定の操作をしてからログアウトする
問題->idとpassの入力はできたが、ボタンが押せない

構造的には下記アドレスのログインフォームと似ていて
ttp://codepen.io/andrejmlinarevic/full/NGGdVv/
上記例の<button class="btn">Login</button>のような
button要素がなく、div要素のみで設計されています

javascript関係かと思い.fireEventや.Script.setTimeoutを調べてみたのですが
div要素には実行されるjavascriptやそのfunctionなどは何も無く、class名だけ書かれています

○2点目：ieオブジェクトのdocumentがローカルウインドウから参照出来ない
上の質問と関係し、ieオブジェクトのdocumentの中身を見ようとしたのですが
document以下が<変数なし>となっており参照出来ません
調べるとskydriveのadd-onを入れる、shellから持ってくる等情報がありますが、いずれでも解決出来ませんでした
なお<変数なし>とは出ていますが、debug.print ie.document.titleなどとすると中身は出力されます

環境
Windows8.1 pro 64bit
excel 2013 32bit：参照設定MS Internet Controls/MS HTML Object Library/OLE Automation
　　　　　　　　　Visual Basic For Applications/ MS Excel 15.0 Object Library/ MS office 15.0 Object Library
ie 11 64bit(32bitでも変わらず）

**デフォルトの名無しさん** · 2015/11/03(火) 19:21:14.85

パワポでソフトトーク使いたいんだけど『開発』タブ出すところまではできてもVBAでマクロを記述～っていうのができない。インポートするファイルの在り処か作成法を情弱にも理解できるように教えてほしい…

**デフォルトの名無しさん** · 2015/11/03(火) 19:22:51.42

参考にしてるのはこれ。
パワポも２ちゃんも初心者でごめんなさい…
http://needtec.exblog.jp/18919344/

**デフォルトの名無しさん** · 2015/11/03(火) 19:41:17.58

>>125
Alt + F11

**デフォルトの名無しさん** · 2015/11/04(水) 15:38:11.36

127
Visual Basicのウィンドウは出てきたしテキストもコピペしたけど
wavが自分のファイルに保存されない。
マクロ実行しても何も起こらずウィンドウが閉じるだけ。パワポのファイルにも音源は見当たらない。

**デフォルトの名無しさん** · 2015/11/04(水) 15:56:19.21

>>124
1点目はソースがないとなんとも。

2点目はHTMLDocumentあたりで定義したオブジェクト(変数?)にSetしてやれば参照できるよ。
理由はしらんがie.Documentみたいなままだと参照できない。

**デフォルトの名無しさん** · 2015/11/04(水) 21:25:56.71

>>128
何をしてどうなったのか具体的に書いてもらわないとわかりません
パワポにマクロを組み込んで、softTalkのパスを指定して
スライドのノートに文章を書いて、マクロ実行、までは出来たという理解でOK？

**デフォルトの名無しさん** · 2015/11/04(水) 21:55:38.97

>>129
レスありがとうございます
2点目はアドバイスの通り、set objDoc = objIe.Document.allとかしたら中身読めました。ありがとうございます！

1点目は情報少なくて申し訳ないです
業務用なので詳細は一部フェイク入れますが、htmlにはinputタグがあるだけで
<input id="id" class="input-text" type="text" ime-mode="disabled"></input>
はあるのですが、idとpassを入れた後に押すボタンが
<div class="btn-control-outer">
<div class="btn-control-inner">
<div class="btn-control-message">OK</div>
</div></div>
というタグだけで作られています
（なおこのタグはjsで動的に作られているようで、IEの要素チェックで確認したものをコピペしています。ソースだとこのタグがありません）
リンク要素のように.clickが出来るものがなく、setTimeOutするにも、タグの中にjavascript:alert();のような記述も見当たりません

トップページのソースでjsを外部参照していたので、改行がないjs（minify化？）ファイルを読み解いていますが
上のdivタグとどうに関係しているのかわからず詰まっている状態です。

**デフォルトの名無しさん** · 2015/11/05(木) 10:30:26.20

>>131

div ボタンでぐぐったらこんなサイトがあって
http://lilia-study.com/web/jquery/sample/div-button.html
ここのサンプルが言っているdivのみのボタンかと思う。
http://lilia-study.com/jquery-sample/sample1/sample.html

For Each tag In ie.Document.getElementsByTagName("div")

Next

**デフォルトの名無しさん** · 2015/11/05(木) 10:32:32.99

途中だった

For Each tag In ie.Document.getElementsByTagName("div")
if tag.ID = "aaa" Then
tag.Click
end if
Next

でクリックできた。
そちらのサイトでも動くんでないか？

**デフォルトの名無しさん** · 2015/11/05(木) 21:56:35.78

パワーポイントで、すべてのシートについて青い文字だけを黒い文字に変換するようなマクロを
作っていただけないでしょうか。

**デフォルトの名無しさん** · 2015/11/05(木) 23:31:33.31

>>132
アドバイスいただいた方法で出来ました！
div要素をclick出来るとは思っておりませんでした。
本当にありがとうございます。

その後の処理も上で>>119さんのやりとりから調べて目的とする動作が出来ました
合わせて感謝します。

**デフォルトの名無しさん** · 2015/11/05(木) 23:51:53.10

>>135
こちらもdivがボタンにできるのを初めて知ったので勉強になったよ。
ちなみに119もオレw

**124** · 2015/11/06(金) 07:09:49.59

！Σ（・ω・ノ）ノ
お礼伝わり良かったですｗ

**デフォルトの名無しさん** · 2015/11/08(日) 22:46:51.63

access2013でフォームからの入力期間の金額を集計してレポート作成をしようとしています。
vbaでレポートボタンを押下した動作と同じコードは存在しますでしょうか。

**デフォルトの名無しさん** · 2015/11/09(月) 00:38:10.22

レポートボタンってのが何の事かわからんが DoCmd.OpenReport使えとかそういう事か？

とりあえずACCESS VBAはそれ用のスレがあるからそっちで聞け

**デフォルトの名無しさん** · 2015/11/09(月) 02:05:47.54

>>134
すべてのシートの、
すべてのテキストの文字色を、一つずつ調べていき、
(または、1文字ずつ調べながら、)

もしそれが青なら、黒に変更する

**デフォルトの名無しさん** · 2016/02/17(水) 15:13:29.51

パワポのVBAでお願いします。
ファイル→情報→メディアの圧縮
わVBAからやりたいのですがどのオブジェクトのどのメソッドからやればいいのかわかる方いたら教えて下さい。

音声ファイルの圧縮がやりたいのです。

**デフォルトの名無しさん** · 2016/02/24(水) 21:04:30.98

141507
140712
140715
141512
141207
141215
140708
140709
141508
140807
140703
141509
140815
141503
141208
140907
140315
141209
140915
141203

競馬の三連単の買い目がこのようにある時、マークシート記入枚数を減らすために
14-7,12,15-3,7,8,9,12,15
14-8,9-7,15
140315
とまとめたいのですが、どのように処理すればよいでしょうか？
いずれは金額も考慮したいと考えていますが、現段階では難易度を下げるために同一金額としてください。
同じ理由でここでは頭を固定で例を作成させていただきました。

よろしくお願いします。

**デフォルトの名無しさん** · 2016/02/24(水) 22:34:57.70

>>142
VBA関係ないじゃん
書き込むスレ間違ってるよ

**デフォルトの名無しさん** · 2016/02/24(水) 22:39:06.06

>>143
他にそれらしいスレがみつからなかったことと、この買い目を出す処理をVBAで行っているのでここで聞いたのですが
適切なスレがありましたら移動しますので、誘導願います

**デフォルトの名無しさん** · 2016/02/24(水) 23:05:03.48

>>144
ごめん、>>1 読む限りだとこのスレで問題なさそうね…
すまんかった

**デフォルトの名無しさん** · 2016/02/24(水) 23:07:19.07

でもEXCEL VBAに行ったほういい気がする
どうせEXCELだろ

**デフォルトの名無しさん** · 2016/02/25(木) 00:31:32.38

>>142
そういうのはアルゴリズム系スレの方が受けがいいかと
あんま言語関係ないし
データ構造,アルゴリズム,デザインパターン総合ｽﾚ 2
http://peace.2ch.net/test/read.cgi/tech/1362301811/

**142** · 2016/02/27(土) 08:28:02.19

>>147
了解

**デフォルトの名無しさん** · 2016/03/07(月) 19:56:57.79

ミリ秒より短い時間の計測ってどうやるの？

**デフォルトの名無しさん** · 2016/03/07(月) 20:49:02.27

>>149
何を計測したいの？

**デフォルトの名無しさん** · 2016/03/09(水) 17:27:24.27

というかVBA マイクロ秒でぐぐったりしたの？

**デフォルトの名無しさん** · 2016/03/18(金) 00:50:59.88

EXCELのVBAでインデントされたとりあえず下のようなXMLを作成したく
http://blogs.yahoo.co.jp/ke1_thanks/folder/929993.html?m=lc
を参考に作成してるのですが、うまく孫要素が作成できません。
どうすれば孫要素が作成できるのでしょうか。ご教示お願いします。
また何と調べればいいのかを教えていただければ幸いです。

環境　windows7 　64bit と32bit両方
　Excel 2010 64bit と32bit 両方

作成したいXML(括弧は半角だとうまく書き込めないみたいなので全角にしてます)

＜?xml version="1.0" encoding="UTF-16" standalone="yes"?＞
＜ROOT＞
＜TITTLE＞DQ5＜/TITTLE＞
＜CHARACTER＞
＜PERSON＞
＜NAME＞パパス＜/NAME＞
＜HOBBY＞女装＜/HOBBY＞
＜COMMENT＞ぬわーーっっ！！＜/COMMENT＞
＜/PERSON＞
＜PERSON＞
＜NAME＞ゲマ＜/NAME＞
＜HOBBY＞メラミ＜/HOBBY＞
＜COMMENT＞ほっほっほっほっ。子を思う親の気持ちは　いつみても　いいものですね。＜/COMMENT＞

＜/PERSON＞
＜/CHARACTER＞
＜/ROOT＞

**デフォルトの名無しさん** · 2016/03/18(金) 01:48:30.33

>>152
vba xml 生成とかでググるといくらでもやり方はヒットすると思うけど
具体的にどんなコードのどこで行き詰まってるのか書いてくれないとアドバイスしようがない

**デフォルトの名無しさん** · 2016/03/18(金) 11:47:02.11

＜CHARACTER＞が＜/CHARACTER＞で作成されてしまい、閉じてくれません。また＜PERSON＞などが孫要素になってくれません。
コードはこんな感じです。
http://pastebin.com/CVVKVnYF

作成されるXMLは↓です。
＜?xml version="1.0" encoding="UTF-16" standalone="yes"?＞
＜ROOT＞
＜TITTLE＞DQ5＜/TITTLE＞
＜CHARACTER/＞
＜PERSON/＞
＜NAME＞パパス＜/NAME＞
＜HOBBY＞女装＜/HOBBY＞
＜COMMENT＞ぬわーーっっ！！＜/COMMENT＞
＜PERSON/＞
＜NAME＞ゲマ＜/NAME＞
＜HOBBY＞メラミ＜/HOBBY＞
＜COMMENT＞ほっほっほっほっ。子を思う親の気持ちは　いつみても　いいものですね。＜/COMMENT＞
＜/ROOT＞

**デフォルトの名無しさん** · 2016/03/18(金) 21:10:32.76

>>154
＞ 'ノードとして子ども・孫の要素を追加
＞Set elem2 = rootelem.appendChild(myxml.createElement("CHARACTER"))
＞ Set elem2 = rootelem.appendChild(myxml.createElement("PERSON"))
＞
＞ 'ノードとしてひ孫の要素を追加
＞Set node = rootelem.appendChild(myxml.createNode("element", "NAME", ""))
＞ node.Text = "パパス"

rootelemにしか子供追加してないから、孫、ひ孫が生成されないのは当然な気がする
追加した子要素に子供を追加してやらなくちゃ…
試してないけどこんな感じ？

'ノードとして子ども・孫の要素を追加
Set elem2 = rootelem.appendChild(myxml.createElement("CHARACTER"))
Set elem2 = elem2.appendChild(myxml.createElement("PERSON"))

'ノードとしてひ孫の要素を追加
Set node = elem2.appendChild(myxml.createNode("element", "NAME", ""))
node.Text = "パパス"

**デフォルトの名無しさん** · 2016/03/19(土) 11:15:23.76

ThisWorkbook.Save
で「指定したディメンションは、このグラフの種類では無効です。」のエラー発生。
エラーが出るときと出ないときがある。

VBAでグラフを操作している部分もあるが、それとは無関係と思われるSaveでこのエラーに戸惑っています。

↓このサイトで、SaveAsで存在しないパスを指定し同様のエラーが出た事例は見つかりましたが私はパス指定していません｡
http://yaplog.jp/purplish-blog/archive/1838

エラー回避する方法を教えて下さい。

**156** · 2016/03/19(土) 11:26:07.75

>>156はエクセルの話です
win7, office2010

**デフォルトの名無しさん** · 2016/03/20(日) 06:56:26.93

どなたか>>156わかりませんか？

**デフォルトの名無しさん** · 2016/03/20(日) 07:11:36.75

VBA内でセル指定をするときにシート名を明記しないと
そのセルがアクティブシートのセルになってしまってエラーが出ることがあるけど

VBAでグラフを作成するプログラムを作成していますが、エラーがでます。エラーの... - Yahoo!知恵袋
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1486687089

ぷぎえもん日記 VBA：実行時エラー1004グラフを作る時のエラーについて
http://pugiemonn.blog6.fc2.com/?m&;no=985

その辺は大丈夫？

**デフォルトの名無しさん** · 2016/03/20(日) 14:30:13.47

>>155
うまく行き作りたいものが作れました。ありがとうございます。

**デフォルトの名無しさん** · 2016/03/21(月) 00:33:38.32

>>159
レスありがとうございます。
今出先なので明日帰宅してから確認してみます。

**デフォルトの名無しさん** · 2016/03/21(月) 00:35:10.70

あ、書き込めた。規制かかっててレスできず申し訳ないです。

**デフォルトの名無しさん** · 2016/03/24(木) 09:23:12.55

既存のブックに入れているマクロは正常動作しているんだけど、2,3日以前から作った
ブックは
オートメーションエラーです。
例外が発生しました。

ってエラーですぐ落ちてしまうんだけど、これって何が原因なんですかね。
（OS Win7Home excel2010）

なんせ、
Sub test()
MsgBox "test"
End Sub
ってだけのでも同じエラーで落ちてしまうんで┐(´∀｀)┌
ちなみにウィルス対策はAVGでチェックかけて異常なしではありました

http://www.dotup.org/uploda/www.dotup.org790841.jpg

**デフォルトの名無しさん** · 2016/03/24(木) 12:50:23.33

>>156
「vba 指定したディメンションは、このグラフの種類では無効です。」で検索！

>>163
「vba オートメーションエラー」で検索！

**デフォルトの名無しさん** · 2016/04/09(土) 01:33:44.74

Declare 文でDllを指定するとき、絶対パスを指定するのとしないので挙動が変わるなんてことありますかね？

パスの通ったフォルダにDllを置きDeclare文にはパスを書かない、という状態で何度テストしても失敗する（結果がおかしい）ので、
もしやと思って絶対パスを指定してみたら成功しました。何度やっても同じです。

念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。

Window7、Excel2010(64bit)です。

**kio** · 2016/04/09(土) 09:27:26.96

下記プログラムでデータ貼り付け可能ですが、
Range(

**デフォルトの名無しさん** · 2016/04/09(土) 10:55:02.62

>>165
なんで大事な部分を書かずに濁すの？

**デフォルトの名無しさん** · 2016/04/09(土) 11:27:25.80

>>167
大事な部分って？

**デフォルトの名無しさん** · 2016/04/09(土) 11:49:50.63

コードじゃね？

**デフォルトの名無しさん** · 2016/04/09(土) 12:00:42.12

どんな dll 使って、
どう失敗するのか

とかじゃね？

**デフォルトの名無しさん** · 2016/04/09(土) 12:35:11.85

性別と容姿じゃね？

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

>>167-170

DLLはこんな感じで
Declare PtrSafe Function funcABC Lib "ABC.dll" (ByVal n As Long, ByRef v As Variant) As Long

本来1が返ってくるべきところに0が返ってくるんです。
だけど、～　Lib "C:\tmp\ABC.dll"　～　とすると、ちゃんと1が返ってくる。

どちらの場合もDLL名を変えると「ファイルが見つかりません」という実行時エラーになるので、同じDLLファイルを
指しいてるのは間違いないと思います。

**デフォルトの名無しさん** · 2016/04/09(土) 16:35:57.82

>>172
そんなの "ABC.dll" の作り次第だろ
作者に聞けよ
dll のパス取得して何かしてるのかもしれないし
http://frog.raindrop.jp/knowledge/archives/000316.html

**デフォルトの名無しさん** · 2016/04/09(土) 16:55:41.43

>念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。
限りなくこれが怪しいと思うんだが

**デフォルトの名無しさん** · 2016/04/09(土) 16:57:28.60

>>165
同名のdllが無いことをどうやって確認した？

**デフォルトの名無しさん** · 2016/04/09(土) 18:20:08.40

>>165
挙動が変わることはあります。
おわり

**デフォルトの名無しさん** · 2016/04/09(土) 18:32:34.00

>>175
パスが通っている全フォルダとカレントフォルダからの目視です。

環境変数(PATH)をまず確認して、
kernel32.dllにあるAPI 「GetEnvironmentVariableA」に引数"PATH"を渡して出てきたフォルダを対象にしました。

問題のfuncABC も GetEnvironmentVariableA も同じVBAから発行しています。

**デフォルトの名無しさん** · 2016/04/09(土) 18:41:03.58

カレントフォルダをどうやって確認したかとか
システムディレクトリにdllがないかとか

まあ、確認漏れ自体はいっぱいありそうだな

**デフォルトの名無しさん** · 2016/04/09(土) 18:46:44.36

>>178
C:\windowsやC:\Program Files、C:\Program Files (x86)は入ってますよ。
目視も検索フィルタにとりあえず *.dll で全DLLを出してからやっています。

>>176
マジですか...

**デフォルトの名無しさん** · 2016/04/09(土) 19:45:00.69

>>179
本当にひとつしかないならあり得ない挙動だと思うけど。
dllの内容を明かしてみな。

**デフォルトの名無しさん** · 2016/04/09(土) 19:57:07.07

Windows が使用する DLL 検索パス

1.実行中のプロセスの実行形式モジュールがあるフォルダー。
2.現在のフォルダー。
3.Windows システムフォルダー。このフォルダーへのパスは、GetSystemDirectory 関数が取得します。
4.Windows ディレクトリ。このフォルダーへのパスは、GetWindowsDirectory 関数が取得します。
5.環境変数 PATH 内に記述されたフォルダー。

https://msdn.microsoft.com/ja-jp/library/7d83bc18.aspx

**デフォルトの名無しさん** · 2016/04/09(土) 20:29:56.83

>>177
ウインドウズの検索機能を使ってみたら？

**デフォルトの名無しさん** · 2016/04/09(土) 20:38:17.27

何か仕事でもしながら、ディスク全部の範囲で、検索すればいい

**デフォルトの名無しさん** · 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
とりあえず俺はこの二つで直ったが、エクスプローラ落ちるとかでググってみ