Excel VBA 質問スレ Part48

1 名前：デフォルトの名無しさん [2017/05/16(火) 08:24:45.78 ID:iIGA/64l0.net] !extend:checked:vvvvv:1000:512 スレ立ての際は一行目に !extend:checked:vvvvv:1000:512 と入れてスレ立てして下さい ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net echo.2ch.net/test/read.cgi/tech/1489557874/ ※関連スレ VBAなんでも質問スレ Part2 echo.2ch.net/test/read.cgi/tech/1432173164/ Access VBA 質問スレ Part1 echo.2ch.net/test/read.cgi/tech/1328536426/ Excel総合相談所 125 echo.2ch.net/test/read.cgi/bsoft/1481369538/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 321 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 20:53:24.05 ID:aGWTIe1b0.net] そういや昔はsetがさっぱり意味不明だったな 今は普通に使えるけど、なんだったんだろう 322 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 21:01:49.00 ID:dfm78vLC0.net] >>312 ま、やらしぃ 323 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 21:12:47.40 ID:aGWTIe1b0.net] >>313 sexじゃないよ＞＜ 324 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 21:15:07.23 ID:CxTrZaFuM.net] >>314 今は普通に使えるsexとか 325 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:00:26.21 ID:YdL4iPz30.net] >>311 だからfooを使うんじゃねえｈｇ 326 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:02:15.89 ID:aGWTIe1b0.net] >>316 理由教えてくれよ 理由がなければ使い続けるぞ。名前考えるの一番めんどくさいからな 327 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:15:25.36 ID:MyydkzNO0.net] 毛を吹き飛ばされるかんじがするんじゃないの？ 328 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:23:14.52 ID:EJnEHaIs0.net] 俺ルールに違反してんだろ？スルーしろよ 329 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:31:37.50 ID:nT+AAD4u0.net] 俺ルールかっけー！ 330 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:34:37.05 ID:YdL4iPz30.net] >>317 >名前考えるの一番めんどくさいからな 代わりにわたしが考えたよ hogeでよろ これでもう考える必要ないよ >>318 そうです >>319 生理的に無理 331 名前：デフォルトの名無しさん [2017/05/29(月) 22:38:31.20 ID:A34reMmc0.net] ピリピリしてるハゲってなんていうか、微笑ましいよな ハゲ好きだわーオレ、なりたくねーけど 332 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 22:56:21.54 ID:aGWTIe1b0.net] >>321 hogeがfooにまさるメリットとは？ 先にfooのメリットを書くと、 ・文字数が少ない です 333 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:01:15.36 ID:YdL4iPz30.net] >>323 じゃあ　f　だけにして ・文字数が少ないよ 334 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:04:09.54 ID:aGWTIe1b0.net] >>324 fooは慣例の単語 それを不必要に削ると無駄な間違いが増える 揚げ足取りしか出来ないなら使い続けるね 335 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:05:06.76 ID:73+YE/SF0.net] そもそもhogeとfooが何なのか分から� 336 名前：�。 C言語のスタジオえっちみたいなものですか? [] [ここ壊れてます] 337 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:06:16.47 ID:YdL4iPz30.net] >>325 Sub foo() としか使ってないのに、なんの間違いが増えるの？ 338 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:08:06.88 ID:aGWTIe1b0.net] >327 名前が被る 339 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:08:08.96 ID:qTUj1SpC0.net] 4〜3月の売上をまとめて円グラフで描画したいんですがどう描けばいいのかわかりません そもそも各月の売上をまとめて円グラフで描画しようとするのが間違いでしょうか？ 340 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:10:27.21 ID:T7IU40/g0.net] ﾋｿﾋｿ( ﾟдﾟ)ﾔﾀﾞｧ(ﾟдﾟ )ﾈｪ､ｷｲﾀ?( ﾟдﾟ)ｵｸｻﾝ(ﾟдﾟ )ｱﾗﾔﾀﾞﾜｧ　ﾊｹﾞﾃﾙﾉﾆExcelﾂｶｯﾃﾙﾝﾃﾞｽｯﾃ! ｼﾂﾚｲｼﾁｬｳﾜﾈ 341 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:10:38.64 ID:aGWTIe1b0.net] >>329 はい 扇風機なら夏、おもちゃなら必ず12月が伸びるので毎年同じ形になる円グラフは向いていません 折れ線グラフで前年度、その前の年度を重ねて昨年度対比にするとわかりやすいと思います 342 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:21:33.31 ID:YdL4iPz30.net] >>328 被ってるのお前のあそこだろ 343 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:23:51.96 ID:aGWTIe1b0.net] >>332 結局「なんとなく嫌い」以上の理由が一切ないの？ 申し訳ないがそれでは従う気にはならないなぁ 344 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:25:30.91 ID:YdL4iPz30.net] Sub fooをNGにした 345 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:29:17.49 ID:YdL4iPz30.net] >>333 ところで何であなたﾜｯﾁｮｲの後半部分ころころ変わるの？ 346 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:33:39.65 ID:aGWTIe1b0.net] >>334 だから何ｗｗｗ >>335 知らないよ。プロバイダはio光。別に回線を繋げなおしたりはしてないよ 347 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:55:50.00 ID:YdL4iPz30.net] >>336 eoだろ 無駄な間違いが増えるとか言ってる割に2文字すら間違えるっていうｗｗｗ 348 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:56:19.54 ID:EJnEHaIs0.net] これからは Sub foo()って書いとけば馬鹿避けになるのね。了解!! 349 名前：デフォルトの名無しさん mailto:sage [2017/05/29(月) 23:56:51.93 ID:aGWTIe1b0.net] >>337 (ﾉ∀`)ｱﾁｬｰ Sub fooをNGにしてるなら>>336は本来見えないはずだけど、連鎖NGしてないの？ 連鎖NGしないとNGの意味がないからさっさと設定しようね 透明あぼーんがオススメだよ 350 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:02:35.81 ID:q6a+ppT10.net] >>338 という結論以外でなかったね 大体予想してたけど、無意味な結論にたどり着くというのも有意義なことだ 351 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:05:37.88 ID:OSl0TMez0.net] >>339 効いてる効いてるｗｗｗ 352 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:09:03.85 ID:q6a+ppT10.net] >>341 実は>>337でひっかかることを予想して>>339は>>336の直後に書いてたんだよ ほんとは>>337の5秒後以内に書き込みたかった。リロードしてる内にめんどくさくなった 1分空くと後付っぽい？ 353 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:09:14.81 ID:yu6lRt6yx.net] >>340 同意する ID:YdL4iPz30 さよなら。 また来世でな 354 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:11:22.34 ID:OSl0TMez0.net] >>342 悔しいの？ｗｗｗ 後付けかどうかより >リロードしてる内にめんどくさくなった お前は面倒発言ばっかりだなｗｗｗ 355 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:12:08.17 ID:q6a+ppT10.net] >>344 vbaなんて仕事が面倒くさいから習得するもんだろう それ以外なんかあんの？ 356 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:13:23.62 ID:OSl0TMez0.net] >>345 vbaじゃなくてVBAってちゃんと大文字で書け 357 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:16:18.61 ID:q6a+ppT10.net] >>339を>>337の数秒後にレスできたら完璧だったんだけどなぁ これはちょっと悔しかった。予想以上にレスが遅かった。見え見えの釣りに飛びつくと思ったら2分もかかるとは 俺の実力も足りんし、忍耐力も足りなかった 申し訳ない >>346 なんのために？vbaって書いてそれで誰か損してるの？ じゃあ書いてやるよｗｗｗVBA！VBA！満足かｗｗｗ 358 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:17:08.32 ID:OSl0TMez0.net] >>347 満足したありがとう 359 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:17:13.63 ID:q6a+ppT10.net] だから>>347が見えるってことはNGにしてないってことなの 何回引っかかるの 360 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 00:45:32.08 ID:RIAflGJM0.net] すぐ消すテストプログラムをfooとかにしたことはないなあ。 361 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 06:56:36.98 ID:tBmyQlvfM.net] >>350 ほんとに一時的なら t とか x とかにしてるわ 362 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 08:10:45.63 ID:06cdz9ADx.net] 久々にスレ開いたらハゲが躍動してて笑った 363 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 08:16:18.25 ID:Pn7VLVPda.net] なんやこのガイジは 364 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 08:50:49.88 ID:C+7xWm9cM.net] >>310,311 亀レスですいません！！！ できました！！！！ ありがとうございました！！ 365 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 12:29:57.72 ID:1+UI8ryZ0.net] 誰かアドバイスおばお願いできませんか 野球関連の仕事をしているんですが、選手成績のデータをcsvで貰っていて それを自分の所のcsvに入力しないといけないんですが、いかんせん数が膨大でデータを 並び替えやら抽出やらで変換したいんですが、この場合に覚えた方が良いプログラムってのは エクセルでマクロを組むってのが手っ取り早い近道なんでしょうか？ それともほかのプログラム言語を覚えてソフトを開発って手も考えた方が良いのでしょうか？ 366 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 12:42:58.11 ID:I4Et1tpDd.net] >>355 「自分の所」って？ 一人で自由度が高いならSQLServer Express入れるのが一番だと思う。 タダだし将来性もある。難しくもない。 367 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 12:44:07.68 ID:I4Et1tpDd.net] 膨大っても高々数十MBのレベルでしょ？ 368 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 13:14:12.67 ID:1+UI8ryZ0.net] >>356 正確に言い過ぎると微妙な案件だと思って濁し気味なのですが、貰っているデータというのは プロ野球のデータ提供サービスのBISと言われるデータ提供会社のcsvで 『自分』というのは自分の会社で使っている野球中継用のソフトとなります。 （野球中継用のソフトもcsvでデータを賄っているのですが、当然フォーマットが違うので 貰ったデータをもとに普段は手入力しています。） >>357 確かに膨大というのはSEさん達からしたら笑ってしまうレベルの数なのでしょうが 限られた時間（集合時間から試合開始までの時間）で手入力で間違いなく必要項目を入力するという問題なので プログラムにまかせて一括変換できるのなら、間違いも少ないでしょうし、オペレーターの習熟度に左右されずに仕事につかせやすいので、 非常に有益な事だと思ったのです。 本来なら仕様を出して、プログラム作ってもらえば済むことなのかもしれませんが 自分の所で使っている野球ソフトも仕様変更でcsvの項目順番とかずれる可能性もありますし、 提供してもらっているデータも仕様変更とかで順番ずれたりした時に毎回発注とかしたくないので 急ぎではないし自分で作れる様になりたいなと思って相談させてもらいました。 369 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 13:29:23.00 ID:06zvEzNR0.net] 必要なデータ抽出して、並び替えて、別ソフト用のCSVに変換するってことかな？ エクセルでもできるだろうけど、自分ならC#かPowerShellでつくるな エクセルを介す必要性がないからわざわざ使いにくくてめんどくさいVBAでやることもない 初心者にはちょうどいいお題だと思うからプログラム作ってみたらいいと思うよ 370 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 13:57:11.50 ID:C+7xWm9cM.net] 371 名前：どなたか助けてください ブック内の約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' にアクセスできません。 [] [ここ壊れてます] 372 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 14:01:00.02 ID:YF+PwbQtH.net] >>358 Excel + VBAでいいんじゃない？ >>360 これ？ darumaexcel.uijin.com/info/pause.html 373 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 14:21:24.38 ID:C+7xWm9cM.net] >>361 ありがとうございます！ ただ直しても同じエラー分が出てしまいます。。。 374 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 14:27:48.25 ID:1szQs/d90.net] >>358 AccessなりSQL Serverなりのデータベースソフトでcsvのインポートを試行錯誤してみればすぐに出来るようになる。 375 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 14:43:31.52 ID:YF+PwbQtH.net] >>362 SaveAs行の前に、mySheet.Selectを追加してみて 376 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 14:53:27.61 ID:C+7xWm9cM.net] >>364 できないですね、、、 実行時エラー '1004': ‘選択中のシート名.xlsx' にアクセスできません。 と表示されます。 377 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 15:14:30.20 ID:EOieG+pf0.net] >>355 perl PHP 辺りが簡単だし便利なモジュールも沢山ある 378 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 15:19:43.12 ID:EOieG+pf0.net] >>355 sqlite3と firefoxのsqlite3用アドインとかと SQL言語を使う方法もある 379 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 15:35:45.48 ID:YF+PwbQtH.net] >>365 Excelのバグですかね。 380 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 15:40:39.49 ID:oatsCbfo0.net] 単なる当てずっぽうでCSVファイル作成前に同名のcsvファイルが既にあるんならそれを消すなりリネームするなりしてるか？ 381 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 15:44:54.03 ID:fdB84jON0.net] 数MB程度のテキストデータならピボットでいいと思うが 382 名前：355 mailto:sage [2017/05/30(火) 16:21:56.98 ID:1+UI8ryZ0.net] みなさん沢山のアドバイスありがとうございます。 言語的にはどれとってもほぼ確実にできるけど、道が沢山ありすぎる状態なんですね。 関数電卓のBASIC程度しかかじっていない軟弱な頭にはどれがとっかかりやすいモノなんでしょうか・・・ 383 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 16:40:48.70 ID:C+7xWm9cM.net] >>369 空フォルダなのでファイルは存在してないんですよね、、、 384 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 18:10:35.56 ID:YF+PwbQtH.net] >>371 Excelだったらすぐに試せるだろ すぐやれ 385 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 19:06:30.89 ID:q6a+ppT10.net] >>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がいい 諦めなければ絶対に完成する。諦めるな わからなくなったらいつでもおいで 386 名前：デフォルトの名無しさん [2017/05/30(火) 19:22:34.02 ID:Fp/ortWi0.net] >>374 > 諦めなければ絶対に完成する。諦めるな 仕事でやってる人には最低のアドバイスだな ニートのお前とは違うんだよ 仕事ってのは限られた時間の中で最大限の結果を求められ� 387 名前：� 少しでも人の役に立ちたい気持ちはわからないでもないけど それ以前に自分がニートだっていう事実を忘れちゃいかんな お前が本当に誰かの役に立ちたいのだったら まず自分の身をわきまえ そして相手の立場を理解するって事が何よりも大切な事だ よく覚えておけ [] [ここ壊れてます] 388 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 19:26:38.95 ID:yu6lRt6yx.net] >>375 まじでそう思う。 >>375 反省して ソリューションはどこに記載？ 389 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 19:47:55.75 ID:q6a+ppT10.net] >>375 じゃあ諦めて手作業で延々と作業しろってことか 効率的だな〜 390 名前：デフォルトの名無しさん [2017/05/30(火) 20:01:37.18 ID:Fp/ortWi0.net] >>377 少しはわかったみたいだな 効率>>>>>>>>>>>>>>自己満足 仕事ってそういうもんなんだよ 391 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 20:09:38.66 ID:1szQs/d90.net] まぁ実際、出来るかどうか分からないVBAよりも、手作業で確実に済ませるという場面は仕事してると出てくるな。 ただ件の話はルーチン業務のマクロ化についての話だから、多少時間が掛かっても挑戦する価値はある。 しかしながらごく一般的な悩みで、それを解決する手段が用意されているのでVBAに拘る必要がないのも事実。 392 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 20:11:24.56 ID:q6a+ppT10.net] マクロの腕上げてどんどん効率化したほうがいいと思うけどねぇ 会社行ってもすること無いから出勤時間減らしたわ 393 名前：355 mailto:sage [2017/05/30(火) 20:52:10.68 ID:1+UI8ryZ0.net] ありがとうございます。 取りあえずエクセル環境で動くとどの現場でも楽になるので エクセルマクロでどうにか作ってみます。また、来ざる得なく成る様な気がするので その時にまた相談に乗ってください。ありがとうございました。 394 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 21:03:04.18 ID:0IDFiFSH0.net] Excelが必要でないならVBAよりはVBSscriptかな VBScriptはExcel VBAにほぼそのまま持っていける VBScriptやVBA扱いに慣れたらpowershell いきなりpowershellでもいいけど前提知識が割と必要になる powershellの良い入門書って見たことないし 395 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 21:48:33.00 ID:RIAflGJM0.net] >>378 余裕がどれくらいあるかによるけどね 396 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 21:50:18.98 ID:Upz1NUPj0.net] >>374 まだ懲りずにfoo使ってるのニートさん あ、NGしてないのバレちゃうｗｗｗ 397 名前：デフォルトの名無しさん [2017/05/30(火) 21:56:44.25 ID:GySYMHzV0.net] >>379 ウチの会社の場合、マクロ書いてると「そんな暇があったら直接打ったらいいじゃん」と言われる。バカは手作業こそ 仕事だと思い込むもんなんだよな。 398 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 22:01:43.70 ID:Upz1NUPj0.net] >>360 - ActiveWorkbook.Path & "\" & mySheet.Name & ".csv", _ + ActiveWorkbook.Path & ":" & mySheet.Name & ".csv", _ こうじゃないかな？ 399 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 22:03:50.22 ID:Upz1NUPj0.net] >>360 Sub Example MsgBox Application.PathSeparator End Sub これ実行すると多分￥じゃなくて：が表示されるはず 400 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 22:41:04.16 ID:b4dt9kdA0.net] >>385 その場で言えよw 401 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 22:59:03.08 ID:FYFuo4390.net] セルの書式を保持したまま変数に格納する方法ってありますか? 文字の一部分だけ太字とか、嫌がらせみたいなデータがあるんです。 Copy Destinationで別のシートに格納しろ、とかいうのはなしで。 402 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 23:26:10.83 ID:q6a+ppT10.net] 格納だけならsetで簡単にできる しかし他のセルにこれを適用しようとするとフリーズ。理由は知らん 割りと真面目に ＞Copy Destinationで別のシートに格納 したほうがいい気がする Sub foo() 'A1の一文字目のフォント情報をB1二文字目に Set bar = Cells(1, 1).Characters(Start:=1, Length:=1 403 名前：).Font Cells(1, 2).Characters(Start:=2, Length:=1).Font = bar End Sub [] [ここ壊れてます] 404 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 23:29:44.49 ID:KvP+eqH30.net] >>389 オブジェクトの変数へのコピーができないから無理。 見えないシートやワークブックを一時的に作って、Range.Copy じゃだめなん？ 405 名前：デフォルトの名無しさん [2017/05/30(火) 23:58:44.86 ID:GySYMHzV0.net] >>388 ああ、言ってる。でも延々と手作業でやって残業時間自慢してるヤツが殆どｗ 406 名前：デフォルトの名無しさん [2017/05/31(水) 02:10:54.01 ID:LgGj7rqFa.net] VBA初心者です。 今データの分析をしてるのですが色々な関数を使ってるシートをとりあえず10000くらいまでデータを作っておいてピポットテーブルで分析しています。 それだとデータが重くなりますが入力されたデータに行をオートフィルで追加することはできますか? 例えば A列に日付 B列に店名 C列に商品名 D列に個数 を入力していて 列やG列に日付の関数で月やH列にVLOOKUP関数で店舗の種類の仕分けをしています データを入力した行に関数が自動で追加できるようにするにはどうしたらいいでしょうか？ 407 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 03:10:26.82 ID:ngSfzLWM0.net] >>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 408 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 05:55:04.74 ID:5otW7Lci0.net] Excelの機能でやった方が良さそうに見えちゃうな 月で集計は列足さずにピボット側で日付をグループ化すればいいし 範囲の拡張はデータ範囲をテーブルにしておけばいいだけだし VBAスレだしVBAでやりたいんならまあいいか 409 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 06:30:09.92 ID:u3wQ/TLpM.net] 補助列作っとくのが最善だと思う 次点でピボットの集計フィールド追加 410 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 07:14:56.30 ID:CCxYhvtc0.net] >データを入力した行に関数が自動で追加 したいだけなら、テーブルにすればいいのでは Excelのテーブル機能の使い方まとめ https://www.forguncy.com/blog/20161014_table >一覧表の最終行の次の行にデータを入力すると、その上の行に入っている書式設定が自動で反映されます。 計算式も自動で反映します。 411 名前：デフォルトの名無しさん [2017/05/31(水) 11:34:55.36 ID:2HZ6ZV5Na.net] イメージと 412 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 14:19:26.52 ID:O9qNIaK10.net] >>360だけど未だに出来ない、アドバイスいただいたものも全てダメしたけどダメ。 200枚ものシートをいちいち手作業でやらないといけないのか、、、 413 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 14:38:23.24 ID:vzRkDbrnH.net] >>399 Excelのバグじゃないというのは確認したか？ アプリケーションの更新とかが出てたりしないか？ 414 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 14:40:32.00 ID:O9qNIaK10.net] >>400 エクセルのバグ確認の仕方を知らないので不十分かもしれないですが、 アプリケーションは最新なので、問題無いとおもいます。 415 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 14:44:29.80 ID:O9qNIaK10.net] >>360です お騒がせしました、これでできたっぽい。 excel-magic.com/post-24/ <font color>のどこを修正すれば良いのか分からないので、ひとまず回して見ましたが途中で止めてCSVを200ファイルほど吐き出せました！ これを機会にVBAをちゃんと勉強しようと思いました、、、 416 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 14:44:47.62 ID:vzRkDbrnH.net] >>401 じゃ、マクロを記録しつつシートをCSVで保存してみて、生成されたコードを観察してみるとか。 今回1度きりの作業だったらあきらめて手作業でエクスポートするか、それが嫌なら他のQAサイトで 質問するとか。 417 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 14:50:06.21 ID:vzRkDbrnH.net] >>402 マジか・・・ 何がいけなかったんだろうか・・・ 418 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 15:23:51.75 ID:V02iWLllM.net] >>402 うまくいきそうで良かった。 リンク先を見てる感じ、 ActiveWindow.SelectedSheets ActiveWorkbook.Path のどっちかがcsvを保存した時点でおかしくなってるのかなと感じる。 あと、<font color="#ffff00">と</font>はVBAには無関係なので、丸々削除してオーケー。 詳しく知りたければ、「htmlタグ フォント」でググってみてね。 419 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 15:43:17.11 ID:O9qNIaK10.net] >>404 お忙しいところ、ご教示いただきありがとうございました。 >>405 なるほど、また使う事があると思うのでその部分を修正して、 ちゃんと使えるものになるようにいじってみます！ タグの件もありがとうございました！ 420 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 18:16:14.53 ID:EYxbNvW1a.net] >>355 エクセルvba以外を選べる環境があるなら選ぶ必然がないけどな 初心者向きに見えて初心者向きじゃないから といまさら 421 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 18:54:55.73 ID:lGWBXgBz0.net] ＞初心者向きに見えて初心者向きじゃない 分かる

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef