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/09/03(月) 10:34:50.52

>>600
パワーシェルを詠うんだよ

**デフォルトの名無しさん** · 2018/09/03(月) 10:38:30.67

パワーシェル処理が激遅のパワーシェル

**デフォルトの名無しさん** · 2018/09/03(月) 11:00:43.63

パワーシェル良いよね

**デフォルトの名無しさん** · 2018/09/03(月) 11:40:10.45

>>588
あ、いや、それは私がよくわかってなかったからで、開くコード自体は簡単極まりなかった

**デフォルトの名無しさん** · 2018/09/03(月) 12:20:35.49

うちじゃPowershellが使えないのが残念なところだ。
まだVIsualStudio(Express)のインストール申請の方が通りやすい

**デフォルトの名無しさん** · 2018/09/03(月) 12:33:12.21

パワーシェル好き
いちいちFileSystemObjectのインスタンスを作って再帰処理とかしなくてもフォルダ関連の処理は組み込みのコマンドレットで大抵何でも出来るし、概してVBAで処理するより高速で軽い
参照カウンタ方式でメモリ管理をしてるVBAで巨大フォルダの処理をやるとうっかりスタックオーバーフローさせちゃうリスクが高いし

**デフォルトの名無しさん** · 2018/09/03(月) 13:01:35.09

PowerShell大嫌い
C#のつもりで書くとドツボにはまる
.NETのコレクション使うような込み入った処理に使うには最悪

**デフォルトの名無しさん** · 2018/09/03(月) 14:12:36.64

>>606
スタックオーバーフロー？
フォルダ階層に対する再帰処理で？
マジか. ..

**デフォルトの名無しさん** · 2018/09/03(月) 18:52:48.79

PowerShell自体は悪くない。
けど、使ってる奴が根本的に能力が低い。
それとも、ここに来てるPowerShellユ―ザーがかな。

処理を作れるかどうかというレベルじゃ無くて要件に合ってるかどうかというレベルで能力が低い。

**デフォルトの名無しさん** · 2018/09/03(月) 18:54:07.67

>>606
?
そんなこと1度も無いが?

**デフォルトの名無しさん** · 2018/09/03(月) 18:55:18.64

パワーシェル自体絶望的にセンスが悪いからバカがあんだけ食いつくんやでw

**デフォルトの名無しさん** · 2018/09/03(月) 19:08:57.81

やっぱりRubyがナンバーワン

**デフォルトの名無しさん** · 2018/09/03(月) 19:14:51.58

RubyもPowerShellも同レベル。
要件を分かってない。

**デフォルトの名無しさん** · 2018/09/03(月) 19:15:48.40

常に、シェルスクリプト・バッチ・VBA のスレでは、

PowerShell, Ruby を使えっていう結論になるw

**デフォルトの名無しさん** · 2018/09/03(月) 19:26:39.86

ならねえな。
VBAとバッチ処理は対極にあるといっていい。

**デフォルトの名無しさん** · 2018/09/03(月) 19:35:16.04

>>579みたいなふわっとした要件を勝手に有利なように解釈しないとマウント取れない言語
それがVBA

**デフォルトの名無しさん** · 2018/09/03(月) 19:39:35.25

>>616
そもそも何からマウント奪いたいんやおまえは？w

**デフォルトの名無しさん** · 2018/09/03(月) 19:49:57.51

>>579 から要件を把握できるエスパーは凄いね、心から尊敬するよ

**デフォルトの名無しさん** · 2018/09/03(月) 19:57:29.57

>>614
じゃあさパワーシェルやルビーは専用スレに行ってもらうことにしようか

**デフォルトの名無しさん** · 2018/09/03(月) 20:00:12.28

エスパーばかりで草

**デフォルトの名無しさん** · 2018/09/03(月) 20:00:29.82

>>619
パワーシェルやルビーはどこにも行けんやろw行くならおまえやw
天然なん？w

**デフォルトの名無しさん** · 2018/09/03(月) 20:02:40.83

>>621
パワーシェルのスレに行けば良いじゃん
行くとこなければ死ねばいいと思うし

**デフォルトの名無しさん** · 2018/09/03(月) 20:03:02.47

そうだパワーシェル死ねば良くない？

**デフォルトの名無しさん** · 2018/09/03(月) 20:10:33.85

パワーシェルに親を殺された奴いて草生える
何がそんなに気に入らんのや

**デフォルトの名無しさん** · 2018/09/03(月) 20:13:30.99

モスバーガーでマクドナルドハンバーガー美味しいと言ってる人居たらマクドナルドハンバーガーに行ってマクドナルドハンバーガーを美味しく召し上がれよと思うじゃんそんなにマクドナルドハンバーガーが好きならさ

**デフォルトの名無しさん** · 2018/09/03(月) 20:23:44.18

何かの事情があってモスに来てる奴が本当はマックの方がいいのに、、、とかぼやくくらいのシチュエーションなんて普通にあり得るんだよなぁw

**デフォルトの名無しさん** · 2018/09/03(月) 20:32:46.67

本当はマクドナルドハンバーガーに行きたいのか？どうしてマクドナルドハンバーガーに行かないよね？

**デフォルトの名無しさん** · 2018/09/03(月) 20:33:39.78

ﾊﾟﾜｰ系池沼には近寄りたくない

**デフォルトの名無しさん** · 2018/09/03(月) 20:52:04.26

大概ひきこもりやから遭遇する心配はいらんけどなw

**デフォルトの名無しさん** · 2018/09/03(月) 20:54:46.57

>>629
ははーんさてはおめーガチガイジやな

**デフォルトの名無しさん** · 2018/09/03(月) 21:02:29.71

わざと頭悪そうな書き込みしてる？w

**デフォルトの名無しさん** · 2018/09/03(月) 21:12:34.90

テキストファイル(XMLファイルやJSONファイル)を1つのブックに詰め込んで出荷したいのですがどうすればいいですか?
データ用のシート・セルを用意してText属性に書き込む方式は自分でも考えましたが「それテキストファイルじゃなくてシートじゃん？」ってなるのでNGです
C#やVB.NETでいうところの埋め込みリソースが理想形です

**デフォルトの名無しさん** · 2018/09/03(月) 21:19:34.10

ファイルは無理だがコードでいいなららテキストボックスに書けばよかろうよ

**デフォルトの名無しさん** · 2018/09/03(月) 21:22:30.37

>>630
なんでいきなりガイジ扱いやねんw失礼やわーコイツwwww

**デフォルトの名無しさん** · 2018/09/03(月) 21:28:07.74

>>626
ここにきてる奴らはぼやくレベルじゃないぞ。
持ち込んで食べて、ゴミそのままで帰るレベル。

**デフォルトの名無しさん** · 2018/09/04(火) 00:04:56.04

>>633
もっとマシな方法はありませんか？

**デフォルトの名無しさん** · 2018/09/04(火) 00:08:24.86

ヒント：インポート

**デフォルトの名無しさん** · 2018/09/04(火) 01:44:13.91

>>632
エクセルは表計算ソフトだよ
データはシートに入れなさい

**デフォルトの名無しさん** · 2018/09/04(火) 02:05:52.33

>>632
出荷とか養豚場でもやってんのか

**デフォルトの名無しさん** · 2018/09/04(火) 06:54:40.55

開いた状態の読み取り専用のエクセルをVBAで解除ってできますか？

**デフォルトの名無しさん** · 2018/09/04(火) 08:40:32.27

>>637
シートにデータを置いた状態でセーブするんじゃダメそうだけどシートを使わずにできるの？

**デフォルトの名無しさん** · 2018/09/04(火) 09:25:36.35

>>616
ビックリ。
>>579のような要件じゃアドバイスなんてできんだろと思ってたら勝手にPowerShellでアドバイスしといて、条件でてきたらその言い草かよ。

PowerShellが良いと言いたいだけで、要件なんて何も考えてなかっただけだろ。

**デフォルトの名無しさん** · 2018/09/04(火) 11:12:24.59

Powershellってどこかにプロモーション部でもあるの？

**デフォルトの名無しさん** · 2018/09/04(火) 11:18:09.61

仕事だと担当即外されるレベルだろうけどここは自由な場所だからね

**デフォルトの名無しさん** · 2018/09/04(火) 11:31:41.08

>>632
そんなフザケた要件、zipファイルに同梱で諦めろよ
バカバカしい

**デフォルトの名無しさん** · 2018/09/04(火) 12:41:59.08

VBAでは変なハックしないとリソースファイルを簡単には纏められないんですか
残念です

**デフォルトの名無しさん** · 2018/09/04(火) 17:28:35.50

pdfから特定のデータだけ欲しいんだけど基本機能じゃ出来ない？
acrobat?買え言われた
とりあえず全選択貼り付けで正規表現で必要な値取るようにしたけどもっと手軽な方法あったら教えて

**デフォルトの名無しさん** · 2018/09/04(火) 17:36:19.80

デコードしてファイル読み込んで情報を探すだけでは？

**デフォルトの名無しさん** · 2018/09/04(火) 19:01:02.67

PDFのファイルフォーマットみて自分でなんとかできるならVBAの基本機能でできるかもしれんが

手軽な方法はそれ用のライブラリ探すことからだな

**デフォルトの名無しさん** · 2018/09/04(火) 19:06:17.28

あまりに冗長なCOBOLコード（負の遺産）に嫌気がさし、ソース解析マクロの作成を決意。

作りたいものがあるとモチベ上がるよね

**デフォルトの名無しさん** · 2018/09/04(火) 19:11:22.13

コボルで書けや

**デフォルトの名無しさん** · 2018/09/04(火) 19:17:05.03

そのマクロも負の遺産になる

**デフォルトの名無しさん** · 2018/09/04(火) 19:38:58.88

それなぜVBA？

**デフォルトの名無しさん** · 2018/09/04(火) 19:44:23.68

ソース解析ツールなんてそれこそ金出してでもコーディングの手間を惜しむべきコモディティじゃん
VBAでやる必要あるのか？

**デフォルトの名無しさん** · 2018/09/04(火) 20:01:06.73

ホストにある資源を自分のローカルに持ってくにはテキストファイル化せなあかんのや。
メソッド同士をハイパーリンクで紐づけたり、使ってるサブルーチンを表にしたり。なんやかんやでVBA様便利やでー

**デフォルトの名無しさん** · 2018/09/04(火) 20:04:26.22

>>655
それってVBAとなんか関係あんの？

**デフォルトの名無しさん** · 2018/09/04(火) 20:04:52.77

幸い、COBOLはクラスとかアクセス修飾子って概念がないので他言語に比べたら解析ツールは楽に作れそう…って見立てや

**デフォルトの名無しさん** · 2018/09/04(火) 20:10:57.08

>>655
ホストにある資源って言ったら普通データのことだろう。
COBOLプログラムが資源なのか？？

**デフォルトの名無しさん** · 2018/09/04(火) 20:12:10.66

>>656
VBAを選んだ理由を示しただけや。
やっぱりエクセルの機能を生かせるのがVBAの強みよ

**デフォルトの名無しさん** · 2018/09/04(火) 20:12:57.29

VBAでCOBOLの構文解析とかそんな苦行に苦行を重ねなくてもまともなツールぐらい腐る程あるだろ…
と思って検索したらIBMのプログラムの次にVBAのツールが出てきて変な声出た

**デフォルトの名無しさん** · 2018/09/04(火) 20:14:11.68

タンスの奥を探してたらゴキブリの死骸を見つけた気分だ…

**デフォルトの名無しさん** · 2018/09/04(火) 20:14:17.39

>>659
理由になってなくない？

**デフォルトの名無しさん** · 2018/09/04(火) 20:16:25.24

>>659
認識の違いかな。すまん
俺はソースコードもホストの資源だと思ってるよ
データもソースも結局はデータセットに入っているわけだし

**デフォルトの名無しさん** · 2018/09/04(火) 20:17:48.78

安価ミスごめん。658に返答してる

**デフォルトの名無しさん** · 2018/09/04(火) 20:18:56.94

つーかCOBOLに限らず古い言語って解析機の設定難しいよ
古いものは文法が洗練されてないので当然っちゃ当然だけど

**デフォルトの名無しさん** · 2018/09/04(火) 20:23:31.43

なんや急にこの賑いwプロさんてみんなコボラーくずれなんかw

**デフォルトの名無しさん** · 2018/09/04(火) 20:23:44.65

>>660
そもそも、レガシーなモノを解析するツールを、わざわざ新しい言語で開発するなんてあまりないんだろうな…

**デフォルトの名無しさん** · 2018/09/04(火) 20:26:20.57

>>665
そうね。大昔のソースは見ていて頭痛がするわ
谷のように深いネストやGO TOの嵐…
だからこそ何かツールを作ってみたくなった

**デフォルトの名無しさん** · 2018/09/04(火) 21:00:05.70

>>663
COBOLソース解析してどう再利用するのさ？
そこがわからん

**デフォルトの名無しさん** · 2018/09/04(火) 21:02:18.90

流れ関係ないけどVBAってやっぱりネット上に良質の情報が少ないんだよ。
今のqiitaとかなんだありゃ。いったい誰に語りかけてるんだかわからん記事が多すぎだ。

**デフォルトの名無しさん** · 2018/09/04(火) 21:17:41.07

良質な情報は良質なプログラマから発信される
アマチュア主体のVBAじゃ限度がある

**デフォルトの名無しさん** · 2018/09/04(火) 21:24:54.44

でもプロが作ったシステムより社内で作ったものの方が完成度高いんだよね

**デフォルトの名無しさん** · 2018/09/04(火) 21:29:32.62

わざわざVBAのノウハウをqiitaに投稿してくれる熟練者がいないのかもな。
VBAはあくまで仕事のためのちょっとしたツール作成のための手段というイメージ。
いわゆるガチな人の大半は、もっと違う言語に目を向けているのだろうな

**デフォルトの名無しさん** · 2018/09/04(火) 21:31:59.83

かなり以前にシステム移行で既存のCOBOLソースのチェック用にVBAでソース解析のツールを利用したことはある。
解析とは言ってもホストのコンパイル済みソースをPCに落としてその後どうしたか…もう昔のことで覚えていないw

**デフォルトの名無しさん** · 2018/09/04(火) 22:45:37.57

棒グラフの作り方で質問です。
バーの色を、データ元のcellや文字色に対応させて一括変更することは出来ますか？

**デフォルトの名無しさん** · 2018/09/04(火) 23:36:54.27

>>675
できます

**デフォルトの名無しさん** · 2018/09/04(火) 23:41:04.59

>>675
できません
>>676は貴方を騙そうとしています
彼には十分気をつけてください

**デフォルトの名無しさん** · 2018/09/04(火) 23:51:20.39

真実は自分の眼で確かめるんだ

**デフォルトの名無しさん** · 2018/09/05(水) 00:05:21.43

>>675
VBAなら簡単に色の変更ができる
https://i.imgur.com/VP1W4uD.jpg

**デフォルトの名無しさん** · 2018/09/05(水) 00:06:51.88

行の値を順番に見て見入って
別のシートのB列に存在していればA列に●ってのを入れたいのですが

For i = 1 To Range("B2").End(xlDown).Row
If WorksheetFunction.CountIf(Worksheets(Sheet1).Range("B1:B1000"), Range("B" & i).Value) = 0 Then
Range("A" & i) = "●"
End If
Next

5000行でもかなり時間がかかります。もっと時間がかからないやり方があれば教えて下さい

**デフォルトの名無しさん** · 2018/09/05(水) 00:08:23.39

>>679のプログラム
Sub Macro1()
　　ActiveSheet.ChartObjects("グラフ 1").Activate
　　With ActiveChart
　　For k = 1 To 2
　　　　With .FullSeriesCollection(k)
　　　　For p = 1 To 10
　　　　　　.Points(p).Format.Fill.ForeColor.RGB = Cells(p + 1, k).Interior.Color
　　　　Next
　　　　End With
　　Next
　　End With
End Sub

**デフォルトの名無しさん** · 2018/09/05(水) 01:00:37.13

>>680
作業列作るなりしてワークシート関数でやった方が早いよこんなことは
あと、この条件だとSheet1に値が存在しない場合にA列に●がつくことになると思うよ

**デフォルトの名無しさん** · 2018/09/05(水) 01:38:55.49

？とりま全部配列にぶち込んで置換処理してから書き出しでは？

**デフォルトの名無しさん** · 2018/09/05(水) 01:45:14.10

>>673
VBAのスキルをアピールすると逆にバカだと思われるから
煽りじゃなく転職とかで事実そういう目で見られる

**デフォルトの名無しさん** · 2018/09/05(水) 02:58:54.45

>>632
まず第1にマクロの記録はやってみたのか?
やりもしないで質問するじゃ回答がつかないのも仕方無かろう。

次に、内容をよく見ればXMLやJSON関係ないだろ。
テキストファイルさえ関係ない。
質問する時にいらない情報は削った方が良い。

>>636
>>646
君が元の質問者かどうか分からんが、マクロの記録さえやらない、もしくはそういう機能さえ知らないレベルの者が回答がつかないからといってVBAでは難しいなどと思い込むのはどうなんだ?

元の質問者じゃ無かった場合だとしてもディスる為に試してみることさえしないようなレベルの奴は、そもそもプログラム組むような仕事はして欲しく無いな。
周りにとって迷惑だ。

**デフォルトの名無しさん** · 2018/09/05(水) 03:00:31.24

↑はあ？

**デフォルトの名無しさん** · 2018/09/05(水) 03:05:14.58

>>647
基本機能というのがどういうものか分からんが、PDFの仕様が分かればファイルの読み書きで出来る筈だ。
昔、そういうのを書いたことがある。
ただし、PDFの場合、バージョンと扱いたいデータによっては出来ないこともあるだろう。

**デフォルトの名無しさん** · 2018/09/05(水) 04:36:08.22

PDF関連は、ここ読んでVBAで作ったことあるけど、面倒だったな
ttp://pdf-file.nnn2.com/

**デフォルトの名無しさん** · 2018/09/05(水) 05:27:37.56

>>685
マクロの記録でどう操作すればファイルを同梱できるん？

**デフォルトの名無しさん** · 2018/09/05(水) 06:11:08.39

>>685
文字列型データをセルやテキストボックスのような組み込みオブジェクトのどれかにコピーするという単純な話だと誤解してないか？
埋め込みリソースの意味が分かってないなら君が黙ってた方がいいと思う

basファイルというか標準モジュールに行頭カンマ付 or 二重引用符付でデータを書き込んでおいて、そのデータをマクロ実行時にコピーして任意の形式のファイルを生成するとかはどうかな
この方法なら一応、エクセルのオブジェクトへのテキスト保存という方法よりは埋め込みリソースに近いイメージになるかも
VBEの操作を含むマクロになるので配布のハードルが著しく高くなるし、画像とかなら埋め込んでおくデータをバイナリデータにするとかの工夫が必要だけど

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

>>689
>>690
???
あのさあ、試してから言ってくれないかな。

1.[開発]リボン→[マクロの記録]を選択
2.[挿入]リボン→[オブジェクト]を選択
3.[オブジェクトの挿入]で[ファイルから]タブを選択して、ファイル名に適当なdllを指定する。
4.[開発]リボン→[マクロ記録の停止]

これで基本的にどんなファイルでもシート上に埋め込めるソースコードが出来てると思うんだが。

俺の誤解だったらすまないが、俺への指摘が噛み合ってるように見えないもんで。

**デフォルトの名無しさん** · 2018/09/05(水) 08:14:23.51

埋めこみオブジェクト自体は誰でも知ってる基礎的な話だと思うんだよ。
なにしろ20年以上前に初めてExcel触った時からあった機能だと思うんだよな。
シートに画像を貼り付けたつもりなのにアイコンになってしまったなんて質問をそれぐらい前に見たような気がするんで。

であれば何らかの理由が無い限りマクロの記録でそのためのソースコードが出来るだろうと考えるのも当然のこと。

何でこんな質問が?とも思ったけど、何らかの理由があってマクロの記録では記録されないような機能だったかなと試してみたら記録された。

**デフォルトの名無しさん** · 2018/09/05(水) 08:29:10.16

>>688
俺が書いたのはこんな便利な機能使ったものじゃないと思う。
PDFのファイル構造はググれば出てくるが、バイナリをゴリゴリする方法だったと思う。
OLE使った記憶が無いもんなあ。
すまんが、大分昔で自分がどんな方法で書いたかはほとんど覚えていないのでかなり曖昧。

ゴリゴリ書く方法はお勧めしない。
>>688のリンク先の技術を使った方が良いね。

**デフォルトの名無しさん** · 2018/09/05(水) 08:40:26.86

>>691
ありがとう
やり方がわからないから聞いてるわけで
わからないんだから試せるわけないよね
次からはもっとさっさと説明してね

**デフォルトの名無しさん** · 2018/09/05(水) 08:45:18.19

オブジェクトの挿入じゃダメだった？
と聞くのがいんじゃないかな
マクロの記録は試したかじゃ意味がわからないよ

**デフォルトの名無しさん** · 2018/09/05(水) 08:54:18.91

教えてくれてありがとうという感謝の気持ち
態度が気に入らないという憤慨の気持ち

**デフォルトの名無しさん** · 2018/09/05(水) 09:00:50.18

ファイルを埋め込むという機能が存在する、そしてその方法も知っているけれどもそのVBAのコードを知りたいという質問と受け取ったので。

**デフォルトの名無しさん** · 2018/09/05(水) 09:06:09.22

なるほどじゃあしょうがない

**デフォルトの名無しさん** · 2018/09/05(水) 09:23:22.51

相変わらず日本語読解が下手くそなようで

**デフォルトの名無しさん** · 2018/09/05(水) 09:23:33.11

久しぶりに質問スレらしい流れになったことを謹んでお喜び申し上げます