Excel VBA 質問スレ Part57

**デフォルトの名無しさん** · 2018/09/10(月) 21:42:39.57

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

※前スレ
Excel VBA 質問スレ Part56
http://mevius.5ch.net/test/read.cgi/tech/1534976724/

**デフォルトの名無しさん** · 2018/10/01(月) 19:24:39.53

>>482
>>484

ありがとうございます！
出来ると聞いて安心しました。頑張って作ってみます。

**デフォルトの名無しさん** · 2018/10/01(月) 19:25:25.93

>>483
vbaとieに拘りはないですが、導入が簡単そうだったので…

**デフォルトの名無しさん** · 2018/10/01(月) 19:26:16.86

質問者じゃないけど2とか3とかはどうやってやるの

**デフォルトの名無しさん** · 2018/10/01(月) 19:33:41.96

>>487
申し訳ない。②は自動ログイン設定というか、IEの機能でidとpassをオートフィルしてくれる機能あるから、わざわざログイン情報を入力せずに、そのまま決定ボタンをクリックするようなコマンド？を記載したよ。
③はその文字に埋め込まれたリンクを、htmlで探して指定した。
②が苦労したな…javascript:loginとかいうので、どうやったら良いのかわからなかったけど、その頭にあるinputがページで何番目なのか数えて、4番目だったから4番目のinputをクリックしてね！って文を書いたら移動できた！

**デフォルトの名無しさん** · 2018/10/01(月) 19:45:57.55

>>473
>>465に答え書いてるよ

>>480
vbaでフォームは置けない気がする
?の文字を置くなどで対処はできないか

**デフォルトの名無しさん** · 2018/10/01(月) 19:47:37.81

>>481
相当しんどいと思う
chromeの拡張機能を使ってみては？
「クローム拡張機能マクロ」で検索すると出てくる

後はjsごと覚えた方が良さそう

**デフォルトの名無しさん** · 2018/10/01(月) 20:52:16.85

RPA使えよ
仕事なら買ってもらえるだろ

**デフォルトの名無しさん** · 2018/10/01(月) 21:35:57.95

>>491
robo-pat？
あるがライセンス切れてて使えない…ライセンス到着待ちなんだ。
でツールが明日必要になってしまったから、仕方なくvbaで…と。

**デフォルトの名無しさん** · 2018/10/01(月) 21:36:29.14

>>490
iMacrosってやつ？試しに使ってみようと思う！

**デフォルトの名無しさん** · 2018/10/01(月) 23:54:06.64

vlookupなんか
どこにも見当たらない

ｵﾂﾑだけじゃなくて目も悪いの？

**デフォルトの名無しさん** · 2018/10/02(火) 02:04:29.98

>>481
Seleniumデザインパターン&ベストプラクティス、2015、オライリー

この本は、Ruby で、Selenium WebDriver を使って、ウェブサイトを自動テストする本だけど、
まさにこういう事を、Rubyでプログラミングする

どのページ(URL)へ飛んで、入力フォームに入力して認証して、
買う商品を選んで、カートに入れて、決済する

まさに、Ruby・Selenium WebDriver が定番

簡単なものなら、iMacros, Selenium IDE で出来るかも

**デフォルトの名無しさん** · 2018/10/02(火) 05:27:11.42

>>489
普通におけるけど。

**デフォルトの名無しさん** · 2018/10/02(火) 06:36:08.43

>>495
rubyとselenium webdriverか。こちらも試してみます！ありがとうございます。

**495** · 2018/10/02(火) 07:13:32.60

結局、ウェブページの自動テストツールを数年やってきた人たちは、次の2つにたどり着く

プログラマーは、Ruby で、Selenium WebDriver、
非プログラマーは、iMacros, Selenium IDE

漏れなんて、自分のPC 内の画像フォルダの画像でさえ、
Ruby・Selenium WebDriverでプログラミングして、ブラウザで見てる

HTML のimg タグに、画像のパスを設定して、ブラウザに表示させている

**デフォルトの名無しさん** · 2018/10/02(火) 07:17:00.46

>>498
たどりつかねーよｗｗｗ
エロ本は画像ビューワ使ったほうがサクサク動いて良い

**デフォルトの名無しさん** · 2018/10/02(火) 07:21:20.23

またマッチポンプに引っかかってるのか？
頭悪すぎだろ

**デフォルトの名無しさん** · 2018/10/02(火) 07:23:48.60

いや、タダのボケだろ
ちょっとおもしろかったわ

**デフォルトの名無しさん** · 2018/10/02(火) 07:39:42.84

頭が悪いのを誤魔化そうとしても意味なくね？

**デフォルトの名無しさん** · 2018/10/02(火) 07:42:08.16

>>480
https://jizilog.com/vba-checkboxop
これをショートカットキーに割り付けるだけで行けそう

**495** · 2018/10/02(火) 09:00:24.92

Seleniumデザインパターン&ベストプラクティス、2015、オライリー

この本の著者がこう言ってる

最初は、ウェブページの自動テストを、Selenium IDE でやっていたけど、
大量の自動テストをこなすために、Ruby・Selenium WebDriver でプログラミングするようになった

これは、誰もがたどる道

**デフォルトの名無しさん** · 2018/10/02(火) 09:10:32.38

別にVBAでも簡単だけどな。
既にVBAでRPAもどきを作ってある。

**デフォルトの名無しさん** · 2018/10/02(火) 09:35:53.30

マッチポンプに掛かった間抜けがいるスレはここですか？

**デフォルトの名無しさん** · 2018/10/02(火) 10:09:51.02

SikuliXおすすめ
適当なスクレイピングでよくてHTML解析する情熱が無くなった場合に使ってる

**デフォルトの名無しさん** · 2018/10/02(火) 12:19:33.62

>>498
> HTML のimg タグに、画像のパスを設定して、ブラウザに表示させている
プロさんて20年前からタイムスリップして来たんかなw

**デフォルトの名無しさん** · 2018/10/02(火) 12:33:06.04

Selenium全く必要ないっていう

**デフォルトの名無しさん** · 2018/10/02(火) 17:44:52.64

>>505
技術的負債

**デフォルトの名無しさん** · 2018/10/02(火) 18:18:59.44

どうせ誰にもメンテできないんだから問題ない
返済されることのない借金は負債ではない

**デフォルトの名無しさん** · 2018/10/02(火) 18:53:37.03

技術的負債はSIerに押し付ければいいのよ
事務員は保守性など気にせずクソでも動けばいいのでとにかく作る
プログラマを企業間のパワー差を活かして発給で雇いこき使ってメンテさせる
これがVBAerの正しいあり方だ

**デフォルトの名無しさん** · 2018/10/02(火) 19:07:53.02

>>512
そうか
まぁ頑張れよ

さて、忘年会用に何かでビンゴのソフトでも作るか

**デフォルトの名無しさん** · 2018/10/02(火) 19:32:27.30

バリアント型変数にrangeを代入すると処理時間短縮になるというが、今いち実感が湧かない。

INPUTのテキストファイルの中身次第で出力するセル範囲が変わるんだが、
想定される最大のセル範囲をrangeに代入するよりは、セルひとつひとつにアクセスして最小限の範囲で出力したほうが処理時間早いんじゃないか…

**デフォルトの名無しさん** · 2018/10/02(火) 19:33:46.34

VBAでシステム組んでる企業は今はほとんどないのでは？
個人がちょっとしたマクロを書くぐらい

**デフォルトの名無しさん** · 2018/10/02(火) 19:48:52.17

ニートのプロさんは少しお口にチャックねw

**デフォルトの名無しさん** · 2018/10/02(火) 19:56:57.36

>>459です。
レスくれた方ありがとうございます。
>>465さん、作成ありがとうございます。
ダウンロードしてみたのですが、私の自宅のPCだとなぜか文字化けして画面に表示されません・・。
明日、会社のPCでやってみるべきか・・。
どなたか親切な方がいたら、画面をコピーしてくれると助かります。

**デフォルトの名無しさん** · 2018/10/02(火) 20:18:38.93

セキュリティ意識に欠けるね
マクロが禁止されるわけだ

**デフォルトの名無しさん** · 2018/10/02(火) 20:34:11.46

>>514
出力に必要な行列の数だけ要素数を指定して適切なサイズの配列を使うようにすればいいじゃん

複数セル値の逐次更新は更新するセルの個数分だけプロパティ関数が実行されてイベント処理が走るので、同じセル数を更新する場合で比較すると配列による一括処理と比べて格段に重いよ

**デフォルトの名無しさん** · 2018/10/02(火) 21:04:30.03

>>519
返答ありがとう。

INPUTのデータ次第で1行～9999行目まで出力されるので、現状9999行までのセルを配列に格納している。

ちょいと処理時間を計測してみたんだが
出力件数によっては、
例えば200件程度だったときの場合、セルに都度アクセスしたほうが早かったのよね。

実行する度に、INPUTのデータ量次第で配列に格納する範囲が変えられると便利なのだが、それがわからないため9999行まで格納してるって感じかな

**デフォルトの名無しさん** · 2018/10/02(火) 21:09:51.81

http://fast-uploader.com/file/7094037561899/
ﾊﾞｶが作ったのはまったく使い物にならないから
ｵﾚのを使いなさい

ﾀﾞｳｿした
総合商品情報.xlsx
を
c:\tmp
に入れればとりあえず動く

保存する場所やﾌｧｲﾙ名変えたならSQLに入ってるﾊﾟｽ変更すれば
とりあえず動く

**デフォルトの名無しさん** · 2018/10/02(火) 22:36:58.97

PCから投稿したのが繁栄してないかもしれないので…

↓↓↓↓

社内のデータ加工で困っています。
VBAじゃないかもしれないのですが、
賢い方々助けてください。

やりたいことや実際のデータは下記URLにUPしています。

よろしくお願いします！

http://fast-uploader.com/file/7094034688478/

用意できる環境に書いてある「Microsoft Office 2016」は「Excel」を意味しています。

**デフォルトの名無しさん** · 2018/10/02(火) 22:50:57.49

>>520
INPUTがどのような形でコードに渡されるか分からないが、例えばテキストデータを読み込んでいるなら、行数をeofになるまで数えて変数に代入して、その変数で配列要素数を指定すれば簡単だと思う

**デフォルトの名無しさん** · 2018/10/02(火) 23:02:37.82

>>520
3回以上セルにアクセスするなら確実に配列に取り込んだほうが早い。
体感出来ないのはコードが完全に最適化出来てないだけ。
あと数式の埋め込まれたセルがあったりするとあり得ないくらい遅くなる。
（ある程度はスイッチで解消できるけど）

あとInputはめちゃくちゃ遅いよ。
バイナリモードで開いて一括読み込みがオススメ。
http://tetsucom.blogspot.com/2011/03/vba_9799.html

このサイトでは数倍しか差がついてないけど、元データの行数が増えるほどInputと差が開く

**デフォルトの名無しさん** · 2018/10/02(火) 23:48:15.72

>>522
アップロードしたファイルに店名が含まれているんだが大丈夫か・・・

**デフォルトの名無しさん** · 2018/10/02(火) 23:53:53.97

皆さん助言ありがとう。

処理のイメージとしては、1行ずつ読み込んで色々判定した後、1行ずつ出力していく感じです。

頂いた助言を試してみて、
事前にeofまでのループ処理で変数をカウントアップさせて、必要な行数を配列に格納させることはできました。

バイナリモードの件と合わせて、パフォーマンスの向上を目指しますm(_ _)m

**デフォルトの名無しさん** · 2018/10/02(火) 23:57:35.54

>>526
Rangeオブジェクトへのアクセス回数を減らすよう意識すると、案外パフォーマンスが上がったりする。
あとオブジェクトの特定のプロパティ・メソッドがやたら遅かったりすることもあるから注意。

**デフォルトの名無しさん** · 2018/10/03(水) 00:52:56.81

>>525
気がつきませんでしたが、ダミーデータなので大丈夫です

**デフォルトの名無しさん** · 2018/10/03(水) 12:30:49.51

>>526
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

**デフォルトの名無しさん** · 2018/10/03(水) 16:42:01.11

実践的に練習用の課題を解いていけて、段階的にスキルアップできるサイトないですか？

**デフォルトの名無しさん** · 2018/10/03(水) 21:13:21.04

Range(1,1).Value = 1-1
これをやると、1月１日にExcelが日付と解釈して変換する。
これを防ぐにはどうしたらいいですか。

文字列として格納するために""で囲むという手があるがそれをやりたくない。
理由は値(1-1)に加工していじってるから。

ちなみに、1-1は番地のつもりです。

**デフォルトの名無しさん** · 2018/10/03(水) 21:37:41.99

>>531
書式を明示的に文字列にしてからやってみたら？
.NumberFormatLocal = "@"

**デフォルトの名無しさん** · 2018/10/03(水) 21:58:23.71

>>531
その式だと1-1で0が格納される訳だが？
セルに文字列として格納させるなら532の方法か、先頭にシングルクォーテーションを付与

**デフォルトの名無しさん** · 2018/10/03(水) 22:24:31.18

1件だけなら　「Range(1, 1) = "'1-1"」でもいいかもしれんが、沢山あるようなら配列を使って一発代入するかな。

**デフォルトの名無しさん** · 2018/10/03(水) 22:37:26.98

>>459です。
>>521さんありがとうございます。
文字化けしない環境で試してみたら、画面は見えました。
ですが、肝心のコードが見当たらない・・・orz
シートに記載されてる情報を見る限り、恐らく>>521さんのが一番私が求めているものに近いかな、と思いました。
>>521さん、ダウンロードしてもコードが見えないので、
このスレにコードをコピーしてもらえないでしょうか？

**デフォルトの名無しさん** · 2018/10/03(水) 23:48:07.24

Cells(Rows.Count, 1).End(xlUp).Row
これだとhiddenで隠れている行は無視されてしまいます
あくまでも最後に入力されている行を取得したい場合はどうすればいい？

もちろんhiddenを一時的に表示にする以外方法で
隠れていてもデータ行として扱う方法

**デフォルトの名無しさん** · 2018/10/03(水) 23:54:17.02

↓ｺｺに操作手順がおいた
http://fast-uploader.com/file/7094133678468/

[SQLの編集]ﾀﾌﾞに編集の仕方が載ってる（denpyouを例にしてるが、編集の仕方は他も同じ）
※ vbaじゃないからな、ｺｰﾄﾞはない
※ ちなみにﾃﾞｰﾀとﾃﾞｰﾀの抽出結果を出力するﾌﾞｯｸは別でも問題ない

新規に自分で作成したい場合は
>>437 ←　ｺﾚ
を参考にしなさい

**デフォルトの名無しさん** · 2018/10/04(木) 00:51:18.54

半角先生口は悪いけど割と優しいからすき

**デフォルトの名無しさん** · 2018/10/04(木) 00:55:39.43

VBAの実行環境をDockerizeする方法を教えてください

**デフォルトの名無しさん** · 2018/10/04(木) 07:43:14.54

>>536
used range使えば？最終行取得でググれ

**デフォルトの名無しさん** · 2018/10/04(木) 09:11:12.18

UsedRangeはプロパティに変更が加えられたセルを全てカウントアップするから物凄く癖がある
うっかり列範囲全体に書式設定なんかしてると最終行は1,048,576行目なんてことになるので注意

**デフォルトの名無しさん** · 2018/10/04(木) 12:04:05.58

>>541
列に対しての書式設定ならそんな風にはならない。
貼り付けするとそうなる危険性はあるけど、今のエクセルは警告出るし、実行に時間かかるし、めちゃくちゃ重たくなるから、マクロ以前にブック修復すべき案件

**デフォルトの名無しさん** · 2018/10/04(木) 13:15:55.34

Do loop関数でウェブ上の変数を取り込んでセルに表示したいんですが、セルA1に最新の変数を表示し、一つ過去のは真下セルに移動する
これを繰り返して変数をA列に積み上げいくようにしたいんですが、どうすればよいでしょうか

**デフォルトの名無しさん** · 2018/10/04(木) 13:37:33.14

挿入でできました　失礼しました

**デフォルトの名無しさん** · 2018/10/04(木) 14:40:06.72

Selenium Webdriverについて質問です。

①chromeを起動
②あるwebサイトのユーザーページにログイン
③ユーザーページ上で作業
という操作を自動化しようとしています。
①、②は良いのですが③が複雑なため、その部分のコードで試行錯誤しております。
しかしコードを修正するたびに①から行っているため時間がかかっております。
①②で起動したブラウザを利用して、③から別のsubプロシージャにして、③だけ実行して検証したいのですがどのようにすればよいのでしょうか。
下が①②のコードです。

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")

**デフォルトの名無しさん** · 2018/10/04(木) 17:50:31.63

Private driver As SeleniumWrapper.WebDriver

Sub Init()
①
②
End Sub

Sub Work()
driver.get(ユーザーページ)
③
End Sub

他のスクリプト言語に変えたほうが楽ですよ

**デフォルトの名無しさん** · 2018/10/04(木) 18:15:13.64

>>546
ありがとうございます。
やってみたのですが、getメソッドでSystem.NullReferenceExceptionというエラーが出ます.....

他のスクリプト言語というとRubyということになるのでしょうか？

**デフォルトの名無しさん** · 2018/10/04(木) 18:36:18.81

>>547
driverを初期化してないからだと思うぞ。

**デフォルトの名無しさん** · 2018/10/04(木) 18:46:00.60

>>548
大変申し訳ないのですが詳しく説明して頂けないでしょうか....
勉強不足ですみません

**デフォルトの名無しさん** · 2018/10/04(木) 19:13:03.15

>>549
Private driver As SeleniumWrapper.WebDriver　←モジュール領域（各プロシージャの更に上位）でdriverを定義。ただし初期化していない。

Sub Init()　←Initプロシージャを実行する時にdriverを初期化し①・②を実行する必要がある
Set driver = New SeleniumWrapper.WebDriver　←ココ
①
②
End Sub

Sub Work()　←Initプロシージャを実行してからWorkプロシージャを実行すると、色々（③）を実行してくれる
driver.get(ユーザーページ)
③
End Sub

念のため言っとくと俺は>>546じゃないがついでに解説しただけで、
>>545が求めているものがこれで満たせるのかまでは関知しない。

**デフォルトの名無しさん** · 2018/10/04(木) 19:25:04.84

質問いいですか？
VBAでコールバックを行うとき
クラスが対象の場合はCallByNameで行う事が出来ますが
標準モジュールの場合、どうするんでしたっけ？
確かAPIを使った様な気がしたんですが
どのAPIを使ってどうするのか
忘れてしまいました。

**デフォルトの名無しさん** · 2018/10/04(木) 19:32:08.96

>>551
忘れたけど ariawase を見れば出てくるんじゃね

**デフォルトの名無しさん** · 2018/10/04(木) 20:46:51.81

>>550
とても丁寧にありがとうございます。追加質問させてほしいです。
A:　今回「driver」はオブジェクト変数となるため、定義の際はnew演算子を使用する。またはsetで格納する必要がある。ということで良いのでしょうか？

B:　>>550で「ただし初期化していない」とありますが、あるサイトで「vbaでは変数宣言したときに初期化が行われる」という記述を見ました。
これは、setで格納されてないから初期化すらされてない　という意味でしょうか。

C:　プロシージャが実行されるごとに初期化されればよいならば、private変数の定義をやめて、①～②、③それぞれでDim driver As New SeleniumWrapper.WebDriver　と定義すればエラーは出ないと思ったのですが、
やはり③のgetメソッドのところで「System.NullReferenceException」エラーが出てしまいました。何故なのでしょうか・・・

長文ですみません　どうか宜しくお願いいたします。

**デフォルトの名無しさん** · 2018/10/04(木) 22:18:56.04

>>553
A: あってる
B: だいたいあってる
C: まずコードが動くことを確認してから弄れ。>>546の意図が汲めないならすっぱり諦めて別の方法を考えろ。
流石にこれ以上は自分で調べろ。

追伸
B: とりあえず「値型は宣言と同時に初期化される、オブジェクト型はNewやSetをしてからでないと使えない」と思っとけ
C: 要はWebDriverの「使い回し」がしたいという質問に答えたのが>>546
　　・モジュールレベルで宣言すれば、各プロシージャ内から変数「driver」を通じて同じ実体（インスタンスという）にアクセスできる
　　・Initでモジュールレベル変数「driver」を初期化したりStartなどのメソッドを実行すれば、Workでdriverにアクセスした時にその続きのアレコレができる
　　・逆にInitで初期化やStartその他を実行したにもかかわらずWorkで新たな変数「driver」を宣言したらInitで行った処理が水泡に帰する
　　・またInit内で新たな変数「driver」を宣言し初期化等をした場合も、Init終了と同時に実体が消えて無くなる
仕事中なんであれこれ端折って書いたので間違ってる部分もあるかもしれんが、「インスタンス」とか「スコープ」とかでググって調べてみてくれ。

**デフォルトの名無しさん** · 2018/10/04(木) 22:32:59.61

>>554
本当に丁寧にありがとうございます。
伝えるのを忘れていましたが、言われた通りにコードを記述しうまくいきました。それを踏まえてのCでした。
インスタンス、スコープで調べてみます。ありがとうございました。

**デフォルトの名無しさん** · 2018/10/05(金) 12:52:55.81

「選択したセルの値を-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がありません」と怒られてしまいました。
どこがいけないのでしょうか？

**デフォルトの名無しさん** · 2018/10/05(金) 12:58:15.96

if文が閉じてないから

**デフォルトの名無しさん** · 2018/10/05(金) 16:28:56.84

>>556
お前の知能に障害がある

**デフォルトの名無しさん** · 2018/10/05(金) 16:54:22.89

>>556
インデントが適当だからそういうミスに気がつかない

**デフォルトの名無しさん** · 2018/10/05(金) 17:24:22.25

else nextとか書く馬鹿にインデントもなにもねーよ

**デフォルトの名無しさん** · 2018/10/05(金) 17:30:08.09

適当ならいいじゃないか

**デフォルトの名無しさん** · 2018/10/05(金) 18:25:40.30

Ifは基本一行で済ませるか、If...Then句を書いた後にすぐ改行して同じインデントレベルでEnd If 句を入れる癖をつけろ

**デフォルトの名無しさん** · 2018/10/05(金) 21:10:17.32

>>448
レベルアップするたびにポイントをVBAにばかり振り分けてきたんだよきっとｗ

**デフォルトの名無しさん** · 2018/10/05(金) 21:14:01.44

>>556
根本はエクセルのエラーメッセージが明らかに間違っているから混乱する
けどプログラムの世界って大体そんなもんと諦める必要がある

で、対処法としては
>>559
が正解
インデントが適切なら楽勝で気づける問題

>>562は最悪。開発が超遅くなる

**デフォルトの名無しさん** · 2018/10/05(金) 22:05:56.09

質問です。

テキストファイルの中身をセルに出力する処理をやっているのですが、一部のテキストファイルの文字が正常に出力されません。（縦線 " | "のみが出力される）
ただし、判定によってセルの色を変えているのですが、その機能は生きているので、読み込み自体はできているみたいです。
また、全部のファイルで不具合があるわけではなく、特定のファイルの特定のレコードにのみ起こるっぽいです…

補足すると、テキストファイル自体はメインフレームの伝送機能で送ってます。これが原因に関係あるのかはわかりませんが…

詳細聞かれたらお答えしますので、解決にご協力頂ければと思います。

**デフォルトの名無しさん** · 2018/10/05(金) 22:07:25.21

565です。
本題を載せ忘れていました。
原因、改善方法がわかる方いましたら、ご返答願います。

**デフォルトの名無しさん** · 2018/10/05(金) 22:15:30.06

俺はインデントもしっかりでEnd Ifも先に書く派だな、他の言語での閉じ括弧みたいなもんだし

**デフォルトの名無しさん** · 2018/10/05(金) 22:17:06.45

>>565
その特定のレコードを教えて

**デフォルトの名無しさん** · 2018/10/05(金) 22:27:19.79

>>564
俺はブロックを先に区切らずにダラダラ書いていく方が効率悪いように見えるんだけど、End Ifを先に書かない方が速度上がるの？
本当だったらそうしてみようかな

**デフォルトの名無しさん** · 2018/10/05(金) 22:27:20.22

>>565
コンピュータのベンダーや年式が違えば文字コード字形の割り当てが違うことも多い

手順
・テキストファイルの文字エンコード、記述形式を正確に把握する
・化けた部分前後数行のみのテストデータを作る
・ウォッチウィンドウを活用して原因を探る

**デフォルトの名無しさん** · 2018/10/05(金) 22:30:53.32

>>568
INPUTはJCL（COBOLアプリを動かすためのスクリプト言語）をテキストファイルに落としたものです。

特定のレコードなのですが、テキストファイルを確認しても、他の出力されているレコードと見た目は全く変わりません。（スペース、データの末尾にも問題なし）
にも関わらず決まったレコードのみに不具合が発生します。

マクロが手元にないため画像は載せられませんが、
JCLについては、画像検索して出てきたものとほぼ同じですので参照頂ければと思います。

**デフォルトの名無しさん** · 2018/10/05(金) 22:37:26.08

>>570
やはり文字コードがきな臭いですかね
shift-jis になる仕様のはずなのと、他レコードは大丈夫なため問題ないと判断していたのですが、
vba上でも文字コードを明示してあげる必要がありそうですね

**デフォルトの名無しさん** · 2018/10/05(金) 22:59:15.65

メインフレームなぁ・・・最後に触ったの20年近く前で、びっくりするほど覚えてねぇ。

ちょっと気になるんだが、正常に出力されない時に表示される縦線は、
元のテキストファイルにデータとかデリミタとして含まれている文字なのか？
それとも変換できなかった文字が縦線に置き換わっているのか？

**デフォルトの名無しさん** · 2018/10/05(金) 23:11:22.13

>>556
なんかコピペしたときにend ifが抜けてた

**デフォルトの名無しさん** · 2018/10/05(金) 23:23:40.27

>>573
縦線はデリミタではなく、元のレコードにも存在しない文字です。
処理としては、テキストファイルのレコードをそのままセルに出力するだけなのですが…
読み込んだ時点では問題なく、出力したときに縦線に置き換わってる感じですねー

**デフォルトの名無しさん** · 2018/10/05(金) 23:39:05.08

>>574
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/10/05(金) 23:53:59.29

>>575
ファイルからレコードを読み込んだら、イミディエイトウィンドウにも出力しておく
データをセルに書き込んだあと、もう一度セルから読み出して縦線になってたら中断するようなコードを書く
中断したらイミディエイトウィンドウの内容を確認

どこで化けたか、1つずつ追跡するしかないです
意外なところでミスをしていたり、仕様だったり、落とし穴があるもんです

**デフォルトの名無しさん** · 2018/10/06(土) 00:57:54.07

>>575
1.入力するテキストファイルに「ろくでもない見えない文字」が含まれている（たとえば制御文字）
　→普通のテキストエディタでは見えないことが多いのでバイナリエディタで確認する
2.テキストファイルのレコードを読み取りセルに出力する処理のどこかに問題がある
　→特定のレコードで発生するということは、特定の文字列のパターンか、特定のレコード数でのみ発生している可能性もある
こんな月並みなことしか考えつかないな。
個人的には、文字化けだったとしたら全部縦線に置き換わるのはおかしいと思うが（化けた文字が一切見受けられず縦線だけってのが妙に気になる）

**デフォルトの名無しさん** · 2018/10/06(土) 04:51:40.31

とりあえず、どんなコードで読み取って表示してるか出さんと話にならんわ

**デフォルトの名無しさん** · 2018/10/06(土) 07:12:44.67

実はテキストファイルのエンコードがutf8とかだったりして

**デフォルトの名無しさん** · 2018/10/06(土) 07:49:00.01

メインフレームだからEBCDICだろ変換前はEBCDICの変換は面倒い

**デフォルトの名無しさん** · 2018/10/06(土) 07:55:07.00

EOTとかVTの類の制御文字な気がする

**デフォルトの名無しさん** · 2018/10/06(土) 13:50:07.16

>>561
SHIFT-JISのはずって言ってるし、ホスト側に大抵変換ツールあるだろ

文字コードや制御文字の可能性よりプログラムのバグの方が確率高い気がするなぁ
まあコード出せばどっちの問題かはだいたい判別できるはず
化けるデータのダンプでもいいけどな

**デフォルトの名無しさん** · 2018/10/07(日) 13:12:34.96

色々と意見ありがとうございます。
コードが掲示できなくて申し訳ないですが、
文字コードについてはホストの変換機能があるはずなので、プログラム上のバグとみてデバックしてみます。

**デフォルトの名無しさん** · 2018/10/07(日) 15:35:18.94

>>567
>>569
正解。

でも、頭の使い方を知らない人にとっては理解し難いんだろう。
頭を使う作業と単純作業を分けるのが自然になってる人はEndIfを先に書く。
他にもEndWithやNextも先に書くな。

Ifまで書いて条件をどこからかコピペするのに気付いた時はIf a Then...EndIfまで書いてからaと差し替えるとか。
あるいはaの差し替えは中身書いた後の時もあるな。