VBAなんでも質問スレ ..
[2ch|▼Menu]
104:デフォルトの名無しさん
15/09/08 14:37:39.47 m7aBfM8f.net
>>101
自分も実機がないのよね。
ieが残ってるいうのは聞いてるんだけど、7や8からのアップデートでも、10のクリーンインストールでも何の設定もしないでも動くのかなと。
テストしてる人とかいないかな?

105:デフォルトの名無しさん
15/09/12 05:23:11.91 dQMUA4G2.net
仮想用に買った10のUSBが今日届くから環境作り次第ObjIE試してみますん

106:デフォルトの名無しさん
15/10/07 06:57:36.90 qdqRCjiZ.net
受ける会社大丈夫?
下記の条件が全て当てはまる会社にご注意下さい。
・IT系 in tokyo
・「社名 労基」でググると過去の2chスレが出てくる
・転職会議で2.5点

107:デフォルトの名無しさん
15/10/12 22:50:34.44 Xy8ebFp6.net
今、こんなグラフがあるんですが、
URLリンク(i.imgur.com)
これを↓のようにするにはどのようにしたらいいんでしょうか?
URLリンク(i.imgur.com)

108:デフォルトの名無しさん
15/10/12 23:30:39.75 DYP6asIc.net
>>105
何がしたいの?
回転させたいの?

109:デフォルトの名無しさん
15/10/12 23:35:13.73 oCa7NkmO.net
>>105
もう既に出来ているんじゃないか?

110:デフォルトの名無しさん
15/10/12 23:36:26.71 Xy8ebFp6.net
>>106
縦軸と横軸を入れ替えたいのです。
画像として90度回転させたいわけではないのです。

111:デフォルトの名無しさん
15/10/12 23:40:07.79 Xy8ebFp6.net
>>107
>>105は1枚めの画像を左に90度回転させ2枚めの画像としています。
現在、エクセルで1枚目のようなグラフがあるのですが、
縦軸と横軸を入れ替えたような(2枚目画像のような)グラフをエクセルで作りたいのです。
自分なりにいろいろ試したのですができませんでした。

112:デフォルトの名無しさん
15/10/12 23:41:53.96 oCa7NkmO.net
>>108
入れ替えたグラフを既に作っているじゃないですか?それで完成しているのでは?

113:デフォルトの名無しさん
15/10/13 00:02:52.88 X9js2iKE.net
>>110
ああ、ごめんなさい。
>>105の2枚目の画像は1枚目の画像を画像ビューワーソフトで左回転させたものなんです。
2枚目のようなグラフをエクセルで作成したいんです。
(今は1枚目のようなグラフをエクセルで作った段階です)

114:デフォルトの名無しさん
15/10/13 15:10:52.88 v0mnZW8d.net
>>111
私も、できてると思うんですが?

115:105
15/10/13 18:10:14.52 X9js2iKE.net
改めて質問させてください。
エクセルで↓のようなグラフがあります。
URLリンク(i.imgur.com)
このグラフの縦軸と横軸を入れ替えたグラフを(エクセルで)作成したいのですがやり方がわかりません。
作成したいグラフのイメージは↓のようなものです(この画像は画像ビューワーで作成したものです)
URLリンク(i.imgur.com)
わかりづらくてすみません。

116:デフォルトの名無しさん
15/10/13 18:27:38.73 jBFoqp2r.net
>>113
Excel グラフ 回転
でググるとやり方でてくるけど、これじゃ駄目?

117:105
15/10/13 21:52:53.15 X9js2iKE.net
>>114
今エクセルを試せる環境ではないので検索してみた結果を眺めたところ、
線グラフや面グラフの縦軸と横軸の反転は非常に難しそうな印象を受けました。
難しいというか無理やりというか。
そこまでの労力をかけないと望む結果が得られないということはなんとなくわかりました。
そうであるならば現状を受け入れるしかないのかと思っております。
今回は諦めます。ありがとうございました。

118:デフォルトの名無しさん
15/10/13 22:05:15.03 v0mnZW8d.net
>>115
散布図でやってみるとか?

119:デフォルトの名無しさん
15/10/13 23:07:15.46 /7qkRhU+.net
>>113
Excelの質問かよ…
じゃあなんでExcelの質問スレじゃなくてここで質問するんだ
後出し条件出してくんなカス

120:デフォルトの名無しさん
15/10/14 00:34:55.63 psNeOyD5.net
>>117
あ〜〜VBA質問スレか・・・
すいません誤爆というかなんというか全く気づかず・・・

121:デフォルトの名無しさん
15/10/27 14:53:17.89 EXphczgr.net
某サイトへのアクセスを1日1回、定時に行うためにIE操作を行うマクロを作っています。
必要な情報を取得した最後にそのサイトをログアウトしてIEを閉じたいのですが、ログアウトをしたときにJavascriptから?のログアウトしましたとの情報メッセージが表示されます。
ググッて調べたところ、以下の様な感じで閉じられるとあったのですが、SendMessageだけがうまくいきません。
ハンドルの値は入っています。
IE11を使っていますが、仕様が変わったのでしょうか?(Windows Updateでの最新)
このメッセージを閉じないとその後の閉じるためのVBAは進んでいるものの、実際の動作をしてくれなくて困っています。
(手動でメッセージを閉じたらその後のIEを閉じる操作が終わった状態にまで一気に進む)
わかる方いましたら教えて下さい。

Const WM_COMMAND As Long = &H111
hWnd = FindWindow("#32770", "Web ページからのメッセージ")
If hWnd <> 0 Then
Rtn = SendMessage(hWnd, WM_COMMAND, vbOK, 0)
End If

122:デフォルトの名無しさん
15/10/28 14:22:04.16 Dygk5TrA.net
>>119
ハンドル違うんじゃね?

123:119
15/10/29 03:59:21.10 l3n8K/Sw.net
>>120
値は取得できてます。
これが本当にメッセージのハンドルなのか調べ方を知らないので合ってるかは分かりません。
FindWindowも間違ってないと思うのですが、こちらも調べてみます。

124:デフォルトの名無しさん
15/10/29 21:40:45.69 Q2L1bFVS.net
WM_COMMANDの右2つの引数の指定の仕方が間違ってるのと
有効なウィンドウハンドルかどうかはIsWindowで取得できる

125:119
15/10/30 00:47:33.04 ZHFQ9n4z.net
Rtn = SendMessage(hWnd, WM_COMMAND, 2, 0)
でうまく閉じてくれました。
>>122さんレスありがとうございます。

126:デフォルトの名無しさん
15/11/03 17:46:00.00 fVYiq8DO.net
質問が2つあります(長文すみませんm(_ _)m
○1点目:vbaを用いた自動化でdiv要素だけのボタンを押す方法
作業->ウェブのあるサービスにログインし、一定の操作をしてからログアウトする
問題->idとpassの入力はできたが、ボタンが押せない
構造的には下記アドレスのログインフォームと似ていて
URLリンク(codepen.io)
上記例の<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でも変わらず)

127:デフォルトの名無しさん
15/11/03 19:21:14.85 elW9O1dh.net
パワポでソフトトーク使いたいんだけど『開発』タブ出すところまではできてもVBAでマクロを記述〜っていうのができない。インポートするファイルの在り処か作成法を情弱にも理解できるように教えてほしい…

128:デフォルトの名無しさん
15/11/03 19:22:51.42 elW9O1dh.net
参考にしてるのはこれ。
パワポも2ちゃんも初心者でごめんなさい…
URLリンク(needtec.exblog.jp)

129:デフォルトの名無しさん
15/11/03 19:41:17.58 fVYiq8DO.net
>>125
Alt + F11

130:デフォルトの名無しさん
15/11/04 15:38:11.36 DjYXAcy0.net
127
Visual Basicのウィンドウは出てきたしテキストもコピペしたけど
wavが自分のファイルに保存されない。
マクロ実行しても何も起こらずウィンドウが閉じるだけ。パワポのファイルにも音源は見当たらない。

131:デフォルトの名無しさん
15/11/04 15:56:19.21 Y61Iie1f.net
>>124
1点目はソースがないとなんとも。
2点目はHTMLDocumentあたりで定義したオブジェクト(変数?)にSetしてやれば参照できるよ。
理由はしらんがie.Documentみたいなままだと参照できない。

132:デフォルトの名無しさん
15/11/04 21:25:56.71 NpxeN+NQ.net
>>128
何をしてどうなったのか具体的に書いてもらわないとわかりません
パワポにマクロを組み込んで、softTalkのパスを指定して
スライドのノートに文章を書いて、マクロ実行、までは出来たという理解でOK?

133:デフォルトの名無しさん
15/11/04 21:55:38.97 NpxeN+NQ.net
>>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タグとどうに関係しているのかわからず詰まっている状態です。

134:デフォルトの名無しさん
15/11/05 10:30:26.20 HwmEl5Ub.net
>>131
div ボタンでぐぐったらこんなサイトがあって
URLリンク(lilia-study.com)
ここのサンプルが言っているdivのみのボタンかと思う。
URLリンク(lilia-study.com)
For Each tag In ie.Document.getElementsByTagName("div")
Next

135:デフォルトの名無しさん
15/11/05 10:32:32.99 HwmEl5Ub.net
途中だった
For Each tag In ie.Document.getElementsByTagName("div")
if tag.ID = "aaa" Then
tag.Click
end if
Next
でクリックできた。
そちらのサイトでも動くんでないか?

136:デフォルトの名無しさん
15/11/05 21:56:35.78 CDrat58l.net
パワーポイントで、すべてのシートについて青い文字だけを黒い文字に変換するようなマクロを
作っていただけないでしょうか。

137:デフォルトの名無しさん
15/11/05 23:31:33.31 5frd9spB.net
>>132
アドバイスいただいた方法で出来ました!
div要素をclick出来るとは思っておりませんでした。
本当にありがとうございます。
その後の処理も上で>>119さんのやりとりから調べて目的とする動作が出来ました
合わせて感謝します。

138:デフォルトの名無しさん
15/11/05 23:51:53.10 HwmEl5Ub.net
>>135
こちらもdivがボタンにできるのを初めて知ったので勉強になったよ。
ちなみに119もオレw

139:124
15/11/06 07:09:49.59 I5IXDGW5.net
!Σ(・ω・ノ)ノ
お礼伝わり良かったですw

140:デフォルトの名無しさん
15/11/08 22:46:51.63 yp780VFR.net
access2013でフォームからの入力期間の金額を集計してレポート作成をしようとしています。
vbaでレポートボタンを押下した動作と同じコードは存在しますでしょうか。

141:デフォルトの名無しさん
15/11/09 00:38:10.22 lpQ26d6h.net
レポートボタンってのが何の事かわからんが DoCmd.OpenReport使えとかそういう事か?
とりあえずACCESS VBAはそれ用のスレがあるからそっちで聞け

142:デフォルトの名無しさん
15/11/09 02:05:47.54 rGXYqJ1u.net
>>134
すべてのシートの、
すべてのテキストの文字色を、一つずつ調べていき、
(または、1文字ずつ調べながら、)
もしそれが青なら、黒に変更する

143:デフォルトの名無しさん
16/02/17 15:13:29.51 cyifogYg.net
パワポのVBAでお願いします。
ファイル→情報→メディアの圧縮
わVBAからやりたいのですがどのオブジェクトのどのメソッドからやればいいのかわかる方いたら教えて下さい。
音声ファイルの圧縮がやりたいのです。

144:デフォルトの名無しさん
16/02/24 21:04:30.98 faCUrUaa.net
141507
140712
140715
141512
141207
141215
140708
140709
141508
1408


145:07 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 とまとめたいのですが、どのように処理すればよいでしょうか? いずれは金額も考慮したいと考えていますが、現段階では難易度を下げるために同一金額としてください。 同じ理由でここでは頭を固定で例を作成させていただきました。 よろしくお願いします。



146:デフォルトの名無しさん
16/02/24 22:34:57.70 7wWguvAi.net
>>142
VBA関係ないじゃん
書き込むスレ間違ってるよ

147:デフォルトの名無しさん
16/02/24 22:39:06.06 faCUrUaa.net
>>143
他にそれらしいスレがみつからなかったことと、この買い目を出す処理をVBAで行っているのでここで聞いたのですが
適切なスレがありましたら移動しますので、誘導願います

148:デフォルトの名無しさん
16/02/24 23:05:03.48 7wWguvAi.net
>>144
ごめん、>>1 読む限りだとこのスレで問題なさそうね…
すまんかった

149:デフォルトの名無しさん
16/02/24 23:07:19.07 gEXn5/E8.net
でもEXCEL VBAに行ったほういい気がする
どうせEXCELだろ

150:デフォルトの名無しさん
16/02/25 00:31:32.38 lxjkiQUf.net
>>142
そういうのはアルゴリズム系スレの方が受けがいいかと
あんま言語関係ないし
データ構造,アルゴリズム,デザインパターン総合スレ 2
スレリンク(tech板)

151:142
16/02/27 08:28:02.19 SRIIhbK2.net
>>147
了解

152:デフォルトの名無しさん
16/03/07 19:56:57.79 IDkrJnKk.net
ミリ秒より短い時間の計測ってどうやるの?

153:デフォルトの名無しさん
16/03/07 20:49:02.27 UbdDFkp+.net
>>149
何を計測したいの?

154:デフォルトの名無しさん
16/03/09 17:27:24.27 ISN2ur/+.net
というかVBA マイクロ秒でぐぐったりしたの?

155:デフォルトの名無しさん
16/03/18 00:50:59.88 QavJ4QpP.net
EXCELのVBAでインデントされたとりあえず下のようなXMLを作成したく
URLリンク(blogs.yahoo.co.jp)
を参考に作成してるのですが、うまく孫要素が作成できません。
どうすれば孫要素が作成できるのでしょうか。ご教示お願いします。
また何と調べればいいのかを教えていただければ幸いです。
環境 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>

156:デフォルトの名無しさん
16/03/18 01:48:30.33 emFx7ejn.net
>>152
vba xml 生成 とかでググるといくらでもやり方はヒットすると思うけど
具体的にどんなコードのどこで行き詰まってるのか書いてくれないとアドバイスしようがない

157:デフォルトの名無しさん
16/03/18 11:47:02.11 QavJ4QpP.net
<CHARACTER>が</CHARACTER>で作成されてしまい、閉じてくれません。また<PERSON>などが孫要素になってくれません。
コードはこんな感じです。
URLリンク(pastebin.com)

作成される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>

158:デフォルトの名無しさん
16/03/18 21:10:32.76 Sdu3bujA.net
>>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 = "パパス"

159:デフォルトの名無しさん
16/03/19 11:15:23.76 LxdobWB2.net
ThisWorkbook.Save
で「指定したディメンションは、このグラフの種類では無効です。」のエラー発生。
エラーが出るときと出ないときがある。
VBAでグラフを操作している部分もあるが、それとは無関係と思われるSaveでこのエラーに戸惑っています。
↓このサイトで、SaveAsで存在しないパスを指定し同様のエラーが出た事例は見つかりましたが私はパス指定していません。
URLリンク(yaplog.jp)
エラー回避する方法を教えて下さい。

160:156
16/03/19 11:26:07.75 LxdobWB2.net
>>156はエクセルの話です
win7, office2010

161:デフォルトの名無しさん
16/03/20 06:56:26.93 XolQD74Z.net
どなたか>>156わかりませんか?

162:デフォルトの名無しさん
16/03/20 07:11:36.75 P5LbtOo8.net
VBA内でセル指定をするときにシート名を明記しないと
そのセルがアクティブシートのセルになってしまってエラーが出ることがあるけど
VBAでグラフを作成するプログラムを作成していますが、エラーがでます。エラーの... - Yahoo!知恵袋
URLリンク(detail.chiebukuro.yahoo.co.jp)
ぷぎえもん日記 VBA:実行時エラー1004グラフを作る時のエラーについて
URLリンク(pugiemonn.blog6.fc2.com)
その辺は大丈夫?

163:デフォルトの名無しさん
16/03/20 14:30:13.47 U/mbzow+.net
>>155
うまく行き作りたいものが作れました。ありがとうございます。

164:デフォルトの名無しさん
16/03/21 00:33:38.32 RmxeJW4x.net
>>159
レスありがとうございます。
今出先なので明日帰宅してから確認してみます。

165:デフォルトの名無しさん
16/03/21 00:35:10.70 RmxeJW4x.net
あ、書き込めた。規制かかっててレスできず申し訳ないです。

166:デフォルトの名無しさん
16/03/24 09:23:12.55 Y45L/A5m.net
既存のブックに入れているマクロは正常動作しているんだけど、2,3日以前から作った
ブックは
オートメーションエラーです。
例外が発生しました。
ってエラーですぐ落ちてしまうんだけど、これって何が原因なんですかね。
(OS Win7Home excel2010)
なんせ、
Sub test()
MsgBox "test"
End Sub
ってだけのでも同じエラーで落ちてしまうんで┐(´∀`)┌
ちなみにウィルス対策はAVGでチェックかけて異常なしではありました
URLリンク(www.dotup.org)

167:デフォルトの名無しさん
16/03/24 12:50:23.33 FJvNCHp3.net
>>156
「vba 指定したディメンションは、このグラフの種類では無効です。」で検索!
>>163
「vba オートメーションエラー」で検索!

168:デフォルトの名無しさん
16/04/09 01:33:44.74 8VJ1WNjN.net
Declare 文でDllを指定するとき、絶対パスを指定するのとしないので挙動が変わるなんてことありますかね?
パスの通ったフォルダにDllを置きDeclare文にはパスを書かない、という状態で何度テストしても失敗する(結果がおかしい)ので、
もしやと思って絶対パスを指定してみたら成功しました。何度やっても同じです。
念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。
Window7、Excel2010(64bit)です。

169:kio
16/04/09 09:27:26.96 OaMx2gZN.net
下記プログラムでデータ貼り付け可能ですが、
Range(

170:デフォルトの名無しさん
16/04/09 10:55:02.62 uD9Ltjj7.net
>>165
なんで大事な部分を書かずに濁すの?

171:デフォルトの名無しさん
16/04/09 11:27:25.80 mXQNErhc.net
>>167
大事な部分って?

172:デフォルトの名無しさん
16/04/09 11:49:50.63 8+AE4+J9.net
コードじゃね?

173:デフォルトの名無しさん
16/04/09 12:00:42.12 YC7vrxdl.net
どんな dll 使って、
どう失敗するのか
とかじゃね?

174:デフォルトの名無しさん
16/04/09 12:35:11.85 lZD29UWG.net
性別と容姿じゃね?

175:デフォルトの名無しさん
16/04/09 15:25:31.33 8VJ1WNjN.net
>>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ファイルを
指しいてるのは間違いないと思います。

176:デフォルトの名無しさん
16/04/09 16:35:57.82 kbPPFUQM.net
>>172
そんなの "ABC.dll" の作り次第だろ
作者に聞けよ
dll のパス取得して何かしてるのかもしれないし
URLリンク(frog.raindrop.jp)

177:デフォルトの名無しさん
16/04/09 16:55:41.43 DA1syyI4.net
>念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。
限りなくこれが怪しいと思うんだが

178:デフォルトの名無しさん
16/04/09 16:57:28.60 XGWfr4Pw.net
>>165
同名のdllが無いことをどうやって確認した?

179:デフォルトの名無しさん
16/04/09 18:20:08.40 uD9Ltjj7.net
>>165
挙動が変わることはあります。
おわり

180:デフォルトの名無しさん
16/04/09 18:32:34.00 8VJ1WNjN.net
>>175
パスが通っている全フォルダとカレントフォルダからの目視です。
環境変数(PATH)をまず確認して、
kernel32.dllにあるAPI 「GetEnvironmentVariableA」 に引数"PATH"を渡して出てきたフォルダを対象にしました。
問題のfuncABC も GetEnvironmentVariableA も同じVBAから発行しています。

181:デフォルトの名無しさん
16/04/09 18:41:03.58 DA1syyI4.net
カレントフォルダをどうやって確認したかとか
システムディレクトリにdllがないかとか
まあ、確認漏れ自体はいっぱいありそうだな

182:デフォルトの名無しさん
16/04/09 18:46:44.36 8VJ1WNjN.net
>>178
C:\windowsやC:\Program Files、C:\Program Files (x86)は入ってますよ。
目視も検索フィルタにとりあえず *.dll で全DLLを出してからやっています。
>>176
マジですか...

183:デフォルトの名無しさん
16/04/09 19:45:00.69 mXQNErhc.net
>>179
本当にひとつしかないならあり得ない挙動だと思うけど。
dllの内容を明かしてみな。

184:デフォルトの名無しさん
16/04/09 19:57:07.07 zSVIlalC.net
Windows が使用する DLL 検索パス
1.実行中のプロセスの実行形式モジュールがあるフォルダー。
2.現在のフォルダー。
3.Windows システム フォルダー。このフォルダー


185:へのパスは、GetSystemDirectory 関数が取得します。 4.Windows ディレクトリ。このフォルダーへのパスは、GetWindowsDirectory 関数が取得します。 5.環境変数 PATH 内に記述されたフォルダー。 https://msdn.microsoft.com/ja-jp/library/7d83bc18.aspx



186:デフォルトの名無しさん
16/04/09 20:29:56.83 XGWfr4Pw.net
>>177
ウインドウズの検索機能を使ってみたら?

187:デフォルトの名無しさん
16/04/09 20:38:17.27 KOaWU5bX.net
何か仕事でもしながら、ディスク全部の範囲で、検索すればいい

188:デフォルトの名無しさん
16/04/09 21:28:53.86 yIzAT5uL.net
windows なら黙って search everything 入れろ
考える余地なし

189:デフォルトの名無しさん
16/04/09 21:30:12.16 yIzAT5uL.net
あ、業務用のマシンだとマズいか

190:デフォルトの名無しさん
16/04/09 21:43:59.08 YC7vrxdl.net
>>179
> 目視も検索フィルタにとりあえず *.dll で全DLLを出してからやっています。
プログラマーに向いてないんじゃね?
コマンドプロンプトで
dir /s /b \ABC.dll
ってやればいいだけだろ

191:デフォルトの名無しさん
16/04/09 23:15:48.61 8VJ1WNjN.net
>>180
ODBCのコネクションを張る関数で、特に自分の場所が関係する処理はしてないですね。
>>181-186
全ドライブを検索した結果(search everythingは入れてませんが dir/s はやってみた)
C:\Users\*****\Google ドライブ\
に見つかりました。
しかし、これを消しても現象は変わらなかった(もともと参照パスに入ってない)ので、諦めの気分です。

192:デフォルトの名無しさん
16/04/10 00:12:20.49 TaPFtU7E.net
元々の質問は、挙動が変わることがあるか?で、
あるって回答で解決だと思うけど、どうしてもないってことにしたいの?
ゴールが見えないよ

193:187
16/04/10 00:39:39.00 9vV3r8su.net
>>188
あるって回答(>>176)もあり、ないって回答(>>180)もありで、判断がつかない状況です。

194:187
16/04/10 00:47:04.09 9vV3r8su.net
それと、>>173>>176もいまいち理解できておりません。
「dllのパスを取得」とは、実際の存在はひとつでもDeclare文での指定のしかたまでも検知できるんでしょうか?

195:デフォルトの名無しさん
16/04/10 01:04:43.27 9zYVMe1H.net
まさか、パス・ユーザー名など、システムに関係する部分に、
日本語を使ってないだろうな?
それで、バグってるとか?

196:187
16/04/10 01:08:14.87 9vV3r8su.net
>>191
ないですね

197:デフォルトの名無しさん
16/04/10 01:14:27.05 9zYVMe1H.net
そのDLLの作者が外人で、DLL内で、パス・ユーザー名を扱っていた場合、
もしその中に日本語が入っていれば、バグるかも

198:デフォルトの名無しさん
16/04/10 01:22:30.64 9zYVMe1H.net
>>187
>ODBCのコネクションを張る関数で
それなら、そのDBのメーカーが(ドライバーが)、絶対パスしか許可していないのかも。
相対パスの危険性も考慮して、そういうアクセス許可にしているのかも
絶対パスを使えばいい

199:デフォルトの名無しさん
16/04/10 05:47:22.16 v52RcnsN.net
>>187
> 特に自分の場所が関係する処理はしてないですね。
ん?
自分で作った dll なの?
だったら自分でデバッグしなよ

200:デフォルトの名無しさん
16/04/10 10:59:47.17 KR5BT3Be.net
全ドライブを検査してひとつしかdllファイルがなかったって言ってるんだろ。
それが本当なら何も対処できないよ。OSレベルの不具合。

201:デフォルトの名無しさん
16/04/10 17:49:12.01 r0zhudqC.net
VBAをコーディングするのに最適な画面サイズとモニターの台数は何台ですか?
縦と横どっちでつかってすか?
4Kディスプレイはどうですか?

202:デフォルトの名無しさん
16/04/10 18:54:26.34 oV0tVvW7.net
(´・ω・`)

203:デフォルトの名無しさん
16/04/10 19:33:25.31 Y5yf6QHK.net
>>197
3台

4Kいいよ

204:デフォルトの名無しさん
16/04/27 21:49:20.13 Wsz3hpAs.net
エクセルの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

205:デフォルトの名無しさん
16/04/28 00:18:56.90 Vq22azhO.net
>>200
可能です

206:デフォルトの名無しさん
16/04/28 07:31:01.70 TNqjmghT.net
>>201
教えてください。

207:デフォルトの名無しさん
16/04/28 08:26:47.90 RqXO/zBw.net
>>202
具体的にあなたが躓いているところがわかりません

208:デフォルトの名無しさん
16/04/28 12:27:24.37 xB9gNSEq.net
>>203
具体的にあなたが何がわからないのかわかりません

209:デフォルトの名無しさん
16/04/28 12:29:10.17 gq5pmM2C.net
>>200
For Eachで全シートループして、各シート最終行取得して貼り付ければ良いと思いますが、ダメですか?

210:デフォルトの名無しさん
16/04/28 20:07:58.00 iqsXmWMg.net
>>200ですが、出直してきます。

211:デフォルトの名無しさん
16/05/01 15:15:56.13 tKi6j9CT.net
匿名通信(Tor、i2p等)ができるファイル共有ソフトBitComet(ビットコメット)みたいな、
BitTorrentがオープンソースで開発されています
言語は何でも大丈夫だそうなので、P2P書きたい!って人居ませんか?
Covenantの作者(Lyrise)がそういう人と話したいそうなので、よろしければツイートお願いします
URLリンク(twitter.com)
ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーw

The Covenant Project
概要
Covenantは、純粋P2Pのファイル共有ソフトです
目的
インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します
特徴
Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)
接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません


212:デフォルトの名無しさん
16/05/01 23:24:37.04 u17iQe5m.net
EXCELのVBAでメール返信(OUTLOOK)をする仕組みを作りたいのですが、
元メールを引用するにはどうしたら良いでしょうか?
タイトルやらアドレスやら本文がくっついてないと、
どうも返信感がでないと思いまして。

213:デフォルトの名無しさん
16/05/03 10:11:50.64 YSERRocv.net
>>208
Outlookヘルプから
次の例は、現在のフォルダを受信トレイに設定し、フォルダの 2 番目のメッセージを表示します。
Visual Basic for Applications
Set myOlApp = Outlook.Application
Set myNamespa


214:ce = myOlApp.GetNamespace("MAPI") Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) myFolder.Display Set myItem = myFolder.Items(2) myItem.Display



215:デフォルトの名無しさん
16/06/04 14:31:26.42 ZLbjql14.net
Excel向けだとVBA関連の本は結構あるのにOutlookのVBA本って
あんまり無いですね。
Outlookの仕分け機能では宛先とCCに○○から来た時に動作する
条件を付けられますが、宛先○○から来た時には動作するけど
CCに何か入っていた場合は動作しないマクロは作れないでしょうか。
環境はWin7、Outlook2010です。

216:デフォルトの名無しさん
16/06/04 17:57:25.97 +2vTx5YA.net
>>210
作れるよ

217:デフォルトの名無しさん
16/06/04 17:59:26.06 +2vTx5YA.net
outlook vba mail
とかでググれ

218:デフォルトの名無しさん
16/06/04 21:08:48.99 xa1tVlDu.net
>>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

219:デフォルトの名無しさん
16/06/12 09:42:53.63 D40PIOb3.net
               【Win10】    こんな犯罪級OS薦めんなよwww   ↓   【スパイウェア】

この使用許諾契約書には書かれています
”最後にあなたのコンテンツを含む個人データ(例えばあなたの電子メールの内容や―プライベート通信やプライベートフォルダ内のファイル)にアクセスし―開示し保全します”
開示する ここ重要だよ
契約がなければ通常 高度な違法行為になりうることです それはあなたが自分の意思としてこの契約書に同意したのです
URLリンク(www.youtube.com)

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

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


220:u 宇多田ヒカル マツコ 春日俊彰 田村淳 北村晴雄 https://twitter.com/tokaia mada/status/630627400552845312



221:デフォルトの名無しさん
16/06/14 02:34:53.84 2DTiTbF7.net
vbaでshell関数を使って指定パスのエクスプローラをファイル選択状態で開いてるのですが、
家でやると何でもないのですが、会社でやると、その方法で立ち上げたエクスプローラは
1分〜数分以内に「エクスプローラは停止しました」となって落ちます。そのフォルダだけ
落ちるので他のは巻き込まれないだけマシですが、手動で立ち上げた他のエクスプローラで
このように不意に落ちた事はないので、プログラムから立ち上げたエクスプローラが特別
不安定だとしか思えないのですが、原因が不明です。
それで、家と会社の違いは、会社だと共有フォルダを開いている事です。
家ではテスト環境をローカルで構成している為か、全く問題は起きません。
色々ぐぐってみたのですが原因が不明です。
vbaから開く方法で、解決策、あるいは次善の方法等ありますでしょうか。
shell関数はこのように使っております。
Shell "Explorer.exe /select, """ & path & """", vbNormalFocus
環境はWindows7 Excel2010(32bit)です。

222:デフォルトの名無しさん
16/06/14 06:56:55.57 wwwgAdKU.net
>>215
試しに自宅の環境で共有フォルダをshell関数でファイル選択状態で開いてみたけど
特に問題なかったよ
原因は共有フォルダであること
ではないのじゃないかな
その共有フォルダへのショートカットを作って
それをshell関数を使ってexplorerで開いてみるとかは?

223:デフォルトの名無しさん
16/06/14 08:10:13.51 BcKyLCvc.net
手動で起動したプロセスは、親プロセスが無く、単独のプロセスだから、ずっと生き残るのかな?
Aプログラム(Aプロセス)から起動したプロセスは、親プロセスがAとなり、
Aを終了すると、その子プロセスもすべて、連鎖して終了するのかな?
プロセスを起動する際、親子関係を切れば?
ただしそうすると、起動されたプロセスは、A終了後も残り続けるから、
誰がそのプロセスを終了するのかが、問題となる
漏れは、Windowsはよく知らない。Linuxから推測して書いた

224:デフォルトの名無しさん
16/06/14 08:45:39.28 2DTiTbF7.net
>>216
ショートカットから開く方法ですか、考えもしなかったです。
確実に再現するバグではない(場合によっては20分くらい経ってからクラッシュしますし、端末によっては何も起きなかったりします。)
なので、原因を掴むのが難しいです。
>>217
なるほど、プロセスが分離されているから巻き込まれなかったんですかね。
前後のコードを見返しているのですが、shell関数を読んだ直後に
Kill thisworkbook.fullName
thisworkbook.close
を読んで終了させているんですが、ひょっとしたらこの兼ね合いが原因かも?とふと思いました。
shell関数は非同期処理で、会社の共有フォルダを開くときはローカルと違って若干起動に時間がかかります。
shell関数の処理が完了しきっていないのに即終了させるから、動作が不安定になってる可能性はありますかね・・。
なのでとりあえずShell関数を、Wscript.ShellのRunメソッドの同期処理に置換えてみました。
それで明日会社でテストしてみます。

225:デフォルトの名無しさん
16/06/15 20:38:23.92 985LHqkd.net
それVBAとか関係なく、普通にネットワーク上のフォルダを表示してるエクスプローラでも発生してるんじゃないのか?
URLリンク(support.microsoft.com)
URLリンク(support.microsoft.com)
とりあえず俺はこの二つで直ったが、エクスプローラ 落ちる とかでググってみ

226:218
16/06/16 07:48:37.40 MO4h1nff.net
>>219
同期処理に変えたら全く落ちなくなりました。
どうやら推測は当たったみたいです。
手動で立ちあげてる時には同じトラブルは一度も起こったこと無く、誰からも聞いていないので、
VBA処理が原因で間違いないと思います。
ぐぐっては見てたんですけど、VBA関連でのエラー報告は0でしたね。
しかし、元々この手のトラブル報告がかなり多いことにはびっくりしました。
とりあえずは解決です。皆さんどうも有難うございました。

227:デフォルトの名無しさん
16/06/16 14:05:29.72 tOwQ8tvq.net
タイミングの問題で、バグが起きるときは、
sleep 3秒などで、時間稼ぎすることが多いな

228:デフォルトの名無しさん
16/06/16 16:27:03.77 YtVxucfB.net
>>221
タイミングというか処理を待ち合わせる必要があるって事だよな
3秒で完了しない処理だと問題が起きる
90%くらい解決出来れば実用上は問題にならないかも知れないけど

229:デフォルトの名無しさん
16/06/16 21:40:45.67 JOmdLZoV.net
' キャッシュ反映を待って5秒待つ
↑これなんとかして

230:デフォルトの名無しさん
16/06/16 21:53:33.23 EpEOLr57.net
>>223
何のキャッシュか判らないけど
キャッシュをフラッシュするインターフェイスがあればそれを使えば良いのでは
無いなら知らない

231:デフォルトの名無しさん
16/06/17 01:16:02.29 Sh+IdTol.net
起動方法と起動のタイミングの問題で
>1分〜数分以内に「エクスプローラは停止しました」
>場合によっては20分くらい経ってからクラッシュ
のような症状が出るとは考えにくいけどな
まあ、直ったって言うならそれでいいけど

232:樵の結び目。
16/09/03 18:27:18.44 Ms7vNg4j.net
この作者について
URLリンク(img.atwikiimg.com)
どう思いますか??
 

233:デフォルトの名無しさん
16/09/28 19:27:48.59 BVBInYIb.net
vbaの And, Or って短絡評価してくれないの???

234:デフォルトの名無しさん
16/09/28 20:30:34.84 X231kNmm.net
>>227
普通しない
(常にしないかどうかは知らんけど)

235:デフォルトの名無しさん
16/09/28 22:20:25.14 w7cfX4QA.net
X(n) And Y(m) で X(n) = False だった場合、Y(m) は評価しなくても式が False と確定する
Or でも同様のことが可能
VBAがショートサーキットしているかどうかは、各関数で Debug ログを出力してみればわかる

236:デフォルトの名無しさん
16/09/29 04:55:17.68 IF5lu7hc.net
>>229
いちいち短絡評価の説明なんてしなくていいよ...

237:227
16/09/29 08:22:26.74 l2tsRcXf.net
くぅ。
短絡評価してくれるもんだと思って、
True, False, Nullを返す関数の結果で、
NullをFalseに倒したくて、
左辺でNot isNullやってたけど、
右辺もNullで動いてしまってエラーになってはまったわ。

238:デフォルトの名無しさん
16/09/29 12:46:05.66 tIM+raH6.net
VBAあるある

239:デフォルトの名無しさん
16/10/06 19:51:33.65 prbbit7d.net
.NetならOrElseやAndAlsoが使えるし
Nullable指定も出来るから便利なんだけどなー
まあ無いものねだりしても始まらないか

240:デフォルトの名無しさん
16/10/08 17:43:11.29 fiaM9vLl.net
VB(A)はWithとかある割にそういうとこは全然気が利かないよな
C言語すら知らない人が作った言語なんだろう事は判る

241:デフォルトの名無しさん
16/10/08 22:59:38.27 315EhZFM.net
VBって元々はMSじゃないんだよね BASIC好きのゲイツが惚れ込んで買収しただけ

242:デフォルトの名無しさん
16/10/27 20:44:38.40 LE0ob9Yw.net
vbaの中、上級者向けの書籍を教えて


243:ュださい



244:デフォルトの名無しさん
16/10/27 21:44:23.99 BIHhfe0H.net
漠然と「VBAの初心者向けの本を教えてください」ってのはよくあるが、上級者向けは珍しいね
ある程度基礎が身に付き、やりたいことが分かってきていれば
○○に関する本、ってなるように思うんだが・・・
田中亨氏の「Excel VBA 逆引き辞典パーフェクト 」は名著だよ

245:デフォルトの名無しさん
16/10/28 04:23:54.86 s9odN72t.net
>>237
ありがとうございます。
クラスや多段階配列、イベント自作、擬似コントロール配列あたりの情報がある書籍はありませんか?

246:デフォルトの名無しさん
16/10/28 15:06:05.95 Sg+Wt/Uz.net
アプリ作成で学ぶExcel VBAプログラミングユーザーフォーム&コントロール(横山達大著)
かんたんプログラミング 応用編(大村あつし著)
同じく、かんたんプログラミング コントロール関数編
デバッグ関連だと
立山秀利著の本

247:デフォルトの名無しさん
16/10/29 23:22:10.90 b3lytwnZ.net
VBAでコードを抜き出してSVNやgitで管理したりするとそれだけで上級者っぽくなる

248:デフォルトの名無しさん
16/10/30 08:10:21.54 R4QvvoTp.net
それ以上にバカっぽいけどなw

249:デフォルトの名無しさん
16/10/30 09:23:46.57 2kQlDpFE.net
今時差分管理もしてないのかよ

250:デフォルトの名無しさん
16/10/31 23:59:17.10 9abcSnRr.net
VBACとか使ってんの?

251:デフォルトの名無しさん
17/02/06 12:06:59.89 1XFRepCN.net
PowerPointのVBAでファイルを閉じた後も変数の値が保存されるようにしたいんですが外部のテキストに書き出す以外にファイル本体にどうにかして埋め込む方法はありますか?

252:デフォルトの名無しさん
17/02/06 14:57:53.43 atuXlQHb.net
透明のシェイプとかに書くとか色々あるけど
実際本体ファイルを更新されるとバージョン管理とか使う側が気持ち悪がるとか運用面で問題が出そう

253:デフォルトの名無しさん
17/02/06 19:29:23.46 4FxLnD3n.net
Excel脳っすなぁ
標準的なユーザーデータ保存場所がちゃんとあるんだからそれ使えばいいじゃん

254:デフォルトの名無しさん
17/02/06 19:58:54.20 KOZLaxG/.net
>>246
どうすればいいでしょうか

255:デフォルトの名無しさん
17/02/06 21:21:37.88 VJg+IRhi.net
>>244
Presentation.CustomDocumentProperties
URLリンク(msdn.microsoft.com)

256:デフォルトの名無しさん
17/02/07 07:09:26.95 HIDKMkau.net
>>246
条件によるだろ
思いつきで即答すんなアホ

257:デフォルトの名無しさん
17/02/07 07:27:10.54 ff698yUf.net
>>249
条件って
ファイル本体に埋め込みたい
ってことだろ
>>246 の保存場所がどこの事を言ってるのかよくわからんが >>245 より >>248 の方がはるかにマシ

258:デフォルトの名無しさん
17/02/07 07:40:32.09 xddq+MTq.net
ファイル本体に埋め込みすんのがアホなんだよわかれよ素人
ゴミを量産して人に迷惑かけないでくれ
独りよがりの仕事してんじゃねえよ

259:デフォルトの名無しさん
17/02/07 08:07:27.12 ff698yUf.net
単なる基地害だったのか

260:デフォルトの名無しさん
17/02/07 20:25:02.30 1dqSFjs6.net
実際に仕事してるとそれこそ基地外避けを作る必要が出てきたりするんだよな

261:デフォルトの名無しさん
17/02/07 21:24:47.40 lpX4EXgF.net
ユーザーデータを変な場所に保存したりするやつとか避けないとな

262:デフォルトの名無しさん
17/02/07 22:43:16.46 diTiDCUQ.net
>>254
> 変な場所に
透明のシェイプとかのことですね、わかります

263:デフォルトの名無しさん
17/02/13 17:14:33.92 QPcPOced.net
50枚のスライドが入ったパワポが5個あります。
これを統合したいのですが
ファイル1の1枚目
ファイル2の1枚目
ファイル3の1枚目
ファイル4の1枚目
ファイル5の1枚目
ファイル1の2枚目。。。
という順番にしたいのです。
どういうマクロを書けばいいでしょうか?

264:デフォルトの名無しさん
17/02/13 21:36:30.61 MAF656mM.net
>>256
その通りのマクロを書けばいいのでは?

265:デフォルトの名無しさん
17/02/13 21:54:55.31 1gaAmlEB.net
新規で作ったらコピペを繰り返すだけ

266:デフォルトの名無しさん
17/02/14 00:38:49.96 hvVJhpIb.net
パワポってマクロ使えるんだ
そらそうだわな

267:デフォルトの名無しさん
17/02/14 01:58:27.90 ahDpDw9M.net
ExcelVBAをつかいこなしていても
パワポはマクロの記録がないと腰が重いな


次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch

285日前に更新/325 KB
担当:undef