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/03/29(金) 08:21:18.11

捕まるとかそういう話に終始してるのがアホらしい。
トラブルになった時点で負けだろう。

スクレイピングでのトラブルは探せば色々見つかるだろう。

時間割アプリの問題とかLinkedInとか。
殆どがコンタクトを取っていれば防げた問題。
もっとも中には許可されないことが分かってて確信犯的に無断でする場合もあるが。

**デフォルトの名無しさん** · 2019/03/29(金) 13:03:28.66

【速報】金券500円分タダでもらえる　　　
https://pbs.twimg.com/media/D2y3uRaUkAAt6d9.jpg　　　　　
　
①タイムバンクをインストール　　　
iOS: https://itunes.apple.com/jp/app/%E3%82%BF%E3%82%A4%E3%83%A0%E3%83%90%E3%83%B3%E3%82%AF/id1253351424?mt=8　
Android: https://play.google.com/store/apps/details?id=jp.timebank　　
②会員登録　　
③マイページへ移動する。
④招待コード→招待コードを入力する [RirzTu]　

コードを入力した方に600円もらえます　　　　　
今なら更に500円ギフト券を貰った残高からただで買えます。　
貰ったギフティプレモはAmazonギフト券（チャージタイプ）に交換できます（電子マネー払いにて）　　　　
　　　　　　
数分で出来るので是非ご利用下さい　　

**デフォルトの名無しさん** · 2019/03/29(金) 17:02:06.83

>>334
関係ないのに永遠に続けるバカっているよな

**デフォルトの名無しさん** · 2019/03/29(金) 18:38:03.39

>>336
残高マジで増えたwww　　　

**デフォルトの名無しさん** · 2019/03/29(金) 18:58:02.78

>>336
これを自分の招待コードに差し替えて拡散すれば勝手にポイントガッポガッポやで

**デフォルトの名無しさん** · 2019/03/30(土) 00:05:18.82

Cells(1, 1).Value = "〒111-222" & vbCrLf & "東京都新宿区XXXマンション" & vbCrLf & "西村ひろぽん"

のコードでセルに改行コード crlf　入りの文字列を入力し
Excelのセルの値をメモ帳に張り付けるとこんな感じになってました。

〒111-222

東京都新宿区XXXマンション

西村ひろぽん

crが余計に1つ多くvbcrlfの前に入ってしまいます。
コードでは入れていないのですが、なぜでしょうか？何か対策はありますか？

**デフォルトの名無しさん** · 2019/03/30(土) 00:46:09.75

>>340
コードの時点ではvbLfにすればいい

**デフォルトの名無しさん** · 2019/03/30(土) 01:05:53.94

>>340
再現しなかった
vbcrが2つ入ってたらそうなるけど、ハテ

**デフォルトの名無しさん** · 2019/03/30(土) 02:01:07.03

VBAなんて全くできないんだけど
エンジニアってこれよりずっと難しいことやってるんでしょ？

**デフォルトの名無しさん** · 2019/03/30(土) 02:21:31.67

>>343
このスレは基本的に一般事務・経理・営業が、現在のルーチンを補助するためのツール作成がメイン
エンジニアはEXCEL自体を作るようなイメージ
でもvbaエンジニアもいたりするし、こういうツールを作る事を生業にしている業者もある

**デフォルトの名無しさん** · 2019/03/30(土) 03:03:59.52

>>340
Cells(1, 1).Value = "〒111-222" & vbLf & "東京都新宿区XXXマンション" & vbLf & "西村ひろぽん"

セル内改行はLFのみだよ

**デフォルトの名無しさん** · 2019/03/30(土) 03:59:45.09

>>339
スパム拡散させようとすんなカス

**デフォルトの名無しさん** · 2019/03/30(土) 07:57:38.98

>>341
はい、確かにVBAで挿入する時には
それでうまくいきました。
セルの値をコピーすると

文字列lf →文字列crlf に置き換わってました。

なぜだろう。

>>342
いや、再現しますよ。

>>345
サンクス。
とりあえずVBAではおまじないと覚えておきます。

**デフォルトの名無しさん** · 2019/03/30(土) 08:04:35.59

素直に

Cells(1, 1).Value = "〒111-222"
Cells(2, 1).Value = "東京都新宿区XXXマンション"
Cells(3, 1).Value = "西村ひろぽん"

じゃダメだったのかい!

**デフォルトの名無しさん** · 2019/03/30(土) 08:43:12.88

>>347
試してみたら
CR → CRLF
LF → CRLF
となった。
つまりCRもLFも別個にCRLFに変換されてしまうようだ。

**デフォルトの名無しさん** · 2019/03/30(土) 09:05:05.65

>>349
それOS依存だろ
OSに合わせて変換だと思った

**デフォルトの名無しさん** · 2019/03/30(土) 09:13:46.28

vbNewLineが颯爽と登場

**デフォルトの名無しさん** · 2019/03/30(土) 09:55:31.40

お母さんからvbNewLineを使いなさいって言われてるから初心者の俺も使ってるわ

**デフォルトの名無しさん** · 2019/03/30(土) 10:59:51.98

crとlfを意識して使い分けたいから、newlineはあえて使わないな

**デフォルトの名無しさん** · 2019/03/30(土) 11:00:14.19

android版はVBA使えないしMacなんか使わないからvbCrLfで困らない

**デフォルトの名無しさん** · 2019/03/30(土) 11:38:26.16

本日の戦い

vbNewLineでよくね派
　　　　　vs
vbNewLine使うと余計に混乱してしまう派

**デフォルトの名無しさん** · 2019/03/30(土) 12:05:31.96

>>352
vbNewLineてテキストの改行だろう
セル内改行とは違うじゃんか

**デフォルトの名無しさん** · 2019/03/30(土) 12:07:01.20

>>355
初心者を扱うの大変なんだよな
だから混乱が起きた

**デフォルトの名無しさん** · 2019/03/30(土) 12:08:46.76

>>356
どうでもいいよ　どうせ

**デフォルトの名無しさん** · 2019/03/30(土) 12:42:55.38

そもそも何でCRとLF、2つも作ったんだろ。
見えないのもうざいから、ワードみたいに

　　|
　　|
←┘

こういうの入れとけよな。

**デフォルトの名無しさん** · 2019/03/30(土) 12:51:14.77

>>348
ダメ

>>349 >>350
変な仕様だよね

**デフォルトの名無しさん** · 2019/03/30(土) 13:21:22.36

>>359
歴史ってとこ
https://ja.wikipedia.org/wiki/%E6%94%B9%E8%A1%8C%E3%82%B3%E3%83%BC%E3%83%89

統一規格の概念が希薄だった時代にみんな好き勝手作って、それがずっと続いてる
最悪

**デフォルトの名無しさん** · 2019/03/30(土) 13:34:00.20

タイプライターとかMulticsとかの時代にさかのぼる負の遺産だからね

**デフォルトの名無しさん** · 2019/03/30(土) 13:43:10.56

>>359
> そもそも何でCRとLF、2つも作ったんだろ。
その話をするとタイプライターの時代まで遡るからとりあえずそう言うもんだと覚えておけばいいよ

**デフォルトの名無しさん** · 2019/03/30(土) 13:47:06.57

>>340
Excelは何も置き換えてない
Excelがセル内改行として扱うのはLFだけ
CRLFを突っ込んでもCR部分はただの見えない文字として存在してるだけで改行しない

セルの文字列をコピペした時CRLFのうちLFがCRLFに置き換わってCR CRLF状態になる（Windowsの場合。他は知らん）
それをCRを改行として扱うテキストエディタとかに貼ると両方改行して6行になる
俺の使ってるメモ帳はCRとLFは改行として扱われず見えない文字になるが、バージョンによるのか

**デフォルトの名無しさん** · 2019/03/30(土) 22:50:12.86

こんなの見つけた
http://tooljp.com/windows/chigai/html/Windows/vbCrLf-vbLf-vbCr-vbnewline-chigai.html

**デフォルトの名無しさん** · 2019/03/30(土) 22:52:52.36

続き
ここに、こんなの書いてある

秀丸エディタでは、改行が chr[10]でもchar[13]+char[10]でも自動で判定して表示するようです。
一方でWindows標準のメモ帳では改行はchar[13]+char[10]固定であるため、linux などchr[13]を改行とした
テキストファイルを表示すると改行せずに表示されます。

**デフォルトの名無しさん** · 2019/03/30(土) 22:55:39.71

つまり、メモ帳は、CrLｆセットでないとダメだって

**デフォルトの名無しさん** · 2019/03/30(土) 23:04:27.71

>>367
というかWindows標準がCRLF
秀丸やサクラエディタが融通を効かせてくれてるだけ

**デフォルトの名無しさん** · 2019/03/31(日) 01:25:13.65

プログラミングやると文字コード鬱陶しいよな

**デフォルトの名無しさん** · 2019/03/31(日) 02:24:23.24

webの文字コードは更にキツイ
最近大分マシになったけど

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

秀丸エディタとか今でも使ってる人なんているの？
久しぶりに名前を聞いた

**デフォルトの名無しさん** · 2019/03/31(日) 07:02:58.77

>>371
お前はなにを使ってるの？

**デフォルトの名無しさん** · 2019/03/31(日) 09:25:24.80

新バージョンの
禿丸ツルピカなら使ってる

**デフォルトの名無しさん** · 2019/03/31(日) 09:32:08.99

TeraPad でも、改行コードを指定できる

ただし、TeraPadは、新しめの文字が?? になってしまう

中国の地名の「深圳」とか

**デフォルトの名無しさん** · 2019/03/31(日) 09:43:08.67

>>372
VS

**デフォルトの名無しさん** · 2019/03/31(日) 11:13:47.65

MacはCr、Unix/LinuxはLf、WinはCrLf

**デフォルトの名無しさん** · 2019/03/31(日) 14:47:15.91

>>359
元はテレタイプのコードだからね

テレタイプではCRでカーソルを行頭に復帰
LFでカーソルを行送りとなり合わせて改行になる

CRだけではカーソルが行頭に復帰するだけで行は変わらない
LFだけではカーソルが次の行に送られるだけで桁位置は変わらない
こういう仕様だった

**デフォルトの名無しさん** · 2019/03/31(日) 16:38:53.91

文字コードといえばワード・パワポもエクセル連携の観点では曲者
段落区切りの改行がCR、段落内改行がVTになるからな
単純な文字列貼付でいけると思ってると見事にハマる

**デフォルトの名無しさん** · 2019/03/31(日) 16:59:27.49

Windowsは、CrLfセットで改行なのに、>>340みたいになるっておかしいだろ

**デフォルトの名無しさん** · 2019/03/31(日) 17:05:24.30

>>379
CrLfだからそうなる
Excelの改行とWindows標準改行の扱いの違い

**デフォルトの名無しさん** · 2019/03/31(日) 18:57:30.32

>>359
キャリッジリターン、ラインフィードの2つの単語を覚えておこう。
どういう意味かは自分で調べてね。

**デフォルトの名無しさん** · 2019/03/31(日) 19:02:18.98

>>336
今日までか
貰ってアプリは消した　　　

**デフォルトの名無しさん** · 2019/03/31(日) 22:08:25.87

ラインフィード
→ラインがご飯を与える

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

キャリッジ・リターン復帰
ライン・フィード改行
CR+LF 復改

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

知識自慢

**デフォルトの名無しさん** · 2019/04/01(月) 09:33:56.36

>>385
昔はプリンタで普通に使ってたぞ

**デフォルトの名無しさん** · 2019/04/01(月) 09:34:13.23

>>385
昔はプリンタで普通に使ってたぞ

**デフォルトの名無しさん** · 2019/04/01(月) 09:34:33.41

>>385
昔はプリンタで普通に使ってたぞ

**デフォルトの名無しさん** · 2019/04/01(月) 10:54:00.54

爺さんの常識は今の非常識

**デフォルトの名無しさん** · 2019/04/01(月) 11:14:26.77

よくこんな話題で何日も盛り上がれるな
マウント取るにしても内容の程度が低すぎるでしょ

**デフォルトの名無しさん** · 2019/04/01(月) 11:17:49.51

別の話題

VBAのエディタしょぼくね？
VSの方がよっぽど開発効率がいい

**デフォルトの名無しさん** · 2019/04/01(月) 11:40:46.78

>>391
そりゃ作られたの20年前でレガシーもいいとこだからな
だいぶ昔からdeprecatedフェーズだからどれだけ要望があろうと改善されることもない

**デフォルトの名無しさん** · 2019/04/01(月) 14:11:47.96

>>392
Exce2010の時と比べても
VBAエディタな～～んも機能改善されてねー

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

>>393
そもそもレガシーでありMS的には使ってほしくない機能なんだから、
不便すぎてユーザーが減っていくことがまさに「改善」なんだよ
気に入らないのはわかるが古いものを新しくしていくっていうのはそういうもの

**デフォルトの名無しさん** · 2019/04/01(月) 16:18:15.03

企業が年寄の使用を嫌うのと同じかw

**デフォルトの名無しさん** · 2019/04/01(月) 21:40:54.00

それでも利益的には無視できないだろう
もし切るならとっくに切ってる
別に移行するにも何にどう移行するのか?
lotusも無くなったからそんなに恐れる必要も無いけど
free系officeも敵ではないだろうし
狙いはcloud系か何かなんだろうけど
開発の人はどうにでもなるだろうけど
excelvbaは素人系だからなぁ

**デフォルトの名無しさん** · 2019/04/01(月) 21:53:42.68

古いExcelを令和対応させるVBA作ってください！！

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

If Cells(1 ,1) > 43585 Then wstrGengo = "令和"

**デフォルトの名無しさん** · 2019/04/02(火) 00:18:55.85

>>397
マイクロソフトがパッチだすのまて

**デフォルトの名無しさん** · 2019/04/02(火) 00:31:35.68

まぁ日付形式で書いてりゃいずれ対応するべ

**デフォルトの名無しさん** · 2019/04/02(火) 02:17:49.89

VBAで簡単な入金管理作った
経験あるんだけど
VBAでちょこちょこ
するだけでいい仕事って就けるもん？

**デフォルトの名無しさん** · 2019/04/02(火) 02:32:45.56

>>401
面接でそういえばいい

**デフォルトの名無しさん** · 2019/04/02(火) 08:35:03.23

VBA 求人東京
で調べたら月給50万とか80万とか
出てくるけどほんまなん？

**デフォルトの名無しさん** · 2019/04/02(火) 09:24:24.65

>>403
本当だけど
それガッツリとしたVBAエンジニアだよ
多分gitかTortoiseSVN辺り使うはず

【フリーランス】Excel/Access-VBA | 開発知見がある方！システムサポート業務
仕事内容
基幹システム/部門個別システム支援（運用、問合せ、J-SOX対応等）
部門内インフラ管理支援、エンドユーザIT支援、業務用ツール開発
給与

**デフォルトの名無しさん** · 2019/04/02(火) 21:44:59.43

>>403
別にVBAでも普通ある。
けど、面接して採用される奴は他にもスキルがあるか、それなりに出来る奴だろうな。

gitや、SVNについては必ずしもってところだろう。
もっとも、VBAのコードを管理するためにgitやSVN用のツールをVBAで組む程度はやれる或いはやってるだろう。

**デフォルトの名無しさん** · 2019/04/02(火) 23:38:38.44

1989/1/7　→　昭和64年1月7日
1989/1/8　→　平成1年1月8日
2099/1/1　→　平成111年1月1日
3000/1/1　→　平成1012年1月1日

試してみたらこうなった。
令和がまだ入ってないのは分かるが、
1000年後も普通に平成だとは思わなかったわ。

**デフォルトの名無しさん** · 2019/04/02(火) 23:44:03.27

>>406
どうせならOSとEXCELのバージョンかけや

**デフォルトの名無しさん** · 2019/04/02(火) 23:45:56.37

>>406
https://dotup.org/uploda/dotup.org1812346.jpg

**デフォルトの名無しさん** · 2019/04/02(火) 23:47:51.13

>>407
どちらか片方ならわかるが、何で両方?
組み合わせで変わるもんじゃないだろう。

**デフォルトの名無しさん** · 2019/04/03(水) 01:37:48.37

>>409
MSはそんな思い込みが通用するほど甘い相手じゃない

**デフォルトの名無しさん** · 2019/04/03(水) 02:13:34.41

>>406
江戸もでないし

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

こういう思い込みをする奴が新年号対応に莫大な人工が掛かる糞システムを作るのである

**デフォルトの名無しさん** · 2019/04/03(水) 03:14:27.06

>>411
シリアル値は1900年から
明治までしか対応できない

**デフォルトの名無しさん** · 2019/04/03(水) 07:43:03.53

Windows 10・WSL・Ubuntu 16.04 の設定ファイルでは、

+:2:1990/01/01:+*:平成:%EC%Ey年
+:1:1989/01/08:1989/12/31:平成:%EC元年

+:2:1927/01/01:1989/01/07:昭和:%EC%Ey年
+:1:1926/12/25:1926/12/31:昭和:%EC元年

+:2:1913/01/01:1926/12/24:大正:%EC%Ey年
+:2:1912/07/30:1912/12/31:大正:%EC元年

+:6:1873/01/01:1912/07/29:明治:%EC%Ey年

+:1:0001/01/01:1872/12/31:西暦:%EC%Ey年
+:1:-0001/12/31:-*:紀元前:%EC%Ey年

**414** · 2019/04/03(水) 07:55:00.58

明治6年(1873)から正しい

それ以前は太陰太陽暦(旧暦)だから、西暦とは異なるから、日本の暦は使えない

**デフォルトの名無しさん** · 2019/04/03(水) 12:14:49.07

Excel2013以降ならこれで行けると思う

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras]
"2019 05 01"="令和_令_Reiwa_R"

**デフォルトの名無しさん** · 2019/04/03(水) 20:18:32.12

2013ってOSどこからサポートしてたっけ

**デフォルトの名無しさん** · 2019/04/03(水) 20:25:25.63

そんなのググったらすぐ出るだろう…

**デフォルトの名無しさん** · 2019/04/04(木) 00:26:33.22

新元号は「安平」であります。
https://dotup.org/uploda/dotup.org1812320.jpg

**デフォルトの名無しさん** · 2019/04/04(木) 02:37:49.53

あ
ほ

**デフォルトの名無しさん** · 2019/04/04(木) 09:42:49.96

>>416
これは、Office各バージョンで共通で使えるしExcel・Word等でも使えるね
他のアプリでも使えるんじゃない

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

>>416
これは、Windowsのカレンダーに対して日本用の設定を追加してるだけだから
Windowsの標準コントロールのカレンダーを使用して正しくコーディングしていれば
この設定をするだけで対応できるだろ
これを「令和登録.reg」のファイルにして管理者モードで実行するだけだね
--下記--
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras]
"2019 05 01"="令和_令_Reiwa_R"

**デフォルトの名無しさん** · 2019/04/04(木) 10:47:09.88

VBAでfor nextで回しているときにworksheetfunction.vlookupを使っているのですが
値が存在しないときにエラーが出て止まってしまいます。
こんなとき存在しない時は処理を回避するにはどうしたらいいですか？
On error resume nextにすると、エラーのときにも処理をしてしまいます。

**デフォルトの名無しさん** · 2019/04/04(木) 10:56:05.80

application.vlookup

**デフォルトの名無しさん** · 2019/04/04(木) 11:06:48.53

>>423
On error resume next　はエラーを無視して続ける
On error go to XXXX でえあらーが出たらそっち行け

**デフォルトの名無しさん** · 2019/04/04(木) 11:17:40.01

>>425
vlookupで見つかったらA処理、見つからなかったらB処理、をそれぞれさせる場合
どうするの？

**デフォルトの名無しさん** · 2019/04/04(木) 11:18:13.34

そっち行けのあと、ちゃんとfor nextループに復帰しないといけない。

**デフォルトの名無しさん** · 2019/04/04(木) 11:27:09.76

値が存在するか確認してからvlookupでもOK

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

>>427
基本的にgo toの行先はループ内だな
で、正常の場合はそのルーチン内で飛ばす、また共通で使用できる部分はそのまま使う
それぞれ複雑になる場合は、外部呼出しで処理

**デフォルトの名無しさん** · 2019/04/04(木) 12:40:19.97

簡易だけどこんな風でよろしいか。

On Error Resume Next
For i=0 To lngRW
varValue=WorksheetFunction.Vlookup(～)
If Err.Number=(見つからない) Then
'B処理
Err.Clear
ElseIf Err.Number=0 Then
'A処理
Else
Debug.Print "想定外:" & vbCrLf & Err.Description
EndIf
Next i
On Error Goto 0

**デフォルトの名無しさん** · 2019/04/04(木) 13:14:42.92

こうじゃないの

On Error Goto err
For i=0 To lngRW
varValue=WorksheetFunction.Vlookup(～)
'処理
err:
Next i

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

>>431
一般的に書くと以下だけど、処理は複雑なら外部ファンクションで

On Error Goto err
For i=0 To lngRW
varValue=WorksheetFunction.Vlookup(～)
[正常処理]
Goto 共通
err:
[err処理]
共通:
[共通の処理]
Next i

**デフォルトの名無しさん** · 2019/04/04(木) 13:50:38.20

>>432
あぁそうか、その形だスマン

エラー番号を見たり外したりで分岐させる方法が合ったと思うけど、
あれってどうなのかな

**デフォルトの名無しさん** · 2019/04/04(木) 14:26:57.06

Dim Rc As Variant

For I = 1 To 10
Rc = Application.VLookup(～)
If IsError(Rc) Then
　　'B処理
　　Debug.Print "Err"
Else
　　'A処理
　　Debug.Print Rc
End If
Next