Excel VBA 質問スレ Part60

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:09.64

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/04/20(土) 07:10:53.95

きみの勝手な思い込みだよ、
と思われたくないなら客観的な根拠をあげた方がいいね

**デフォルトの名無しさん** · 2019/04/20(土) 08:13:49.91

エクセルの画面が右上に飛んで行って、
画面に「どこいくね～ん!」って表示させるのはどうでしょう?

**デフォルトの名無しさん** · 2019/04/20(土) 08:27:11.00

>>779
居るだろ。
君が知らないだけじゃね?
パッと10人くらいは思いつく。

**デフォルトの名無しさん** · 2019/04/20(土) 09:01:22.69

>>796
例えば誰？

**デフォルトの名無しさん** · 2019/04/20(土) 10:40:51.92

>>797
聞いちゃいけない事ってあるだろ、ニタニタで我慢しろよ

**デフォルトの名無しさん** · 2019/04/20(土) 11:00:20.54

どうせtwitterのキーワード検索にVBAって入れて出てきたやつとt.tanakaぐらいだろうよ

**デフォルトの名無しさん** · 2019/04/20(土) 11:38:03.85

Office田中さんはその内の1人だね。
あとはA○○○さん、k○○○○○○さん、魔○○○○○○さん、じ○○○○○○さん、熊○○○さん、K○○さん、き○○○さん、s○○○○さん、y○○○○○○さん、Y○○○○○○さんとか。

き○○○さんは今も活躍されてるけど今は見かけなくなった人が多いけどね。
.netの方へ移動された人もいるし。
ここ数年でVBAやりはじめた人じゃ知らないのも無理無いが。

**デフォルトの名無しさん** · 2019/04/20(土) 11:40:06.78

ああ、A○○○さんはA○○○○さんだった。
今はA○○○○○さんかな。

**デフォルトの名無しさん** · 2019/04/20(土) 11:47:01.11

>>800
T○○○さんもI○○○○さんもいないじゃないか

**デフォルトの名無しさん** · 2019/04/20(土) 11:49:12.54

名前は覚えてないな
サイト見たら大体思い出す

**デフォルトの名無しさん** · 2019/04/20(土) 11:50:13.86

Office田中はサイトの修正点を送っても反映してくれないのがネック
後続のためにも直してくれ～

**デフォルトの名無しさん** · 2019/04/20(土) 12:06:15.09

解説系とライブラリ提供系に分けられるがそれなりに有用
しかしコミュニティを形成してるかと言うとちょっと

**デフォルトの名無しさん** · 2019/04/20(土) 12:20:16.39

>>802
I○○○○さんは想像つく。
けど、俺がいた所じゃ見かけたことが無い。
そういやtwitterで発言されてるらしいけど、俺VBA関連はtwitter見て無いんでな。
T○○○さんは想像つかないな。

田中さんは有名人だけどあの人のサイトでは教わることは無いな。
基本的に全て知ってることだから。
でも>>800で挙げた人達は全員俺よりかなりレベルが上だ。

**デフォルトの名無しさん** · 2019/04/20(土) 12:22:08.90

VBAのworksheetfunction.vlookup関数で
該当の値がないときエラーを回避してそこの処理は無視させるにはどんなコードを書けばいいですか？
該当なしだと問答無用でエラーが出て止まってしまう。

**デフォルトの名無しさん** · 2019/04/20(土) 12:27:26.17

>>807
>>423からの流れを読んでね。

**デフォルトの名無しさん** · 2019/04/20(土) 12:29:15.35

>>807
'forなどで回す時はラベル付けて飛ばす
Sub foo()
On Error GoTo err
For i = 1 To 5
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
'エラーじゃない時の処理
err:
'共通の処理。無ければ何も書かない
Next
End Sub

'使い捨てプログラムならonerrorで囲んでしまうという手もあるが、あまりオススメできない
Sub foo()
On Error Resume Next 'エラーを無視
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
On Error GoTo 0 '無視を無効化
End Sub

**デフォルトの名無しさん** · 2019/04/20(土) 12:43:34.58

>>809
お前ね何度書けば・・・
Sub foo()
On Error GoTo err
For i = 1 To 5
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
'エラーじゃない時の処理
goto 共通
err:
ERR時の処理
共通:
'共通の処理。無ければ何も書かない
Next
End Sub

**デフォルトの名無しさん** · 2019/04/20(土) 13:02:36.97

>>810
ちゅまん

**デフォルトの名無しさん** · 2019/04/20(土) 13:23:10.42

>>811
てか、WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
見過ごしたけど、これ何？

**デフォルトの名無しさん** · 2019/04/20(土) 14:04:44.42

>>812
引数を適当に入れただけ

**デフォルトの名無しさん** · 2019/04/20(土) 14:36:59.58

>>807
Trueならエラー起きないんじゃない?

**807** · 2019/04/20(土) 15:39:14.34

on errorはセンスがないように感じるのですが。
わたしのセンスがon errorを使うことを許しません。
どうしたらいいですか？
こんなとき定番のような方法はないですか？

**デフォルトの名無しさん** · 2019/04/20(土) 15:49:30.44

on errorで問題ないならそれで良いじゃん
そんな瑣末な事に時間を使わずにもっと生産性のある事に時間を使って組織や社会に貢献して下さい

**デフォルトの名無しさん** · 2019/04/20(土) 15:56:13.97

On Errorを使うのがセンス無い?
何処の初心者だ?

想定された動作なのに一緒くたにするのが嫌というならOn Errorの使い方を知らないだけだろ。

**デフォルトの名無しさん** · 2019/04/20(土) 15:56:41.52

>>815
センスとか気になるならVBAに関わるのは止めた方が良いよ

**デフォルトの名無しさん** · 2019/04/20(土) 15:58:32.36

>>815
ID:9HZyCDJwのキチガイが起こってるぞw

**デフォルトの名無しさん** · 2019/04/20(土) 16:10:16.59

>>819
センスの無いお前には言われたくね―なw

**デフォルトの名無しさん** · 2019/04/20(土) 16:44:47.04

vbaにtrycatchが無い以上、onerrorで分岐するしかない
ただ今回に限って言えば、ワークシートにvlookup()を入れてその結果で分岐させることは可能

**デフォルトの名無しさん** · 2019/04/20(土) 17:45:57.42

こんな方法もある

Range("Z1") = WorksheetFunction.VLookup( 略 )

結果をどこか空いてるセルに入れてしまえば、エラーでも止まらずに結果を判定することができる
もうひとつ、試したことはないけど

WorksheetFunction.Iferror( WorksheetFunction.Vlookup ( 略

みたいな方法でもエラーで停止するのを回避できそうな気がするけど、Vlookupで止まるかなあ

**デフォルトの名無しさん** · 2019/04/20(土) 17:53:15.47

>>822
間違えた
こうだった
Range("Z1") = Application.VLookup( 略 )

**デフォルトの名無しさん** · 2019/04/20(土) 17:58:05.16

ちゃんとエラー番号調べて処理すりゃ良いだろ

**デフォルトの名無しさん** · 2019/04/20(土) 18:00:15.98

>>823
なんでセル
変数でいいじゃん

**デフォルトの名無しさん** · 2019/04/20(土) 19:12:25.83

じゃあLeft Outer Joinで。

**デフォルトの名無しさん** · 2019/04/20(土) 19:43:05.64

>>807
・VlookupじゃなくてFindを使う
・事前にcountifとかエラー値が返らないもので存在確認してから使う
・worksheetfunctionの代わりにApplication.VLookupを使うと見つからなかった場合N/Aが返るが、旧バージョンの命令だからあまりおすすめしない

**デフォルトの名無しさん** · 2019/04/21(日) 10:03:39.80

質問者は、もっと具体的に書くべきだな、対応方法は多種多様にあるから
質問に対するベストな回答が、質問者の意図するベストの回答とは限らん

**デフォルトの名無しさん** · 2019/04/21(日) 15:50:42.83

もうね、On Error Resume Nextが嫌とか、宗教だと思うんですよ。

**デフォルトの名無しさん** · 2019/04/21(日) 15:59:22.44

んて訳の分からん面倒なコードを書くとかキチってるよね

**デフォルトの名無しさん** · 2019/04/21(日) 16:03:59.70

>>829
でも配列の次元すらOn Error 使わないと求められないってひどくないですか？

**デフォルトの名無しさん** · 2019/04/21(日) 16:50:25.73

>>831
何も分かってないんだから大人しく使いなよ

**デフォルトの名無しさん** · 2019/04/21(日) 17:30:52.05

>>832
ほう、じゃやり方を教えてくれよ

**デフォルトの名無しさん** · 2019/04/21(日) 17:35:25.49

>>833
？
だから文句言わずにonerrorを使えば良いだけなんだが

**デフォルトの名無しさん** · 2019/04/21(日) 17:37:30.55

>>831
お前の言ってることは結局、コ－ド書かないと動かないって酷くないですかってのと同じ。

**デフォルトの名無しさん** · 2019/04/21(日) 17:51:22.14

>>834
アスペか？
配列の次元を取得するのにOn Errorを使うなどという事自体は酷い。これは事実だ。
それに対して「何も分かってない」とdisる以上、On Errorを使わない真っ当な方法があると解釈するのが当然のこと。

**デフォルトの名無しさん** · 2019/04/21(日) 18:06:20.94

そこじゃないよ
vbaの酷い点はtrycatchが無い事

**デフォルトの名無しさん** · 2019/04/21(日) 18:15:35.13

>>836
酷い?なぜ?
と言ってるんだろう。

**デフォルトの名無しさん** · 2019/04/21(日) 18:15:57.22

客見ずにマウント取り合いってツルッパゲのする事　産毛すら無い

**デフォルトの名無しさん** · 2019/04/21(日) 18:16:48.81

>>835
流石にそれはないわ
VB.NETやC#は普通にプロパティあるし

**デフォルトの名無しさん** · 2019/04/21(日) 18:17:02.42

>>837
書き方の問題じゃね?
実質同じことが出来るんじゃないの?

**デフォルトの名無しさん** · 2019/04/21(日) 18:19:22.95

>>840
それはVBAに無いものをあげつらっているだけ。
VB.netやC#に無いものをあげつらうことも出来るだろ。

そもそも何が酷いのかサッパリ分からん。

**デフォルトの名無しさん** · 2019/04/21(日) 18:26:29.16

On Error とか例外機構っていうのは、メモリ不足とかファイルの不在なんかのソフトウェア的には想定しづらい
例外的な事象に使うものなんだよ。
例えば「関数引数に対する事前条件がもし守られていなかったら」なんていう
ソフトウェア的に想定できるような事には例外を使うのべきじゃない。
ましてや配列の次元の取得なんてことに使うのは「ひどい」としか言いようがない。
それはセンスとかの問題じゃなくて常識だと思うよ。

**デフォルトの名無しさん** · 2019/04/21(日) 18:33:13.89

>>843
で?
何が酷いの?

**デフォルトの名無しさん** · 2019/04/21(日) 18:33:17.05

>>842
> そもそも何が酷いのかサッパリ分からん。
まじで言ってるの？

**デフォルトの名無しさん** · 2019/04/21(日) 18:35:05.76

もともと有る機能を組み合わせて
目的の動作をするように作るしかない

**デフォルトの名無しさん** · 2019/04/21(日) 18:42:35.76

>>845
そういう返しじゃなくて、教えてやれば

**デフォルトの名無しさん** · 2019/04/21(日) 18:47:06.02

例えば昔仕事で扱ったWin32APIのGetPrinterでは取得するPinterInfo2構造体のサイズを0にして渡して敢えて失敗させることによって正しい構造体のサイズを取得するなんてのがある。
再度正しいサイズで実行するやり方が想定されていて、そして失敗時はdllエラーも当然発生するなんてのが有るわけなんだが。

確かDevmode構造体を取得するする時に使うDocumentPropertiesも同じような使い方してたと思う。

**デフォルトの名無しさん** · 2019/04/21(日) 18:48:35.29

>>845
結局取得できる。
何も問題無い。

お前のオナニー以外は。

**デフォルトの名無しさん** · 2019/04/21(日) 18:48:56.55

>>844
まず次元の取得方が標準で用意されていない点が少しひどい。
さらにそのワークアラウンドがOn Error利用である点が一層酷い。
わかる？
これでキミもバッチリだ。

**デフォルトの名無しさん** · 2019/04/21(日) 18:50:13.13

>>847
>>832じゃねーから何も考えておらん。

**デフォルトの名無しさん** · 2019/04/21(日) 18:51:26.42

>>850
だからそれは無いものをあげつらっているだけ。
どんな言語にもあることだ。

**デフォルトの名無しさん** · 2019/04/21(日) 19:11:57.22

>>841
実質同じ事って言い出すと何でもアリになってしまう
onerrorしかないと可読性が大きく下がる

ところでEXCELで次元数を取得する機会って一度も無いんだけど、
よく使う計算なのか

**デフォルトの名無しさん** · 2019/04/21(日) 19:15:35.07

>>853
可読性が下がる???
書き方が悪いんじゃ無いの?

そんなこと感じたことも無い。

**デフォルトの名無しさん** · 2019/04/21(日) 19:17:57.47

>>853
多分、配列を初期化したかしてないかの話じゃないかと思うね。
UBoundでエラーが出る話だろう。
で、Sgnが嫌なんだろう。

**デフォルトの名無しさん** · 2019/04/21(日) 19:35:22.79

>>848
それはちゃんとドキュメント化されてるだろ
On Errorで次元を取得するのとはレベルが違うよ
動けばいいと言うレベルのコーダーならいいのかも知れないけど

**デフォルトの名無しさん** · 2019/04/21(日) 19:54:31.81

>>856
何言ってるの?
On Errorしかないのが正式なら同じだし、
On Error以外に正式なものがあれば問題ないし、
同じことじゃねーかw
しかも後出ジャンケンかよw

結局言い掛かりもいいところだ。

**デフォルトの名無しさん** · 2019/04/21(日) 20:04:00.06

On Error 以外に配列の次元取得方法がないと決まった訳じゃなくて、よく知られてる方法がOn Error利用だってだけだが、
割り切ってAPIを呼んでいる人もいる。

**デフォルトの名無しさん** · 2019/04/21(日) 20:08:00.46

>>749
え、お前の会社って稟議書や経費精算の業務って全部署共通じゃないの？
その会社固有の業務だけど、部署間で使い回しの効く部分のことを言ってるんでしょ？

**デフォルトの名無しさん** · 2019/04/21(日) 20:13:12.66

>>843
とりあえず構造化例外処理すらない時代の言語にいってもしょうがない話
常識は時代で変わるんだよ
結局はVBAは古い時代の言語ってだけ

あと、配列の次元が知りたいとか設計が悪いとしか思えん

**デフォルトの名無しさん** · 2019/04/21(日) 20:17:21.38

>>857
はあ？
正式な方法がないって話だぞ
日本語理解できてないの？w

**デフォルトの名無しさん** · 2019/04/21(日) 20:28:15.67

>>860
> あと、配列の次元が知りたいとか設計が悪いとしか思えん
君には不要というだけの話
他の言語では普通に多次元配列用のライブラリとかある

**デフォルトの名無しさん** · 2019/04/21(日) 20:32:45.02

次元数をライブラリに渡せばいいじゃん

**デフォルトの名無しさん** · 2019/04/21(日) 21:03:13.26

>>863
それさ...
平気で言うやつがいるけどさ...
ありえなくない？

**デフォルトの名無しさん** · 2019/04/21(日) 21:04:52.40

>>863
そうだよ
面倒かつバグの元だけどね

**デフォルトの名無しさん** · 2019/04/21(日) 21:27:51.81

じゃあどうしてもOn Errorが嫌だとして、
他の方法が幾つか出てるんだから、それ試しなよ。

**デフォルトの名無しさん** · 2019/04/21(日) 21:47:12.89

trycatheなら関数に封じ込める事ができるけど、
onerrrorはグローバルだから全体に影響してしまうのが最高に糞なんだ
正直、グローバルじゃなければ別にonerrorだろうとなんだろうと構わんのだよ

**デフォルトの名無しさん** · 2019/04/21(日) 22:30:28.20

on errror が糞とかどうとかお前の趣味に合わせて出来てる訳じゃ無いんだよアホウ

**デフォルトの名無しさん** · 2019/04/21(日) 22:32:03.89

>>866
君の言う通りだ
反発を受けてるのは「文句言わずにonerror使え」とか言い出した奴ですよ

ただ次元数をライブラリに渡せっていうのはナシだ

**デフォルトの名無しさん** · 2019/04/21(日) 22:38:29.04

うまく作れない奴が他人のせいにしたところで問題は解決しないのにな

**デフォルトの名無しさん** · 2019/04/21(日) 22:57:54.67

>>861
大いなる自己矛盾の中にいることに気付かないとはね。
論理的思考能力が無いならプログラムを組むのなんか辞めることだな。

**デフォルトの名無しさん** · 2019/04/21(日) 23:18:19.59

ついに公務員の副業が解禁される時代が到来した
https://hybridstyle.net/side-job065/
フリーランス市場規模が20兆円を突破 -副業は8兆円-
https://hybridstyle.net/work-style020/
時代は週休3日制へ【週休3日制導入企業まとめ】
https://hybridstyle.net/work-style016/
会社員の副業が急増、副業フリーランス4年で3倍、経済規模は約8兆円??副業収入は平均74万円
https://www.businessinsider.jp/post-165077#cxrecs_s
本業のストレス解消、副業で月70万、転職のお試し…会社に内緒で副業する人たちの本音
https://www.businessinsider.jp/post-176835#cxrecs_s
どんな仕事でいくら稼いでいる？副業をしている13人に聞いたそのリアル
https://www.businessinsider.jp/post-180772#cxrecs_s
会社が個人を縛り付ける時代は終わった。これからは、個人が仕事を求めて、チャンネルのように会社を切り替えていく。
https://www.wantedly.com/companies/newpeace/post_articles/65530
誰も教えてくれなかった「フリーランスは厳しい」ではなく「甘い」という真実。
https://www.wantedly.com/companies/newpeace/post_articles/54124
【特集】年収1000万円以上「フリーランスの流儀」vol.2
https://tabi-labo.com/286733/journey-six-figure-freelance-nathan
「排出物ゼロ、廃棄物ゼロ、貧困ゼロ」究極のエコ・リゾートがフィリピンに
https://tabi-labo.com/284193/nautilus-eco-resort
仕事は9割外注すれば売り上げが爆増する
https://headlines.yahoo.co.jp/article?a=20190416-00028392-president-bus_all

**デフォルトの名無しさん** · 2019/04/22(月) 04:52:26.38

>>871
何を言いたいのさっぱりかわからんw
低能が反論できずに有耶無耶にしたいときによくやる方法だな

**デフォルトの名無しさん** · 2019/04/22(月) 08:27:33.91

>>867
on local error …
って書くだけじゃん。アホか。

**デフォルトの名無しさん** · 2019/04/22(月) 08:55:19.16

>>867,.874
onlocalerrorってなんだ、初めて聞いたわ
そもそもon errorはグローバルじゃないぞ

Sub foo()
Call bar
a = 1 / 0 'ここでエラーになる

End Sub

Sub bar()
On Error Resume Next
a = 1 / 0 'エラーにならない
End Sub

**デフォルトの名無しさん** · 2019/04/22(月) 09:24:57.57

>>873
やっぱり分からんかw
お前はドキュメント化されていれば正式だと言ってる。
しかしそれは結局MSの判断ということだ。

お前はOn Errorが正式では無いという回答そ貰ったのか?
そうでなければお前の「正式な方法がないって話だぞ」というのはお前の決め付けだ。

結局お前の中には矛盾した2通りの正式が存在することになる。

**デフォルトの名無しさん** · 2019/04/22(月) 11:15:47.81

local付けると局所だと思ってたけど、配下に有効みたい。
つまり、付けても動作に変わりはない（？、詳細は試してない）

**デフォルトの名無しさん** · 2019/04/22(月) 11:20:03.08

昔試したときに、local有無で動作違ってたはずなんだけどな…
まあ、配下に有効だから、goto 0で無効にしてから callすれば局所化は可能かと

**デフォルトの名無しさん** · 2019/04/22(月) 11:24:44.90

>>877
呼び出し先で親要素のon erroの状態が有効なのはもともとなので、使ってもあまり意味は無い気がする

on local もう廃止されたっぽい？MSDNにも無い
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/on-error-statement#see-also

互換性のためにあるってブログ記事見つけたけど、かなり古い
https://www.papy.in/bbs/vb2/200401/04010015.html

なんやろね

**デフォルトの名無しさん** · 2019/04/22(月) 12:01:35.50

俺も　On error Goto　でtry Catchと同程度のことができると思ってた
要するに書き方かなと思ったが１回目のエラーはいいがそれ以降が使えないじゃん？
ネストするにも無理があるな、複数の場所（例えば２重ループで）でのやり方があるかもしれんが
無理じゃない？
俺は「On error Goto」で出来ると思ってた、やり方があれば申し訳ないが教えてほしい

**デフォルトの名無しさん** · 2019/04/22(月) 12:11:57.97

エクセルで、複数ブックの特定文字列だけ一気に変えるマクロってどこかで紹介されてますか？

例えば2018年4月21→2019年4月23日に変える感じです

日付が入力されているセルがそれぞれのブックでバラバラなので、セル指定置換はできないようです

**デフォルトの名無しさん** · 2019/04/22(月) 12:22:36.94

>>876
よほど多用されてるとかでない限りいちいち〇〇は正式じゃないなんて言う回答なんてするわけ無いだろ
レスが馬鹿すぎるw

**880** · 2019/04/22(月) 12:24:36.91

例えば
Private Sub CommandButton1_Click()
Dim ShNM
For i = 1 To 6
Sheets(1).Activate
ShNM = Range("A" & i).Value
On Error Resume Next
Sheets(ShNM).Activate
GoTo Kyoutuu
Nosheet:
Kyoutuu:
Next i
End Sub
この式は最初のシートを「Z」としそのA列の行1～6に例えば「A」～「F」まで書いて
シートを「Z」以外にシート名を「A」～「F」までの内３つしか作ってないと、「.Activate」で２回エラーになるが１回目は意図した動作だが
２回目のエラーでメッセージボックスが出る
回避方法を教えてほしい

**デフォルトの名無しさん** · 2019/04/22(月) 12:30:37.21

赤っ恥
On Error Resume Next
はこれなら大丈夫だが
On Error GoTo Nosheet
はNGって話です　でもそれじゃあ書いてる意味がないので
結局
On Error Resume Next で次を考えるなかななの、一番使いたくないんだが

**デフォルトの名無しさん** · 2019/04/22(月) 12:39:43.58

On Errorは全体に作用しすぎるから、isError的な感じでfunction分けた方が良いんじゃないか

**デフォルトの名無しさん** · 2019/04/22(月) 14:10:46.51

>>884
onerrorgotoをメインの処理の流れ制御には使わない方がいいと思う。

On Error Resume Nextは、次行にエラーがあると想定されるときに使い、If Err.Numberで判定して、その値によって処理を変える。

On Error GoTo は、どちらかというと、一つの処理（subやfunct…）の頭で宣言し、想定外のエラーを検知してエラーを出すのに使う。

**デフォルトの名無しさん** · 2019/04/22(月) 15:22:43.51

>>886
ありがとう、他の言語も使ってるから勘違いしていた
対応することはもちろんできるし、Excelの環境を利用しながらの
プログラムは有効なので、仕方ないのであれば考えるは
考えてなかったのが、お恥ずかしい

**デフォルトの名無しさん** · 2019/04/22(月) 15:50:34.25

なんかアプデ来てからwebクエリのバグが起こって実行エラー 1004で読み込めないんだけど
俺だけ？

**デフォルトの名無しさん** · 2019/04/22(月) 16:12:16.31

>>888
エラーの意味ぐらい調べて書くよな

**デフォルトの名無しさん** · 2019/04/22(月) 16:30:51.55

>>889
「Webクエリによって返されるデータがありません」とか言われるけど
読み込み先のWebページみても仕様の変更とかURLの変更とか見られないし明らかにExcelアプデが原因っぽいんよなー

**デフォルトの名無しさん** · 2019/04/22(月) 19:03:03.55

>>890
もう一度、クエーリーを作成してもダメ？

**デフォルトの名無しさん** · 2019/04/22(月) 20:01:03.78

>>881
どこで紹介されてるかは知らないが、1ファイルずつ中身検索して変更すればいい

**デフォルトの名無しさん** · 2019/04/22(月) 20:20:53.32

>>883
シートの存在チェックをしないままActivateメソッドをコールしてるからエラーになるんだろ

Private Sub CommandButton1_Click()
Dim ShNM As String
For i = 1 To 6
Sheets(1).Activate
ShNM = Range("A" & i).Value
If SheetExists Then
Sheets(ShNM).Activate
Else
'Nosheetのラベルの箇所に書いていた処理
End If
'Kyoutuuの所に書いていた処理
Next i
End Sub

Function SheetExists(ByVal name As String) As Boolean
Dim sh As Worksheet
For Each sh In Sheets
If sh.name = name Then
SheetExists = True
Exit Function
End If
Next
SheetExists = False
End Function

**デフォルトの名無しさん** · 2019/04/22(月) 20:57:12.59

>>882
何言ってんの?
回答するかしないかはどうでもいい。
お前が回答を貰って無い以上、不明ということだ。
つまり、「正式な方法が無い」などという発言は明らかに矛盾している。

もはや、「正式」という言葉をどう解釈するかという問題になって全くアホらしいが
、MSに方法が無いのかと問えば、何らかの回答をするだろう。
それを正式な方法と考えれば、日本語の解釈に固執するバカ以外は問題無いわけだ。