Excel VBA 質問スレ Part65

2020/03/17(火) 16:27:20.88

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2020/05/02(土) 15:03:15.18

>>768
これは、セキュリティ上の危険を承知するなら良いんだけどね。
今のExcelはデフォルトで動かないように設定されてるよ。

動作原理はマクロウィルスと全く同じなんで。

2020/05/02(土) 15:03:21.75

>>770
マクロブックだと、最後の１ファイルを閉じてもアプリ画面が残っちゃう。
アドインだとこれを回避できる。

2020/05/02(土) 15:06:50.76

>>771
そそ。D&Dでパワポにノートを読み上げるマクロをぶっ込めるvbs作ったんだけど、よく考えるとちょつと怖くなった。

2020/05/02(土) 15:24:24.68

>>767
あ、ありがとうございます。
テキストファイルから…。
連休の課題にします！

2020/05/02(土) 15:37:35.14

>>767
VBAのスレで言うのもなんだが
PowerQueryの前にやることがVBAなのかと

2020/05/02(土) 15:54:13.09

>>762
テーブルとしての構造化参照が不要なら別にテーブルにしなくても「空のクエリ」でリテラル定数を返す接続クエリを作るなり、パラメータを登録するなりすれば良い
詳細エディタに
= "テーブル名"
って一行書けば"テーブル名"を返す定数クエリが出来上がる

あと、Letの前行に
(path as text, table_name as text, column_name as text)=>
とか追加すれば、path とtable_nameとcolumn_nameという三つのtext型の引数をダイアログ入力でクエリに渡せるようになるので、クエリ式の側をソース=Csv.Document(File.Contents(path))みたいに書けば良い。

どうしてもVBAからPower Queryをいじりたいなら
Workbook.Queries(Index).Formulaでクエリの式が読み書きできるので、Replaceを使うなりして好きにいじったらいいんじゃないの

2020/05/02(土) 16:19:14.33

>>772
なるほど、それはちょっと嫌かも
この際だからアドインも試してみることにします

2020/05/02(土) 17:01:28.47

何度もすみません
アドインを通常のマクロのように、図形などで作ったボタンに割り当てることはできないのでしょうか？

2020/05/02(土) 19:33:07.66

デバッグ中からリセットをかける際に特定の処理をさせるようなイベントプロシージャって無いでしょうか

2020/05/02(土) 21:25:13.04

>>779
それは俺も知りたいね。
リセットすると確実にExcelが落ちるプログラムを安全に終了したい。

2020/05/02(土) 21:28:27.20

>>778
アドインの場合、メインは別のブックになるわけだからアドインのシートとかは表示されないという基本は分かってる?

それが分かっていれば図形等で作ったボタンを配置する場所もないと分かる筈。

普通はメニュー(リボン)に作る。

2020/05/02(土) 22:09:54.71

>>764
>>765

数か月前の事なので返ってくるエラーは忘れたけど
どこかの部分で止まるのではなく、開始時に起きるエラーだったと思う
そのファイルを複数のPCで試したけど全てで同じ現象が起こる

で、subプロシージャのコードを一部変更して実行すると動く

コードの変更は何でも良くて
改行、何も書いていない行にスペース追加、コメント追加、コードを消して同じコードを書く
とにかく変化があれば再起動も何も必要なく正常に動く
変更後上書き保存してからは同じエラーは起こっていない

今は問題なく動いてるから困っては無いんだけど
あれは何だったのかなと思った

2020/05/02(土) 22:19:21.49

はあ、そうですか。しらんがな

2020/05/02(土) 22:37:34.51

>>760
俺もさんざん悩まされたが、ByVal/ByRef問わず、関数にオブジェクト渡すのやめたら改善したわ。
何でもかんでもパブリックにすんなアホって言われてたから、パブリックという発想が中々でなかったが。

>>764
俺の場合は何の音沙汰もなく強制終了だな。
エラーが出ないし、PCによっては動くし、改行いれるだけで変わることもあるから、
どこがおかしいのか全然わからんかった。
互換表示とか保護モードの有無も関係ないし。

2020/05/02(土) 22:45:55.01

多分、

Readystateコンプしてるのにエラーでるな～
↓こうしちゃえ

On Error Resume Next
Do
　IEにカキコ
　Sleep 1000
Loop While なんとか
On Error Goto 0

長くて面倒くせえなぁ～
関数化しちゃえ

で、オブジェクトを関数に渡して嵌る罠なんだと思う。

**デフォルトの名無しさん** (ｱﾒ MM6b-p7s+) · 2020/05/02(土) 23:09:24.77

>>782
それ、IEと関係なく、Excelの更新が原因でvba関係にエラー起きてるやつでは？
ファイル開くときに「エラーがあります、可能な範囲で修正しますか」みたいなアラートがでて、はいを押すとコードが全削除される。

2020/05/02(土) 23:36:58.40

教えてくださいまし。。
画像のように日によって参加人数も競技した数も違うものを
受付した人と競技の範囲の値のみ
隣のシートに貼り付けるようにしたいですが
エクセル関数のエラーや未計算が都合上どうしても残ってしまい残ってうまく行かず…
https://i.imgur.com/Sd2Afas.jpg
https://i.imgur.com/MfnIQSU.jpg
https://i.imgur.com/lEQTEIe.jpg

受付した人の数字が空白になるまでは空白になるまで、競技も空白になるまで
その範囲のみをコピーというか可能でしょうか

2020/05/02(土) 23:39:12.79

Sub 貼り付け()
Dim gy As Long
Dim re As Long Dim
Dim Tensu As String
Dim Kekka As String

Sheets(Tensu) = "点数"
Sheets() = "結果シート"

Sheets(Tensu).Select
With Range("C5")
gy = .End(xlDown).Row
If .Offset(1).Value = "" Then
gy = .Row re = .End(xlToRight).Column
If .Offset(, 1).Value = "" Then
re = .Column With .Resize(gy - .Row + 1, re - .Column + 1)
Sheets(Tensu).Select Range("H8").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With End With
End Sub

これで作ってみたのですがやはり関数エラーが
邪魔してエラーになります
行も列も両方を空白までループして貼り付け
むずぃす

2020/05/02(土) 23:46:04.45

画像から式を逆算するクイズみたいになっとる。

2020/05/02(土) 23:48:07.49

人、それをデバッグと呼ぶ

2020/05/02(土) 23:48:58.13

エラーってそっちのエラーかい!

If IsError(セルの値) = False Then の時だけ実行とか。

2020/05/02(土) 23:51:07.35

それか、ValueじゃなくてTextでエラー回避。

2020/05/03(日) 00:01:44.09

>>788
全体的にめちゃくちゃで、それじゃ関数エラー以前にまったく動かないはずなんだけど、本当にそれで途中までは動いてるの？
スマホでポチポチ書き写すんじゃなくて、できるだけPCでそのままコピペしてくれない？

2020/05/03(日) 00:26:05.49

>>793
Sub test()
Dim gy As Long, re As Long
With Range("C5") gy = .End(xlDown).Row
If .Offset(1).Value = "" Then gy = .Row
cl = .End(xlToRight).Column
If .Offset(, 1).Value = "" Then re = .Column With .Resize(gy - .Row + 1, re - .Column + 1) Range("AA5").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End With
End Sub

元々作これで動いたのを確認しやしたが
無力過ぎて悔しいっす
そもそもエクセル関数の方のエラーが出ないようにif関数で空白の場合はセルも空白にしようかと思ったけどそもそも他部署の管轄
俺の圧倒的力の無さですわこりゃ

2020/05/03(日) 00:31:44.93

というか完全に圧倒的勘違いでした

動いたと思っていざ使おうとしたら
他部署からのデータが画像のように
参加してない選手のところにセルにエラーがついてくる仕様なのに気付いて動かなかった
これが正解です
頭おかしくなってますわ

2020/05/03(日) 00:38:44.40

>>794
ワークシートの数式を消しちゃっていいんなら、エラーの出てるセルを全部空白にするのは簡単
Sub エラー全部消す()
　Dim c As Range
　For Each c In ActiveSheet.UsedRange
　　If IsError(c.Value) Then c = ""
　Next
End Sub

2020/05/03(日) 01:01:50.07

>>795
コピーしたいのは、赤枠の範囲でいいの？
https://i.imgur.com/hJcIMrT.jpg

2020/05/03(日) 01:03:01.84

それとも選手名も必要？

2020/05/03(日) 01:37:52.66

>>796
教えてくれてありがとうございやす
ただシート内の別のところにも数式待ちのエラーのセルがあって俺の管轄じゃないので全てのエラーを消すわけにはいかず…範囲指定するスキルもなく…

>>797
>>798
完全にその赤枠のところの「値」のみをコピーしたいです

それが毎回、選手の数と競技の数が違う
という感じです

選手Cが空白なのに選手Dは数値が入る
ということはないので
受付の列が空白になるまでコピーを
ループ？とか考えながら挫折してます

2020/05/03(日) 01:46:13.78

受付の行が空白のセルになるまでループしつつ
競技の列が空白になるまでループ？？
んん？違うか

GWになのにExcel開いてずっとマクロで悩むとは…とんだステイホームですわ

2020/05/03(日) 01:55:50.90

ここに書かずなぜ動かして試さない…

2020/05/03(日) 02:10:58.89

>>799
はい、できたよ

Sub 数字だけコピー()
　　Dim rr As Long
　　Dim cc As Long
　　Dim dat As Variant
　　rr = Cells(Rows.Count, 3).End(xlUp).Row - 4　'高さを求める
　　cc = Cells(5, Columns.Count).End(xlToLeft).Column - 2　'幅を求める
　　dat = Range("C5").Resize(rr, cc).Value　'データを変数に入れる
　　Range("AA5").Resize(rr, cc).Value = dat　'コピーする
End Sub

2020/05/03(日) 02:15:53.76

ごめん
ちょっとだけ修正させて

Sub 数字だけコピー()
　　Dim rr As Long
　　Dim cc As Long
　　Dim dat As Variant
　　rr = Range("C4").End(xlDown).Row - 4　'高さを求める
　　cc = Range("B5").End(xlToRight).Column - 2　'幅を求める
　　dat = Range("C5").Resize(rr, cc).Value　'データを変数に入れる
　　Range("AA5").Resize(rr, cc).Value = dat　'コピーする
End Sub

2020/05/03(日) 03:59:51.25

この程度のものを人に聞かなきゃできないようじゃ先が思いやられる
これで職場の50代批判できるのかと・・・・
しかも最初のこれ>>787
もう少し日本語の説明能力上げたほうがいいんじゃないか
君何度もここでいろんな質問してるよね？質問の仕方からして酷すぎる

説明の例１：
この画像で言えばC5からE13の範囲を別シートにコピーしたいです
https://i.imgur.com/Sd2Afas.jpg
コピーしたい範囲は変化します。例えばこの場合はC5からI9までをコピーしたいです
http://i.imgur.com/MfnIQSU.jpg

説明の例２：
こういう画像をペイントで作る
https://i.imgur.com/u9Vhnj1.jpg

はぁ・・・おれ深夜に何やってんだか・・・

2020/05/03(日) 09:15:39.22

>>776
ご助言ありがとうございます！
教えていたことの意味を調べながら勉強します。

ちなみにうちの職場では55歳のオバハンが独学で書いてるVBA
が一番「きれい」だそうで。教科書通りで、整理整頓されてる感じで
非エンジニアには優しいんです。（簡単なものしか作らない人ですけど。）
でも「リーダブルコード」とか「VBA実践のためのなんちゃら」とか
読んで勉強してるの見かけたので、心がけは見習いたいです。

2020/05/03(日) 09:19:57.52

> Sheets(Tensu) = "点数"
> Sheets() = "結果シート"

きれいだとか汚いとかいう以前に読む気が失せるな
入門書買ったとか言ってなかったっけ？

2020/05/03(日) 09:20:36.28

>>805
＞独学で書いてるVBAが一番「きれい」
＞教科書通りで、整理整頓
それはあるかもな

プログラマだとなまじ他言語の知識があるために
トリッキーなことやりだす奴が一定数いるからな
効率が良い面もあるだろうが他人が理解しにくい

2020/05/03(日) 09:35:40.45

>>803
生血プログラマーなら1行にするべきである

2020/05/03(日) 10:26:05.54

ああ、

If a = True Then
a = False
ElseIf a = False Then
a = True
End If

みたいなやつか。
大っ嫌いだけどな。

2020/05/03(日) 13:07:08.60

a = Not(a)
でいいんじゃね

2020/05/03(日) 13:43:00.43

エスパースレと化してる

2020/05/03(日) 14:21:40.36

>>810
そもそも>>809が何を言いたかったのかわからんが
それaがBooleanじゃないと同じじゃないからな

2020/05/03(日) 16:23:21.84

たしかにそうだ

2020/05/03(日) 18:57:16.84

うん、>>809が何を言いたいのか不明瞭だな。
あのIf文も自分は嫌いじゃ無い。
見てすぐ分かるんで。

長くても短くてもすぐ分かれば問題なし。
a=not aでも別に良い。

2020/05/03(日) 20:02:39.59

If a = True Then
の時点で嫌い

2020/05/03(日) 20:33:25.77

If a Then は気持ち悪いわ

2020/05/03(日) 20:35:39.32

>>814
オバハンが独学で書いてる綺麗なコードって、
a=not aを>>809みたいに書いてるやつかなと思って。

2020/05/03(日) 20:41:41.89

俺はBooleanにたいして= Trueは大概は冗長に感じるけどな
VBAは型がゆるいからなぁ
If a Then は気持ち悪いが、これは変数名が悪い

2020/05/03(日) 22:08:11.47

>>807
perl で組んだテトリスだったかな。あれ見たときはぶったまげた。

元々ワンライナーをやりやすい言語とは言え、あれはもう
何が何やらわからない世界だった。どんだけ頭いいんだよと。

でも、「こんなの理解できないの？ふ～ん（にやにや）」みたいな
のは生産性的には駄目だよね。

美しさをトリッキーさに見出すか可読性に見出すかは人それぞれ
だけど、自分よりスキルが下の他人に保守させるとか、未来の自
分が保守しないといけないかもとかなら冗長性持ってるほうがいい
かも。

いちばん大事なのは懇切丁寧なコメントだろうけど。

2020/05/03(日) 22:21:26.63

>>805
> ちなみにうちの職場では55歳のオバハンが独学で書いてるVBA
> が一番「きれい」だそうで。教科書通りで、整理整頓されてる感じで
> 非エンジニアには優しいんです。（簡単なものしか作らない人ですけど。）
> でも「リーダブルコード」とか「VBA実践のためのなんちゃら」とか
> 読んで勉強してるの見かけたので、心がけは見習いたいです。

あえて長文引用させてもらったけど、あんた程度の人間がなんで
その55歳の女性を貶めてるの？

2020/05/03(日) 22:55:28.97

>>817
いや、想像はついてた。
大嫌いというのが分からんかった。

**デフォルトの名無しさん** (JP 0H8f-Ng5p) · 2020/05/03(日) 22:57:44.37

まともなプログラマなら周りのレベルに合わせて読みやすいコードを書けるよ
VBAの仕事なんかやってる時点でその程度のレベルなんだから仕方ない

2020/05/03(日) 22:58:39.80

>>819
コメントもたくさんあれば良いというもんじゃない。

Dim blFlg AsBoolean 'フラグ

こんなコメントはアホ。
フラグかどうかは名前と型で分かってる。
残すべきはどういうフラグかだ。

2020/05/03(日) 23:00:42.93

>>823
それは確かにコメントっつうより、「ノイズ」だなｗ

2020/05/03(日) 23:03:28.37

>>822
まともなプログラマなら周りのレベルにあわせて読みやすいコードをかける。
お前とは違ってなw

2020/05/03(日) 23:06:45.24

>>823
こんな奴いるのw

2020/05/03(日) 23:07:47.50

>>824
意外に近いのはある。
コメントより元々の変数名を伝わるものにするのが第一義。
それで伝わりにくい時にコメントで補足する。

2020/05/03(日) 23:13:29.74

ただ、伝わりやすい変数名ってのが読む方の英語の素養に
大きく左右されちゃう不幸が。

TOEICで600くらい（英語の得意な高校生あたり）を想定するのが
いいかなあ。

2020/05/03(日) 23:19:40.85

Cプログラミング診断室の第三章の中盤に出てくるフラグの所に似たようなのが出てくる。
言語は違うが読んどくと良い。

http://www.pro.or.jp/~fuji/mybooks/cdiag/cdiag.3.7.html

2020/05/04(月) 01:56:50.66

ここのスレ見てると、共同で保守してるのに細かい仕様書作ってない感じ
VBA使いって連携取るの苦手だろ

2020/05/04(月) 02:26:38.20

自分だけ楽するために片手間に作ったやつがいつのまにか広まって、ドキュメントなんかもちろん作ってなくて、最初に作った人は異動しちゃって、みたいなことVBAではよくある

2020/05/04(月) 04:29:56.94

VBAは事務員のオバさんが作る程度のオモチャ
仕様書とか本気で言ってんの？
キモいわ

2020/05/04(月) 06:18:26.16

仕様書を書くような立場で仕事をしたことない人は黙ってな

2020/05/04(月) 08:36:53.65

会社のファイルで仕様書作ってあげてもいいんだけど今の職場では上司が理解できないからあえて作らないでいる

2020/05/04(月) 08:37:36.33

俺は832ではない

2020/05/04(月) 09:29:50.78

全社に配布するようなものは仕様書も作るしテストもやるけど、自分とか課内で使うようなツールだと作りっぱだな
別に他の言語でも変わらんと思うが

2020/05/04(月) 09:55:22.79

最近よく来る馬鹿どもが仕様書作れると思うのか？

2020/05/04(月) 10:02:07.63

共同開発やドキュメントが必要になるレベルのプロジェクトには別の言語を使うのが普通
VBAスレで仕様書の話題はスレ違い

2020/05/04(月) 10:28:02.39

はいつぎの方

2020/05/04(月) 10:39:56.70

うちの職場じゃボタン押すことぐらいしか出来ないような連中ばかりだから
仕様書どころかマニュアル作っても1割ぐらいしか理解してもらえないだろうな
目の前で説明しても少し込み入った設定になると覚える気一切ないしな
俺がいなくなったら終わりと思ってる
コメントすら残してない

2020/05/04(月) 11:03:15.13

こんにちは。
このスレを見て勉強しようと思って色々読んでは、たいてい
なんの話をしているのかもわからない、プログラマではない層の者です。
上の方で、
>>809
If a = True Then　
a = False
ElseIf a = False Then
a = True
End If
みたいな書き方っていやだね。
>>810
a = Not(a)　　でいいんじゃ？

という会話があったのですが、>>809　って
どんな時に使うのかさっぱり？？？でした。
どなたか暇つぶしにでもご教示いただけませんでしょうか。

2020/05/04(月) 11:58:39.88

>>841
死ね

2020/05/04(月) 11:59:42.54

ドキュメントが必要かどうかに言語は関係ない
プロジェクトの内容次第

2020/05/04(月) 12:35:48.74

>>841
例えばテレビのリモコンの電源ボタンとか消音ボタンのような使い方をするイメージ

2020/05/04(月) 12:43:46.28

>>838
お前の所の普通が世間一般の普通じゃないだけが

2020/05/04(月) 12:48:54.23

>>841
誰も使わない悪い例を書いただけ

2020/05/04(月) 13:16:33.95

>>845
お前いつも質問スレに無関係な書き込みばっかだな
どうせPC-VANやってた老害だろ

2020/05/04(月) 13:17:26.32

If a = True Then

誰にでもわかる書き方でとても良いと思う

今VBAを勉強する人は本職プログラマではなく
別に仕事があって、その効率化の為に学んでる人が主でしょう

そしてそれを非プログラマ同士で共有するのなら
どの本にでも書いてある書き方の方が望ましい
匿名の名人様の言葉に右往左往する必要はないよ

2020/05/04(月) 13:43:10.72

>>847
自己紹介かよww

2020/05/04(月) 14:09:51.63

Debug.Print xml.getElementsByTagName("タグ名").Item(0).Text

Microsoft XML, v3.0 参照　→　OK
Microsoft XML, v6.0 参照　→　エラー

何でやねん。

2020/05/04(月) 14:14:20.30

>>841
卜グルボタンとかチェックボックスのようなオンオフするようなものを変数で管理しようとした時に、変数がTrueならFalseに設定し、FalseならTrueに設定する処理を書いている。

最初のIf文の方は英文が分かれば簡単に理解出来る。
Notを使う方はTrue/Falseだから変数を変数自身と反対にすることで実現してる。

2020/05/04(月) 14:35:44.64

検索Dialogの検索場所(WithIn)をVBAから切り替えるアイデアをお持ちの方いたら教えていただけないでしょうか。
全シートから検索するのが目的ではなく、ブック全体検索後に何気に範囲指定置換を実施して引き起こされる惨状を回避したく。
（または別視点による工夫でもOKです）
詳しい方、よろしくお願いします。

2020/05/04(月) 15:43:06.15

>>852
意味不明な点が多すぎる。
＞ブック全体検索後に何気に範囲指定置換を実施して
　検索と置換ダイアログでは検索、置換は違うタブだから操作ミスは起きずらいが、
　そこまでしなきゃならないのか

＞引き起こされる惨状を回避したく。
　惨状って具体的になにか

そもそも惨状とやらが起きるのは、GUIの話なのかVBAの話なのか

2020/05/04(月) 15:44:13.44

今からVBAなんて覚える必要は全くない

2020/05/04(月) 18:17:24.80

８４１です。
丁寧な解説、みなさんありがとうございました。
勉強になりました。

2020/05/04(月) 19:20:35.81

>>855
アンカーも書けず全角で数字を書くよな馬鹿は死ね

2020/05/04(月) 19:40:04.11

>>853
説明が不足していました。

検索と置換のタブはパラメータ設定の記憶が共通となっております。
ブック全体検索を行った後に範囲を選択して範囲内置換を実施しようとCtrl+Hを押します。
すると前回検索時の "検索場所=ブック"が活きている状態になっております。
気づかずに実施すると全シートの指定文字列が置換されてデータが破壊されてしまいます。
コロン ":" でも削除置換しようものなら全ての時刻書式が破壊されます。
お試しください。

これを防ぐには、ブック内検索を実施した際は引き続きシート内検索を実施して設定を戻しておく必要があります。
普段ブック内検索ってあまり使わないのでこんな時に限って忘れてしまいます。
VBAはどうなっているかというと、.Find .Replace共に、WithInパラメータが存在しないため引数指定できず、直前のUI操作依存となるわけです。
自動化された置換処理があったりすると、事故が起こるわけです。

本件、GGってよく捜してみたら同様の悩みに対するQAありました。

　Range("A1").Find("*")

この１行を実施するだけで検索場所をシートに戻せるようです。
逆に検索場所をブックにする方法を探しているところです。

ご存じの方おられましたら教えてください。

2020/05/04(月) 20:21:19.69

.OpenTextで開いたテキストファイルを操作したいのですがやり方がわからなくて困っています。
拡張子CSVなら通常のエクセルワークシートと同様に扱えますが、テキストファイルは無理なのでしょうか？
Workbooks.Countは開いたテキストファイルの分増えているようですが…
ご教示お願いいたします。

**デフォルトの名無しさん** (ｽﾌｯ Sdff-rvxR) · 2020/05/04(月) 20:24:42.58

テキストファイルの中身はどのようなフォーマットで、どう操作したいのですか？

2020/05/04(月) 20:40:40.91

1セルに1文字づつならExcelチックに楽しめそうだな

知らんけど

2020/05/04(月) 20:56:39.11

次から次へと馬鹿が来る

**853** (ﾜｯﾁｮｲ 67ac-ts7H) · 2020/05/04(月) 21:05:25.33

>>857
まず、問題としてる事象は提示している方法で解決するんだよね
そのブック開いたときとか操作したときに実行すればいい

＞「ブック全体検索を行った後」に「範囲を選択」して「範囲内置換を実施」（ブック全体と指定しているオプションを開いたまま）
　→ その悪意に満ちた行為のみを想定するの？
　　　検索ダイアログのオプション設定は起動中のExcelアプリ（プロセス）に記憶されるから、
　　　Excelアプリを開いたまま同じPCで同様の操作をしないと再現しないはず

＞気づかずに実施すると全シートの指定文字列が置換されてデータが破壊されてしまいます。
　→ さっきの操作をすると検索オプションは開いてるはずだけど、
　　　それでも気付かずファイル保存するっていう悪意ｒｙ
　　　GUI操作->GUI操作で出る問題なら、運用で禁止するか保護するか、影響に基づいて運用システム自体を見直す

＞逆に検索場所をブックにする方法を探しているところです。
　→ 問題としてる事象の解決は自分で提示しているようだけど、
　　　逆に引き起こしたいってことは、単にやりたいから？
　　　VBAで置換するなら別に全シートをReplace擦ればいいだけだし
　　　ＧＵＩでブックにしたいならそう操作すればいいけど、何が必要なの

検索と置換ダイアログの操作はCommandBars.dialogsとかExecuteMsoとかで表示は出来る
ウィンドウ操作にしても他のダイアログ操作と似たようなもんだろう（APIが多分必要）

GUIとVBAをごっちゃに対応するから要らない悩みを抱える
運用やコストを考えない妄想の機能なら、それこそ趣味でアドインでも作ればいい

2020/05/04(月) 21:24:09.39

説明足らずで申し訳ありません。
カンマ区切りのテキストファイルに対してOpenTextを使います。これでカンマごとにセルに値が分けらたエクセルブックが開きます。
このブックのシートを通常のエクセルシートと同様に、例えばRange("A1").Activateとしたいのですが、ブックをどうやって指定すればいいのでしょうか？

以下の方法を試しましたがうまくいきません。
元々開いているブックが一つのとき、テキストファイルはWorkbooks.CountWorkbook=2として開かれることを確認。このときWorkbooks(2)をVariant型の変数に代入しようとしました。

Set myBook = Workbooks(2)

ウォッチ式でmyBookの値を確認すると
型 Variant/Object
値＜変数なし＞
となり値が取得できません。

テキストファイルの拡張子をCSVに変更すると問題なく値が取得できます。

すみませんがよろしくお願いいたします。

2020/05/04(月) 21:39:32.81

>>862
ご回答ありがとうございます。

>オプションを開いたまま
これの意味がわからないですが、ダイアログを開いたままという意味なら、閉じても記憶は維持します。
全体検索実施と範囲選択実施は一連の動作じゃないです。
例えば複数のファイルを開いて作業していて、全体検索を実施したファイルは既に１時間前に閉じていたとしても設定は維持されます。
これを悪意と言われましても、、
まあ、この点は前述のコードをシートイベント等に挟むことで防げそうです。
（設置Bookに限られるかな？まあ、良い方法を考えてみます）

>それでも気づかずに
キーボード主体でマウスはほぼ使わない派なので、範囲選択→ダイアログ開く→検索語、置換語入力→Enterの動作は
一連の操作で、ガッ、ガガガッで感じでやっちゃうのでダイアログのパラメータいちいち確認しないんですよね。
ちょっと落ち着けよって話なんでしょうけど。

>問題としている事象の解決は自分で提示しているようだけど、
最初に掲げた命題が "VBAで検索場所(WithIn)を切り替えたい" だったので逆の操作もできれば知りたいという程度です。
破壊リスクは回避できそうですが、例えば範囲が”シート"の状態からVBAで"ブック"に変更して全置換も可能なのかな、という疑問です。
結論としては通常の方法では出来なそうですね。
Worksheets.Select: Cells.Select を実行すれば、シートをForで回さなくても
　Selection.Replace できることもわかりましたのでこれで解決としたいと思います。

＞GUIとVBAをごっちゃに対応するから要らない悩みを抱える
GUIの設定がＶＢＡ操作にも影響を与えてしまうから制御できないかなと思った次第です。

お付き合いいただきありがとうございます。

2020/05/04(月) 21:50:38.13

>>863
txtファイル開いた時点で何かしらのファイル名が付いてるでしょ

2020/05/04(月) 22:13:52.11

特に目的があるわけではないけど、興味があってVBAを勉強しようと思ってます。
皆さんどんな勉強法しましたか？おすすめの本とか有りましたら知りたいです

**853** (ﾜｯﾁｮｲ 67ac-ts7H) · 2020/05/04(月) 22:16:36.67

>>864
まあ終わってるからいいけど・・

＞>オプションを開いたまま
＞これの意味がわからないですが、ダイアログを開いたままという意味なら、閉じても記憶は維持します。
　→これは、「検索と置換」ダイアログの
　　「検索場所」ドロップダウンはGUIだと「オプション＞＞」ボタンで開かれる拡張エリアにのみ表示されて、
　　「ブック全体を選択した」＝「オプションを展開表示している」から、GUIなら気付かないわけがない。
　　ということ。
　　ダイアログ内の設定値同様、オプション展開状況もExcelプロセスで共有してるから、
　　他のファイルで展開してるなら違うブックでも展開されたままダイアログ表示される。

＞GUIの設定がＶＢＡ操作にも影響を与えてしまうから制御できないかなと思った次第です。
　　VBAもGUIで行った設定の影響を受けないような、Rangeを指定する記述を普通は心掛けるべきだな

2020/05/04(月) 23:21:11.46

今までそーいうものだと思い込ませて放置していたことなのですが、
引数を使うのにカッコつけなきゃいけないメソッドと、使わなくてもいい
メソッドって、なにが違うんでしょうか？なにか理由があるのでしょうか。

Dim a As Range: Set a = Cells.Find(What:="test")
ThisWorkbook.ActiveSheet.PrintOut copies:=1

それに付け加えて、findした結果をcolllectionに格納する際、
カッコをつけるとdouble型、つけないとrange型となりました。

検索結果を格納するcollection.Add 検索range
検索結果を格納するcollection.Add (検索range)

ご教授何卒宜しくお願いいたします。

2020/05/04(月) 23:58:21.23

>>867
オプションが開かれてるという意味でしたか。
なるほどですね。
呼吸レベルでキーコンビネーションで通り過ぎちゃうので、、しっかり見るべきだと。

>VBAもGUIで行った設定の影響を受けないような
ごもっともです。

普段は .Find系は滅多に使わないのですが、あるとき大被害にあって、、、
どちらかというとGUI操作のほうが悩ましかったので、、、

API制御の方法にも辿り着けて、各Controlの制御もわかりました。
一瞬表示されてしまうのが難点ですが。良い情報をいただきました。

ご助言感謝します。

2020/05/05(火) 01:19:15.50

>>868
とりあえず戻り値があるかないかの違いとでも思っとけばよい