VBAなんでも質問スレ

1 ：2012/07/12 〜 最終レス ：2013/09/23

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
VBAを開発環境としていろいろ作っちゃいましょう

関連スレ
Excel VBA 質問スレ Part25
http://toro.2ch.net/test/read.cgi/tech/1341722983/
Access VBA 質問スレ Part1
http://toro.2ch.net/test/read.cgi/tech/1328536426/
VBプログラマ質問スレ（Ver.6.0 まで） part58
http://toro.2ch.net/test/read.cgi/tech/1328782534/

2 ：

乙

3 ：

VBAでQRコードを表示したいです。
入力されたテキストからQRコードを作って、
正方形に配置したセルを白黒に塗り分ければ良いと思うのですが、
具体的にどこから手をつければ良いのかわかりません。

4 ：

ieの画面操作で困っています。
操作したいie画面は左右にフレームが分割されているもので、左側に
メニューが並んでおり、そのメニューをクリックすると、右フレームに
そのメニューに応じた画面が表示されるというものです。
ie画面操作を自動化したいのですが、このメニュー選択の部分が突破
できずにいます。左フレームのソースのリンク先を使って、以下の
マクロを書いたのですが

Dim objShell As Object
Dim IEurl As String
Set objShell = CreateObject("WScript.Shell")
IEurl = "http://********************"
objShell.Run IEurl
このマクロでは、右フレーム上に画面を開くことができずに
「不正な画面遷移が検出されました」と分割フレームが消えて
全面に表示されてしまいます。
尚、クッキーを引継ぐ必要があるので、WScript.Shellを使っています。
objShell.Run IEurl の部分でカレントフレームを指定するなどが
できないでしょうか？Runの前(又は後）に「.〜」と何か挿入するとか・・。
frame(0)などを入れてもうまく行きません。
どなたかie画面操作に詳しい方、レスお願い致します。

5 ：

|....,,__
|＿::;; ~"'ヽ
|　//^''ヽ,,)
|　　i⌒"
| ∀｀）　＜ 誰もいない きのこるならいまのうち
|⊂
| ノ
　　　　　 _,,,......,,__
　　／_~　,,...:::＿::;; ~"'ヽ
　(,, '"ヾヽ　 i|i　//^''ヽ,,)
　 　^ :'⌒i　　　　i⌒"
　　　　　 |（　´∀｀）　＜ きのこ のこーのこ げんきのこ ♪
　　　　　 |（ﾉ　　 |つ
　　　　　 | 　　　 |
　　　　　⊂ ＿ ノ
　　　　　　　""U
　　　　　 _,,,......,,__
　　／_~　,,...:::＿::;; ~"'ヽ
　(,, '"ヾヽ　 i|i　//^''ヽ,,)
　 　^ :'⌒i　　　　i⌒"
　　　　 （´∀｀　）|　＜ エリンギ まいたけ ブナシメジ ♪
　　　　⊂|　　（ﾉ |
　　　　　 | 　　　 |
　　　　　 ヽ ＿ ⊃
　　　　　　.U""
|
| ミ
| ミ 　ｻｯ!
| ミ
|

6 ：

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

7 ：

midi再生をしたいのですがどうしたらいいのかわかりません。
.midファイルを再生するのではなく、シート上に
ド|■■■
レ|　 　 　 ■■
ミ.|　 　 　 　 　 ■■■■
のように表記したものを演奏したいのです。
Beepで音階を表現する方法くらいはわかるのですが
実際は和音もあるのでBeepではできません。
あと、ピアノとかフルートなどの音色も変更できるようにしたいです。
宜しくお願いします。

8 ：

>>7
シートってことはExcelか？

9 ：

>>8
使ってるのはExcel2002です。
ただ実質的には二次元配列データからmidi再生ってことなので
Excelはあまり関係ないかも知れませんが。

10 ：

>>7
Excel VBA 質問スレ Part25
http://toro.2ch.net/test/read.cgi/tech/1341722983/
こっちに来いってさ
こっちの>>1には何がスレ違いだのなんだの書かれてるけど
その質問もスレ違いじゃなくてちゃんと答えてくれるっていう人がいるから
行ってみたら？

11 ：

>>7
「vba 音を鳴らす 音階 音色 -beep」でググれ

12 ：

質問取り下げます

13 ：

本スレ用NGEx
URI/タイトル：含む：VBA
Word：正規(含む)：(正義|謝罪|謝れ|Rー|早漏)

14 ：

CorelDRAWのVBAの質問ってどこですればいい?
って
「スレ立てるまでもない質問はここで 120匹目」
に投稿したらここを紹介された。
ここでおk?

15 ：

スレ違いではないので質問するのはお好きなように
答えてくれる奴、答えられる奴が居るかまでは保証しないが

16 ：

>>14
このスレが立った経緯を考えると
誰も答えてくれないと思うよ＾＾

17 ：

そもそもCorelDRAWのVBAってなんだよ
VBAと言えばMS Officeだし、お絵かきソフトならアドビ一択だろ

18 ：

参照設定に追加される奴なんじゃ？まぁ
14が書いてみないことには何ともだけど

19 ：

いや、CorelDRAWはVBA装備だったと思う
つかさっさと質問書けばいいのに

20 ：

>>19
あ？なにお前、質問書いてほしいのなら書いてくださいとお願いしろや

21 ：

また騙されてダム板に飛ばされた訳だが

22 ：

申し訳ありません。
読めもしない英語のチュートリアルを辞書片手に読んでいました。
200近いオブジェクトのうちの、いくつかのオブジェクトの内側の色を、
CMYKで指定する値に変えるというマクロを組みたいのです。
が、それ以前に指定するオブジェクトを選択できないので困っています。
それで今のところ、単純に任意のオブジェクトを選択するだけのマクロを組みたいのですが
以下のコードから If文のところをどういう風に組めばいいのかが分かりません。
ご教授願えませんでしょうか?
Sub オブジェクトを選択する()
　　dim sh1 as shape
　　'選択している全てのオブジェクトを検索
　　For Each sh1 In ActiveSelection.Shapes
　　'下の＊に適合したら選択する
　　　　if ************* Then
　　　　　　sh1.CreateSelection
　　　　　　msgbox "指定されるオブジェクトを選択できました。"
　　　　　　Exit For
　　　　End If
　　Next sh1
End Sub

23 ：

>>22
エスパーさ〜〜ん、ご指名ですよ〜〜〜〜〜

24 ：

普通にバックカラーがなんとかだったらってことなんじゃねーの？

25 ：

普通に一昨日の天気が雨だったらってことなんじゃねーの？

26 ：

CorelDRAWは解らないが、
> いくつかのオブジェクト
> 指定するオブジェクト
> 任意のオブジェクト
が何を指しているのか書かないと始まらないのでは？
丸いものだけとか、何色のものだけとかさ。
というか、人間相手に自然言語でそういうことを理路整然と語れない奴には
プログラムやマクロは無理じゃないか？
英語とかVBA語とか、言語の種類を増やす前に、まず小学校で
生活言語(母語)での基礎的な表現や会話能力を身につけた方がいいかもしれない。

27 ：

おっ
住み分けが機能してるようだ
後は分断工作員さんが回答できるだけの知識をつけるだけだな

28 ：

向こうは問題ないし(当然、不可能なこととかもあるから100%回答されるわけじゃないが)、
こっちは元々回答者居ないでしょ
住み分け派：ExcelVBAスレで順調に回答、向こうでスレ違いになるこっちの質問には興味なし
なんでも来い派：こっちは勝手に立てられたスレだから興味なし

29 ：

また騙されてダム板に飛ばされた訳だが

30 ：

大学の課題で詰まってしまったんですが、ここで質問しても大丈夫ですかね

31 ：

>>30
君の行っている大学には質問できる教員はいないの？
それとも君が教員で課題を考える側？

32 ：

>>31 質問しても、自分で考えての一点張りで…。
課題だから自分で調べてやりなさいとのことなんですが、そもそも文章の意味すら理解できなくて…

33 ：

出来なければ出来ないでいいんだよ、まだ社会人ではなく子供なんだからさ
単位が取れないとか言うかも知れないが、単位を取ることは仕事と違って義務じゃないんだし
他人の力で単位取る事の方がよほど恥ずべき行為
子供のうちから、中身もないのに表面だけ取り繕うこと考えてるとロクな大人にならないぞ
そもそも全員が難なくこなせる内容だったら、課題の意味が無い
出来ない人、間違う人を見極めながら講義を進めていくわけだから、出来ない人が居ても何も問題わけで
その上で「出来ない人」に分類されるのが嫌ならば、他人を当てにするのではなく自分を磨け

34 ：

単位はどうでもいいんですけど、できなくてモヤモヤ

35 ：

なんでもいいから早く質問書けや

36 ：

こういうところで回答するくらいしか優越感に浸れる瞬間が無くて
簡単な質問なら答えるべきではないものでも嬉々として答える人が居るから
試しに質問書いてみたら？

37 ：

シート1の2000年のデータを初期値として、2050年までの推移を計算し、10年おきに出力して、グラフに表せ
という課題なのですが、この初期値として推移を計算するっていうところがわかんなくて困ってます

38 ：

midiデバイスは扱いづらいためdx8のダイレクトサウンドを使おうと思うのですが
ブックの参照設定を開いた時に自動で変えることは可能でしょうか？

39 ：

>>37
Excelの問題というよりも統計の問題ですよ、それ w
forecastとか回帰直線とか、そういったのを調べてみたら？

40 ：

質問 最近 Windows 7/Outlook2010 に移って、今までXP／Outlook 2007のでVP
スクリプトから実行してたエラーが出てスクリプトが動きません。テストコー
ドを書いても同じ結果です。
エラー
Object doesn't support this property or method
VBA コード
Public Sub test_msgbox(str As String)
MsgBox str
End Sub
VBS コード
Set myOlApp = CreateObject("Outlook.Application")
myOlApp.test_msgbox("test")
何がおかしいのでしょうか？

41 ：

そういう時はさ、最低限何というエラーが出て、それはどこなのかぐらい書けよ

42 ：

エラーメッセージ書いてある
コードは1行だけ

43 ：

エラー出て当たり前だと思うのは俺だけか？
というか、こりゃスクリプトの質問だからさすがにスレ違いだな
"VP"スクリプトではなくVBスクリプトだとしてもねw

44 ：

Byval省略すんなや
書く癖を付けろ

45 ：

>>42
サンクス
>>43
どうしてエラーがでるか教えてください。ちなみに前の環境ではこのエラーは
でません。
追加情報ですが、VBA 側のコードは、"ThisOutlookSession" に書いてありま
す。ウェブでこのエラーで検索すると"Digital Signatureがないとだめ"的な
ことが書いてあったのでSignatureを登録しましたが結果は変りませんでした。
VBスクリプト側にも署名が必要なのかとなと考えてますがその方法が別りませ
ん。

46 ：

>>7>>38
俺が以前作ったエクセルから音を出す装置だぜ〜
apiのPlaySoundを使った場合
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=439
dx8の場合
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=438
これはmidiデパイスから音を出してるピンボールだぜ（諸事情でコードは見れないぜ）
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=339

47 ：

Excelで作ってる以上、見ようとすればコードは丸見えだけどな
VBAプロジェクトの保護ってのは、誤改変防止であってソース漏洩防止じゃないから

48 ：

excelで惑星の位置を計算したいと思っています。
地心黄経で出したいのですが、参考になるHPがあれば教えてください。

49 ：

>>48
http://msdn.microsoft.com/ja-jp/library/

50 ：

エクセルでwavファイルを取り込んでmp3で保存することは可能でしょうか？

51 ：

>>50
もちろん可能ですよ
WAVファイルを読み込んで、WAV→MP3に変換して、MP3ファイルを保存するだけです
WAVやMP3の仕様を入手できればそれほど難しくはありません

52 ：

SOXとかのDLL使えば楽勝じゃね？

53 ：

ruby2.0がかなりすごいらしい

54 ：

福沢諭吉「脱亜論」　１８８５年３月１６日 時事新報
日本の不幸は中国と朝鮮だ。
この二国の人々も日本人と同じく漢字文化圏に属し、同じ古典を共有しているが、
もともと人種的に異なるのか、教育に差があるのか、 日本との精神的隔たりはあまりにも大きい。
地球規模で情報が行き来する時代にあって、近代文明や国際法について知りながら、
過去に拘り続ける中国・朝鮮の精神は千年前と違わない。
国際的な紛争の場面でも「悪いのはお前の方だ」と開き直って恥じることもない。
もはや、この二国が国際的な常識を身につけることを期待してはならない。
「東アジア共同体」の一員として その繁栄に与ってくれるなどという幻想は捨てるべきである。
日本は、大陸や半島との関係を絶ち、 欧米と共に進まなければならない。
ただ隣国だからという理由だけで特別な感情を持って接してはならない。
この二国に対しても、国際的な常識に従い、国際法に則って接すればよい。
悪友の悪事を見逃す者は、共に悪名を逃れ得ない。
私は気持ちにおいては「東アジア」の悪友と絶交するものである。
　　　　　　　　　_,,,,,,__　 __,,,__
　　　　　 　 ィｊｊ）））))))))!!!!!彡ヽ,
　　　　　　/ﾐ/　　　　 　 　 ,}彡ﾍ
　　　　　　|ﾐ{ -‐ ‐ ‐　‐-　 {三=|
　　　　　　El=＝; ﾟ　''＝=.　|ミミ,|
　　　 　 　 `ﾚｆｫ､,〉 :ｒｆｫ.､, 　!ｉﾙ┤
.　　　 　 　 ｛ ｀¨ i　･､¨ ´　 `{ゞ'｝　支那、朝鮮とは
.　　　　　 　 |　'`!!^'ヽ 　 　 .｢´　　付き合うなと忠告しておいたのに。。。
　　　　　　　 !　,-ﾆ'¬-､　　,!|,_　　　
.　　　　　　　 ＼´?｀　　／ ∧ﾍ、
　　　　 　 　 __/〉｀ー ' ´ ／　 〉　＼
　　　　 _, ィ´「∧ 　 　 ／　　/　　　 」¬ｰ- ､_
　 -‐ ´　 /　/　 ヽ､／ 　 　/　 　 　iヾ　　　 　 ヽ

55 ：

誤爆にも程がある

56 ：

誤爆じゃなくて荒らしだろ
この手の書き込みは、何の脈絡も無く書かれるから誤爆(投稿スレ間違い)っぽくも見えるが
自己主張を拡散するために脈絡のないスレであっても意図的に投稿しているので
誤爆、誤投稿の類ではない
やってる本人は、自己の主張の正しさを拡散しようとしてるのだろうけど
こういうマナー違反な荒らし宣伝的な投稿を繰り返せば
主張の内容は拡散されても、その主張は荒らしを繰り返すような
キチガイの主張としてしか認識されなくなって逆効果なんだけど、たぶんバカだからそこを解ってない

57 ：

>>50
エンコードに必須な複数の技術に特許かかってるから無理っぽいぜ

58 ：

レイヤー1と2はいける
3は無理ゲー

59 ：

コマンドラインのフリーウェアを呼び出す

60 ：

OS 7(64bit)
excel2010
memory 8G うち使ってんのは1.8Gくらい？（タスクマネージャーで）
cpu i5

漠然とした質問になってしまいますが、Excelが応答なしになるのを回避出来る手段は
DoEvents以外にどのようのものがあります？
今作ってんのがやたらに応答なしになってしまうもんで^^;

61 ：

応答無しになる原因がわからないと、なんとも言えないよ。

62 ：

>>60
応答なしになるミニマムコードを晒してみ

63 ：

期待通り動かすと応答なし状態になるのを改善したいのか、
なぜ応答なしになるのかわからないけど、それを避けたいのか

64 ：

>>60
セルを頻繁に書き換えるようなコードの場合は再計算、再描画を止める

65 ：

>>61
…確かに
>>62
DBとのやり取り部分があったりするので他の環境では実行不可なんです orz
>>63
個人的には後者なんですけど、晒せない以上回答は無理ですよね
>>64
再計算はありません。シートの切替も無いので再描画云々でもないです
ということでスレ汚しすいませんでした

66 ：

>>65
そりゃDBの応答待ちなんじゃねーの？
ステップ実行してみたら？

67 ：

>>65
実行の可不可なんてどうでもいいからソース晒せっての

68 ：

度々スレ汚しすいません
ソースの中で無限ループしてるとこがあり、それを修正したら直りました
m(__)mです

69 ：

テキストファイルがあるとして、そのテキストファイルがUNICODEなのかANSIコードなのかどうかって判定できます？

70 ：

馬鹿には無理

71 ：

>>69
基本的には機械的に判別するのは無理
UNICODEの場合、先頭に特殊なバイト列が入ってる場合がある
それ以外だと、それぞれのコードで文字として不適切なバイトコードがあるかどうか見る

72 ：

>>71
>機械的に判別するのは無理
そうっすかぁorz
今、手元にUNICODEのテキストファイルがあって、バイナリエディタで見れば先頭が FFFEなんでそれを見ればいいのかなと
思ってたんですが、UNICODEもいろいろ種類がありそうですからねぇ
諦めます

73 ：

>>72
そりゃBOM（要検索）だ。

74 ：

>>72
前に作ったからキーワードだけ
・Openステートメントでバイナリで開く
・Byte型の配列に格納する(InputB と LOF を使う)
・先頭の二要素(2バイト)を確認して、それぞれFF、FEであるか確認する
適当だけどこれでいいと思う

75 ：

>>74
thxです。

76 ：

>>74
全然良くない。
BOM無しのファイルもあるんだけど。
BOM無しのファイルは絶対に取り扱わないか、BOM無しの場合判定に間違っても良いならそれでいいけど。

77 ：

VBA使ってエロ画像取得ってできるの？

78 ：

できる

79 ：

自動でエロＡＡを自動増殖させるプログラムください

80 ：

自動で自動増殖・・・
なんか頭痛が痛くなってくる言い回しだなw

81 ：

最初の自動は最後のくださいにかかってる

82 ：

VBAでADSIを利用して、Outllokパブリックフォルダのアクセス権変更を行うことは可能でしょうか？
VBAを実行する環境はサーバではなくクライアントマシンで、パブリックフォルダの所有権を持ったユーザでログオンします。
ヒントだけでも頂けると有り難いです。
よろしくお願いします。

83 ：

>>82の追記です。
目的は、大量のアクセス権変更を一括処理化することです。

84 ：

>>83
要するに、知りたいのはアクセス権変更じゃなく
ディレクトリツリーの一括処理方法なんだろ？

85 ：

>>84
はい。
少しぐぐってはみたところ、「サーバ環境での処理にADSIで〜」という記事ばかりがヒットしてきて、
クライアント環境からアクセス権変更などの処理がまず可能なのかが分からなくて。。

86 ：

可能だよ。少しではなく本気でググればクライアントからのやり方も解説されてるから頑張れ。

87 ：

馬鹿には無理

88 ：

要するに>>87には無理

89 ：

（私みたいな）馬鹿には無理（です）

90 ：

事務職なのだが、職場のWebシステムが出来が悪くて、設計ミスでシステムで治せないから、
データ修正を手入力で何千件もやれとメーカー様から言われた。
頭にきたので、VBA(端末にエクセルしか入ってない)で、IEの自動操作で修正入力しようと
作ってはみたのだが、ふと思ったのだが、これって著作権違反になる?
同じように困ってるほかの組織にプログラムを配るのも、無償、有償かかわらずダメ?

91 ：

何言ってんだ

92 ：

>>90
H社？

93 ：

>>92
Yes。

94 ：

ああ、某ワン・ツーのことね

95 ：

某ワン・ツー　とは？

96 ：

>>90
誰が何の著作権を違反しているの？

97 ：

>>95
某社の社内事務専用システム。

98 ：

>>90
プログラムを作ったのはあなたでいいの？
何を参考にした？あるいは何かを丸パクリした？
それには他者が権利を主張するどのようなものが関わってる？
細かいところちゃんと書いてくれないと望んでる答えにならないけど、
今書いてる限りではたぶんならないと思うけどね。
あと著作権は余裕があったらさわりだけでも勉強しましょう。
様々なテストケースでちゃんと試してから配れ。
自分とこでちゃんと動いても他所のとこで動かなかったなんてよくある話。
個人で作ったものだし、一気に配らない方がいいかも。
そのプログラムを配布した事でお前さんへの責任が一気に増えることに
なってしまうから気をつけなされ。

99 ：

>>98
作成したのは自分。Webシステムのhtmlが見えている状態(右クリック禁止処理はされてるが、
IEの通常機能で丸見え)のため、ボタン等の各要素のNameがわかったため、自動操作のコード
は作りやすかった。
メーカーのコードを改変しているわけではないし、Webシステムも正規の権限でログイン
している。ただ、メーカーのコードを解析し、そのNameを自分のコードで利用しているのは
どうなのかなと思ったわけです。またWebシステムの機能を、ログインした後、VBAから自動
操作で、表示された情報を読み書きし、ボタンを押していくって流れなので、入力値のエラ
ーチェックや、面倒な計算などは、すべてWebシステムがやってくれてる状態。
Nameを使わないコーディングもできるけど、もうすでに作ってしまった。
又、ただの末端ユーザーのため、テスト環境すらなく、恐ろしいことに
ぶっつけ本番。その分、注意して作成してはいる。
メーカー様や、専属SE、システム部門には、頼れない状態。
でも、数千件におよぶ手作業でのシステムの入力だけは、阻止したい。

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

Vim vs Emacs Part2 (497)
出されたお題をコーディングして罵られるスレ (685)
【計測】LabVIEW相談室【制御】 (576)
【統計分析】機械学習・データマイニング3 (308)
VBプログラマ質問スレ（Ver.6.0 まで） part63 (131)
【アンチ】関数型言語は使えない【玩具】 ２ (498)
--log9.info------------------
歌唱力を評価・議論・雑談スレ (154)
【光GENJIの】平家派【バックダンサー】 (125)
ジャニー喜多川氏の変態性を明かした問題作｢Smapへ｣ (111)
またね【16】おねえちゃん (111)
美男<ｲｹﾒﾝ>ですねの主演にﾌﾞｻﾒﾝ2人と八乙女光 (604)
上田竜也と大倉忠義は女顔だよね。 (321)
P357 (711)
KANJANI∞ LIVE TOUR!! 8EST【２】 (535)
悪口やめさせよう (262)
KAT-TUNのボカロパクリステーション (188)
なぜ錦戸は関ジャニのほうがイキイキしているのか (544)
１【６】８ (179)
美男ですね舞台化→北山(廉)内(柊)宮田(勇気) (177)
KANJANI∞　LIVE TOUR 2010→2011 8UPPERS (562)
KAT-TUN→歌　関ジャニ∞→お笑い　じゃあNEWSは？ (365)
▲錦戸総攻め巨根帝王の巨根はテポドン級▲4本目 (106)
--log55.com------------------
【速報】新潟県知事選 自民・公明支援の花角英世氏（60）初当選★7
【静岡】女性遺体事件、面識ない男らに連れ去られたか
【新潟知事選】野党幹部「政権批判の声示された」
【速報】新潟県知事選 自民・公明支援の花角英世氏（60）初当選★8
【新幹線3人殺傷】死亡の男性、先に襲われた女性をかばおうと容疑者を羽交い締め　反撃され犠牲に　乗客「男性をずっと切ってたと」★21
【土墺】トルコ大統領、オーストリアのモスク閉鎖方針に反発 対抗措置も示唆
【新幹線3人殺傷】容疑者の男は女性の隣に乗車　被害女性、めった切りで死亡の男性（38）が「止めに入ってくれた」★4
【速報】新潟県知事選 自民・公明支援の花角英世氏（60）初当選★9