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/26(金) 00:16:58.01

>>276
だってせっかくこれ言いたかったら間違えたのに
誰も突っ込んでくれないからさ
>RLもrlも混同してしまうマッチだけにｗｗｗ

2017/05/26(金) 00:24:41.93

Option Compare Gender

2017/05/26(金) 00:48:48.42

混同でマッチで喜ぶとかババァで草

2017/05/26(金) 06:10:08.78

>>257
そんなのただの推測に過ぎないだろ

2017/05/26(金) 08:11:41.20

>>257
そりゃそうだが、たまに意味わからん形式のログあったりするし
説明のしやすさに直結するだろ

**255** (ﾄﾞｺｸﾞﾛ MM3f-fCG8) · 2017/05/26(金) 08:38:47.74

いろいろな意見ありがとうございます
釣りではないですが正規表現で良さそうとは感じていました
ただ正規表現の書き方がわからなかったのと本当に正規表現が一番適した書き方かわからないのでああいう聞き方になりました
なんか混乱させてしまったようですみません

2017/05/26(金) 09:24:25.07

すまん俺も女だわ
髭そって会社いくか・・

2017/05/26(金) 09:50:48.59

正規表現が良いとは限らんよ。
構造を元にした固定の場所の方が良い場合もある。
だからデータの中から取り出したい値がどの様に配置されてるかが重要。

質問する時に出来ればそれを示して欲しかったね。

2017/05/26(金) 09:52:42.09

>>282
ごめん。
>>255で書いてあったか。
正規表現だね。

2017/05/26(金) 10:23:01.77

初心者です。
ユーザーフォームを最近覚えて作成中です。
中身はとりあえずメッセージBOXで工事中にしてユーザーフォームを凝ってみようと思うんですけど
いい見本とかありませんか？
アプリっぽく作ってシートへのハイパーリンクで満足しようかと思います。

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/26(金) 11:05:39.54

>>250
> 例えばUTF8の読み書きとか。
それは、ADODB.Streamを使うということであって、SQL（クエリ）を使うということじゃないよね。
故意になのか無意識なのかしらないけど、それを混同させてどうしたいのか。

2017/05/26(金) 19:27:53.93

>>286
イマイチ何がしたいかわからんが、
よく使われるもの、googleかamazon辺りを参考にしてみては

2017/05/26(金) 19:40:01.56

昨日正規表現で質問したものです。
リファレンスブックを読みながら正規表現で[,\s]R[,\s$]ってな感じで検索して
マッチした数値＞０で分別ってプログラムを組んだのですが、一つ問題が…
取得した文字列の最後が,Rとなっていたときに反応しないです…
正規表現としてはこれであっていると思うのですが何か勘違いしてるんでしょうか？

2017/05/26(金) 20:03:21.45

>>289
こうだとうまくいく
[,\s](R[,\s]|R$)

[]内に$はダメなんかね

2017/05/26(金) 20:07:54.29

>>289
文字列の最後としての $ は文字じゃないから [ ] の中には入れられない
（入れると文字としての $ と見なされると思う）

> 名前の判別でRかLのはいったやつを分けるマクロが書きたいんですがRとLは,かスペースに挟まれてるか最後一文字です

これちょっと曖昧
",R," とか " R " はいいとして " R," とか ",R " もいいのか？
とりあえずいいとしてスマートかどうかを問わなきゃ
"(?:[\s,][LR][\s,].*|\s[LR])$"
辺りでどうか

2017/05/26(金) 20:08:59.71

>>289
勘違いしてます

([,\s][R][,\s]?$)

あとそれだと、,R,だけじゃなくて,R_みたいなのも反応するけどいいの？
って聞いたんだけどお前全然人のレス読んでないのなｗ

2017/05/26(金) 20:19:12.02

質問者　>>255　(ﾄﾞｺｸﾞﾛ MM3f-fCG8)　ID:iQOaaYC+M
回答者　>>291　(ﾄﾞｺｸﾞﾛ MM3f-ijLw)　　ID:I1+YwiguM

やはりお姉さんの言った通り（>>266）釣りだった感

2017/05/26(金) 23:27:30.93

回答ありがとうございます
[]内に$は受け付けないんですね…
,R_は信じがたいことにそう入力されてるデータを見つけてしまったので分別に必要です。
なんか荒れに荒れてる感じですいません…
とりあえず私は質問しかしてません

2017/05/26(金) 23:32:22.16

荒れてないから大丈夫
ただそろそろスレから退散した方が、不愉快な思いをしなくて済むとは思う

2017/05/27(土) 01:01:00.58

>>294
もう解決したんでしょ？バイバイ

2017/05/27(土) 01:04:32.39

嘘つきは泥棒の始まり

2017/05/27(土) 01:37:01.15

ほらねｗ

2017/05/27(土) 11:48:01.37

>>287
ああ、すまん。
俺は>>233でADOの観点で絡んでた。
確かに元々の話は何故SQLって話だね。

2017/05/27(土) 16:06:04.75

では次の方どうぞ

2017/05/27(土) 21:40:12.40

>>253
使えるってだけだよ。
Schema.iniを使わないと、
勝手に型を決めやがるから、物凄く使い勝手が悪い。

2017/05/27(土) 22:24:03.65

マの特技：あらさがし

2017/05/27(土) 22:53:30.64

当たり前だ
その技術がなければバグだらけのコードになる

2017/05/27(土) 23:19:58.15

だがならない

2017/05/29(月) 06:22:57.97

$$$4.3$$$
"V"="1.3335412","0","1","3Q",

2017/05/29(月) 19:34:45.91

マクロ初心者ですが質問させてください。
Sheet1のB1-B16000の文字列を同じファイル内の新規シートに
699列毎コピーしたいです。

ググって下記まで作ったのですがエラーが出ます
いかんせん知識が無いため、何が間違っているのか分からないです。
どこを修正すればいいのかご教示いただけますでしょうか。

Sub マクロの記録改()
　 Dim n As Long '変数の定義
　 For n = 1 To 15206 Step 699
　　 Sheets("Sheet1").Select '元シートの「Sheet1]を選択
　　 Application.Goto Reference:="R" & n & ":R" & n + 699
　　 Selection.Copy 'コピー
　　 Sheets.Add 'シートを追加
　　 ActiveSheet.Paste '貼り付け
　 Next n
　 Application.CutCopyMode = False 'コピーの解除
End Sub

2017/05/29(月) 19:48:29.74

>>306
とりあえず走らせたけどエラーでなかったよ
どこで出るの？

そもそも何をしたいの？
元々あるのはsheet1だけとして
sheet2のA1にB1-B699貼り付け
sheet3のA1にB700-B1399貼り付け
ってこと？

2017/05/29(月) 19:59:34.93

>>307
699毎なのでB700-B1398じゃね？

2017/05/29(月) 20:27:18.52

失礼しました
説明が間違ってました。
エラーではなくて、A行もコピーしてしまうのでB行をA行にコピーしたいです。
まさに、>>307-308さんの言ってることをやりたい形です！！

ちなみに別bookにコピーする場合は、
どういった記述にすれば良いのでしょうか？

2017/05/29(月) 20:40:52.02

>>309
A列に貼るようにするなら
"R" & n & "C2:R" & n + 699 & "C2"
に変えるだけかな

2017/05/29(月) 20:52:28.37

>>309
こんな感じかねぇ
http://www.dotup.org/uploda/www.dotup.org1264912.zip.html

Sub foo()
'setで参照を作成しておく
Set コピー元シート = ThisWorkbook.Sheets("main")
Set コピー先ブック = Workbooks.Open("./copy.xlsx")
'何行ごとか
処理行数 = 699
'ループ
For i = 1 To 21
Set コピー先シート = コピー先ブック.Sheets.Add(After:=Sheets(Sheets.Count))
'コピーでもいいけど、あえてvalueで処理。どっちでもいい
For k = 1 To 処理行数
コピー先シート.Cells(k, 1).Value = コピー元シート.Cells(k + (i - 1) * 699, 2).Value
Next
Next
End Sub

2017/05/29(月) 20:53:24.05

そういや昔はsetがさっぱり意味不明だったな
今は普通に使えるけど、なんだったんだろう

2017/05/29(月) 21:01:49.00

>>312
ま、やらしぃ

2017/05/29(月) 21:12:47.40

>>313
sexじゃないよ＞＜

2017/05/29(月) 21:15:07.23

>>314
今は普通に使えるsexとか

2017/05/29(月) 22:00:26.21

>>311
だからfooを使うんじゃねえｈｇ

2017/05/29(月) 22:02:15.89

>>316
理由教えてくれよ
理由がなければ使い続けるぞ。名前考えるの一番めんどくさいからな

2017/05/29(月) 22:15:25.36

毛を吹き飛ばされるかんじがするんじゃないの？

2017/05/29(月) 22:23:14.52

俺ルールに違反してんだろ？スルーしろよ

2017/05/29(月) 22:31:37.50

俺ルールかっけー！

2017/05/29(月) 22:34:37.05

>>317
>名前考えるの一番めんどくさいからな
代わりにわたしが考えたよ
hogeでよろ
これでもう考える必要ないよ

>>318
そうです
>>319
生理的に無理

2017/05/29(月) 22:38:31.20

ピリピリしてるハゲってなんていうか、微笑ましいよな
ハゲ好きだわーオレ、なりたくねーけど

2017/05/29(月) 22:56:21.54

>>321
hogeがfooにまさるメリットとは？
先にfooのメリットを書くと、
・文字数が少ない
です

2017/05/29(月) 23:01:15.36

>>323
じゃあ　f　だけにして
・文字数が少ないよ

2017/05/29(月) 23:04:09.54

>>324
fooは慣例の単語
それを不必要に削ると無駄な間違いが増える
揚げ足取りしか出来ないなら使い続けるね

2017/05/29(月) 23:05:06.76

そもそもhogeとfooが何なのか分からん。
C言語のスタジオえっちみたいなものですか?

2017/05/29(月) 23:06:16.47

>>325
Sub foo()
としか使ってないのに、なんの間違いが増えるの？

2017/05/29(月) 23:08:06.88

>327
名前が被る

2017/05/29(月) 23:08:08.96

4～3月の売上をまとめて円グラフで描画したいんですがどう描けばいいのかわかりません
そもそも各月の売上をまとめて円グラフで描画しようとするのが間違いでしょうか？

2017/05/29(月) 23:10:27.21

ﾋｿﾋｿ( ﾟдﾟ)ﾔﾀﾞｧ(ﾟдﾟ )ﾈｪ､ｷｲﾀ?( ﾟдﾟ)ｵｸｻﾝ(ﾟдﾟ )ｱﾗﾔﾀﾞﾜｧ　ﾊｹﾞﾃﾙﾉﾆExcelﾂｶｯﾃﾙﾝﾃﾞｽｯﾃ! ｼﾂﾚｲｼﾁｬｳﾜﾈ

2017/05/29(月) 23:10:38.64

>>329
はい
扇風機なら夏、おもちゃなら必ず12月が伸びるので毎年同じ形になる円グラフは向いていません
折れ線グラフで前年度、その前の年度を重ねて昨年度対比にするとわかりやすいと思います

2017/05/29(月) 23:21:33.31

>>328
被ってるのお前のあそこだろ

2017/05/29(月) 23:23:51.96

>>332
結局「なんとなく嫌い」以上の理由が一切ないの？
申し訳ないがそれでは従う気にはならないなぁ

2017/05/29(月) 23:25:30.91

Sub fooをNGにした

2017/05/29(月) 23:29:17.49

>>333
ところで何であなたﾜｯﾁｮｲの後半部分ころころ変わるの？

2017/05/29(月) 23:33:39.65

>>334
だから何ｗｗｗ

>>335
知らないよ。プロバイダはio光。別に回線を繋げなおしたりはしてないよ

2017/05/29(月) 23:55:50.00

>>336
eoだろ
無駄な間違いが増えるとか言ってる割に2文字すら間違えるっていうｗｗｗ

2017/05/29(月) 23:56:19.54

これからは Sub foo()って書いとけば馬鹿避けになるのね。了解!!

2017/05/29(月) 23:56:51.93

>>337
(ﾉ∀`)ｱﾁｬｰ
Sub fooをNGにしてるなら>>336は本来見えないはずだけど、連鎖NGしてないの？
連鎖NGしないとNGの意味がないからさっさと設定しようね
透明あぼーんがオススメだよ

2017/05/30(火) 00:02:35.81

>>338
という結論以外でなかったね
大体予想してたけど、無意味な結論にたどり着くというのも有意義なことだ

2017/05/30(火) 00:05:37.88

>>339
効いてる効いてるｗｗｗ

2017/05/30(火) 00:09:03.85

>>341
実は>>337でひっかかることを予想して>>339は>>336の直後に書いてたんだよ
ほんとは>>337の5秒後以内に書き込みたかった。リロードしてる内にめんどくさくなった
1分空くと後付っぽい？

2017/05/30(火) 00:09:14.81

>>340
同意する

ID:YdL4iPz30
さよなら。
また来世でな

2017/05/30(火) 00:11:22.34

>>342
悔しいの？ｗｗｗ
後付けかどうかより
>リロードしてる内にめんどくさくなった
お前は面倒発言ばっかりだなｗｗｗ

2017/05/30(火) 00:12:08.17

>>344
vbaなんて仕事が面倒くさいから習得するもんだろう
それ以外なんかあんの？

2017/05/30(火) 00:13:23.62

>>345
vbaじゃなくてVBAってちゃんと大文字で書け

2017/05/30(火) 00:16:18.61

>>339を>>337の数秒後にレスできたら完璧だったんだけどなぁ
これはちょっと悔しかった。予想以上にレスが遅かった。見え見えの釣りに飛びつくと思ったら2分もかかるとは
俺の実力も足りんし、忍耐力も足りなかった
申し訳ない

>>346
なんのために？vbaって書いてそれで誰か損してるの？
じゃあ書いてやるよｗｗｗVBA！VBA！満足かｗｗｗ

2017/05/30(火) 00:17:08.32

>>347
満足したありがとう

2017/05/30(火) 00:17:13.63

だから>>347が見えるってことはNGにしてないってことなの
何回引っかかるの

2017/05/30(火) 00:45:32.08

すぐ消すテストプログラムをfooとかにしたことはないなあ。

2017/05/30(火) 06:56:36.98

>>350
ほんとに一時的なら t とか x とかにしてるわ

2017/05/30(火) 08:10:45.63

久々にスレ開いたらハゲが躍動してて笑った

2017/05/30(火) 08:16:18.25

なんやこのガイジは

2017/05/30(火) 08:50:49.88

>>310,311
亀レスですいません！！！
できました！！！！
ありがとうございました！！

2017/05/30(火) 12:29:57.72

誰かアドバイスおばお願いできませんか

野球関連の仕事をしているんですが、選手成績のデータをcsvで貰っていて
それを自分の所のcsvに入力しないといけないんですが、いかんせん数が膨大でデータを
並び替えやら抽出やらで変換したいんですが、この場合に覚えた方が良いプログラムってのは
エクセルでマクロを組むってのが手っ取り早い近道なんでしょうか？
それともほかのプログラム言語を覚えてソフトを開発って手も考えた方が良いのでしょうか？

2017/05/30(火) 12:42:58.11

>>355
「自分の所」って？
一人で自由度が高いならSQLServer Express入れるのが一番だと思う。
タダだし将来性もある。難しくもない。

2017/05/30(火) 12:44:07.68

膨大っても高々数十MBのレベルでしょ？

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
反省して
ソリューションはどこに記載？