Excel VBA 質問スレ Part57

1 名前：デフォルトの名無しさん mailto:sage [2018/09/10(月) 21:42:39.57 ID:K1uuwFLt.net] ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part56 mevius.5ch.net/test/read.cgi/tech/1534976724/ 521 名前：デフォルトの名無しさん [2018/10/02(火) 07:21:20.23 ID:XHPfCFYq.net] またマッチポンプに引っかかってるのか？ 頭悪すぎだろ 522 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 07:23:48.60 ID:3rK24ppg.net] いや、タダのボケだろ ちょっとおもしろかったわ 523 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 07:39:42.84 ID:N1aQvONc.net] 頭が悪いのを誤魔化そうとしても意味なくね？ 524 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 07:42:08.16 ID:ahHfhE5m.net] >>480 https://jizilog.com/vba-checkboxop これをショートカットキーに割り付けるだけで行けそう 525 名前：495 mailto:sage [2018/10/02(火) 09:00:24.92 ID:/QfTYNRi.net] Seleniumデザインパターン&ベストプラクティス、2015、オライリー この本の著者がこう言ってる 最初は、ウェブページの自動テストを、Selenium IDE でやっていたけど、 大量の自動テストをこなすために、Ruby・Selenium WebDriver でプログラミングするようになった これは、誰もがたどる道 526 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 09:10:32.38 ID:fUFII8R1.net] 別にVBAでも簡単だけどな。 既にVBAでRPAもどきを作ってある。 527 名前：デフォルトの名無しさん [2018/10/02(火) 09:35:53.30 ID:IHboiu3Y.net] マッチポンプに掛かった間抜けがいるスレはここですか？ 528 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 10:09:51.02 ID:IdpLKWF1.net] SikuliXおすすめ 適当なスクレイピングでよくてHTML解析する情熱が無くなった場合に使ってる 529 名前：デフォルトの名無しさん [2018/10/02(火) 12:19:33.62 ID:gUUCeKXU.net] >>498 > HTML のimg タグに、画像のパスを設定して、ブラウザに表示させている プロさんて20年前からタイムスリップして来たんかなw 530 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 12:33:06.04 ID:1IC/OUbd.net] Selenium全く必要ないっていう 531 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 17:44:52.64 ID:rk1+4NE+.net] >>505 技術的負債 532 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 18:18:59.44 ID:giBEQZ0B.net] どうせ誰にもメンテできないんだから問題ない 返済されることのない借金は負債ではない 533 名前：デフォルトの名無しさん [2018/10/02(火) 20:21:52.25 ID:vaQcb9tkC] 社内のデータ加工で困っています。 VBAじゃないかもしれないのですが、 賢い方々助けてください。 やりたいことや実際のデータは下記URLにUPしています。 よろしくお願いします！ fast-uploader.com/file/7094034688478/ 534 名前：デフォルトの名無しさん [2018/10/02(火) 20:25:57.36 ID:vaQcb9tkC] 512ですが… 用意できる環境に書いてある「Microsoft Office 2016」は「Excel」を意味しています。 535 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 18:53:37.03 ID:rk1+4NE+.net] 技術的負債はSIerに押し付ければいいのよ 事務員は保守性など気にせずクソでも動けばいいのでとにかく作る プログラマを企業間のパワー差を活かして発給で雇いこき使ってメンテさせる これがVBAerの正しいあり方だ 536 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 19:07:53.02 ID:qyY5wEk7.net] >>514 そうか まぁ頑張れよ さて、忘年会用に何かでビンゴのソフトでも作るか 537 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 19:32:27.30 ID:V/qNOCI+.net] バリアント型変数にrangeを代入すると処理時間短縮になるというが、今いち実感が 538 名前：湧かない。 INPUTのテキストファイルの中身次第で出力するセル範囲が変わるんだが、 想定される最大のセル範囲をrangeに代入するよりは、セルひとつひとつにアクセスして最小限の範囲で出力したほうが処理時間早いんじゃないか… [] [ここ壊れてます] 539 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 19:33:46.34 ID:JlZ/oy05.net] VBAでシステム組んでる企業は今はほとんどないのでは？ 個人がちょっとしたマクロを書くぐらい 540 名前：デフォルトの名無しさん [2018/10/02(火) 19:48:52.17 ID:eaArETqj.net] ニートのプロさんは少しお口にチャックねw 541 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 19:56:57.36 ID:VwRcsjE4.net] >>459です。 レスくれた方ありがとうございます。 >>465さん、作成ありがとうございます。 ダウンロードしてみたのですが、私の自宅のPCだとなぜか文字化けして画面に表示されません・・。 明日、会社のPCでやってみるべきか・・。 どなたか親切な方がいたら、画面をコピーしてくれると助かります。 542 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 20:18:38.93 ID:JlZ/oy05.net] セキュリティ意識に欠けるね マクロが禁止されるわけだ 543 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 20:34:11.46 ID:t6BWNYue.net] >>516 出力に必要な行列の数だけ要素数を指定して適切なサイズの配列を使うようにすればいいじゃん 複数セル値の逐次更新は更新するセルの個数分だけプロパティ関数が実行されてイベント処理が走るので、同じセル数を更新する場合で比較すると配列による一括処理と比べて格段に重いよ 544 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 21:04:30.03 ID:GLlKH6rT.net] >>521 返答ありがとう。 INPUTのデータ次第で1行〜9999行目まで出力されるので、現状9999行までのセルを配列に格納している。 ちょいと処理時間を計測してみたんだが 出力件数によっては、 例えば200件程度だったときの場合、セルに都度アクセスしたほうが早かったのよね。 実行する度に、INPUTのデータ量次第で配列に格納する範囲が変えられると便利なのだが、それがわからないため9999行まで格納してるって感じかな 545 名前：デフォルトの名無しさん [2018/10/02(火) 21:09:51.81 ID:R8M7QKDK.net] fast-uploader.com/file/7094037561899/ ﾊﾞｶが作ったのはまったく使い物にならないから ｵﾚのを使いなさい ﾀﾞｳｿした 総合商品情報.xlsx を c:\tmp に入れればとりあえず動く 保存する場所やﾌｧｲﾙ名変えたならSQLに入ってるﾊﾟｽ変更すれば とりあえず動く 546 名前：デフォルトの名無しさん [2018/10/02(火) 22:36:58.97 ID:ZVIK4UcY.net] PCから投稿したのが繁栄してないかもしれないので… ↓↓↓↓ 社内のデータ加工で困っています。 VBAじゃないかもしれないのですが、 賢い方々助けてください。 やりたいことや実際のデータは下記URLにUPしています。 よろしくお願いします！ fast-uploader.com/file/7094034688478/ 用意できる環境に書いてある「Microsoft Office 2016」は「Excel」を意味しています。 547 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 22:50:57.49 ID:t6BWNYue.net] >>522 INPUTがどのような形でコードに渡されるか分からないが、例えばテキストデータを読み込んでいるなら、行数をeofになるまで数えて変数に代入して、その変数で配列要素数を指定すれば簡単だと思う 548 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 23:02:37.82 ID:uetVBQBr.net] >>522 3回以上セルにアクセスするなら確実に配列に取り込んだほうが早い。 体感出来ないのはコードが完全に最適化出来てないだけ。 あと数式の埋め込まれたセルがあったりするとあり得ないくらい遅くなる。 （ある程度はスイッチで解消できるけど） あとInputはめちゃくちゃ遅いよ。 バイナリモードで開いて一括読み込みがオススメ。 tetsucom.blogspot.com/2011/03/vba_9799.html このサイトでは数倍しか差がついてないけど、元データの行数が増えるほどInputと差が開く 549 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 23:48:15.72 ID:VE+AbZ0A.net] >>524 アップロードしたファイルに店� 550 名前：ｼが含まれているんだが大丈夫か・・・ [] [ここ壊れてます] 551 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 23:53:53.97 ID:GLlKH6rT.net] 皆さん助言ありがとう。 処理のイメージとしては、1行ずつ読み込んで色々判定した後、1行ずつ出力していく感じです。 頂いた助言を試してみて、 事前にeofまでのループ処理で変数をカウントアップさせて、必要な行数を配列に格納させることはできました。 バイナリモードの件と合わせて、パフォーマンスの向上を目指しますm(_ _)m 552 名前：デフォルトの名無しさん mailto:sage [2018/10/02(火) 23:57:35.54 ID:VE+AbZ0A.net] >>528 Rangeオブジェクトへのアクセス回数を減らすよう意識すると、案外パフォーマンスが上がったりする。 あとオブジェクトの特定のプロパティ・メソッドがやたら遅かったりすることもあるから注意。 553 名前：デフォルトの名無しさん [2018/10/03(水) 00:52:56.81 ID:Ijm6Q0Hp.net] >>527 気がつきませんでしたが、ダミーデータなので大丈夫です 554 名前：デフォルトの名無しさん mailto:sage [2018/10/03(水) 12:30:49.51 ID:Ju5BAQ2L.net] >>528 1行ずつ出力じゃあまり恩恵無いかもしれないけどまとまって出力すれば劇的な変化がある。 Dim i As Long Dim j As Long Dim varRng() As Variant Dim t As Single t = Timer For i = 1 To 50000 For j = 1 To 50 Cells( i, j ).Value = i + j Next j Next i Debug.Print Timer - t t = Timer Redim varRng( 1 To 50000, 1 To 50 ) As Variant For i = 1 To 50000 For j = 1 To 50 varRng( i, j )= i + j Next j Next i Range(A1:AX50000).Value = varRng Debug.Print Timer - t 555 名前：デフォルトの名無しさん [2018/10/03(水) 16:42:01.11 ID:uB4nYmn5.net] 実践的に練習用の課題を解いていけて、段階的にスキルアップできるサイトないですか？ 556 名前：デフォルトの名無しさん [2018/10/03(水) 21:13:21.04 ID:4mO7hAaA.net] Range(1,1).Value = 1-1 これをやると、1月１日にExcelが日付と解釈して変換する。 これを防ぐにはどうしたらいいですか。 文字列として格納するために""で囲むという手があるがそれをやりたくない。 理由は値(1-1)に加工していじってるから。 ちなみに、1-1は番地のつもりです。 557 名前：デフォルトの名無しさん mailto:sage [2018/10/03(水) 21:37:41.99 ID:B0/YTPvH.net] >>533 書式を明示的に文字列にしてからやってみたら？ .NumberFormatLocal = "@" 558 名前：デフォルトの名無しさん mailto:sage [2018/10/03(水) 21:58:23.71 ID:siQNEaWd.net] >>533 その式だと1-1で0が格納される訳だが？ セルに文字列として格納させるなら532の方法か、先頭にシングルクォーテーションを付与 559 名前：デフォルトの名無しさん mailto:sage [2018/10/03(水) 22:24:31.18 ID:IRo5OOwi.net] 1件だけなら　「Range(1, 1) = "'1-1"」でもいいかもしれんが、沢山あるようなら配列を使って一発代入するかな。 560 名前：デフォルトの名無しさん mailto:sage [2018/10/03(水) 22:37:26.98 ID:cOBWyVpF.net] >>459です。 >>523さんありがとうございます。 文字化けしない環境で試してみたら、画面は見えました。 ですが、肝心のコードが見当たらない・・・orz シートに記載されてる情報を見る限り、恐らく>>523さんのが一番私が求めているものに近いかな、と思いました。 >>523さん、ダウンロードしてもコードが見えないので、 このスレにコードをコピーしてもらえないでしょうか？ 561 名前：デフォルトの名無しさん [2018/10/03(水) 23:48:07.24 ID:FigU8Mbj.net] Cells(Rows.Count, 1).End(xlUp).Row これだとhiddenで隠れている行は無視されてしまいます あくまでも最後に入力されている行を取得したい場合はどうすればいい？ もちろんhiddenを一時的に表示にする以外方法で 隠れていてもデータ行として扱う方法 562 名前：デフォルトの名無しさん [2018/10/03(水) 23:54:17.02 ID:7gIy/TEB.net] ↓ｺｺに操作手順がおいた fast-uploader.com/file/7094133678468/ [SQLの編集]ﾀﾌ 563 名前：ﾞに編集の仕方が載ってる（denpyouを例にしてるが、編集の仕方は他も同じ） ※ vbaじゃないからな、ｺｰﾄﾞはない ※ ちなみにﾃﾞｰﾀとﾃﾞｰﾀの抽出結果を出力するﾌﾞｯｸは別でも問題ない 新規に自分で作成したい場合は >>437 ←　ｺﾚ を参考にしなさい [] [ここ壊れてます] 564 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 00:51:18.54 ID:FEHQanR0.net] 半角先生口は悪いけど割と優しいからすき 565 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 00:55:39.43 ID:X6BA3+Oo.net] VBAの実行環境をDockerizeする方法を教えてください 566 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 07:43:14.54 ID:tsjyo4iv.net] >>538 used range使えば？最終行取得でググれ 567 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 09:11:12.18 ID:ZcbeCQ3S.net] UsedRangeはプロパティに変更が加えられたセルを全てカウントアップするから物凄く癖がある うっかり列範囲全体に書式設定なんかしてると最終行は1,048,576行目なんてことになるので注意 568 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 12:04:05.58 ID:x9VzQgv/.net] >>543 列に対しての書式設定ならそんな風にはならない。 貼り付けするとそうなる危険性はあるけど、今のエクセルは警告出るし、実行に時間かかるし、めちゃくちゃ重たくなるから、マクロ以前にブック修復すべき案件 569 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 13:15:55.34 ID:Vut2i4+m.net] Do loop関数でウェブ上の変数を取り込んでセルに表示したいんですが、セルA1に最新の変数を表示し、一つ過去のは真下セルに移動する これを繰り返して変数をA列に積み上げいくようにしたいんですが、どうすればよいでしょうか 570 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 13:37:33.14 ID:Vut2i4+m.net] 挿入でできました　失礼しました 571 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 14:40:06.72 ID:Vut2i4+m.net] Selenium Webdriverについて質問です。 �@chromeを起動 �Aあるwebサイトのユーザーページにログイン �Bユーザーページ上で作業 という操作を自動化しようとしています。 �@、�Aは良いのですが�Bが複雑なため、その部分のコードで試行錯誤しております。 しかしコードを修正するたびに�@から行っているため時間がかかっております。 �@�Aで起動したブラウザを利用して、�Bから別のsubプロシージャにして、�Bだけ実行して検証したいのですがどのようにすればよいのでしょうか。 下が�@�Aのコードです。 sub 1() Dim driver As New SeleniumWrapper.WebDriver driver.Start "chrome", "https://aaa.com/login?" driver.get ("/") driver.findElementByName("UserID").SendKeys ("yamada") driver.findElementByName("pass_word").SendKeys ("1234") 572 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 17:50:31.63 ID:ImPAYWBj.net] Private driver As SeleniumWrapper.WebDriver Sub Init() �@ �A End Sub Sub Work() driver.get(ユーザーページ) �B End Sub 他のスクリプト言語に変えたほうが楽ですよ 573 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 18:15:13.64 ID:Vut2i4+m.net] >>548 ありがとうございます。 やってみたのですが、getメソッドでSystem.NullReferenceExceptionというエラーが出ます..... 他のスクリプト言語というとRubyということになるのでしょうか？ 574 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 18:36:18.81 ID:/wVNZxwJ.net] >>549 driverを初期化してないからだと思うぞ。 575 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 18:46:00.60 ID:Vut2i4+m.net] >>550 大変申し訳ないのですが詳しく説明して頂けないでしょうか.... 勉強不足ですみません 576 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 19:13:03.15 ID:/wVNZxwJ.net] >>551 Private driver As SeleniumWrapper.WebDriver　←モジュール領域（各プロシージャの更に上位）でdriverを定義。ただし初期化していない。 Sub Init()　←Initプロシージャを実行する時にdriverを初期化し�@・�Aを実行する必要がある Set driver = New SeleniumWrapper.WebDriver　←ココ 577 名前： �@ �A End Sub Sub Work()　←Initプロシージャを実行してからWorkプロシージャを実行すると、色々（�B）を実行してくれる driver.get(ユーザーページ) �B End Sub 念のため言っとくと俺は>>548じゃないがついでに解説しただけで、 >>547が求めているものがこれで満たせるのかまでは関知しない。 [] [ここ壊れてます] 578 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 19:25:04.84 ID:USJCeaSx.net] 質問いいですか？ VBAでコールバックを行うとき クラスが対象の場合はCallByNameで行う事が出来ますが 標準モジュールの場合、どうするんでしたっけ？ 確かAPIを使った様な気がしたんですが どのAPIを使ってどうするのか 忘れてしまいました。 579 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 19:32:08.96 ID:apogHBJA.net] >>553 忘れたけど ariawase を見れば出てくるんじゃね 580 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 20:46:51.81 ID:Vut2i4+m.net] >>552 とても丁寧にありがとうございます。追加質問させてほしいです。 A:　今回「driver」はオブジェクト変数となるため、定義の際はnew演算子を使用する。またはsetで格納する必要がある。ということで良いのでしょうか？ B:　>>552で「ただし初期化していない」とありますが、あるサイトで「vbaでは変数宣言したときに初期化が行われる」という記述を見ました。 これは、setで格納されてないから初期化すらされてない　という意味でしょうか。 C:　プロシージャが実行されるごとに初期化されればよいならば、private変数の定義をやめて、�@〜�A、�BそれぞれでDim driver As New SeleniumWrapper.WebDriver　と定義すればエラーは出ないと思ったのですが、 やはり�Bのgetメソッドのところで「System.NullReferenceException」エラーが出てしまいました。何故なのでしょうか・・・ 長文ですみません　どうか宜しくお願いいたします。 581 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 22:18:56.04 ID:/wVNZxwJ.net] >>555 A: あってる B: だいたいあってる C: まずコードが動くことを確認してから弄れ。>>548の意図が汲めないならすっぱり諦めて別の方法を考えろ。 流石にこれ以上は自分で調べろ。 追伸 B: とりあえず「値型は宣言と同時に初期化される、オブジェクト型はNewやSetをしてからでないと使えない」と思っとけ C: 要はWebDriverの「使い回し」がしたいという質問に答えたのが>>548 　　・モジュールレベルで宣言すれば、各プロシージャ内から変数「driver」を通じて同じ実体（インスタンスという）にアクセスできる 　　・Initでモジュールレベル変数「driver」を初期化したりStartなどのメソッドを実行すれば、Workでdriverにアクセスした時にその続きのアレコレができる 　　・逆にInitで初期化やStartその他を実行したにもかかわらずWorkで新たな変数「driver」を宣言したらInitで行った処理が水泡に帰する 　　・またInit内で新たな変数「driver」を宣言し初期化等をした場合も、Init終了と同時に実体が消えて無くなる 仕事中なんであれこれ端折って書いたので間違ってる部分もあるかもしれんが、「インスタンス」とか「スコープ」とかでググって調べてみてくれ。 582 名前：デフォルトの名無しさん mailto:sage [2018/10/04(木) 22:32:59.61 ID:Vut2i4+m.net] >>556 本当に丁寧にありがとうございます。 伝えるのを忘れていましたが、言われた通りにコードを記述しうまくいきました。それを踏まえてのCでした。 インスタンス、スコープで調べてみます。ありがとうございました。 583 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 12:52:55.81 ID:VkzGqctC.net] 「選択したセルの値を-1する」のに下記のようなプログラムを書いた。 Dim cell As Range For Each cell In Selection cell.Value = cell - 1 Next これはOK。 「セルの値がブランクまたは0のとき、ブランクにする」を追加して、 Dim cell As Range For Each cell In Selection If cell.Value <> 0 Then cell.Value = cell - 1 Else Next としたら「Nextに対応するForがありません」と怒られてしまいました。 どこがいけないのでしょうか？ 584 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 12:58:15.96 ID:vSWfZutq.net] if文が閉じてないから 585 名前：デフォルトの名無しさん [2018/10/05(金) 16:28:56.84 ID:JjUc2WZB.net] >>558 お前の知能に障害がある 586 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 16:54:22.89 ID:9/5M8DWU.net] >>558 インデントが適当だからそういうミスに気がつかない 587 名前：デフォルトの名無しさん [2018/10/05(金) 17:24:22.25 ID:KMKJ670I.net] else nextとか書く馬鹿にインデントもなにもねーよ 588 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 17:30:08.09 ID:nkW6jPyv.net] 適当ならいいじゃないか 589 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 18:25:40.30 ID:wi1wUlXh.net] Ifは基本一行で済ませるか、If...Then句を書いた後にすぐ改行して同じインデントレベルでEnd If 句を入れる癖をつけろ 590 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 21:10:17.32 ID:Hvo0Z6Jl.net] >>448 レベルアップするたびにポイントをVBAにばかり振り分けてきたんだよきっとｗ 591 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 21:14:01.44 ID:sMfkQDgh.net] >>558 根本はエクセルのエラーメッセージが明らかに間違っているから混乱する けどプログラムの世界って大体そんなもんと諦める必要がある で、対処法としては >>561 が正解 インデントが適切なら楽勝で気づける問題 >>564は最悪。開発が超遅くなる 592 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:05:56.09 ID:uERkBuVa.net] 質問です。 テキストファイルの中身をセルに出力する処理をやっているのですが、一部のテキストファイルの文字が正常に出力されません。（縦線 " | "のみが出力される） ただし、判定によってセルの色を変えているのですが、その機能は生きているので、読み込み自体はできているみたいです。 また、全部のファイルで不具合があるわけではなく、特定のファイルの特定のレコードにのみ起こるっぽいです… 補足すると、テキストファイル自体はメインフレームの伝送機能で送ってます。これが原因に関係あるのかはわかりませんが… 詳細聞かれたらお答えしますので、解決にご協力頂ければと思います。 593 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:07:25.21 ID:uERkBuVa.net] 565です。 本題を載せ忘れていました。 原因、改善方法がわかる方いましたら、ご返答願います。 594 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:15:30.06 ID:vSWfZutq.net] 俺はインデントもしっかりでEnd Ifも先に書く派だな、他の言語での閉じ括弧みたいなもんだし 595 名前：デフォルトの名無しさん [2018/10/05(金) 22:17:06.45 ID:KYi5h4An.net] >>567 その特定のレコードを教えて 596 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:27:19.79 ID:XVCqdvbX.net] >>566 俺はブロックを先に区切らずにダラダラ書いていく方が効率悪いように見えるんだけど、End Ifを先に書かない方が速度上がるの？ 本当だったらそうしてみようかな 597 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:27:20.22 ID:vSWfZutq.net] >>567 コンピュータのベンダーや年式が違えば文字コード字形の割り当てが違うことも多い 手順 ・テキストファイルの文字エンコード、記述形式を正確に把握する ・化けた部分前後数行のみのテストデータを作る ・ウォッチウィンドウを活用して原因を探る 598 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:30:53.32 ID:uERkBuVa.net] >>570 INPUTはJCL（COBOLアプリを動かすためのスクリプト言語）をテキストファイルに落としたものです。 特定のレコードなのですが、テキストファイルを確認しても、他の出力されているレコードと見た目は全く変わりません。（スペース、データの末尾にも問題なし） にも関わらず決まったレコードのみに不具合が発生します。 599 名前：マクロが手元にないため画像は載せられませんが、 JCLについては、画像検索して出てきたものとほぼ同じですので参照頂ければと思います。 [] [ここ壊れてます] 600 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:37:26.08 ID:uERkBuVa.net] >>572 やはり文字コードがきな臭いですかね shift-jis になる仕様のはずなのと、他レコードは大丈夫なため問題ないと判断していたのですが、 vba上でも文字コードを明示してあげる必要がありそうですね 601 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 22:59:15.65 ID:MhNSlq6Z.net] メインフレームなぁ・・・最後に触ったの20年近く前で、びっくりするほど覚えてねぇ。 ちょっと気になるんだが、正常に出力されない時に表示される縦線は、 元のテキストファイルにデータとかデリミタとして含まれている文字なのか？ それとも変換できなかった文字が縦線に置き換わっているのか？ 602 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 23:11:22.13 ID:VkzGqctC.net] >>558 なんかコピペしたときにend ifが抜けてた 603 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 23:23:40.27 ID:lz8xFasJ.net] >>575 縦線はデリミタではなく、元のレコードにも存在しない文字です。 処理としては、テキストファイルのレコードをそのままセルに出力するだけなのですが… 読み込んだ時点では問題なく、出力したときに縦線に置き換わってる感じですねー 604 名前：デフォルトの名無しさん [2018/10/05(金) 23:39:05.08 ID:JjUc2WZB.net] >>576 馬鹿は死ねよ 605 名前：デフォルトの名無しさん mailto:sage [2018/10/05(金) 23:53:59.29 ID:E7eIsq4P.net] >>577 ファイルからレコードを読み込んだら、イミディエイトウィンドウにも出力しておく データをセルに書き込んだあと、もう一度セルから読み出して縦線になってたら中断するようなコードを書く 中断したらイミディエイトウィンドウの内容を確認 どこで化けたか、1つずつ追跡するしかないです 意外なところでミスをしていたり、仕様だったり、落とし穴があるもんです 606 名前：デフォルトの名無しさん mailto:sage [2018/10/06(土) 00:57:54.07 ID:F9JdDpiN.net] >>577 1.入力するテキストファイルに「ろくでもない見えない文字」が含まれている（たとえば制御文字） 　→普通のテキストエディタでは見えないことが多いのでバイナリエディタで確認する 2.テキストファイルのレコードを読み取りセルに出力する処理のどこかに問題がある 　→特定のレコードで発生するということは、特定の文字列のパターンか、特定のレコード数でのみ発生している可能性もある こんな月並みなことしか考えつかないな。 個人的には、文字化けだったとしたら全部縦線に置き換わるのはおかしいと思うが（化けた文字が一切見受けられず縦線だけってのが妙に気になる） 607 名前：デフォルトの名無しさん mailto:sage [2018/10/06(土) 04:51:40.31 ID:tnNc0I+3.net] とりあえず、どんなコードで読み取って表示してるか出さんと話にならんわ 608 名前：デフォルトの名無しさん mailto:sage [2018/10/06(土) 07:12:44.67 ID:GeqHzxmy.net] 実はテキストファイルのエンコードがutf8とかだったりして 609 名前：デフォルトの名無しさん mailto:sage [2018/10/06(土) 07:49:00.01 ID:4qqF7BWz.net] メインフレームだからEBCDICだろ変換前はEBCDICの変換は面倒い 610 名前：デフォルトの名無しさん mailto:sage [2018/10/06(土) 07:55:07.00 ID:omtH0luh.net] EOTとかVTの類の制御文字な気がする 611 名前：デフォルトの名無しさん mailto:sage [2018/10/06(土) 13:50:07.16 ID:tnNc0I+3.net] >>563 SHIFT-JISのはずって言ってるし、ホスト側に大抵変換ツールあるだろ 文字コードや制御文字の可能性よりプログラムのバグの方が確率高い気がするなぁ まあコード出せばどっちの問題かはだいたい判別できるはず 化けるデータのダンプでもいいけどな 612 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 13:12:34.96 ID:DYNz6D7I.net] 色々と意見ありがとうございます。 コードが掲示できなくて申し訳ないですが、 文字コードについてはホストの変換機能があるはずなので、プログラム上のバグとみてデバックしてみます。 613 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 15:35:18.94 ID:RZXmBbwE.net] >>569 >>571 正解。 でも、頭の使い方を知らない人にとっては理解し難いんだろ 614 名前：う。 頭を使う作業と単純作業を分けるのが自然になってる人はEndIfを先に書く。 他にもEndWithやNextも先に書くな。 Ifまで書いて条件をどこからかコピペするのに気付いた時はIf a Then...EndIfまで書いてからaと差し替えるとか。 あるいはaの差し替えは中身書いた後の時もあるな。 [] [ここ壊れてます] 615 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 15:38:24.87 ID:RZXmBbwE.net] >>579 文字化けはイミディエイトでは分からない場合も多い。 こういう時はデバック用にバイナリで出力するものを作っとくべきだね。 616 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 15:38:37.38 ID:yvtwWR1t.net] そしてaの差し替えを忘れると 617 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 16:40:59.78 ID:/7FmU20a.net] VBA「済まんのう、ワシのインテリセンスが貧弱なばっかりに・・・」 618 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 17:11:47.87 ID:RZXmBbwE.net] >>589 二ワトリか? 619 名前：デフォルトの名無しさん mailto:sage [2018/10/07(日) 19:18:32.78 ID:b8EzOufK.net] >>587 閉じタグみたいな単純作業を人間がやるのは馬鹿らしいと気付いて別の言語に移行するのが大正解 620 名前：デフォルトの名無しさん [2018/10/07(日) 21:50:24.98 ID:mIq+f5AO.net] で、pythonみたいな欠陥言語では空文という概念すらない ｲﾝﾁｷな制御文で空文を回避する必要がある つまり、cが言語として一番単純で簡単 621 名前：デフォルトの名無しさん mailto:sage [2018/10/08(月) 10:32:35.37 ID:nJmWXjgB.net] しかし少し待って欲しい C言語が扱うのはDelegateじゃなくて ポインタだから不慣れな人が使うのは結構危険

---

---

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

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