Excel VBA 質問スレ Part56

**デフォルトの名無しさん** · 2018/08/23(木) 07:25:24.98

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

※前スレ
Excel VBA 質問スレ Part55
http://mevius.5ch.net/test/read.cgi/tech/1532236398/l50

**デフォルトの名無しさん** · 2018/08/24(金) 08:19:21.36

>>48
発想がチープっすね
おじいちゃんPGが好きそうな構造

**デフォルトの名無しさん** · 2018/08/24(金) 08:41:40.00

Powershell(またはバッチ),vbsは必須だろ...単なるファイル処理にVBA書く奴の気が知れん

**デフォルトの名無しさん** · 2018/08/24(金) 08:44:24.10

>>51
そう。
だからVBA標準のフォームで十分。

**デフォルトの名無しさん** · 2018/08/24(金) 08:45:13.75

>>53
そう。
Excelが絡まないなら他言語の方が良い。

**デフォルトの名無しさん** · 2018/08/24(金) 08:48:03.57

でもここはExcelVBAのスレなのでExcelが絡むのが基本。
そうすると他言語はどれもダメダメ。

Excelから起動出来ないとか、かっこ悪い匂いしかしない。

**デフォルトの名無しさん** · 2018/08/24(金) 08:51:53.95

>>54
?
.netあるのになぜエクセルでフォーム？ギャグなの？

**デフォルトの名無しさん** · 2018/08/24(金) 09:02:02.23

>>57
バか?
Excel上で使うフォームのことを言ってるんだが。
そこに.netの高機能なフォームなんて必要無い。

**デフォルトの名無しさん** · 2018/08/24(金) 09:05:39.56

>>47
俺はexcelでやる作業を楽したいからVBA覚えたけど(関数覚えるようなものだし)、他のプログラム言語なんて大学生のときに教養の授業で少しやっただけで、必要なかったし、今後も全く必要ないと思う

**デフォルトの名無しさん** · 2018/08/24(金) 11:47:05.80

エクセルは多くの一般人に便利に使われている一方で、多くのプログラマに嫌われている言語ですね

**デフォルトの名無しさん** · 2018/08/24(金) 12:27:48.07

>>60
嫌われているのじゃなくて碌にプログラムが組めない奴、もしくは他言語の初心者が自分能力の低さが悔しくて憂さを晴らしやすいのがVBAなんだろう。

**デフォルトの名無しさん** · 2018/08/24(金) 12:34:00.31

PowerShellからインタラクティブにExcelいじるのが便利
VBAって対話的に実行できないんだよね

**デフォルトの名無しさん** · 2018/08/24(金) 12:51:53.83

そりゃ、今でも何でもコマンドラインの方が良いという人はいる。

**デフォルトの名無しさん** · 2018/08/24(金) 16:27:42.29

対話的インタフェースってあまりありがたくないけどな

**デフォルトの名無しさん** · 2018/08/24(金) 16:47:35.08

俺はありがたいんだよ

**デフォルトの名無しさん** · 2018/08/24(金) 17:42:03.82

みんな好きな方法でやれよ。
外からのコントロールも覚えれば幅も広がるかな？勉強しよっと。
でも、Excel介さずにファイル操作するほうが効率的ってならこのスレに関係ない話だな。
全く関係ないスレで暴れてる人たちって何がしたいんだろ。
好きな方法で好きなことさせればいいのに。

**デフォルトの名無しさん** · 2018/08/24(金) 18:25:12.83

>>62
さすがにそれは・・・イミディエイトウィンドウ知らんの？

**デフォルトの名無しさん** · 2018/08/24(金) 18:47:05.36

流れを読まずに、、皆さんListObjectって使ってます？　Oracleとかからクエリするとできあがるアレ。
2007あたりからの機能だと思うけど、慣れないから範囲に変換して独自のアクセス方法で使ってた。
もしかしてリストで表組みすればプログラムでスゲー便利だったりします？
ここが便利とか、こんな使い方があるよ、ってのがあったら教えてください。

**デフォルトの名無しさん** · 2018/08/24(金) 19:14:05.46

>>67
自分は作業をイミディエイトウィンドウでこなすことが多いんだけど、
あれって対話的インタフェースっていうもんなの？

**デフォルトの名無しさん** · 2018/08/24(金) 19:22:15.85

イミディエイトで日常作業とか苦行だろ
冗談キツイよ

**デフォルトの名無しさん** · 2018/08/24(金) 19:26:58.79

みんなが作るvbaのUIってどんな感じなの？
俺はいつもこう。設定縦一列に並べてボタン押せばokって感じにしてる
https://i.imgur.com/WZkV4cG.png

**デフォルトの名無しさん** · 2018/08/24(金) 19:29:26.52

イミディエイトウィンドウを対話的インタフェースってのは面白い言い方だな
ただ、あれは普通のコンソールとしか呼ばないと思う

**デフォルトの名無しさん** · 2018/08/24(金) 19:34:39.13

>>68
知らなかった
テーブルをobjyect扱いにしているのか？
便利そうっちゃ便利そう

**デフォルトの名無しさん** · 2018/08/24(金) 19:45:02.42

ここにいるVBAerってPSerよりVBA知識少ないみたいだな
ListObjectも知らないとかまじかー

**デフォルトの名無しさん** · 2018/08/24(金) 20:39:07.26

>>74
そもそもテーブルをvbaで触ることがない
システムから吐き出されたデータをvbaで集計して、vbaで体裁整えて、vbaでファイル分割してコピーして、vbaで所定のフォルダに入るようにして終わり
ListObjectとか頑張って使う人は結構たいへんな環境だと思う

**デフォルトの名無しさん** · 2018/08/24(金) 20:44:55.61

PSでの対話的処理って具体的にどんなするの？（定義に行き違いがありそう）

**デフォルトの名無しさん** · 2018/08/24(金) 20:51:02.74

>>74
お？詳しそうだね。
便利な使い方があったら教えて！

**デフォルトの名無しさん** · 2018/08/24(金) 21:00:09.88

>>70
なんで？
環境を整えればワンライナーでガシガシいけるyo！

**デフォルトの名無しさん** · 2018/08/24(金) 21:24:35.45

>>78
指定フォルダを再帰的に検索してファイル名が*.csvにマッチするCSVファイルを列挙
各CSVからX列, Y列, Z列を読み取ってD := (X^2 + Y^2 + Z^2)^(1 / 2)を計算する
Dの大きい順に並び替えてX, Y, Z, Dを新規Excelブックに出力して
出力した全行をテーブルレイアウトに変更する

例えば↑のような処理があったとしてイミディエイトのワンライナーだとどういうコマンドになるの?

**デフォルトの名無しさん** · 2018/08/24(金) 21:29:18.23

ぼくが考えた目一杯難しいプログラムみたいでワロタw平和やなあw

**デフォルトの名無しさん** · 2018/08/24(金) 21:30:26.97

そんなもんワンライナーで書くわけ無いだろ・・・

**デフォルトの名無しさん** · 2018/08/24(金) 21:37:29.53

>>80
え？ VBAユーザーの感覚だとこの程度の処理が難しいの?

>>81
ファイルの検索、解析、整形、出力なんて日常茶飯事だろう
こんな典型的な基本パターンすらワンライナーで書かないならなにをワンライナーで書くんだよ

**デフォルトの名無しさん** · 2018/08/24(金) 21:41:19.42

マウンティングワナビー剥き出しのナイーブなレスでワロタw平和やのうw

**デフォルトの名無しさん** · 2018/08/24(金) 21:49:06.20

やっぱりイミディエイトじゃ大したことできないじゃん

**デフォルトの名無しさん** · 2018/08/24(金) 22:02:01.47

いやまあ向き不向きはあるでしょ
不向きなもの取り上げてダメだというのは自作自演ですよん

**デフォルトの名無しさん** · 2018/08/24(金) 22:02:51.21

>>79
ごめんなさいごめんなさいそれはワンライナーでは無理でした
実力もないくせにワンライナーとか言ってごめんなさい

**デフォルトの名無しさん** · 2018/08/24(金) 22:03:18.60

>>82
ちなみにPowerShellではどう書くんだい？

**デフォルトの名無しさん** · 2018/08/24(金) 22:20:36.13

なんやワナビーwせっかくのマウンティングチャンス見送ってまうんかw

**デフォルトの名無しさん** · 2018/08/24(金) 22:36:32.96

ごまんなさいオレには無理でした教えてください
そういう関数を作ってイミディエイトから呼び出せばそりゃできるけどそれじゃワンライナーとは言えないですよね...

**デフォルトの名無しさん** · 2018/08/24(金) 22:45:50.22

gci . -Recurse -Filter *.csv | % { ipcsv $_ } | % { $_ | Add-Member -PassThru -MemberType NoteProperty D ([math]::sqrt([math]::pow($_.X, 2) + [math]::pow($_.Y, 2) + [math]::pow($_.Z, 2))) } | Sort-Object D -Descending | Export-Excel -Now

**デフォルトの名無しさん** · 2018/08/24(金) 22:47:49.25

>>90
うおおおおおおｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

って試してないけどそれっぽいから驚愕しとくぜ！
ってかvbaってそもそも
「提携業務の自動化」
がコンセプトだと思うんだけど、
そこにワンライナーを持ち出す意味がわからないぜ。やれるならすげー！って思うけど、エクセルのファミコンエミュみたいな大道芸と変わらん

**デフォルトの名無しさん** · 2018/08/24(金) 22:52:49.94

>>79
冷静に考えたら「新規Excelブックに出力して～」の部分を除けば
イミディエイトウィンドウ上のワンライナーでもいける気がしてきた

**デフォルトの名無しさん** · 2018/08/24(金) 22:56:59.98

>>90
ん？
X列, Y列, Z列ってなんの事だ？

**デフォルトの名無しさん** · 2018/08/24(金) 22:58:35.81

>>91
自動化はプログラミング言語共通の目的なので、VBAのコンセプトと言うにはビミョー

というか大道芸に見えるか？
ファイル漁って解析して整形して出力ってごく日常的な作業だから、大道芸でも何でもないし、
息吸って吐くみたいな作業をいちいちスクリプトファイル化したくないので、ワンライナーで書くんだよ

**デフォルトの名無しさん** · 2018/08/24(金) 23:01:55.40

>>93
X, Y, Z
1, 2, 3
1.5, 0, 100

こういう形式のCSVがあると思ってくれればいい

**デフォルトの名無しさん** · 2018/08/24(金) 23:10:09.34

何かPowerShellユーザーが哀しくなるようなレベルの奴が来てるな。

そんな簡単なものを自慢して何になるんだ?
PowerShellってのはそんなに使えないもんじゃ無いだろうに。

見た瞬間に組めると思うかどうかだよ。
簡単かどうかってのは。
ワンライナーかどうかは関係ない。

**デフォルトの名無しさん** · 2018/08/24(金) 23:10:55.71

まったくもってクダラナイ。

**デフォルトの名無しさん** · 2018/08/24(金) 23:25:36.43

まだマウンティング終わっとらんのかよw
最近はダラダラ時間ばかりかけて主旨のようわからんアホが多すぎるわ

**デフォルトの名無しさん** · 2018/08/24(金) 23:49:03.30

>>96
自慢に見えるならキミの潜在意識では、なんかすごいことやってるな、って感じてるってことだろうね
でもこの程度で自慢してるとか言われてもネ
呼吸することを自慢する人間はいない

**デフォルトの名無しさん** · 2018/08/24(金) 23:51:12.91

ブルーボトル日本開店おめでとう。西海岸で飲む、いつもの味。僕にとって新鮮みがないことが、成功の証だと思う。

**デフォルトの名無しさん** · 2018/08/25(土) 00:16:21.97

>>99
> 呼吸することを自慢する人間はいない
そうだな、呼吸することをいちいちこんなスレに書くやつもいないわな w

**デフォルトの名無しさん** · 2018/08/25(土) 01:48:48.16

>>90
おお、便利そうですね。勉強になります。
Excel絡んでるの、最後のとこだけ？

PowerShellも腰据えて勉強しようかな？

**デフォルトの名無しさん** · 2018/08/25(土) 01:54:18.00

でも、ここVBA質問スレなので、別スレに分かれてるとうれしいな。
Excel PowerShell 質問スレ　とか作ってそこでご指導いただけると
ありがたいです。

**デフォルトの名無しさん** · 2018/08/25(土) 05:01:12.37

>>79
そういう複雑なものは、PowerShell では難しいから、Ruby を使う

Dir.glob('C:/Users/Owner/Documents/Ruby/test/**/*.csv') do |file| # 再帰的に
next if File.directory? file # ファイルだけを処理する

CSV.foreach( file ) do |row| # 各行
# row[0] ～ row[2] (列0～2)を使って計算する
end
end

**デフォルトの名無しさん** · 2018/08/25(土) 11:15:08.47

>>104
> 新規Excelブックに出力して
> 出力した全行をテーブルレイアウトに変更する

要件満たしてなくない？

**デフォルトの名無しさん** · 2018/08/25(土) 11:31:23.83

>>79
>>82
これVBAはおろか、そもそもエクセル案件ですら無い件。
せめてファイル形式くらいxlsxにしないと・・・

**デフォルトの名無しさん** · 2018/08/25(土) 11:38:28.45

>>106
？
新規Excelブックに出力して出力した全行をテーブルレイアウトに変更する
て書いてあるじゃん

**デフォルトの名無しさん** · 2018/08/25(土) 11:40:32.66

Excelから始まってExcelに終わる
Excel以外の外部環境とは隔離
これがエクセル案件
VBAはエクセル案件のためにある

**デフォルトの名無しさん** · 2018/08/25(土) 11:54:03.16

>>107
何故か見落としてた。すまんな。

**デフォルトの名無しさん** · 2018/08/25(土) 12:32:54.50

>>108
データ量を考えた場合、RDBとの連携は認めても良いとは思うのだけどね。いちいち>>104みたいにRubyを持ち出すバカは別にして

**デフォルトの名無しさん** · 2018/08/25(土) 12:34:48.30

>>110
認めたら他の言語が優位になってしまう
エクセルでやるならエクセルだけで完結させる
これは絶対的なルールで例外は認められない

**デフォルトの名無しさん** · 2018/08/25(土) 12:41:34.89

普通にdll作ってexcelからdllの関数読んで作るような案件ないくらでもあるかな
追うのが困難な知恵遅れ大量ｸｿVBAを知恵遅れが書くのを防止することもできる

excelでvbaを書くぐらいしかできない知恵遅れ無能に
できるだけ余計な事をさせない事前策にもなってる

**デフォルトの名無しさん** · 2018/08/25(土) 13:28:24.31

自分用のちょっとしたツール
　スプレッドが必要
　　操作補助が必要
　　　補助の内容が複雑->.NET(COM)+VBA(イベント, フォーミュラひも付けのみ)
　　　補助の内容が単純->VBA
　　操作補助が不要->自分の環境で使用可能な任意の言語
　スプレッドが不要->自分の環境で使用可能な任意の言語
他人に配布するツール
　依存関係(※1)が揃っているとわかっている->その依存関係で使用可能な任意の言語
　依存関係(※1)が揃っているかわからない->PowerShell 2.0

※1 Excelは依存関係の1つと数える

**デフォルトの名無しさん** · 2018/08/25(土) 13:30:13.57

RDBとの連携　←　必須
dll作って呼ぶ　←　普通にやる
テキストファイルの読み書きをする　←　あんまりやらない

**デフォルトの名無しさん** · 2018/08/25(土) 18:46:09.73

>>99
呼吸することをわざわざ宣言するバカはいない。

なんでPowerShellバカばかり来るんだろう。

**デフォルトの名無しさん** · 2018/08/25(土) 18:49:03.73

実際、VBAじゃどうにもならないこともある。
なんで他言語自慢はVBAでも出来ることばかりなんだ?
他言語でもレベルの低い奴ばかり来てるんだろうな。

**デフォルトの名無しさん** · 2018/08/25(土) 19:21:39.09

>>115
呼吸みたいなこともできんので驚いたって話だよ

**デフォルトの名無しさん** · 2018/08/25(土) 19:38:40.64

自分から驚きにいってあえて驚いたと言いたがるアホw

**デフォルトの名無しさん** · 2018/08/25(土) 19:40:49.82

VBAの何が良いって、適当に書いたプログラムを他人に渡しても、受け取った人（IT系では無い一般事務員)がその場で治せることが一つのメリットだと思う。
Powershellみたいに一行に何でもかんでも押し込まれたら、読めるもんも読みたくないわ
ましてや電話越しにデバッグして貰うとかVBAか関数にしか無理

**デフォルトの名無しさん** · 2018/08/25(土) 19:48:19.41

>>119
別にパワーシェルやから一行に何でもおしこめる訳ちゃうわw
ワンライナーに童貞を奪われた厨房ってのは何時の時代も一定数おんねんw

**デフォルトの名無しさん** · 2018/08/25(土) 20:12:22.32

ワンライナーは人に渡すもんではなく、自分用だよ、きちんとps1ファイルに書くことも可能

**デフォルトの名無しさん** · 2018/08/25(土) 20:14:43.66

>>119
かつて無いほどアホくさいレス

**デフォルトの名無しさん** · 2018/08/25(土) 20:27:16.37

試しに同じ処理をVBAで書いてどっちがわかりやすいか、変更・拡張しやすいか、比べてみませんか
ハンデとしてワンライナーじゃなくても構いません
VBAユーザーの皆さんさあどうぞスマートなコードを書けるものならぜひ書いてみてください
もちろん尻尾巻いて逃げるのは構いませんがそんな情けない人はここには居ないと信じています

**デフォルトの名無しさん** · 2018/08/25(土) 20:34:55.96

>>123
>>79の話？ああ良いですよ書いてあげましょう

**デフォルトの名無しさん** · 2018/08/25(土) 20:35:18.16

VBAの全力をお見せしましょう

**デフォルトの名無しさん** · 2018/08/25(土) 20:36:24.71

>>125
その意気です
さあ書いてください

他の様子見してるチキンの皆さんも参加しても構いませんよ

**デフォルトの名無しさん** · 2018/08/25(土) 20:41:37.12

>>117
呼吸みたいなことをわざわざ書くとか驚きなんですけど w

**デフォルトの名無しさん** · 2018/08/25(土) 20:42:30.57

できました

Files = ReadCsvFiles("*.csv")
Data = ReadCalcPower(Files)
Sort Data, "desc"
ExportExcel Data

**デフォルトの名無しさん** · 2018/08/25(土) 20:44:48.11

>>127
例えば隣に座ってるおじさんが呼吸してなかったら驚くし声をかけるだろう？
ねえねえVBAくんさっきから息してないけど大丈夫？生きてる？
まあだいたいそういう感じ

**デフォルトの名無しさん** · 2018/08/25(土) 20:49:05.28

powershellは凄いぞ！ワンライナーで何でも掛ける！
って言ってる奴が出てきた時はまともなpowershellユーザーがちょっと可愛そうではあった

**デフォルトの名無しさん** · 2018/08/25(土) 20:50:11.46

>>128
Subも書けよww

**デフォルトの名無しさん** · 2018/08/25(土) 20:51:53.55

>>131
PowerShellと粒度を揃えましてん

**デフォルトの名無しさん** · 2018/08/25(土) 20:52:42.36

VBAの書き方がわからないおじさんに教えてあげましてん

**デフォルトの名無しさん** · 2018/08/25(土) 20:57:11.08

>>130
まともなパワーシェルユーザーなんか居らんわwバカかとんでもないバカだけやw

**デフォルトの名無しさん** · 2018/08/25(土) 20:57:11.62

>>128
素晴らしい
ReadCsvFiles、ReadCalcPower、Sortの実装が見えないけどバグかな？

**デフォルトの名無しさん** · 2018/08/25(土) 20:58:25.40

誰とは言わないけど負け犬敵前逃亡兵がきゃんきゃん吠えとるのw

**デフォルトの名無しさん** · 2018/08/25(土) 21:01:55.54

>>135
バグではないよVBAではこのように抽象化することで
コードをわかりやすく書くの
PowerShellでもExcelExportがどうなってるかは見えないよね
それと一緒

**デフォルトの名無しさん** · 2018/08/25(土) 21:07:45.78

検証できないから意味がない >>90は誰でも検証可能

**デフォルトの名無しさん** · 2018/08/25(土) 21:10:25.06

今までそーっとしといたけどVBAにソートないんだよね

**デフォルトの名無しさん** · 2018/08/25(土) 21:13:56.58

>>138
検証してやるから全部のソース出してよ
Export-Excelもそう、Sort-Objectもそう、それらのソースコードを
提出していただこうか、粒度を合わせるんだよ

**デフォルトの名無しさん** · 2018/08/25(土) 21:14:46.00

>>139
ソートはないよ、自分で作るなりネットから拾ってくるなりで

**デフォルトの名無しさん** · 2018/08/25(土) 21:15:13.16

粒度の違うものを比較しても仕方がない

**デフォルトの名無しさん** · 2018/08/25(土) 21:24:30.80

>>137
いやいや抽象化は構わないけど
中身がないとバグだよ

はいソース
https://github.com/PowerShell/PowerShell
https://github.com/dfinke/ImportExcel
キミは誠実な人だから惨めに言い訳して逃げないでVBAで実装してくれるよね

**デフォルトの名無しさん** · 2018/08/25(土) 21:26:10.63

ここ来るとVBAのおかげで飯が食えてる俺は先が無いなって思わされる

**デフォルトの名無しさん** · 2018/08/25(土) 21:30:20.04

>>143
長すぎて読む気にならない
無駄なものを貼るな

**デフォルトの名無しさん** · 2018/08/25(土) 21:38:17.09

>>145
あれれーキミも言い訳して逃げちゃう人だったんだ

**デフォルトの名無しさん** · 2018/08/25(土) 21:49:32.83

>>146
僕は一切言い訳をしないし逃げることもない
ずっとここにいる、君はなぜここに居る

**デフォルトの名無しさん** · 2018/08/25(土) 21:49:50.30

なぜPowerShellのソースコードを貼る

**デフォルトの名無しさん** · 2018/08/25(土) 21:54:36.91

>>147
>>137

**デフォルトの名無しさん** · 2018/08/25(土) 21:58:36.58

>>149
僕が言ってることには完全に筋が通っている
粒度を合わせることによってVBAとPowerShellの比較を可能にして
VBAのコーディング方法をPowerShellユーザに伝授した
もっと丁寧なお礼をいただいても良いと改めて読み返してそう思った

**デフォルトの名無しさん** · 2018/08/25(土) 22:18:30.20

>>150
えーつまりVBAのコーディング作法では
未定義の関数を呼び出してエラーが出るのを眺めるのが正義、ということですか
流石vbaerは言うことが一味違いますね