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/09/16(日) 22:48:48.42

>>104
そんなややこしい事しなくても
cat test.csv | %{ $i = $_ -split ',',2; "$($i[0]),""$($i[1])""" } > dest.txt
でいいでしょ

**デフォルトの名無しさん** · 2018/09/16(日) 22:48:54.01

>>108
catはget-contentのエイリアス
正規表現使わなくてもできる

自分はこう書くっていうのがあるなら
僕にレスせずにそれを出すべきかと

**デフォルトの名無しさん** · 2018/09/16(日) 23:09:32.96

powershellが便利でVBAの出るまくなしってのはよくわかったけど
ここはVBAスレだからせっかくなのでVBAで解答を書いてみてよ
だいたい5行ぐらいでできるかな?

**デフォルトの名無しさん** · 2018/09/16(日) 23:10:09.34

Inputがtxtなので、中身をみてコンマ(,)で区切られているので、CSVと勘違いしてしまったかもしれない
作った人に、CSVか確認してみます。

**デフォルトの名無しさん** · 2018/09/16(日) 23:27:45.95

CSV はカンマ区切りだから、列にカンマが入る可能性を考えて、各列を、" で囲む。
列内で、カンマを使いたい場合は、\ でカンマをエスケープする。\"

列内の文字列、a\"b
列、"a\"b"

それか、TSV。タブ区切りを使う。
ただし、これも列内にタブを使わないようにすべき

基本、システムを知らない人には、設計(SE)はできない！
こんなの誰でも知っている常識だからw

**デフォルトの名無しさん** · 2018/09/17(月) 00:05:45.07

また低学歴知恵遅れがﾃｷﾄｰなこと書きこんでるわ。。。

**デフォルトの名無しさん** · 2018/09/17(月) 00:11:35.39

一般化すればこうなる

列のﾃﾞﾘﾐﾀや行のﾃﾞﾘﾐﾀ、もしくは引用符を含む場合
引用符で括る
引用符が含まれる場合、引用符は引用符の前に引用符を1つ記述する

csvの場合、
　列のﾃﾞﾘﾐﾀはｶﾝﾏ
　行のﾃﾞﾘﾐﾀはCRLF
　引用符はﾀﾞﾌﾞﾙｸｫｰﾄ
になる

ﾀﾌﾞ区切りの場合、列のﾃﾞﾘﾐﾀはHTになる

わかった？

**デフォルトの名無しさん** · 2018/09/17(月) 00:22:08.36

>>111
Dim fs, src, dest, line, i
Set fs = CreateObject("Scripting.FileSystemObject")
Set src = fs.OpenTextFile("test.csv", 1)
Set dest = fs.OpenTextFile("dest.csv", 2, True)

Do Until src.AtEndOfLine
　line = src.ReadLine()
　i = InStr(line, ",")

　Call dest.WriteLine(Join(Array( _
　　Mid(line, 1, i - 1), _
　　"""" & Mid(line, i + 1, Len(line) - i) & """"), ","))
Loop

Call dest.Close()
Call src.Close()

**デフォルトの名無しさん** · 2018/09/17(月) 00:26:30.19

>>115
RFCはそうだけど
"を\でエスケープするやり方もあるよね

**デフォルトの名無しさん** · 2018/09/17(月) 00:36:24.95

そんな低学歴知恵遅れﾏｲﾙｰﾙは
低学歴知恵遅れのﾏｲﾙｰﾙが通用するｼｽﾃﾑでないと通用しない

低学歴知恵遅れのやりかたの別のﾌｧｲﾙ形式になる
低学歴知恵遅れのやりかたとcsvの形式は一切関係ないからな

なんで低学歴知恵遅れは
低学歴知恵遅れのﾏｲﾙｰﾙを押しとうそうとすうんの？

低学歴知恵遅れの世界でしか通用しないのに

**デフォルトの名無しさん** · 2018/09/17(月) 00:38:15.86

この内容のExcelをcsvに出力する

A　　　B　　　　C
aho　boo"foo　baka
aho　boo"foo　baka

普通に

aho.csv

aho,"boo""foo",baka
aho,"boo""foo",baka

と出力される

**デフォルトの名無しさん** · 2018/09/17(月) 00:42:08.45

こんな内容のaho1.csvをExcelにｲﾝﾎﾟｰﾄする

aho,"boo\"foo",baka
aho,boo\"foo,baka

結果はこうなる

A　　　B　　　　C
aho　boo\foo"　baka
aho　boo\"foo＝@baka

こんな内容のaho2.csvをExcelにｲﾝﾎﾟｰﾄする

aho2.csv

aho,"boo""foo",baka
aho,"boo""foo",baka

結果はこうなる

A　　　B　　　　C
aho　boo"foo　baka
aho　boo"foo　baka

当然

はっきりいってな
低学歴知恵遅れのﾏｲﾙｰﾙなんかどうでもいいわけ
低学歴知恵遅れが出力するﾌｧｲﾙはそもそもcsvじゃない

**デフォルトの名無しさん** · 2018/09/17(月) 00:44:37.73

>>120
エクセルの動作の話をしておられるわけですね
それについては異論はないっす

一般的なCSVの仕様として"を\でエスケープすることも
あるよねってことです

RFCは後付ですし

**デフォルトの名無しさん** · 2018/09/17(月) 00:48:00.11

https://tools.ietf.org/html/rfc4180

7. If double-quotes are used to enclose fields, then a double-quote
appearing inside a field must be escaped by preceding it with
another double quote. For example:

"aaa","b""bb","ccc"

RFCにもちゃんと書いてあるからな

excelでは読み込めない
ｺﾚはもう業界ではﾍﾟｹなﾜｹ
もうﾃﾞﾌｧｸﾄｽﾀﾝﾀﾞｰﾄﾞなﾜｹ

それが分からないから
低学歴知恵遅れなﾜｹ

**デフォルトの名無しさん** · 2018/09/17(月) 00:55:43.10

>>122
RFCができる前からCSVは存在してるよ
RFCとは違う仕様も存在するんよ

デファクトスタンダードはそれはそうだと思いますよ
規格として標準なわけではなく事実上の標準だから
"を\でエスケープするものがあってもおかしくないっすね

**デフォルトの名無しさん** · 2018/09/17(月) 00:56:49.34

""でエスケープしたらエクセルでインポートできるよってことを言いたいんですよね、わかりますよ

**デフォルトの名無しさん** · 2018/09/17(月) 00:59:23.34

フォーマット微妙に変なのをExcelにインポートしたいってとこから話始まってるし

いくら世界がそうあるべきだと言ったって
現におかしなフォーマットのｃｓｖが目の前にあったらどうにかしないといけない

半角君はどうするんだろう

**デフォルトの名無しさん** · 2018/09/17(月) 01:04:33.71

>>87のｹｰｽである場合、
どうしてもｴｸｾﾙにｲﾝﾎﾟｰﾄしてほしいという依頼がきたら
ｻｸﾗｴﾃﾞｨﾀつかって正規表現使って最初のｶﾝﾏの部分をﾀﾌﾞに置換してｺﾋﾟﾍﾟする

ﾌｧｲﾙがｸｿでかいばあい、sedで正規表現使って最初のｶﾝﾏの部分をﾀﾌﾞに置換する

**デフォルトの名無しさん** · 2018/09/17(月) 01:08:02.43

サクラエディタもsedも使えない状況なら半角さんどうするんですか？

**デフォルトの名無しさん** · 2018/09/17(月) 01:09:43.54

wshでjavascript使って編集する

**デフォルトの名無しさん** · 2018/09/17(月) 01:10:23.76

sedが使えない = unixｸﾛｰﾝは使えない
ということになるからな

**デフォルトの名無しさん** · 2018/09/17(月) 01:11:33.13

JScriptですか渋いっすね

**デフォルトの名無しさん** · 2018/09/17(月) 01:31:17.15

wshならどんな古いくさった端末でも入ってるからな
個人情報の問題で、ﾃﾞｰﾀを格納できる計算機が制限される、ｱﾀﾘﾏｴだが

**デフォルトの名無しさん** · 2018/09/17(月) 02:09:43.67

>>120
実際に出てきたcsvでやるしか無いんだから出来ない言い訳並べてもしょうがないでしょ

**デフォルトの名無しさん** · 2018/09/17(月) 02:40:44.60

ある都合でVBAでプログラミングを学びたいんですが、おすすめの参考書やサイトありますか？

**デフォルトの名無しさん** · 2018/09/17(月) 03:00:28.28

できない言い訳なんか書いてないからな
それはcsvじゃないといってるﾜｹ

低学歴知恵遅れの世界で呼称されてるcsvは
低学歴知恵遅れの世界のcsv（）といってるﾜｹ

わかった？

**デフォルトの名無しさん** · 2018/09/17(月) 03:01:56.29

ﾎﾝﾄな低学歴知恵遅れは
低学歴知恵遅れのﾏｲﾙｰﾙを押し付けようとするから困るﾜｹ

**デフォルトの名無しさん** · 2018/09/17(月) 03:29:18.86

>>133
＞VBAでプログラミングを学びたい
VBA「の」じゃなくてVBA「で」？
学びたいのはプログラミング自体？

それならVBAはGUIがついてて便利なので入門用言語には良いが
最終的にはVBA以外のプログラミング言語も習得した方が良い

というのはあくまでVBAのベースはBASICなので
VBAプロパーだとプログラミングの筋が悪くなる

＞おすすめの参考書やサイト
まずは大きな書店に行って
PC関係の売り場で中身をパラパラめくって
分かりやすそうな入門書を一冊買って読もう

もちろん「VBA」で検索して出てきたサイトを見れば
金は掛からないが説明が微妙なところもあり不安が残る

**デフォルトの名無しさん** · 2018/09/17(月) 03:42:24.53

CSV, TSV の仕様

delimiter : フィールド区切り。カンマ・タブが多い
quotechar : フィールドを囲む文字。" が多い

escapechar : フィールド内に、quotechar を含む場合に、その前に付けるエスケープ文字。
\ か、" が多い。

a\"b → "a\"b"
a""b → "a""b"

**デフォルトの名無しさん** · 2018/09/17(月) 07:53:46.06

そんな50レスも引き延ばすようなネタか？(呆

**デフォルトの名無しさん** · 2018/09/17(月) 08:33:44.47

VBAスレならこれぐらいの話題がちょいどいいレベルでしょう

**デフォルトの名無しさん** · 2018/09/17(月) 08:38:11.40

久々に食い付けるネタだったんだろ w

**デフォルトの名無しさん** · 2018/09/17(月) 08:59:01.79

あるファイルを修正する前に、そのファイルを_bak.csvみたいに同じディレクトリにバックアップしたいんだけど、vbaからだとどうすればいい？
filesystemobjectとか使うの？

**デフォルトの名無しさん** · 2018/09/17(月) 09:02:08.97

>>135
別にマイルール押しつけてるつもりはないよ。俺はプログラミング歴本当浅いし。
間違ってれば指摘して訂正すればいいだけの話じゃない？

それはさておき、なんだかんだで、答えてくれてるので、回答どうもｗ

**デフォルトの名無しさん** · 2018/09/17(月) 09:40:45.98

>>141
Private Sub Workbook_BeforeSave()
のサブプロシージャで適当に。バックアップ世代管理をどこまでやるかで変わるが簡単にやるならSaveCopyAsでいい。

**デフォルトの名無しさん** · 2018/09/17(月) 09:45:04.21

>>143
そのもののイベントがあるのね
ありがとう

**デフォルトの名無しさん** · 2018/09/17(月) 15:03:24.49

>>136
ありがとうごじゃります
おっしゃるとおりで！
古本屋には無かったのでネットでサンプルでも見ながら探します！

**デフォルトの名無しさん** · 2018/09/17(月) 19:47:37.68

どんなCSVでもテキスト処理すれば良いだろ。
Excelで開いて崩れるならそれは無理すじというもの。

見えるデリミタが既に嫌なので、見えない文字をデリミタに使ってCSVもどきとかにしてたこととかあったな。

**デフォルトの名無しさん** · 2018/09/17(月) 20:21:50.63

まだ引っ張るのかw

**デフォルトの名無しさん** · 2018/09/17(月) 20:25:15.40

あんまり同じ話ばかりしてるとまた半角先生に低学歴知恵遅れって言われるぞ

**デフォルトの名無しさん** · 2018/09/17(月) 21:34:58.01

「関数を使うかVBAを使うか」なんて文章を見てもにょらないのか？

**デフォルトの名無しさん** · 2018/09/17(月) 21:48:19.81

普通に一般的じゃないCSVなんてごまんとあるだろ。
3270が吐き出したCSV(といっても結局プログラムが吐き出してるわけだけど)とか、固定長CSVとか。
カンマ区切り以外は何でもアリと考えるべき。
どうせ、どんな仕様でも対応できるだろ。
大した話じゃない。

基本的な話だがCSV開く時はOpenTextって話がまだ無いようだが、それでダメなら自前でどうとてもするだろ。

**デフォルトの名無しさん** · 2018/09/17(月) 21:50:33.98

>>141
開く前にファイルコピーでも何でも良いじゃん。

**デフォルトの名無しさん** · 2018/09/17(月) 22:29:17.24

https://qiita.com/areanoblog/items/095abe477fd04bbfc7c4
VBAからpowershell呼び出すのって↑こんなまわりくどいの？
powerhellの実行結果を一旦テキストファイルとかに出してそれをまたVBAで読み込むとか？
めんどくさ…('A`)

**デフォルトの名無しさん** · 2018/09/17(月) 22:31:24.18

固定長CSVとか言うパワーワード

**デフォルトの名無しさん** · 2018/09/17(月) 22:52:13.82

固定長CSV笑った
でも世の中には実在するんだろうな

**デフォルトの名無しさん** · 2018/09/17(月) 22:57:01.63

なになに？またプロさん知ったかぶりしとんの？

**デフォルトの名無しさん** · 2018/09/17(月) 23:15:23.57

>>152
こんなことやるならPS側で処理した方が絶対良いよな
PSから直接Excel触れるんだから

**デフォルトの名無しさん** · 2018/09/17(月) 23:30:51.51

Office は高い

Ruby で、VSCode の拡張機能の、Excel Viewer で十分

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

>>157
働いたこともないニートだったか

**デフォルトの名無しさん** · 2018/09/18(火) 04:01:32.86

>>152
>>156
オレもPS側から処理する方が基本的に筋が良いと思う
PSの方が汎用的で記述性が高いから

**デフォルトの名無しさん** · 2018/09/18(火) 05:54:19.55

PSキチガイ、Rubyキチガイが登場したから、後はC#キチガイが出てくればいつもの通りの流れ

**デフォルトの名無しさん** · 2018/09/18(火) 05:56:46.48

まだマッチポンプやってるんかお前？

**デフォルトの名無しさん** · 2018/09/18(火) 06:07:52.72

俺はC#の役も出来るから必要なら呼んでくれ

**デフォルトの名無しさん** · 2018/09/18(火) 07:32:33.78

表形式もWPFのほうが安全で楽で表現力高いと気付いてから俺の中でVBAの出番は完全になくなった
VBAの使い道を必死で探してるが見つからない

**デフォルトの名無しさん** · 2018/09/18(火) 08:05:31.56

WPFはデータとプログラムソースを完全分離出来るからな
VSさえ自由に使えるなら安全で良い

**デフォルトの名無しさん** · 2018/09/18(火) 08:14:28.81

働いたこともないニートだったか

**デフォルトの名無しさん** · 2018/09/18(火) 08:34:54.62

自己紹介乙

**デフォルトの名無しさん** · 2018/09/18(火) 08:53:19.81

働いたことがないニートなのはこのスレの参加条件だからニート歴の年数で勝負すべき

**デフォルトの名無しさん** · 2018/09/18(火) 09:11:00.17

>>163
言語として使いやすいから、とか

**デフォルトの名無しさん** · 2018/09/18(火) 12:06:42.40

>>168
その皮肉はちょっとよくわからない

**デフォルトの名無しさん** · 2018/09/18(火) 12:13:47.72

面白いギャグだね

**デフォルトの名無しさん** · 2018/09/18(火) 12:16:08.60

>>163
君の作ったのがExcelの完全上位互換でもない限り、上司からセルの色が変えられないとか関数が使えないとか言われるのがオチ。

ニートの意味プログラムの世界では成立するかもね。

**デフォルトの名無しさん** · 2018/09/18(火) 12:22:42.63

そもそもエクセルの使い方わからんプロさん達やし致し方ない

**デフォルトの名無しさん** · 2018/09/18(火) 12:34:01.22

>>171
そういうエクセルを使うことが目的になってる残念上司にはエクセルをエクスポートして渡しておけばいいよ
こっちはあくまで生産性上げるためにやってるわけだからね
もちろん色を変えることにビジネス上の合理性があるなら実装するがね
色を変えて遊びたいだけじゃ話にならん

**デフォルトの名無しさん** · 2018/09/18(火) 12:51:14.99

>>173
それだったらExcel使う必要無いわけだ。
上司や社長にそう言ってみれば良いんじゃね。

色だけの問題じゃねえっての。
完全上位互換で気付かないかねえ。
だから二―トと言われるんだぞ。

**デフォルトの名無しさん** · 2018/09/18(火) 13:59:55.38

自分から具体的な事を言わずに相手の反応を待つ方法、
馬鹿が頭良く見せる時によくやるけどその内相手にされなくなるよ

**デフォルトの名無しさん** · 2018/09/18(火) 15:33:00.72

>>169
？

**デフォルトの名無しさん** · 2018/09/18(火) 19:05:07.35

初心者の典型的な勘違いだね
「なんでも出来る方が良いに決まってる」
でも、実際には逆なんだな

例えば標準エクセルの完全上位互換なら、すべてのセルの色を変えれることになるが
そうすると色を変えてほしくないセルまで変えてしまう人が現れる
色だけじゃなく、ありとあらゆる機能について似たようなことが言える
先人たちは失敗に学び、なんでも出来るツールよりも、僅かな仕事を上手くやるツールを組み合わせたほうが良い、という答えにたどり着いた

事務員のみんなは、学ぶべき先人が居ない環境でプログラミングを覚えてきた
だから、こういう基本的なことが身につかないままの人が多いんだ

**デフォルトの名無しさん** · 2018/09/18(火) 19:09:22.99

>>175
あれあれ?
「関数が使えない」を無視した上に、「完全上位互換でもない限り」の文意を読み取ろうともせずに「具体的なことを言わず」と相手を批判ですか?

何でも全て自分は悪くないですか。
そうですか。

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

>>177
それじゃ既に誰もExcel使ってないっての。
ところが現実は違う。

**デフォルトの名無しさん** · 2018/09/18(火) 19:22:55.63

>>179
それだけリテラシーの低い人が多いということ
多数派が賢いというのも典型的な勘違いの一つだね

**デフォルトの名無しさん** · 2018/09/18(火) 20:11:57.47

セル内の文字列をコピーする際、セルごとコピーしようとしたら、余計な情報までコピーするからやめろといわれた。本当ですか？

**デフォルトの名無しさん** · 2018/09/18(火) 20:14:47.13

>>181
コピペのやり方とどこに貼り付けるか次第かなー

**デフォルトの名無しさん** · 2018/09/18(火) 20:38:53.34

>>181
値貼り付けならまぁなんとか
コピーしてそのまま貼り付けは鬱陶しいな

**デフォルトの名無しさん** · 2018/09/18(火) 21:38:06.78

書式貼付けとか出来るようになったのは嬉しいけど罫線そのままフォントとか背景色をコピーとかしたいわ

要望に限りはないな…

**デフォルトの名無しさん** · 2018/09/18(火) 22:18:22.89

>>184
コピー元のセルとコピー先のセルをそれぞれRange型変数に格納して、あとはコピー元の任意のプロパティの定数値をコピー先のプロパティの値としてそのまま代入するだけ

**デフォルトの名無しさん** · 2018/09/18(火) 22:25:10.68

>>184
罫線だけ貼り付けあるで

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

>>180
???
多数派が賢いとは言ってない。
そもそもの話から理解出来ないなら引っ込んでろよ。

会社は君一人だけで成り立っているわけじゃない。

**デフォルトの名無しさん** · 2018/09/18(火) 23:05:19.45

なんかVBAできる程度でｲｷってる低学歴知恵遅れがいるのか

**デフォルトの名無しさん** · 2018/09/18(火) 23:12:46.57

独りよがりの二―トならいるが。

**デフォルトの名無しさん** · 2018/09/18(火) 23:19:04.19

vba出来なくてイキられとるプロさん達w

**デフォルトの名無しさん** · 2018/09/18(火) 23:32:08.88

>>188
そりゃ事務作業がほぼ0になるんだからイキってもいいよ

**デフォルトの名無しさん** · 2018/09/18(火) 23:57:53.79

VBAは作ってからが本当の地獄だぞ

**デフォルトの名無しさん** · 2018/09/19(水) 06:01:57.35

おっと野田工房さんの悪口はそこまでだ
https://qiita.com/nodakoubou/items/1c92d33855cfd09ccc57

**デフォルトの名無しさん** · 2018/09/19(水) 06:47:53.78

office.tanakaのコードには俺も前から疑問持ってた。vbaにクソコードが多い原因とまで言っちゃうのはちょっと言過ぎだが。
vbaの場合、入門書にロクなのが無いってのが大きいと思う。

**デフォルトの名無しさん** · 2018/09/19(水) 08:11:46.01

少なくともオブジェクトが解放されてないとか文句言ってるのは別言語に移行すれば解決するな

**デフォルトの名無しさん** · 2018/09/19(水) 08:16:58.74

他人のせいにしちゃいかんな
モダンな文法や機能の導入
Excel.Applicationのインターフェース改善
洗練されたIDEの導入
これらを怠った結果でしょう
特にIDEの影響が大きいと見たね
インテリセンス、サジェスチョン、ワーニング、リファクタリングツールが充実してると大分変わる

**デフォルトの名無しさん** · 2018/09/19(水) 08:27:16.54

すくなくともVBEは変えるよな
素人マクロじゃなくて業務開発ならば

**デフォルトの名無しさん** · 2018/09/19(水) 08:30:56.76

>>163
それでもスレに来るのは何なの

**デフォルトの名無しさん** · 2018/09/19(水) 09:05:12.30

>>198
とにかくVBAをけなして自分のチンケなプライドを満足させたい、その一点のみ w

**デフォルトの名無しさん** · 2018/09/19(水) 09:07:56.31

啓蒙してユーザー需要を減らせれば、皆がハッピーになると信じている…のかも

**デフォルトの名無しさん** · 2018/09/19(水) 11:59:42.56

暇つぶしの問題
あるセルとその下のセルに数値データが入っている
この2つのセルの中身を他のセルを使わずに入れ替えてください

**デフォルトの名無しさん** · 2018/09/19(水) 12:11:03.24

○○では××できない！糞！って騒ぎ立てることで
いや○○でもこうすれば××できるんやでという回答を引き出すメソッドや

**デフォルトの名無しさん** · 2018/09/19(水) 12:13:54.07

なおVBAの場合ほんとにできないのであまり効果的でない模様

**デフォルトの名無しさん** · 2018/09/19(水) 12:39:07.72

>>201
Dim Rng_Target As Range
Dim Val_Target As Long

Set Rng_Target = 目的のセルを取得するexpression
Val_Target = Rng_Target.Value
Rng_Target.Value = Rng_Target.Offset(1, 0).Value
Rng_Target.Offset(1, 0).Value = Val_Target

**デフォルトの名無しさん** · 2018/09/19(水) 18:17:37.52

If Not RangeA Like RangeB then
RangeA = RangeA Xor RangeB
RangeB = RangeA Xor RangeB
RangeA = RangeA Xor RangeB
End If

**デフォルトの名無しさん** · 2018/09/19(水) 18:40:15.75

xor交換て数値型全部に使えるんだっけ

**デフォルトの名無しさん** · 2018/09/19(水) 18:41:10.33

>>198
確認だけど日本語は読めるよね？
VBAの使い道を探してるって書いてあるけど見えなかったのかな

**デフォルトの名無しさん** · 2018/09/19(水) 18:52:28.00

>>207
いや、必要もないのに探す意味がわからないし
暇なの？