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/

**デフォルトの名無しさん** · 2019/05/10(金) 16:53:41.17

Excel VBA 質問スレで質問してみます。お邪魔しました m( _ _ )m

**デフォルトの名無しさん** · 2019/05/12(日) 02:32:02.86

>>823
オブジェクトなら同じものを頻繁に扱うときにコーディングミスをしにくくなる。

毎回、名前でアクセスしていると、ちょっとしたことで、別のものを間違って扱う可能性が高まって、実行時エラーを発生させやすくなる。

定数化していれば防げるが、定数のスコープを大きくしないといけないので、定数の値を変えるときにあっちこっちを確認しながら、直すことになり面倒なことになりやすい。

**デフォルトの名無しさん** · 2019/05/13(月) 13:34:22.56

object型の初期状態はNothing
参照先が存在しない場合もNothing返るのがあってis式で判定できる
一方でvariantの初期状態はemptyなのでis式がエラーになる

**デフォルトの名無しさん** · 2019/05/13(月) 18:12:50.85

オブジェクトの値がNothingかどうかで判断するロジックはセンスがいいとは思えない。

**デフォルトの名無しさん** · 2019/05/13(月) 22:51:51.62

Typenameとか列挙定数とかポインタ関数の値で判定するのが良いわな

**デフォルトの名無しさん** · 2019/05/13(月) 23:46:53.76

自分で変数の値をコントロールしているのに、Nothingかどうかをあちこちで確認しているクソプログラマと1年前に仕事した。

**デフォルトの名無しさん** · 2019/05/14(火) 08:31:35.00

>>827
ライブラリ側は何で判定すべきなんだ？
それともNothingを渡されたら挙動は未定義とするとか？

**デフォルトの名無しさん** · 2019/05/14(火) 11:18:55.94

>>830
そのライブラリは他人が作ったものなのか？自分が作ったものなのか？

**デフォルトの名無しさん** · 2019/05/14(火) 11:29:20.25

判定すべきものが、誰が作ったかによって変わる？

**デフォルトの名無しさん** · 2019/05/14(火) 12:37:11.77

ライブラリに状態を持つプロパティがあればいい。

他人が作ったものを使うしかなく、オブジェクトがNothingかどうかでしか判断できないのなら、そうするしかない。

**デフォルトの名無しさん** · 2019/05/14(火) 13:35:55.15

>>833
ライブラリ関数が引数として受け取ったオブジェクトをどうNullチェックするかの話だぞ？

**デフォルトの名無しさん** · 2019/05/14(火) 16:16:33.74

いきなりライブラリと言われても何のことやらわからない。

**デフォルトの名無しさん** · 2019/05/14(火) 17:30:53.68

>>835
>>827 が「オブジェクトの値がNothingかどうかで判断するロジック」って言ってるじゃん。
ある関数がオブジェクトを受け取ったときの判断方法の話だと思うんだけど、
自分はライブラリ作者なのでその場合どうするのがいいのか気になった。

**デフォルトの名無しさん** · 2019/05/14(火) 21:45:48.80

普通にエラーでブレイクすればいいじゃん

**デフォルトの名無しさん** · 2019/05/14(火) 22:22:18.25

>>837
エラーとは限らないけど変数の状態に応じて処理を分けたいと言うのはある。
空のオブジェクトに対してはまた空を返すとかね。
>>829の言ってることはわかるんだけど、>>827と>>828の主張がわからん。
Nothing判定はシンプルだけどTypeNameやenumだともっと分岐のパターンが増えちゃうじゃん。

**デフォルトの名無しさん** · 2019/05/14(火) 23:23:54.78

>>836
世の中、変なやつがいて、オブジェクト変数に値をセットして、何も変わるはずがないのに、直後にオブジェクト変数の値がNothingかどうか判定するコードを書くやつがいる。

**デフォルトの名無しさん** · 2019/05/14(火) 23:30:59.65

代入が成功したかどうか確認するテクニックも存在するから、そういう分野からの転職かな？
具体的には、コンパイラの型チェックを使った裏技だったり、ハードウェアの故障チェックなんかで使われる

**デフォルトの名無しさん** · 2019/05/15(水) 00:37:47.48

直後であってもサブルーチンに分かれてるなら
入力情報のチェックを行うのは普通のこと

**デフォルトの名無しさん** · 2019/05/15(水) 02:24:21.58

なんか例のCプログラマがしつこいけど、いまどき関係ない別プロセスがメモリ上の値を書き換えたりするミスは、OSレベルでもCPUレベルでもあるので、持論を批判されていると思って反論しなくていいよ。

ここは漠然としたVBAのスレッドだから、見ているひとにはあなたの言うことは難しくて理解できないと思うよ。

スルー力がないのか、寂しくてかまってほしいのか知らないけど、要はクソコードを書くなと言ってるだけだ。

**デフォルトの名無しさん** · 2019/05/15(水) 02:28:07.88

なんでVBAスレで組み込み系のショボいハードウェアでのプログラミングを語っているのか？

ハードウェア、OS、ミドルウェア、プログラミング言語によって考え方やどこまで想定するのかは全然、違うからいっしょくたにしないでもらいたい。

**デフォルトの名無しさん** · 2019/05/15(水) 02:29:01.28

一般ユーザー権限のアプリで別プロセスのメモリにアクセスできたのは、平成どころか昭和時代の話ですよ、おじいちゃん
希にOSやCPUのバグ騒ぎが起きますが、そんなのは例外中の例外なんで普通は気にしなくていいことです

**デフォルトの名無しさん** · 2019/05/15(水) 02:37:35.16

Windows 95、98、98SE、MeがいつのOSかもわからないのか

**デフォルトの名無しさん** · 2019/05/15(水) 05:12:46.46

そこまでわかってるのに、タチの悪いやつだな

**デフォルトの名無しさん** · 2019/05/15(水) 16:00:34.96

イベント用インスタンスはPublicでやるの？

**デフォルトの名無しさん** · 2019/05/15(水) 20:12:16.23

せっかくのイベントなのにPrivateにしたら星飛雄馬のクリスマスパーティーみたいになるじゃん

**デフォルトの名無しさん** · 2019/05/15(水) 20:14:51.37

>>848
座蒲団3枚あげる

**デフォルトの名無しさん** · 2019/05/15(水) 20:49:39.00

何か面白いこと言った？
全然わからない。
興味あるからなぜ面白いか教えて？

**デフォルトの名無しさん** · 2019/05/16(木) 02:08:04.88

>>850
ニコ動
https://www.nicovideo.jp/watch/sm9033179

**デフォルトの名無しさん** · 2019/05/16(木) 14:30:12.55

コード書く画面を
背景は黒に、文字は白に、する方法を教えれ

**デフォルトの名無しさん** · 2019/05/16(木) 17:24:09.37

>>852
ダークテーマと天に向かって３回唱える

**デフォルトの名無しさん** · 2019/05/16(木) 17:37:55.97

>>853
知っておる
http://mevius.5ch.net/test/read.cgi/tech/1556203263/261-
下がってよいぞ

**デフォルトの名無しさん** · 2019/05/23(木) 22:41:23.89

Wordで文字置換をしたいのですが、特定のフォントの文字列を検索して、文字列は変えずにフォントだけ変えたいです。半角を全角にしたいのですが可能でしょうか。ヒントだけでも教えていただけると有り難いです。

**デフォルトの名無しさん** · 2019/05/23(木) 23:01:54.16

>>855
できる
任意のRangeのCharactersのフォントを一字ずつ調べて、探しているフォントが適用されている文字が見つかったらその文字のフォントを修正すればいい
半角から全角に変換するにはStrConv関数を使用し、第２引数conversionには列挙定数のvbWideを指定する

**デフォルトの名無しさん** · 2019/05/23(木) 23:16:33.41

wordの標準機能で半角全角変換あったような

**デフォルトの名無しさん** · 2019/05/23(木) 23:29:43.67

>>856
ありがとうございます！
やってみます。

>>857
上手くいかなかったと思います。。

**859** · 2019/05/28(火) 16:00:47.95

Findを利用したコードについて教えて下さい。

書籍、サイトで掲載されていたコードを利用し、少し変えたものです。
Findメソッドを使ってC列の”たろう”を検索します。
探し出したら、A～C列の文字列をE列に結果を返すように作り替えてみましたが、結果がE1～G1に上書きされてしまいます。
Cells(Rows,count　を理解しきれていない、11行目のCells(i,”E”)の部分も理解していないと感じます。
どのように違うのか、ご指導お願いします。

ワークシートはこんなかんじ　E列からG列は実行後の結果をイメージしたものです
　　A　　B 　　C　　　D　　E　　　F　　G
1　日付　売上　担当者　　　　000　　AAA たろう
2　000　AAA たろう　　　　　333　　DDD たろう
3　111　BBB はなこ
4　222　CCC たかし
5　333　DDD たろう
6　444　EEE はなこ
7　555　FFF くみこ

**859** · 2019/05/28(火) 16:01:28.69

859の続き

Sub Find()
Dim temp As Range, tempAddress As String, i As Long

With Range("A1").CurrentRegion.Resize(, 1).Offset(, 2)
Set temp = .Find(what:=“たろう”)
If Not temp Is Nothing Then
tempAddress = temp.Address
i = Cells(Rows.Count, "E").End(xlUp).Row

Do
temp.Offset(columnoffset:=-2).Resize(, 3).copy Cells(i, "E")
Set temp = .FindNext(temp)
Loop While temp.Address <> tempAddress
End If
End With
End Sub

Sub copy()
Range("A:G").Clear
Worksheets("template").Range("A1:C7").copy Destination:=Worksheets("Sheet1").Range("A1")
End Sub

**デフォルトの名無しさん** · 2019/05/28(火) 16:38:34.40

>>860
i=i+1 が抜けてるだけじゃね？

**デフォルトの名無しさん** · 2019/05/28(火) 16:40:41.12

>>861
それと、行や列用の変数として r c 使ってもええんやで

**859** · 2019/05/28(火) 17:30:10.75

>>861
ファッ！それかも！
マジでありがとうです！
何かあったらまた聞きます
ホントありがとう、頭いい人！

**デフォルトの名無しさん** · 2019/05/28(火) 18:33:24.92

初心者です。
Wordのユーザーフォームを作りたいのですがExcelの書籍しかなくて詰みました。
Excelのセル番地『A1』に相当するのが『ActiveDocument .tables (1) .cell (1.1)』というところまで突き止めて、
とりあえずテキストボックスに打ち込んだ文字列をセルに転記するところまではできたのですが、それ以上のことができません。
例えば繰り返し同じフォームを使う前提で、古いデータを削除したい時、Excelならば
『Range("A1") .CleanContents』で済むっぽい(うろ覚え)ですが
これをActiveDocumentで再現するにはどうすればよいでしょうか。

まだ文法など全く理解できていませんが、素人目に『Range(”ActiveDocument .tables (1) .cell (1.1)”).Select .CleanContents』
などと書いてしまいたい訳です(当然、動きませんでした)
加えて、WordVBAを中心にお勧めの書籍などありましたら教えていただきたいです。
今の書籍は痒いところに手が届かず…

**859** · 2019/05/28(火) 19:44:38.82

>>861
set temp = .findnext(temp)の下に
i=i+1を入れた所、できました。
本当にありがとう！助かりました(T^T)

**デフォルトの名無しさん** · 2019/05/29(水) 00:12:19.46

>>864
定番は「最速攻略 Word マクロ / VBA徹底入門」
Word VBAの書籍やWEBサイトは選択肢が圧倒的に少ないから、基本がわかったらVBEのオブジェクトブラウザやネットでMSDNを見た方が確実

**デフォルトの名無しさん** · 2019/05/29(水) 09:29:45.93

学校でVBAを勉強した方はどんな参考で勉強したんでしょうか？

**デフォルトの名無しさん** · 2019/05/29(水) 09:30:35.46

×参考
◯参考書

**デフォルトの名無しさん** · 2019/05/29(水) 09:32:43.10

書籍の名前聞いてみたい

**デフォルトの名無しさん** · 2019/05/30(木) 15:12:11.08

>>Wordのユーザーフォーム
必要性が今一分からん

**デフォルトの名無しさん** · 2019/05/30(木) 18:04:51.34

Wordは機能拡張に凝り出すと面白いよ

**デフォルトの名無しさん** · 2019/05/30(木) 18:38:59.73

>>870
いろんなソースで、色つけたり太字にしたり、用紙指定や段組みして印刷させる
。
炎上プロジェクトに突撃するのに必須

**デフォルトの名無しさん** · 2019/05/30(木) 18:47:13.10

>>864
'選択範囲内にあるテーブルの一行目以外をクリアします。
Sub clearSelectedTableData()
If Word.Application.Selection.Tables.Count = 0 Then
'MsgBox "Select Any Table!"
Exit Sub
End If
Dim t As Word.Table
For Each t In Word.Application.Selection.Tables
Dim r As Long, c As Long
For r = 2 To t.Rows.Count
For c = 1 To t.Columns.Count
t.Cell(r, c).Range.Text = ""
Next c
Next r
Next t
End Sub

**デフォルトの名無しさん** · 2019/05/30(木) 19:32:14.84

こっちのがスマートだった
'選択範囲内にあるテーブルの一行目以外をクリアします。
Sub clearSelectedTableData()
If Word.Application.Selection.Tables.Count = 0 Then
'MsgBox "Select Any Table!"
Exit Sub
End If
Dim t As Word.Table
For Each t In Word.Application.Selection.Tables
If t.Rows.Count > 2 Then
Dim r As Long
For r = 2 To t.Rows.Count
t.Rows(r).Range.Delete
Next r
End If
Next t
End Sub

**デフォルトの名無しさん** · 2019/05/30(木) 19:50:35.91

もし文字編集でcell()下位の.Rangeが省略されてるのを知らないと
cell.Range.Deleteの文字削除とcell.Deleteのセル削除が
使い分けができないので注意

**デフォルトの名無しさん** · 2019/05/30(木) 22:47:58.04

>>871
そうだろうけど、
他のOfficeでも出来るんじゃないの?
拡張って参照設定の事でしょ?

>>874
マジかよWord Tableって・・。
ExcelでSQLが使えたり、Officeは割と何でもありだとは思っていたが・・。

**デフォルトの名無しさん** · 2019/05/30(木) 23:32:10.68

>>876
リボンやクイックアクセスツールバーとかで増やすほうね＞機能拡張

**デフォルトの名無しさん** · 2019/05/31(金) 00:15:43.14

NothingとNullとEmptyの違いがわからない
MSはナンセンス、はっきりわかんだね

**デフォルトの名無しさん** · 2019/05/31(金) 00:35:41.84

EmptyはVariant型の初期状態(何も入ってない)
セルの初期状態でもある
確認方法
新規ワークシートに対して、イミディエイトウィンドウで
Print TypeName(Cells(1,1).Value)
とすると
Empty
と表示される

Nothingはオブジェクト型変数にオブジェクトが代入されていない(結びつけられていない)状態

NullはExcelだと出番がないと思っていい
主にAccessでデータを扱う時にNullが必要な場面が出てくる

**デフォルトの名無しさん** · 2019/05/31(金) 01:16:13.09

複数セルのRangeからプロパティとってくるとき不一致だとNullになるくらいやな

**デフォルトの名無しさん** · 2019/06/02(日) 23:52:18.62

ユーザーフォームの、複数のテキストボックス、
例えばオブジェクト名をtb1、tb2とかにしてループ文に組み込むということはできますか？
オブジェクト変数というのが関係しそうな気がするんですが、
テキストを読んでも理解できない…

**デフォルトの名無しさん** · 2019/06/02(日) 23:56:26.76

>>881
すべてのテキストボックスでループ。
目的のテキストボックス群で名前を元に絞り込みすりゃ良いんじゃね。

**デフォルトの名無しさん** · 2019/06/03(月) 02:05:13.53

普通はテキストボックスのTagプロバティに区別できるキーワード入れといて
For eachでUserform.controlsやると思う

**デフォルトの名無しさん** · 2019/06/03(月) 08:31:11.52

>>881
controls(”tb” & i)

**デフォルトの名無しさん** · 2019/06/03(月) 13:44:44.83

>>881
オブジェクトの配列作って、という事だと思うけど
使うとしたらオブジェクト参照を保持したまま色々したい時ぐらいかも
値の参照とセットだけなら皆さん挙げられているcontrolsでやりますね

**デフォルトの名無しさん** · 2019/06/08(土) 00:31:30.90

vba スタンダード、accessのおすすめの問題集ってやっぱり公式テキストでしょうか。

**デフォルトの名無しさん** · 2019/06/08(土) 11:47:13.10

エクセル　Cells(1,1)
ワード　　 Cell(1,1)
　　　　　　　　↑
　　　　　　は? 何でワードにはsが無い?

**デフォルトの名無しさん** · 2019/06/08(土) 16:19:13.22

>>886
先月に出題範囲かわったし公式でしょ

**デフォルトの名無しさん** · 2019/06/08(土) 16:27:53.67

>>887
Word.Selection.CellsとかRow.Cellsとかあるで
Tableには.Cell(1,1)しかないがな
ちなCellsはxy指定できんがCellはxy指定必須や
エクセルのプロパティのほうが異常なんやで

**デフォルトの名無しさん** · 2019/06/12(水) 20:44:31.77

新垣結衣 AVデビュー
https://www.xvideos.com/video48369883/_ai_

**デフォルトの名無しさん** · 2019/06/12(水) 21:19:56.07

vba エキスパートは、excel ベーシック以外は公式テキストまだだから受験は待ったほうがいいですよね。

**デフォルトの名無しさん** · 2019/06/19(水) 04:56:48.65

【出資】松本卓朗人工知能詐欺【注意】
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/

**デフォルトの名無しさん** · 2019/06/24(月) 19:31:10.71

以前word VBAの質問をした者ですが、その節はありがとうございました。
お陰様で処女作のユーザーフォームが完成しかかっているのですが、最終問題に難儀しています。
やりたい事：「保存」ボタンを押す→ActiveDocumentと同じ場所に「記録表」というフォルダを作成し、
その中に「"氏名”」というファイルを生成する。既に「記録表」のフォルダがあればフォルダは作成せず、
そちらにファイルを生成する。
なお、不特定多数のユーザーが使う前提です(保存場所を手打ちしたらユーザー名で詰む)

四苦八苦しましたが、ひとまず確認用にdesktopに生成しようとしてなんかユーザーフォルダの滅っ茶根深い場所に生成されたり、
推測で打ってみたメソッドが全く機能しなかったり(フォルダの有無を確認するようなのって何だろう)
なんというか、Excelのfxボタンみたいにメソッドの内容を教えてくれるやつ、ないんですかね…
ちなみに職場のPCはスタンドアロンでヘルプに繋がらず、自宅PCにはOfficeが入ってないです。

**デフォルトの名無しさん** · 2019/06/24(月) 22:54:40.46

>>893
オフラインヘルプインストールできなかったっけ… 見てみて

F2キーでオブジェクトブラウザが表示される
これ無しで開発なんてやってられない

**デフォルトの名無しさん** · 2019/06/25(火) 05:52:40.82

今オフラインのヘルプって提供されてないんじゃないのか？

**デフォルトの名無しさん** · 2019/06/25(火) 08:17:29.97

>>893
デスクトップはエクスプローラーの左のとこにカタカナで出てるとこと同じやで
深いとこにできても、そちらから近道すればよろし

**デフォルトの名無しさん** · 2019/06/25(火) 08:27:47.11

>>893
〉フォルダの有無確認
昔は Dir()だったけど、今は filesystemobjectかな。
参照設定も必要なので使い方も含めてggッテください
folderexists()

**デフォルトの名無しさん** · 2019/06/25(火) 10:33:29.10

公式オフラインヘルプがあったのは2013だな

2016もオフライン版があるけど英語
https://github.com/OfficeDev/VBA-content/

基本的な機能は2013からあんまり変わってないから、2013用のヘルプを入れてしまうという手もある
使い勝手は悪いけど、いつでも参照できるという利点はあるから

**デフォルトの名無しさん** · 2019/06/26(水) 09:21:12.11

Activedocument.Pathで所在フォルダのパスが出せる
これとフォルダ名とファイル名繋げた文字列つくればSaveAs2の引数にできる

**デフォルトの名無しさん** · 2019/06/26(水) 18:32:58.67

質問です。excel2016の並び替え機能で
漢字、かな（あ～ん）、アルファベット(a～z)で並べ替えて漢字の中でも「本店」を最上位とできませんかね？

降順だと上記並びなのですが、かな（ん→あ）、アルファベット（z→a)になります。
Custumorder に「本店」を入力すると漢字中で1番下になります。

よろしくお願いします

**デフォルトの名無しさん** · 2019/06/26(水) 20:26:59.08

>>900
本店の前にスペース入れる

**デフォルトの名無しさん** · 2019/06/26(水) 21:08:13.27

>>901
ありがとうございます。
やってみます。

**デフォルトの名無しさん** · 2019/07/04(木) 12:19:45.93

Wordの表で、
ActiveDocument.Tables(2).Select
みたいに選択したいのですが、どれだけ表を分割しても、
全ての表が　Tables(1)　という扱いなようでエラーになります。
ひとつ前に似たようなものを組んだ時には問題なくTables(2)になりましたが、
それと構文上は全く違いはありません。
どうしたら Tables(2)という扱いになるのでしょうか。

**デフォルトの名無しさん** · 2019/07/04(木) 22:43:55.95

ユーザーフォーム内のコンボボックスにUSBの中にある画像一覧というフォルダ内の全ての画像名を表示したいのですがうまくいきません。
どのように変更すればよいか教えていただけませんか？
Private Sub UserForm1_load()
Dim myList　As String
Dim myPath　As String
Dim iName　As String

myPath = "D:/画像一覧/*jpeg"

fName = Dir(myPath & "*.jpeg")
Do While iName <> ""
If myList <> "" Then
myList = myList & " " & iName
Else
myList = iName
End If
iName = Dir
Loop

If myList = "" Then Exit Sub
myList = Split(myList)

ComboBox1.List = myList
End Sub

**デフォルトの名無しさん** · 2019/07/05(金) 02:42:43.50

取得するのが D:/画像一覧/*jpeg*.jpeg になってるとか
fName は iName の間違いじゃないのかとか
myList は String なのにSplitした後のものを代入してるとか

**デフォルトの名無しさん** · 2019/07/06(土) 12:30:25.64

>>905
返信遅れて大変申し訳ありません
３つのご指摘直して反映できました。
ありがとうございました。

**デフォルトの名無しさん** · 2019/07/25(木) 16:22:05.73

ExcelVBAのユーザーフォーム上で、PDFを表示、操作をしたいです。
ですが、ユーザーフォームにコントロールを追加しようとすると、
「要素が見つかりません」とダイアログが表示され出来ません。
どなたか解決策をご存じの方がいましたら、教えていただけますでしょうか。。

Acrobat pro DCはインストールしてあり、ExcelはOffice365を最新の状態で使用してます。

**デフォルトの名無しさん** · 2019/07/25(木) 18:51:11.10

>>907
EXCELは専用スレがあるので、そちらへどうぞ

**デフォルトの名無しさん** · 2019/07/26(金) 10:59:16.22

>>908
ありがとうございます。
そちらに書いてみます。

**デフォルトの名無しさん** · 2019/08/14(水) 15:00:22.98

ここで質問していいかわからないんですが、違ったら誘導していただけると助かります。

メッセージボックスを最前面にするために以下のコードを利用したいのですが、呼び出し元の下から3行目のvbOKOnly を vbYesNo に替えた後、選択ボタンを取得する方法がわかりません。
どのようなコードを足したらいいかご教示いただけないでしょうか。

【呼び出し元】
Option Explicit
Dim WSHObj
Dim Args
Set WSHobj = WScript.CreateObject("WScript.Shell")
Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _
& " ""出力メッセージ""" _
& " 0" _
& " ""VBS名称""" _
& " " & vbOKOnly ←vbYesNoに替える
WSHObj.Run Args,0,true
Set WSHobj = Nothing

【WSHPopUP.vbs】
Option Explicit
Dim Arg
Dim WSHObj
Set WSHobj = WScript.CreateObject("WScript.Shell")
Set Arg = WScript.Arguments
WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3)
Set WSHobj = Nothing

よろしくお願いします。

**デフォルトの名無しさん** · 2019/08/14(水) 19:26:49.04

【呼び出し元】
Option Explicit
Dim WSHObj
Dim Args
Set WSHobj = WScript.CreateObject("WScript.Shell")
Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _
& " ""出力メッセージ""" _
& " 0" _
& " ""VBS名称""" _
& " " & vbYesNo
Dim hoge '受け取り用に追加
hoge = WSHObj.Run(Args,0,true) 'この変数hogeにvbYes=6かvbNo=7が入る。
'何か処理を書く
Set WSHobj = Nothing

【WSHPopUP.vbs】
Option Explicit
Dim Arg
Dim WSHObj
Set WSHobj = WScript.CreateObject("WScript.Shell")
Set Arg = WScript.Arguments
Dim fuga '戻り値用に追加
fuga = WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) 'popupの戻り値を取得
WSHObj.Quit fuga '呼び出し元に終了コードとして返す
Set WSHobj = Nothing

**デフォルトの名無しさん** · 2019/08/14(水) 19:27:35.96

他にExecを使う方法もある

**デフォルトの名無しさん** · 2019/08/14(水) 20:05:03.77

ｖｂDefaultButton1 とか、そういうのじゃなくて？

**デフォルトの名無しさん** · 2019/08/15(木) 00:01:28.86

>>911
ありがとうございます！
試してみます！

>>913
すみません、ｖｂDefaultButton1 がわかりません

**デフォルトの名無しさん** · 2019/08/16(金) 11:35:25.09

>>911
>910,>914です。
教えていただいたコードを試してみたのですが、
‘何か処理を書く
のところに
MsgBox hoge
と入れたのですが、「はい」「いいえ」どちらの場合も 0 が返されます。
どうしたらいいでしょうか

**デフォルトの名無しさん** · 2019/08/16(金) 13:41:00.72

???
VBAなの?
VBSなの?
MsgBox使えるのに、何でWscript使ってんの?

**デフォルトの名無しさん** · 2019/08/16(金) 13:48:44.09

朗報
【アプデ/10】 2019年8月14日のWindowsUpdate後、VB関連が死亡。Windows10全バージョンにて
https://asahi.5ch.net/test/read.cgi/newsplus/1565930238/

**デフォルトの名無しさん** · 2019/08/16(金) 14:13:30.60

>>915
【WSHPopUP.vbs】のWSHObj.Quit fuga　は間違い。エラー出してる。
Wscript.Quit fuga　が正しい

**デフォルトの名無しさん** · 2019/08/19(月) 10:24:33.34

>>918
返信遅くなってすみません。

レスの通りに修正し、
さらに
fuga = WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) 'popupの戻り値を取得
↓
fuga = WSHObj.Popup(Arg(0),Arg(1),Arg(2),Arg(3)) 'popupの戻り値を取得
に変更し、成功しました。

たいへん助かりました。
ありがとうございました。

**デフォルトの名無しさん** · 2019/09/25(水) 10:50:56.65

WordのアクティブXコントロールのテキストボックスなのですが
BackStyleを０設定すると背景色は消えるのですが
デザインモードを解除すると背景色が出てしまいます

これはバグでしょうか

**デフォルトの名無しさん** · 2019/11/05(火) 18:33:26.09

DataObjectオブジェクトについて　https://chiebukuro.yahoo.co.jp/

VSI

**デフォルトの名無しさん** · 2019/11/05(火) 18:35:53.47

DataObjectオブジェクトについて　https://chiebukuro.yahoo.co.jp/

FQB

**デフォルトの名無しさん** · 2019/11/06(水) 06:26:58.33

CInt 関数 VBA　http://vba-auto.com/cint_function_vba/

NQ2