Excel VBA 質問スレ Part74

1 名前：デフォルトの名無しさん mailto:sage [2021/12/20(月) 01:40:59.22 ID:jnlr9GaR0.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付けるナリ ExcelのVBAに関する質問スレナリ コード書き込みや作成依頼もOKナリ ※前スレ Excel VBA 質問スレ Part73 https://mevius.5ch.net/test/read.cgi/tech/1631485799/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 381 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:20:31.63 ID:HvyHPCt90.net] 別角度からのほほんと見てるけど、> 10£5s9d（10ポンド5シリング9ペンス） という元データがあるんだろうか？ イギリスはポンドとペンスが通貨単位でシリングというのは1971年以前の単位だと出てくるんだが で、1ポンド = 100ペンス　10£5s9d というテキストで渡されるから変換したいんで£の位置を知りたい　は判るが そこで躓いて先に進まないと成れば、事前に£を他の文字に変換してからExceに入れてはどうか すでに目を通しているとは思うが 通貨定数について https://docs.microsoft.com/ja-jp/office/client-developer/visio/about-currency-constants EUROCONVERT 関数 https://support.microsoft.com/ja-jp/office/euroconvert-%E9%96%A2%E6%95%B0-79c8fd67-c665-450c-bb6c-15fc92f8345c MSに問い合わせる案件のような気もする 382 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:28:00.48 ID:2Gg8wBAvd.net] >>376 ポンド記号は3種類ある JISコード(Shift-JISコード)、ユニコード、イギリス向けOSの環境依存文字 使用者にどれかを強制させて統一させるのはものすごく難しいので、どれが入ってきても混じっててもいいように、 プログラムを複数のパターンに対応できるように作るしかない 383 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:34:13.27 ID:dcyjCeKBa.net] 勝手に変換すればいいよ 384 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:59:37.72 ID:cSomMf3f0.net] >>379 まさしき1971年以前の英国貨幣史の研究で使用します．10世紀くらいから第2次大戦くらいまでです．各時代の銀貨が含む銀重量と，地金価格，銀貨の額面価値の比較をするためのデータ整備でしようします， 1971年以前は，1£＝20シリング，1シリング＝12ペンスでした．10進法ではありません． 今は応急策としてエクセル側で£ではなくてLと使いVBAで側ではてtestfunc02タイプでしのいでいますが． しかし将来見た時になんでこうしているのかわからなくなると思いますし，£の使い方は要注意ということも間違いなく忘れますので，この際できれば解決しておきたいのです． >>377 半角ポンドのコードは63番でL大文字は76，l小文字108番で異なります． ￥とバックスラッシュはともに92番ですが事情が異なるようです． またご提案の StrConv("£", 10)を試しましたが，結果は全角の"£"を返し半角の"£"を返さないので解決策ではないです． >>378 半角ポンド記号は存在します． £，£は違います． 最初が半角ポンド記号で2番めが全角ポンド記号です． 385 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:03:34.25 ID:cSomMf3f0.net] 自己レスです． 今が気がついたのですが，レス入力時には半角ポンドと全角ポンドは違うのですが，投稿後はどちらも全角ポンドで表示されていますね． ”£，£は違います．”のように． このことが，今ひとつ皆様に正しく伝わりにくい原因かもしれません． 386 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:10:11.49 ID:cSomMf3f0.net] 半角と全角の違いをアップしました． https://imgur.com/QmAApZ5 レス作成時には半角と全角の異なるもじが使えますが，投稿後はともに全角で表示されるようです． 387 名前：デフォルトの名無しさん [2022/01/14(金) 18:12:16.77 ID:dtRMJdwu0.net] >>383 今ちょうど見ていた ポンド記号、何か色々とおかしい vbeでも変換されるからわけわからんことになってきた 388 名前：デフォルトの名無しさん [2022/01/14(金) 18:26:28.87 ID:dtRMJdwu0.net] >>382 俺のコードで合っている https://i.imgur.com/XISUJtg.png 恐らくコンソールで見たんだと思うけど、VBE上はポンドが全て全角になる ポンドを文字列にせず、全て半角にして取り扱えば問題は起きにくいと思う serchCharの部分も文字コードの方が良いだろう あと、Lが引っかかる理由もわからんが、恐らくあいまい検索か何かでひっかかってるのだろう 業務に使うなら、今回に限ってはvba使わずに、エクセルだけで処理したほうが良い気がする。 389 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:29:18.19 ID:P/5qDoLq0.net] >>382 存在するかどうかって言ってるんじゃなくて、SHIFT_JIS環境で想定がないんじゃないかって言ってるんだよ ウィキでみるかぎり、U+00A3とU+FFE1らしいから、それチェックすればいいだろ こんな感じか Function foundPound(word As String) As Long Dim pos As Long pos = 0 Do Until pos >= Len(word) pos = pos + 1 If Mid(word, pos, 1) = ChrW(&HA3) Or Mid(word, pos, 1) = ChrW(&HFFE1) Then foundPound = pos Exit Function End If Loop End Function 390 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:44:27.31 ID:cSomMf3f0.net] >>386 >>387 皆様ありがとうございます。 一つ一つ確認してみます。 386様、コードを張っていただけると助かります。 391 名前：デフォルトの名無しさん [2022/01/14(金) 19:11:03.04 ID:dtRMJdwu0.net] >>388 >>377で合っている テストに使ったコードはこれ ユーザー定義関数じゃなく、普通の関数にしてる https://jsfiddle.net/jb52o9g4/ 392 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 19:15:48.47 ID:lOO1pB5h0.net] serchChar = ChrW(163)で行けたが 393 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 19:26:56.18 ID:lOO1pB5h0.net] >>389 あ、解決してたんだね、ごめんなさい 焦 394 名前：デフォルトの名無しさん [2022/01/14(金) 21:30:18.78 ID:+nyDUFlg0.net] searchCharな 395 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 21:47:12.20 ID:cSomMf3f0.net] >>377 ありがとうございました。 動作確認できました。 一つ教えて下さい。 StrConvの第2引数ですが10はどういう意味でしょうか。 公式ヘルプには10の設定がないのでご教示いただければありがたいです。 https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/strconv-function?f1url=%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1011063);k(TargetFrameworkMoniker-Office.Version%3Dv15)%26rd%3Dtrue 396 名前：デフォルトの名無しさん [2022/01/14(金) 21:51:25.41 ID:dtRMJdwu0.net] >>393 一つならvbLowerCaseかvbNarrow（もしくは2か8）でいいんだけど、 2つ以上組み合わせる場合は、足し算する 小文字の変換　2 半角　8 足して10 今回は小文字にする必要は理屈上ないはずけど、 どうせやるならついでにやっておいたほうが良いからやってある 397 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 22:29:34.99 ID:cSomMf3f0.net] >>394 ありがとうございました。引数の意味はVBA でよくやる方法ですね。 398 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 22:43:41.66 ID:cSomMf3f0.net] >>394 すいません。 対応する小文字や半角文字がなければそのまま大文字や全角文字を返すのでしょうか？ 399 名前：デフォルトの名無しさん [2022/01/15(土) 00:25:26.50 ID:w/VctcoP0.net] >>396 そうだと思って使っていたけど、言われてみればリファレンスにないね あと、ごくたまに罠がある https://www.petitmonte.com/bbs/answers?question_id=28308 400 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 00:56:09.86 ID:xF8zc0t/0.net] んー、セルはunicode対応で環境依存文字使えるけどエディタはsjisだから文字コード自体が違うだけかと思ってた 401 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 01:08:19.24 ID:8e4JI6z40.net] >>397 詳しい説明ありがとうございました。とても複雑なんですね。 402 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 11:15:34.39 ID:6domvLfM0.net] Range.Rangeプロパティ、イミディエイトウインドウ、ローカルウインドウ 便利 403 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 12:40:23.72 ID:8e4JI6z40.net] >>387 文字コードについて詳しくないので教えて下さい。 ChrW(163)をセルに書き込むとポンドの半角通貨記号でした。 そのセルのcode()を見ると63でした。 2つの値が異なるのは163がユニコードの番号で63がANSIの番号だからですか？ どちらか一方だけ（例えばユニコード）に対応した関数で使用を統一する方法はあるのでしょうか。 404 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 13:37:09.72 ID:Op2FQMu7M.net] >>401 状況よくわからんけど AscW(Cells(1,1).Value) とかじゃ駄目なの？ 405 名前：デフォルトの名無しさん [2022/01/15(土) 13:37:27.88 ID:w/VctcoP0.net] >>40１ 違う code()の返り値が63は、2パターンある 一つは半角「?」。これは正真正銘の63 もう一つはshiftjisでもasciiでもない文字。絵文字など。それも63が返って来る 後者は出力の際に、ユーザーに対する応答として便宜上「?」を使っているだけだろう。 >>387の言ってる＞SHIFT_JIS環境で想定がないんじゃないかって これはそういう意味だと思う。多分 文字コードは難解な上に歴史的経緯が大きく影響から、あんまり深追いしないほうがいいよ。得るものも少ない。 ダメ文字知ってるぐらいで良い 406 名前：デフォルトの名無しさん [2022/01/15(土) 13:38:25.50 ID:w/VctcoP0.net] それを考えると、変な文字でワークシートとvbaを行ったり来たりさせないほうが良いと思う ってことぐらい注意しておけばいいんじゃないかな 407 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 17:07:04.41 ID:m8G7GxvMM.net] クラスモジュール初めて使うんですが、 ひとつのクラスモジュールに、 マクロで 408 名前：使用するWsをまとめたクラスを作りたいんですが、 入力用Ws 　Ws1_入力用 　Ws2_入力用 一時計算用Ws 　Ws1_一時計算用 　Ws2_一時計算用 みたいに作ることはできるんですか？ 入力用Ws(一時計算用Ws)まで入力して、ドットを打つと インテリセンスでそれぞれのWsが選べるようになる・・・という構造をにしたいのですが。 例えば、標準モジュールから呼び出すときに Dim ClassWs As ClassWs: Set ClassWs = New ClassWs ClassWs.入力用Ws.Ws1_入力用 ClassWs.一時計算用Ws.Ws1_一時計算用 のような感じです。 できた場合でも、あまりこういった書き方はしないほうがよいですか？ [] [ここ壊れてます] 409 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 18:42:53.07 ID:XFuYRO140.net] >>401 まず、文字コードって言われているものには複数の種類があって、同じ文字であっても違う番号で表されることがある。 そして、文字コードを規定している体系によって、持っている文字の種類や数が決まってる。 これが文字コードの大前提 今回の問題は、Windows日本語版のANSIでは半角ポンド記号は定義されていないってこと >2つの値が異なるのは163がユニコードの番号で63がANSIの番号だからですか？ ChrWはUnicodeを扱う関数 codeワークシート関数はANSIを扱う関数 同じ文字でも数値が違うのは当たり前 unicodeワークシート関数使えば当然同じ数値になる ただしANSIでの63ってのは"?"文字のコード codeワークシート関数の数値については、対応する文字がない場合は?のように扱うんじゃないかな なので?の数値が帰ってきてると思われ >どちらか一方だけ（例えばユニコード）に対応した関数で使用を統一する方法はあるのでしょうか。 ANSIで使えない文字がある以上、ユニコードでやるしかない 410 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 18:52:54.92 ID:XFuYRO140.net] >>405 Wsってなんだ？ そもそもの目的はなんだ？ 一つのクラスに機能を集約するのはまあよくある 機能ごとにクラスやモジュールを分けるのもよくある 規模とか再利用性とかとの兼ね合い 411 名前：デフォルトの名無しさん [2022/01/15(土) 19:00:32.98 ID:w/VctcoP0.net] >>405 名称が完全に二重になっているし、入力がめんどくさくなってるだけでは？ クラスはMeを使わないならあんまり使う意味は無いと思う。 事務の補助程度なら、その場面はほぼ無いと思う。ってか、vbaでクラス使った事ない。 ワークシートに別名を持たせてインテリセンスで使いたいだけなら、 関数＋グローバル変数にして最初の一行で呼び出しきってしまえば良いと思う https://i.imgur.com/2w8bUT8.png ワークシートなら死ぬほど使うから、グローバル変数でも問題ない 412 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 19:19:41.65 ID:m8G7GxvMM.net] >>407 >>408 ありがとうございます。 おっしゃる通り、今まで事務の補助程度で自分用としてしか使ったことなかったのですが、 今回初めて配布用のマクロを作っていて、膨大にモジュールが増えてしまい混乱していました。 クラスモジュールなら解決できるのかなと思いまして・・・ 画像付きで解説までいただき、助かりました。 413 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 19:37:36.41 ID:UMPZ1rN80.net] >>405 VBAではひとつのクラスはひとモジュールで書く制約があるからそのような記載は無理。 ただ、入力用と一時計算用のクラスを別に作ってWSクラスとやらの中で生成してそれをPublicのプロパティや変数にしまっておけば入れ子としての設定や読み取りは可能。 クラスを使用する前にそもそもクラスとはどういうものであってどういうときに使うと便利なのかを理解した方がいい。 414 名前：デフォルトの名無しさん [2022/01/15(土) 20:07:58.86 ID:FEpdyYa5a.net] >>409 混乱をふやしてどうする 415 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 00:51:21.02 ID:rwDbh7Xz0.net] >>405 やっと理解したわ 入力用Wsと一時入力用Wsでインテリセンスを分けなくてもいいなら簡単にできる コンストラクタでワークシートをセットするだけでいい 416 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 01:16:49.54 ID:9svQYmXf0.net] >>406 詳しい説明ありがとうございました。 一つわからないことがあります。 > 今回の問題は、Windows日本語版のANSIでは半角ポンド記号は定義されていないってこと とのことですが、そうしますと377さんの serchChar = "£" testfunc01 = InStr(StrConv(word, 10), StrConv(serchChar, 10)) のStrConv(serchChar, 10)によって全角のポンドの通貨記号は何に変換されるのですか？ 417 名前：デフォルトの名無しさん [2022/01/16(日) 01:18:43.61 ID:JxOh46GE0.net] VBA・・・コンストラクタ・・・ 418 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 06:52:16.37 ID:rwDbh7Xz0.net] >>414 あるの知らんの？ 419 名前：デフォルトの名無しさん [2022/01/16(日) 09:31:02.87 ID:JxOh46GE0.net] >>415 間違えてた、すまん コンストラクタ自体はあるのね、無いと勘違いしてた 確かにこのケースなら使える 420 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 13:56:03.36 ID:UA4PX5Jc0.net] OSのVer. やExcelのVer. 更には文字コードの変遷に依っては近い将来ですら読み取れなくなって「？」でしか 表されなくなるかも知れないものを、将来の資料として保存するためにExcelで残そう　という企てが不可解 例えｈｔｍｌで保存するとしても文字コードの軛からは逃れられない　保存時にPDFにするのかも知らんけど　 テキストデータとして〇£〇シリング〇ペンス(ペニー)　の資料が豊富にあって、それぞれから数値だけ抜き出したい という要望だと信じていたが、そんなデータが遺されているのだろうか？　シリング時代はPCすら無い時代 紙の資料がごまんと出てきた　それをデジタル化してる　とかなのだろうか 時代による金の含有量の変遷を遺したい　とか書いていたが、ニッチな知的好奇心を満たそうとする人は 細かい事にも拘り続けるんだな、と　　　　 文末脚注に　Lはポンドの意味　のひと言で済むのに　シリングだって記号ｓ　ペンスは記号ｐだろうに 例えば沈没船の積み荷の目録が出てきた　そこには〇£〇シリング〇ペンスの記載がずらずら これ引き揚げて通貨を溶解して金にしたらインゴット〇〇本分の量だぞ！　金の総重量をExcelで集計しろ！　 とかいう要望ならまだ判るんだが 421 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 14:34:44.43 ID:9svQYmXf0.net] >>417 > テキストデータとして〇£〇シリング〇ペンス(ペニー)　の資料が豊富にあって、それぞれから数値だけ抜き出したい > という要望だと信じていたが、そんなデータが遺されているのだろうか？　シリング時代はPCすら無い時代 > 紙の資料がごまんと出てきた　それをデジタル化してる　とかなのだろうか 「ポンド・スターリング―イギリス貨幣史 (1984年)」を読んでいる。計数上の特性を正確に理解しないと内容を追えないから。 > 文末脚注に　Lはポンドの意味　のひと言で済むのに　シリングだって記号ｓ　ペンスは記号ｐだろうに ペンスの記号はdね。pでなくてdなのは歴史的な経緯がある。 正しく記述しておけば後から苦労しない。 それにコードとして本来期待した動きをしない時に疑問を持つのは当然。 その結果、文字コードが原因ということ、および解決法も判明した。 今後の欲に立つ。 原因不明のまま安直にLで凌ぐのは、一時対応を除いて、よくない。 422 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 14:54:09.16 ID:EoUder1l0.net] >>405です。 >>410 >>412 ありがとうございます。クラス全然理解できていなくてすみません。 メンバ変数 Public ws1 As Worksheet Public ws2 As Worksheet にして、コンストラクタで Private Sub Class_Initialize() Set ws1 = Sheet1 Set ws2 = Sheet2 End Sub を読み込ませる、という認識であってますか？ 以下のように、ゲッターで各wsのプロパティを作っていくのはやめたほうがいいでしょうか。 Property Get ws1() As Worksheet Set ws1 = Sheet1 End Property Property Get ws2() As Worksheet Set ws2 = Sheet2 End Property 423 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 15:26:39.86 ID:0L8LiCPu0.net] Windows 10, Excel　2019 hyperlink関数を使ったリンクからブラウザを起動する時に 特定のURLのみ応答が60秒ほど遅い クリック後すぐにEscを押すと60秒ほどの待ち時間が無くなりすんなり接続できます 遅い = hyperlink("https://www.yodobashi.com/", "yodo") 遅くない = hyperlink("https://www.アマゾン.co.jp/", "ama") ちなみにExcelを介さずアクセスするとすんなり表示されます 他に60秒ほどの待ち時間を無くす方法があれば教えて下さい 424 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 15:44:15.55 ID:y1CvsdF30.net] >>413 それぐらい自分で試せよ U+FFE1の半角ポンド記号になるっぽい 普通に正しい動作だな 425 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 16:10:07.63 ID:9svQYmXf0.net] >>421 そういう意味の質問じゃなくって、「Windows日本語版のANSIでは半角ポンド記号は定義されていない」と書いていたので、StrConv(serchChar, 10)では半角ポンド記号に変換できないのじゃないかと思ったわけです。でも正しく処理しているんで、VBA 上では表示はできないけど計算処理はできるということですかね。 426 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 16:12:28.73 ID:y1CvsdF30.net] >>419 クラスもモジュールの一つなんだが まず処理の内容とモジュールの役割分担を考え直せ インテリセンスに出したいからとか、本末転倒だ インテリセンスに出したいだけなら、>>405の例ならクラス三つつくって ClassWsクラスに Public Property Get 入力用Ws() As 入力用Ws Public Property Get 一時計算用Ws() As 一時計算用Ws 入力用Wsクラスに Public Property Get Ws1_入力用() As Worksheet Public Property Get Ws2_入力用() As Worksheet 一時計算用Wsクラスに Public Property Get Ws1_一時計算用() As Worksheet Public Property Get Ws2_一時計算用() As Worksheet をそれぞれ定義すればできる 中身は自分で考えろ 427 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 16:19:51.33 ID:y1CvsdF30.net] >>422 VBAの内部文字コードはユニコード ユニコード表示できないのはVBEと言われている、VBAのエディター なのでVBAでユニコードの処理はできる。VBEで文字を直接入力できない（ものがある）だけ だから>>378でCHRW使えって書いてる 428 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 16:33:04.70 ID:9svQYmXf0.net] >>424 よくわかりました。ありがとうございました。 429 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 19:01:50.46 ID:EoUder1l0.net] >>423 ありがとうございます。 もう一度、役割分担を考えてみます。 430 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 19:41:57.72 ID:rwDbh7Xz0.net] まあたしかにインテリセンス出したいだけならオブジェクト名を変更するだけでもいいかもしれんな 431 名前：デフォルトの名無しさん [2022/01/16(日) 20:05:03.64 ID:xYtP7RFCa.net] 次の担当になる人がかわいそうだな 432 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 20:18:31.11 ID:RSDKT1580.net] >>362 コードは他のシートと同じだったので省きます。 画像は消しても変わりませんでした。コードを消してもセルをクリックしたときにたまに読み込みが入るので何かが動いてそうなのですがどこ見ればいいでしょうか…。 433 名前：デフォルトの名無しさん [2022/01/16(日) 20:31:17.59 ID:JxOh46GE0.net] >>426 434 名前：デフォルトの名無しさん [2022/01/16(日) 20:31:53.39 ID:JxOh46GE0.net] >>426 色々聞いてみるといいかもね 恐らくインテリセンスも、みんな使わない 435 名前：デフォルトの名無しさん [2022/01/16(日) 20:35:43.37 ID:JxOh46GE0.net] >>429 >>363の通り、どこで時間が書かているかを突き止める必要がある 436 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 20:53:15.31 ID:RSDKT1580.net] >>432 初心者なのでDebug式をどこに代入すればいいかわからないので教えてください。 https://i.imgur.com/dzwx5GC.jpg (コード書くと改行多すぎで弾かれます) 437 名前：デフォルトの名無しさん [2022/01/16(日) 21:09:10.46 ID:KEj0DMHt0.net] >>433 >>2を読め 438 名前：デフォルトの名無しさん [2022/01/16(日) 21:13:53.65 ID:JxOh46GE0.net] >>433 >>434は頭おかしい ちょっと待て 439 名前：デフォルトの名無しさん [2022/01/16(日) 21:14:52.42 ID:JxOh46GE0.net] っって思ったけどせめてデータで出せ メモ帳にコピペしてdotupとかそのへん 440 名前：デフォルトの名無しさん [2022/01/16(日) 21:22:18.03 ID:lhZQvquHM.net] 馬鹿を相手にすんな 441 名前：デフォルトの名無しさん [2022/01/16(日) 21:26:17.91 ID:JxOh46GE0.net] >>437 専門板にいると、自分が万能な気になる そうじゃないんだよ みんな、一長一短なんだ 442 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 22:33:39.20 ID:uTGjF8kU0.net] ＞中身は自分で考えろ おー！！カッコいいねー！！ 熱血トレーナーみたいだね〜 443 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 22:35:56.49 ID:YgWToIcEd.net] VBAで更新したパワークエリーが更新完了まで待機するコードありますか？ 444 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 23:13:05.80 ID:RSDKT1580.net] Private Sub Worksheet Before DoubleClick(ByVal Target As Range, Cancel As Boolean) Const Hani = "N4 N1000 Const Iro. As Variant 15 Dim Rng As Range Set Rng = Intersect(Range(Hani), Target) If Intersect(Target, Range("N4 N1000')) Is Nothing Then Exit Sub With Target Select Case Value Case Value = "2000" Case "2000 Value ="" End Select End With If Not Rng Is Nothing Then Cancel = True If Rnginterior Colorindex = xINbre Then Eng Interior Colorindex = Iro Else Prg Interior Colorindex = xiNbre End IfEnd If Set Rng = Nothing End Sub 445 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 23:18:31.80 ID:ranDxh1Nr.net] Googleレンズで読み込んだやつなので正確ではないけど流れは一緒です。 ネットにあった色つけコードに数字も入力するようにしています。 ↑で言っていたように使用しているAシートとBシートに違いはほぼないです。というか新規シートにBをコピーしても読み込み遅くなるので全く理由がわからないです。フォントは一緒、セルの使用数は読み込み遅いシートのほうが少なく、画像も関係ないので何がなんだか… 446 名前：デフォルトの名無しさん mailto:sage [2022/01/16(日) 23:50:40.30 ID:ranDxh1Nr.net] ごめんなさい https://hoimins.com/uncategorized/excel-page-break-preview-slow/ 多分これです。印刷範囲を設定したら読み込みがなくなりました。 447 名前：デフォルトの名無しさん mailto:sage [2022/01/17(月) 12:48:25.06 ID:RtDdCZiGM.net] ほれ、タイプミスだけ直しといてやったぞ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 　　Const Hani = "N4:N1000" 　　Const Iro As Variant = 15 　　Dim Rng As Range 　　Set Rng = Intersect(Range(Hani), Target) 　　If Intersect(Target, Range("N4:N1000")) Is Nothing Then Exit Sub 　　With Target 　　　　Select Case .Value 　　　　　　Case "" 　　　　　　　　.Value = "2000" 　　　　　　Case "2000" 　　　　　　　　.Value = "" 　　　　End Select 　　End With 　　If Not Rng Is Nothing Then 　　　　Cancel = True 　　　　If Rng.Interior.ColorIndex = xlNone Then 　　　　　　Rng.Interior.ColorIndex = Iro 　　　　Else 　　　　　　Rng.Interior.ColorIndex = xlNone 　　　　End If 　　End If 　　Set Rng = Nothing End Sub 448 名前：デフォルトの名無しさん mailto:sage [2022/01/18(火) 15:16:34.47 ID:TQ7V1ae50.net] 前スレの298,303なのだが、 msgboxでウィンドウを表示させるとExcelがクラッシュしないことがわかった。 だから 'マクロがクラッシュしないための措置 i = MessageBoxTimeoutA(0&, "マクロを開始します", "通知", vbMsgBoxSetForeground, 0&, 100) 自動的に閉じるmsgboxを表示させることで回避策としたわ。 msgboxがある/なしでクラッシュするなんて言うバグてきいたことあります？ 449 名前：デフォルトの名無しさん [2022/01/18(火) 15:40:58.30 ID:CJu6lFHP0.net] >>445 聞いたことはないけど、合ってもおかしくないと思う OSや別アプリと並行処理させ、並行処理が終わってないままvbaだけ処理すすめる・・・ことで落ちていると思う DoEventsで解決するはずなんだけど、DoEvents自体も挙動がどこかおかしい。 多分だけど、 applicaion.calcurate=false とか高速化入れてない？あれを設定しなければ落ちなくなる可能性があると思う 450 名前：デフォルトの名無しさん [2022/01/18(火) 18:06:02.41 ID:2NZPk0PK0.net] フォーカスがなくなって裏で動いているのに気づかなかったってだけじゃね 451 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 02:44:48.77 ID:J6vWAZC60.net] >>94 自己レスだけど検証してる動画があった https://youtu.be/FSS94HnW3Dk 452 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 08:14:43.10 ID:SKsqr1XrM.net] >>448 見たけど画面描画してるからその分遅くなってることを考慮してない、やり直し、と言いたい。 まあそれでも結論は変わらんと思うが。 というか、たぶん結論有りきで動いてるよなこの人。 453 名前：94 mailto:sage [2022/01/19(水) 12:40:48.58 ID:U3XJgxPOM.net] >>449 画面更新止めるコマンドもあるので別に気にはしてないですが、エクセルの関数が実数になるまでそれなりに、時間かかりますよね まぁ、でも�Aの方法（外部リンク参照）で作り変えて行こうかと思います。 454 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 16:06:12.24 ID:wLv0/dLh0.net] 取得したデータをどう使いたいのかにもよるけど 参照するExcelブックの数が増減する場合はVBA使って特定のフォルダにぶち込まれたExcelブックを全部取得するようにすると楽 個人で使う分にはこれでいいが、仕事などで自分以外の社員が触る機会がある場合は、周りのスキルを考えてVBAを使わず数式で参照させて済ますのも良いと思う だが、環境にもよるが、外部参照を含む数式を書いたExcelブックを開いたまま参照先のExcelブックを開くと参照エラー(#REF!)になる場合があるので注意 455 名前：デフォルトの名無しさん [2022/01/19(水) 16:34:49.01 ID:x+9vZ6k00.net] MSGBOXが表示された時、必ず最前面にする方法ってありますか？ alt+tabでタスクを切り替えないとMSGBOXが表示されない事があります 処理が止まっているのか進んでるのか分からなくて、困ってしまう 456 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 17:15:49.65 ID:O8ktC4tSM.net] >>452 VBAのMsgBoxでは不可能 Win32APIのMessageBoxAをTopMost=Trueに設定して呼び出すしかない VBAからMessageBoxAを呼び出す方法はぐぐればすぐ出てくる 457 名前：デフォルトの名無しさん [2022/01/19(水) 17:21:36.62 ID:ZRK6Alb6M.net] そんなフラグ効果あんのか？ 458 名前：デフォルトの名無しさん [2022/01/19(水) 17:56:37.68 ID:x+9vZ6k00.net] >>453 ありがとうございます、そういう方法があったのですね。 処理完了のメッセージボックス、そちらにしていきます。助かりました。 459 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 18:35:22.31 ID:DmIv8IzU0.net] いちおうMsgBoxでシステムモーダルの指定があるにはあるんだけどな 期待通りに動かんことが多い いちアプリケーションがシステム全体にかかわる動作をするなって風潮だからな 460 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 18:45:15.60 ID:F2K8Y8lc0.net] >>451 他ブックへの参照はgotoより使いたくないかも 461 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 19:04:03.23 ID:DmIv8IzU0.net] >>457 複数のブックで構成されてるような資料だとまあなくはないかと しかしリンクとコピーが比較対象になるのが理解できん 速度とかで選択するようなものじゃないだろ 462 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 19:59:02.99 ID:wLv0/dLh0.net] >>457 わかるけど、それはプログラミングの知識がある人が職場に当たり前にいるという前提の話 まったくVBAを知らない社員に一から教え込むよりまし ていうか個人的には、Excelブックを100個も参照させるようなのが仕事上の事情なら、まずはその運用を見直した方がいいと思うけど 463 名前：94 mailto:sage [2022/01/19(水) 20:45:45.55 ID:U3XJgxPOM.net] 他ブックの参照がなぜ駄目なのかさっぱりわからないです。。教えて下さい。 参照後の処理の内容になにか前提条件があるのですか？ 自分の前提は、Excelブックを参照、みんな同じExcelバージョン、同じフォーマットを使うです 464 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 20:58:42.62 ID:B4PAoBE9M.net] リンク切れで機能しないゴミとなったブックをお目にかかったことがないなら幸せなことだな 465 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:01:47.23 ID:K9C4LDWb0.net] エクセルは詳しくないけど、「存在しない可能性すらある グローバル変数」ってこと？ ちょっと学んで、「どこからでもセルの書き換え効くの？ グローバル変数地獄じゃない？」と思ったけど、もっと 大規模に起こり得るってこと？ 466 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:31:45.36 ID:wLv0/dLh0.net] >>460 フォルダ名（参照・被参照のExcelブックが別々のフォルダにある場合）、ファイル名、シート名、（使用しているなら）テーブル名、あとセルの配置 どれか一つでも変えるとリンク切れになるので、できればあまり使いたくない ただ、先にも書いたけど状況次第ではやむを得ないこともあるし、もしそのあたりのリスクを払拭できるなら選択肢としてはあるかなと思って書いたけど、 もし、そういうことをそれほど把握する必要がない程度に重要性が高くなく、かつパフォーマンス（速度）重視の話なのであれば、あまり気にしなくていい でも、これが仕事で何度も使用するような類のものの話だとすれば、パフォーマンスを考える前に運用をよく考えた方がいい 例えば、ファイル数（100個）や参照セル数（ブック1つにつき60セル）が固定で、シートやブックなんかはパス付で保護かけて構造を弄れないようにして、できたらファイル名なんかもアクセス権を設定して変更できないようにするか、ファイルを扱う人に絶対変えないようにしっかり申し送りするとか もしくは構造を弄られたとしてもすぐ元どおりにできるぐらいのシンプルな作り、あるいは壊されてもすぐ復元できるようにしておくとか どんな状況なのかは分からないけど、何を優先すべきなのかをよく整理した方がいい、という話になると思う 467 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:43:22.55 ID:zGHKrub60.net] >>460 親からひ孫世代まで参照が繋がってるファイル群なんてものが存在した 468 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:52:36.39 ID:TxiQul+S0.net] >>464 参照繫ぐくらいなら、ファイルパスもセルに記入して上書きさせるように実装するわ。それくらいリンクは嫌だわ。 469 名前：94 mailto:sage [2022/01/19(水) 23:01:56.42 ID:J6vWAZC60.net] なるほど。理解出来ました。 ありがとうございます。 運用的には VBAでファイル名算出する シート名が違っていたり、フォーマットズレしていたら検出したいチェックツールにしたいので問題なさそうです。 参照エラーがでたら壊した人のところに殴り込みに行くシステムですね。 470 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 00:15:58.14 ID:gV+Fwxtn0.net] まあ、まともに作ったファイルサーバなら shadow copy くらいは残ってるだろうがね。 471 名前：デフォルトの名無しさん [2022/01/20(木) 06:56:43.44 ID:AmtKyR6La.net] 無理して変な機能追加するから 後で見返した時にワケわからなくなる 472 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 08:28:58.94 ID:mCK9tQrM0.net] >>468 それはみんなそう なので少しでもわかりやすいように書いておくことが必要 慣れてないうちはコメント付けまくるのもありだと思う これは何の変数かとか、大きく何をしているか、この行は何をしているか書いとけばリファクタリングするのにも楽になる 473 名前：デフォルトの名無しさん [2022/01/20(木) 08:52:11.33 ID:aoz8cIff0.net] >>466 毎日カチコミになるのが目に見えているゾ 474 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 09:39:15.12 ID:+AoyW20h0.net] どうしても100個のファイルに分けなければならないのか 一つのブックに100シート突っ込むことはできないのか とか考えたりはするかも 475 名前：デフォルトの名無しさん [2022/01/20(木) 12:41:49.38 ID:NS2MNDvFr.net] ファイルコピーか、シートのコピーで バックアップ取っておくとかは考えるかも。 476 名前：デフォルトの名無しさん [2022/01/20(木) 12:47:52.34 ID:aoz8cIff0.net] 取引先一件につき、ファイル一つ それをマクロで集計 最初30個ぐらいだったファイルが、 会社が成長して、100ファイルになったことはあったな フォーマットやファイルは全て自分で管理してたから問題なかったけど、 今も大丈夫かなぁ あれ手で計算するのは大変すぎ 477 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 13:46:34.45 ID:BPf7HX0l0.net] 1ファイル45個のクエリーを含む同様のファイルが 13地点×6ヶ年分＝78個あって、 これをシーケンシャルに1つずつ、For Nextで更新するよう組んだ。 最初の2ヶ月目くらいまでは7時間くらいで更新出来てたが、 3ヶ月目以降は毎回どこかの、 　Set tblQ = ThisWorkbook.Worksheets(ws).ListObjects(q) と、ワークシート名とクエリー名を変数に代入するところでコケる・・・ その都度、コードを削除していったん保存、 再度貼り付けてデバッグし続行させる 沼にはまった。 478 名前：デフォルトの名無しさん [2022/01/20(木) 13:49:08.24 ID:aoz8cIff0.net] >>474 そういう時は、ファイル保存を挟むと良い エクセルは立ち上げっぱなしだと、どんどんテンポラリファイルが巨大化する 保存すると、それが一旦整理される 479 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 13:57:12.27 ID:BPf7HX0l0.net] >>475 アドバイス、ありがとう。 一応、開く78個のファイルは1個ずつ保存して閉じているけど、 大元のVBAを持つbookをその都度保存せよ ということかしら？ そういや、プロジェクトエクスプローラーに 既に処理が終わって閉じたbookのファイル名が残って どんどん増えて行ったような・・・ こっちは1ファイル処理後ごとに上書き保存とかの処理は入れてなかった。 480 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 13:57:52.65 ID:HwD0Q83s0.net] なんで全部Excelでやろうとするかね　ボリューム見て将来鑑みて、どっかの時点で「これはパンクする」 ってぇ判断をしなかったツケだろ　経費抑制？　むしろ無駄な経費が膨大に掛かってるのには目を瞑るんだ　へー 481 名前：デフォルトの名無しさん [2022/01/20(木) 14:17:24.56 ID:gV+Fwxtn0.net] >>474 変数は毎処理ごとに開放してる？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef