Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

2017/05/16(火) 08:24:45.78

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※前スレ
Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1489557874/

※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/05/30(火) 13:14:12.67

>>356
正確に言い過ぎると微妙な案件だと思って濁し気味なのですが、貰っているデータというのは
プロ野球のデータ提供サービスのBISと言われるデータ提供会社のcsvで
『自分』というのは自分の会社で使っている野球中継用のソフトとなります。
（野球中継用のソフトもcsvでデータを賄っているのですが、当然フォーマットが違うので
貰ったデータをもとに普段は手入力しています。）

>>357
確かに膨大というのはSEさん達からしたら笑ってしまうレベルの数なのでしょうが
限られた時間（集合時間から試合開始までの時間）で手入力で間違いなく必要項目を入力するという問題なので
プログラムにまかせて一括変換できるのなら、間違いも少ないでしょうし、オペレーターの習熟度に左右されずに仕事につかせやすいので、
非常に有益な事だと思ったのです。

本来なら仕様を出して、プログラム作ってもらえば済むことなのかもしれませんが
自分の所で使っている野球ソフトも仕様変更でcsvの項目順番とかずれる可能性もありますし、
提供してもらっているデータも仕様変更とかで順番ずれたりした時に毎回発注とかしたくないので
急ぎではないし自分で作れる様になりたいなと思って相談させてもらいました。

2017/05/30(火) 13:29:23.00

必要なデータ抽出して、並び替えて、別ソフト用のCSVに変換するってことかな？
エクセルでもできるだろうけど、自分ならC#かPowerShellでつくるな
エクセルを介す必要性がないからわざわざ使いにくくてめんどくさいVBAでやることもない
初心者にはちょうどいいお題だと思うからプログラム作ってみたらいいと思うよ

2017/05/30(火) 13:57:11.50

どなたか助けてください

ブック内の約200シートを全て個別のcsvファイルに保存したいのですが、
うまくいきません。
エクセルファイルと同じフォルダにシート名＋".csv"という名前の
CSVファイルを作成することが条件です。

ググって
下記は出てくるのですが、実行してもエラーが出てしまい
CSVにはき出すことが出来ません。
(こちらの環境がMacだからなのでしょうか？)
どこを修正すれば正しく、csvにはき出せるかご教示ください！

Sub SaveCsv()
Dim mySheet As Worksheet
For Each mySheet In ActiveWindow.SelectedSheets
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "¥" & mySheet.Name & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Next
End Sub

エラー文
実行時エラー '1004':
'Sheet183.csv' にアクセスできません。

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/30(火) 14:01:00.02

>>358
Excel + VBAでいいんじゃない？

>>360
これ？
http://darumaexcel.uijin.com/info/pause.html

2017/05/30(火) 14:21:24.38

>>361
ありがとうございます！
ただ直しても同じエラー分が出てしまいます。。。

2017/05/30(火) 14:27:48.25

>>358
AccessなりSQL Serverなりのデータベースソフトでcsvのインポートを試行錯誤してみればすぐに出来るようになる。

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/30(火) 14:43:31.52

>>362
SaveAs行の前に、mySheet.Selectを追加してみて

2017/05/30(火) 14:53:27.61

>>364
できないですね、、、

実行時エラー '1004':

‘選択中のシート名.xlsx' にアクセスできません。

と表示されます。

2017/05/30(火) 15:14:30.20

>>355
perl PHP 辺りが簡単だし便利なモジュールも沢山ある

2017/05/30(火) 15:19:43.12

>>355
sqlite3と
firefoxのsqlite3用アドインとかと
SQL言語を使う方法もある

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/30(火) 15:35:45.48

>>365
Excelのバグですかね。

2017/05/30(火) 15:40:39.49

単なる当てずっぽうでCSVファイル作成前に同名のcsvファイルが既にあるんならそれを消すなりリネームするなりしてるか？

2017/05/30(火) 15:44:54.03

数MB程度のテキストデータならピボットでいいと思うが

**355** (ﾜｯﾁｮｲ fbf3-w2wH) · 2017/05/30(火) 16:21:56.98

みなさん沢山のアドバイスありがとうございます。
言語的にはどれとってもほぼ確実にできるけど、道が沢山ありすぎる状態なんですね。
関数電卓のBASIC程度しかかじっていない軟弱な頭にはどれがとっかかりやすいモノなんでしょうか・・・

2017/05/30(火) 16:40:48.70

>>369
空フォルダなのでファイルは存在してないんですよね、、、

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/30(火) 18:10:35.56

>>371
Excelだったらすぐに試せるだろ
すぐやれ

2017/05/30(火) 19:06:30.89

>>360
ぐぐるんじゃなく自分で作れるようになると楽だよ
Sub foo()
Application.DisplayAlerts = False
For Each シート In ThisWorkbook.Worksheets
シート.Activate
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & シート.Name & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Next
Application.DisplayAlerts = True
End Sub

>>371
エクセル＋vbaがいい
諦めなければ絶対に完成する。諦めるな
わからなくなったらいつでもおいで

2017/05/30(火) 19:22:34.02

>>374
> 諦めなければ絶対に完成する。諦めるな
仕事でやってる人には最低のアドバイスだな

ニートのお前とは違うんだよ
仕事ってのは限られた時間の中で最大限の結果を求められる
少しでも人の役に立ちたい気持ちはわからないでもないけど
それ以前に自分がニートだっていう事実を忘れちゃいかんな
お前が本当に誰かの役に立ちたいのだったら
まず自分の身をわきまえ
そして相手の立場を理解するって事が何よりも大切な事だ
よく覚えておけ

2017/05/30(火) 19:26:38.95

>>375
まじでそう思う。

>>375
反省して
ソリューションはどこに記載？

2017/05/30(火) 19:47:55.75

>>375
じゃあ諦めて手作業で延々と作業しろってことか
効率的だな～

2017/05/30(火) 20:01:37.18

>>377
少しはわかったみたいだな
効率>>>>>>>>>>>>>>自己満足
仕事ってそういうもんなんだよ

2017/05/30(火) 20:09:38.66

まぁ実際、出来るかどうか分からないVBAよりも、手作業で確実に済ませるという場面は仕事してると出てくるな。
ただ件の話はルーチン業務のマクロ化についての話だから、多少時間が掛かっても挑戦する価値はある。

しかしながらごく一般的な悩みで、それを解決する手段が用意されているのでVBAに拘る必要がないのも事実。

2017/05/30(火) 20:11:24.56

マクロの腕上げてどんどん効率化したほうがいいと思うけどねぇ
会社行ってもすること無いから出勤時間減らしたわ

**355** (ﾜｯﾁｮｲ fbf3-w2wH) · 2017/05/30(火) 20:52:10.68

ありがとうございます。
取りあえずエクセル環境で動くとどの現場でも楽になるので
エクセルマクロでどうにか作ってみます。また、来ざる得なく成る様な気がするので
その時にまた相談に乗ってください。ありがとうございました。

2017/05/30(火) 21:03:04.18

Excelが必要でないならVBAよりはVBSscriptかな
VBScriptはExcel VBAにほぼそのまま持っていける
VBScriptやVBA扱いに慣れたらpowershell
いきなりpowershellでもいいけど前提知識が割と必要になる
powershellの良い入門書って見たことないし

2017/05/30(火) 21:48:33.00

>>378
余裕がどれくらいあるかによるけどね

2017/05/30(火) 21:50:18.98

>>374
まだ懲りずにfoo使ってるのニートさん
あ、NGしてないのバレちゃうｗｗｗ

2017/05/30(火) 21:56:44.25

>>379
ウチの会社の場合、マクロ書いてると「そんな暇があったら直接打ったらいいじゃん」と言われる。バカは手作業こそ
仕事だと思い込むもんなんだよな。

2017/05/30(火) 22:01:43.70

>>360
- ActiveWorkbook.Path & "\" & mySheet.Name & ".csv", _
+ ActiveWorkbook.Path & ":" & mySheet.Name & ".csv", _

こうじゃないかな？

2017/05/30(火) 22:03:50.22

>>360
Sub Example
MsgBox Application.PathSeparator
End Sub

これ実行すると多分￥じゃなくて：が表示されるはず

2017/05/30(火) 22:41:04.16

>>385
その場で言えよw

2017/05/30(火) 22:59:03.08

セルの書式を保持したまま変数に格納する方法ってありますか?
文字の一部分だけ太字とか、嫌がらせみたいなデータがあるんです。
Copy Destinationで別のシートに格納しろ、とかいうのはなしで。

2017/05/30(火) 23:26:10.83

格納だけならsetで簡単にできる
しかし他のセルにこれを適用しようとするとフリーズ。理由は知らん

割りと真面目に
＞Copy Destinationで別のシートに格納
したほうがいい気がする

Sub foo()
'A1の一文字目のフォント情報をB1二文字目に
Set bar = Cells(1, 1).Characters(Start:=1, Length:=1).Font
Cells(1, 2).Characters(Start:=2, Length:=1).Font = bar
End Sub

2017/05/30(火) 23:29:44.49

>>389
オブジェクトの変数へのコピーができないから無理。
見えないシートやワークブックを一時的に作って、Range.Copy じゃだめなん？

2017/05/30(火) 23:58:44.86

>>388
ああ、言ってる。でも延々と手作業でやって残業時間自慢してるヤツが殆どｗ

2017/05/31(水) 02:10:54.01

VBA初心者です。
今データの分析をしてるのですが色々な関数を使ってるシートをとりあえず10000くらいまでデータを作っておいてピポットテーブルで分析しています。
それだとデータが重くなりますが入力されたデータに行をオートフィルで追加することはできますか?
例えば
A列に日付 B列に店名 C列に商品名 D列に個数
を入力していて
列やG列に日付の関数で月やH列にVLOOKUP関数で店舗の種類の仕分けをしています
データを入力した行に関数が自動で追加できるようにするにはどうしたらいいでしょうか？

2017/05/31(水) 03:10:26.82

>>393
イベントを使うといいと思う
例えば４列目に入力があったら５～７列目がオートフィルされるようにするなら

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row > 3 And Target.Column = 4 Then
Range(Cells(Target.Row - 1, 5), Cells(Target.Row - 1, 7)).Select
Selection.AutoFill Destination:=Range(Cells(Target.Row - 1, 5), Cells(Target.Row, 7)), Type:=xlFillDefault
Target.Select
End If
End Sub

2017/05/31(水) 05:55:04.74

Excelの機能でやった方が良さそうに見えちゃうな
月で集計は列足さずにピボット側で日付をグループ化すればいいし
範囲の拡張はデータ範囲をテーブルにしておけばいいだけだし

VBAスレだしVBAでやりたいんならまあいいか

2017/05/31(水) 06:30:09.92

補助列作っとくのが最善だと思う
次点でピボットの集計フィールド追加

2017/05/31(水) 07:14:56.30

>データを入力した行に関数が自動で追加
したいだけなら、テーブルにすればいいのでは

Excelのテーブル機能の使い方まとめ
https://www.forguncy.com/blog/20161014_table
>一覧表の最終行の次の行にデータを入力すると、その上の行に入っている書式設定が自動で反映されます。計算式も自動で反映します。

2017/05/31(水) 11:34:55.36

イメージと

2017/05/31(水) 14:19:26.52

>>360だけど未だに出来ない、アドバイスいただいたものも全てダメしたけどダメ。
200枚ものシートをいちいち手作業でやらないといけないのか、、、

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/31(水) 14:38:23.24

>>399
Excelのバグじゃないというのは確認したか？
アプリケーションの更新とかが出てたりしないか？

2017/05/31(水) 14:40:32.00

>>400
エクセルのバグ確認の仕方を知らないので不十分かもしれないですが、
アプリケーションは最新なので、問題無いとおもいます。

2017/05/31(水) 14:44:29.80

>>360です
お騒がせしました、これでできたっぽい。
http://excel-magic.com/post-24/
<font color>のどこを修正すれば良いのか分からないので、ひとまず回して見ましたが途中で止めてCSVを200ファイルほど吐き出せました！

これを機会にVBAをちゃんと勉強しようと思いました、、、

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/31(水) 14:44:47.62

>>401
じゃ、マクロを記録しつつシートをCSVで保存してみて、生成されたコードを観察してみるとか。

今回1度きりの作業だったらあきらめて手作業でエクスポートするか、それが嫌なら他のQAサイトで
質問するとか。

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/31(水) 14:50:06.21

>>402
マジか・・・
何がいけなかったんだろうか・・・

2017/05/31(水) 15:23:51.75

>>402
うまくいきそうで良かった。
リンク先を見てる感じ、
ActiveWindow.SelectedSheets
ActiveWorkbook.Path
のどっちかがcsvを保存した時点でおかしくなってるのかなと感じる。

あと、<font color="#ffff00">と</font>はVBAには無関係なので、丸々削除してオーケー。
詳しく知りたければ、「htmlタグフォント」でググってみてね。

2017/05/31(水) 15:43:17.11

>>404
お忙しいところ、ご教示いただきありがとうございました。

>>405
なるほど、また使う事があると思うのでその部分を修正して、
ちゃんと使えるものになるようにいじってみます！

タグの件もありがとうございました！

2017/05/31(水) 18:16:14.53

>>355
エクセルvba以外を選べる環境があるなら選ぶ必然がないけどな
初心者向きに見えて初心者向きじゃないから
といまさら

2017/05/31(水) 18:54:55.73

＞初心者向きに見えて初心者向きじゃない
分かる

2017/05/31(水) 19:38:54.48

>>408
VBAしかやったことないから他の言語との比較ができないんだけど、一体どのあたりが初心者向きじゃないと感じるんだ？

2017/05/31(水) 20:03:43.86

>>409
とにかく変なルールや仕様が多すぎる
・まず前提条件として、エクセルについて理解する必要がある。仕事で使っていれば嫌でも覚えるけど、学生にとっては辛いところだろう
・標準モジュールが初期状態で存在しない。初心者が大きくつまずくのはここだろう。コードが思い浮かんでも、どこに書けばいいのかもわからない
・上記の続きで、スコープも変則的に見える。sheet1にコードを書くとなぜsheet2が見えないのか？はスコープ、privateやpublicの概念を先に知っておかないといけない
初心者からみたエクセルなんてどうみても全部publicなのにな
・まずシートをselectするかactivateしないと、rangeがselectできない。糞仕様です
・エラーが大雑把すぎる。
修正候補：式
って言われても、大抵の記述は全部式だろう。式のどの部分だよ
・
if
for i = 1 to 2
endif
これで出るエラーは「endifに対応するifがありません」そっちじゃねー！！！
・マクロの記録もあやふや。グラフやオートシェイプは記録したマクロを走らせるとエラーになる始末
他にもオブジェクトの塊なのにオブジェクト指向が全くなかったり、ダンプもできない、今更Bライクとかええやろ、など他にも色々あるけど

2017/05/31(水) 20:16:19.68

違う言語に対応できない初心者の愚痴で草

とりあえず何にでも文句言ってんだろうなって印象

2017/05/31(水) 20:43:19.50

なんか大部分がVBAじゃなくてエクセルの仕様な気が。

2017/05/31(水) 20:46:24.66

実際そこだと思う
エクセルに拘る理由が無いならVBAに拘る理由もないし

2017/05/31(水) 20:49:37.96

>>410
だいたいエクセルも知らんやつがなんでいきなりエクセルマクロやろうとしてんだよw

「エクセルvbaでプログラミングを学ぼう」みたいな風潮が諸悪の根源なんだよな
そういう意味では>>407の言うことにも一理あるわw

2017/05/31(水) 20:57:43.48

初心者向きやりたいならVB.netでもやりゃいいのよ

プログラム言語としては不親切極まりないのは間違いないだろ、VBAは
機能拡張も期待できないし
敷居は低いが不親切

2017/05/31(水) 21:14:12.59

プログラミングなんて、変に凝らなきゃそこそこの処理ロジックは誰でも作れるよ。

でも入出力が楽にできるGUIが欲しいとか、プログラムに食わせる制御データの管理を手軽にしたいとか、
日常使いのアプリとして便利にってなるとExcelになっちゃうんだよね。

2017/05/31(水) 21:20:34.89

>>411
一般事務のデファクトスタンダードなのにあまりに酷いとは思う
さすがにバージョンアップしてほしい。エクセルは進化してるけど、vbaはvb6.0以下だろう

>>414
エクセルもそもそも自由度が高すぎる。テーブルで大分機能的には落ち着いたけど、肝心のテーブルが使われていない
とりあえずセルの結合だけでも廃止してほしい

2017/05/31(水) 21:42:12.36

>>417
それはエクセルが優れてるからというより、ワードが糞過ぎるからワードの守備範囲までエクセルでカバーせざるを得ないだけだろう

2017/05/31(水) 22:00:18.50

ワードなぁ・・・ワードはずっと扱ってないよ。いくつかの会社の人に聞いたけど、やっぱりワードは糞

しかし唯一、日本を代表する金融企業の人と飲んだ時、その人が喜々として語っていた
その企業はエクセルもアクセスも使わず、資料は全てシステム部門に頼む体質
宴会や支店向けの広報をワードで一生懸命作る会社だったらしい

いいか悪いかはともかく、まぁ、日本の上層部は社会主義だ。

**デフォルトの名無しさん** (JP 0H4f-UmYi) · 2017/05/31(水) 22:01:17.27

>>417
自分もセル結合嫌派だけど、これまでセル結合で表現していた部分はどうするの？
個人的には、（選択範囲で中央）が水平方向だけでなく、垂直方向にもきけば満足だけど、、
現場の意向でどうしても使わないといけないことが多々ある。

2017/05/31(水) 22:12:44.56

>>420
・セル結合は機能自体なくす
・「選択範囲で中央揃え」的なものをもっと増やす
要するにとにかくセルと情報は1:1にする
その上で
・書式設定無し
機能があれば、
編集側、閲覧側に取っても幸せになるだろう

とにかく、作業中のデータとプリントアウト等の見せるデータ、これを抜本的に乖離しないと話にならない
とにかくセル結合が最初だ。

2017/05/31(水) 22:24:29.36

>>421
見せるためのデータをまた入力にするなんてバカなことをしなければ別にいいだろ
セル結合したって

2017/05/31(水) 22:28:56.46

>>422
＞見せるためのデータをまた入力にするなんてバカなこと
中小企業では普通にある。
もうええ、これに関しては突っ込むな時間の無駄だ

2017/05/31(水) 22:55:16.15

>>391
>>390
諦めてCopy Destinationします。
ありがとうございました。

2017/05/31(水) 22:55:23.97

そんな感じ

2017/05/31(水) 23:56:16.90

画面に表示されてるとおり印刷してくれ
俺の要望はそれだけだ

2017/06/01(木) 00:07:36.27

プリントスクリーンボタン

2017/06/01(木) 00:30:28.19

その手があったか!

2017/06/01(木) 00:37:46.47

>>402
お前毎回人の話聞かないクズなのな

2017/06/01(木) 00:38:42.21

>>405
セパレータの問題だって

2017/06/01(木) 00:39:34.14

＿人人人人人人人人＿
＞　突然の亀レス　＜
￣Y^Y^Y^Y^Y^Y^Y￣

2017/06/01(木) 00:47:31.72

>>431
4b19=ef8eだった

2017/06/01(木) 00:47:35.28

突然セパレータの話を持ち出しておいて「だって」とはwww

2017/06/01(木) 00:50:32.04

>>433
mac版で:じゃなくて\で動くの？ｗ
ソースは？ｗ

2017/06/01(木) 00:57:03.34

>>431
>>433
ﾜｯﾁｮｲの仕様変わったの？
ID:lGWBXgBz0この人UA部分がころころ変わってるんだけど
デフォルトの名無しさん (ﾜｯﾁｮｲ ef8e-9J/J)
デフォルトの名無しさん (ﾜｯﾁｮｲ ef8e-kjbA)
デフォルトの名無しさん (ﾜｯﾁｮｲ ef8e-c3sC)
デフォルトの名無しさん (ﾜｯﾁｮｲ ef8e-h4wC)

2017/06/01(木) 03:36:38.16

>>410
RangeをSelectする必要なんて普通無いだろう。
Selectする場合はSheetをActiveにするのも自然だろ。

何かおかしなこと言ってない?

2017/06/01(木) 05:02:21.03

>>436
おもた
“見せる”時以外使わない

2017/06/01(木) 07:00:00.45

>>436
select しないといろんな操作ができないって思ってるのかも
マクロの自動記録で覚えた奴にありがち

2017/06/01(木) 07:39:25.88

>>436
あんまり無いだろうね。これは俺の好み
Workbook_BeforeSaveで全sheetのcells(1,1)か、最終行に選択セルを持って行くことがよくあるんだ

2017/06/01(木) 07:58:39.77

取り敢えずのapplication.goto

2017/06/01(木) 08:15:30.82

わざわざシートのActivate/Selectメソッド使わなくても、シート.Range(Index).Selectで終わる話だろ
そんなにGlobal.Range使いたいんか？
Global.Rangeなんてほぼ使わないぞ俺は、コードの可読性下がるから

2017/06/01(木) 08:55:51.01

ごとーーー！

2017/06/01(木) 08:58:27.48

シートがアクティブになってないとセルのselectできない話でしょ

2017/06/01(木) 10:28:17.60

>>434
修正したけど出来ないってレスしてんじゃん
ちゃんと読んでからレスしなよwww

2017/06/01(木) 18:30:37.54

>>443
>>410は「シートをselectするかactivateしないと、rangeがselectできない」って書いてるよな
シートがアクティブになってないとRange.Selectが使えないっていう話をしてるわけじゃなくて、
シート.Selectメソッドかシート.Activateメソッドを使ってシートをActiveにしないとRange.Selectが使えないっていう嘘を言ってるんだぞ

2017/06/01(木) 20:31:16.93

>>445
念のために聞いておくが、何が嘘で、正解は何なのか教えてくれないか

2017/06/01(木) 20:53:27.07

どっちにしろSelectするかActivateすれば使えるんだろ？
たいした問題じゃねえよそんなの

2017/06/01(木) 22:54:42.48

文法的に納得いかないけど上手くいく不思議
Set Newbook = Worksheets.Add

2017/06/01(木) 23:25:19.57

むしろ参照を返さないAddの方が少数派では

2017/06/01(木) 23:30:05.12

>>441
そうですよね
http://i.imgur.com/c7ccxuI.png

2017/06/01(木) 23:30:45.71

>>448
どう納得行かないのか分からん

2017/06/01(木) 23:32:46.29

>>451
代入してんのか?実行してんのか?っていう。

2017/06/01(木) 23:33:10.29

Setだから代入ではないか。

2017/06/01(木) 23:34:35.43

>>452
戻り値を代入してる。特に違和感がないんだが

2017/06/01(木) 23:37:20.08

むしろ NewBook と言う変数名の方に違和感があるんだが...

2017/06/01(木) 23:47:19.51

個人的にはworksheet.copyが値返してくれないほうが納得行かない

2017/06/02(金) 00:18:14.15

>>456
その気持ちはよくわかる
その行を実行した直後はどの変数にも入っていないシートだからなんか不安になる

どうしても不安なときは先に新規ブック作っといてそこをコピー先にしてるけどね
それはそれで無駄なことしてんなあという気になる