Excel VBA 質問スレ Part54

**デフォルトの名無しさん** · 2018/05/26(土) 20:37:37.74

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

最近プロによる書き込みが多々見うけられますが
彼らに絡むと話がこじれるので質問したい方は適当にスルーしてください

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

**デフォルトの名無しさん** · 2018/06/15(金) 21:03:46.01

列番号を取得したいだけならSetはいらない

顧客コードは変数なの？
変数じゃなく「顧客コード」という文字列を検索したいなら

.Find(顧客コード)
ではなく
.Find("顧客コード")

と書かないと

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

Cellsの使い方が間違ってるんじゃないかね

**デフォルトの名無しさん** · 2018/06/15(金) 21:30:16.61

関係無いとも思うけど、顧客コードを検索して見つからなかったらエラー出るぞ。
まずFindまでをオブジェクトに代入し、代入されたオブジェクトがNothingかどうかをチェックすべき。

**デフォルトの名無しさん** · 2018/06/15(金) 21:31:06.68

あと、変数は全て型指定すること。

**デフォルトの名無しさん** · 2018/06/15(金) 21:44:35.90

どうしたお前ら
いつになくまともやんけ

**デフォルトの名無しさん** · 2018/06/15(金) 21:59:24.92

よくこんな馬鹿を相手にするな

**デフォルトの名無しさん** · 2018/06/15(金) 22:09:24.98

あーなんだ
もうSubとFunctionの話は終わっちゃったのか
ちょっと来るのが遅かったな

**デフォルトの名無しさん** · 2018/06/15(金) 22:23:49.95

>>294
列番号ほしくてColumn付けてたんですよねー
でもSetなくしたらとりあえず実行できました・・・なんでできるようになったのか謎です

>>295
顧客コードは変数です
ユーザーフォームで入力させてそれを判別してるような形をとっています

>>300
初めて1週間ですみませんorz

型式って指定したほうがやっぱりいいんですか・・
もう1つ悩んでることあるのでちょっと書かせてください

**デフォルトの名無しさん** · 2018/06/15(金) 22:30:35.92

ユーザーフォームで顧客コードを検索してそれを別ブックに転記したいんですけどうまくいきません
繰り返し文だと i=0 To 5　みたいに回数を決めないと思いまして、代わりにdo until使ってるんですけどバグっちゃって・・
参考にコードと表のSS貼っておきます
ご教授願います

ttps://gyazo.com/08befaf20d8d06c1c09571710d6614b6
ttp://textuploader.com/dp3p2

**デフォルトの名無しさん** · 2018/06/15(金) 22:44:11.72

確かウィンドウをサブクラス化し
てコールバック関数でゴニョゴニョ、、、
なんたらする時メモリーの番地が、あーたらで
それでふんくちおnを使うんだったような??。

今はこんなことしないのかな。

**デフォルトの名無しさん** · 2018/06/15(金) 22:46:52.27

Dim i
i = 0
Dim kekka
Do Until kekka = vbCancel

この辺が意味不明です。
i=0
だと定数みたいになってる。
kekkaも値自体が入ってないのに、do until kekka =2と書かれても。
(vbcancelは組込定数なので、2という数値と同じ)

型は指定した方がいいと思います。

**デフォルトの名無しさん** · 2018/06/15(金) 22:56:21.89

>>305
単純に変数宣言したかっただけです；；

意味合いとしては、

「処理を続行しますか？」→OKだったら最初のユーザーフォームを起動させて転記する。
　　　　　　　　　　　　　　　 →Cancelだったら転記をしてプログラムを終了。
という感じなのですが。。

**デフォルトの名無しさん** · 2018/06/15(金) 23:05:16.76

プロパティとメソッドの違いがわかりません
判別する方法とかあるんでしょうか

**デフォルトの名無しさん** · 2018/06/15(金) 23:10:48.49

>>307
MSDNを丸暗記する

**デフォルトの名無しさん** · 2018/06/16(土) 01:03:53.77

>>307
一度新幹線に跳ねられてみればわかるかもよ

**デフォルトの名無しさん** · 2018/06/16(土) 01:50:39.19

>>307
判別して何がしたいの。
VBAなら深く意識しなくて困る事がないんだけど。

**デフォルトの名無しさん** · 2018/06/16(土) 08:49:31.66

Propertyとあるのがプロパティ
そうじゃないのがメソッドだ

**デフォルトの名無しさん** · 2018/06/16(土) 09:50:15.71

>>310
本で見て疑問だったので笑

**デフォルトの名無しさん** · 2018/06/16(土) 11:32:54.10

>>307
シンタックスシュガーというやつだよ
違いはあるともないともどっちともいえる

**デフォルトの名無しさん** · 2018/06/16(土) 13:33:23.98

シンタックス・ショッカーだって！？

**デフォルトの名無しさん** · 2018/06/16(土) 13:40:50.38

板を荒らすなよ

**デフォルトの名無しさん** · 2018/06/16(土) 15:27:03.33

>>303
クオーテーションマークでコメントアウトが出来ますので、どこでどのような処理をしたいのか書いておくと良いかもしれません。

>ユーザーフォームで顧客コードを検索して
UserForm.Valueで入力された値を参照してから該当の表内に検索をかけることになるでしょう。

>Do Until 文
Do Loop文の中でIf kekka = vbOK Thenがコメントアウトになってますのでこれは機能しません。
また、Loopを記述するより先にEnd ifで完結させないとエラーが出るはずです。

書き慣れるまでは変数宣言は上部にまとめておくのも一つの手かと思います。

**デフォルトの名無しさん** · 2018/06/16(土) 16:15:37.97

サーバーに入ってきた仕事の素材を連番のフォルダを手動で管理しております
現在画像のような感じにサーバーに素材が入ったのを確認したらとなりのセルを塗りつぶすというのを手動で管理しています
それを特定のフォルダをexcelで監視させて新しいフォルダが入ったらとなりのセルを
自動で塗りつぶす、ということをvbaではできないでしょうか

可能であればコードも教えていただければ幸いです

画像url↓
https://dotup.org/uploda/dotup.org1560186.jpg
https://dotup.org/uploda/dotup.org1560191.jpg

**デフォルトの名無しさん** · 2018/06/16(土) 16:20:58.56

Excelで管理する意味がわからない

**デフォルトの名無しさん** · 2018/06/16(土) 16:27:38.13

そこにエクセルがあるからさ

**デフォルトの名無しさん** · 2018/06/16(土) 16:44:06.49

この程度でもお金が発生するんだから知識の安売りしちゃダメだよね

**デフォルトの名無しさん** · 2018/06/16(土) 16:47:32.62

>>317
Dir関数

**デフォルトの名無しさん** · 2018/06/16(土) 17:52:11.74

日本企業は外注には何十万、何百万も払うのに自社の社員が書いたものはタダだと考えてる。

**デフォルトの名無しさん** · 2018/06/16(土) 18:37:23.14

>>317
本題からはそれるけど、セルを塗りつぶすってのはセルの背景色を直接指定するんじゃなくて
条件付き書式にした方がいいと思うよ。
つまり該当セルに「1」とかの値を入力すると勝手に赤い背景色になるようにしとく。
値ならあとで利用しやすいからね。

**デフォルトの名無しさん** · 2018/06/16(土) 18:43:20.62

>>322
VBAごときに価値はない

**デフォルトの名無しさん** · 2018/06/16(土) 19:00:05.51

>>324
VBAスレで吠えるトンスルランドの寄生虫WW

**デフォルトの名無しさん** · 2018/06/16(土) 19:06:20.60

>>323
そしてセル数のぶんだけ重くなる。
規模によるけどね。
色付けても検索とか抽出とか面倒なだけだから自分なら記号でも埋めるかな。
色付けるとすれば視認性をあげるためのオマケ。

**デフォルトの名無しさん** · 2018/06/16(土) 19:11:09.71

わかったつもりになってUIを根底から否定してしまったプロさんw

**デフォルトの名無しさん** · 2018/06/16(土) 19:12:46.39

>>317
開始時刻から終了時刻まで一定間隔でマクロを実行するには？
http://www.max.hi-ho.ne.jp/happy/YNxv9c134.html
を使って
>>321のDir関数を使って指定のフォルダをチェック
みたいな感じで

**デフォルトの名無しさん** · 2018/06/16(土) 19:17:02.30

>>317
こんな馬鹿に管理させる馬鹿会社があるのか

**デフォルトの名無しさん** · 2018/06/16(土) 19:27:58.07

アマチュア事務員VBAerしかいない中小企業なんてこんなもんでしょう

**デフォルトの名無しさん** · 2018/06/16(土) 21:07:12.41

>>326
＞そしてセル数のぶんだけ重くなる。
？

**デフォルトの名無しさん** · 2018/06/16(土) 21:08:34.68

条件付き書式だらけのワークブックなんて開くのもしんどいわw

**デフォルトの名無しさん** · 2018/06/16(土) 21:19:39.41

>>332
条件付き書式「だらけ」？
ひとつで十分だよね？

**デフォルトの名無しさん** · 2018/06/16(土) 21:51:48.05

>>333
ああ、>>323は>>317の個別の事例に特化した話だけをしていたってわけね
俺は（恐らく>>326も）てっきり>>323は一般論を話しているものと思ったよ
「本題とはそれるけど」って書いてあったからかなあ

一般論としてはセルの背景色は条件付き書式で塗りつぶすべきなんていう馬鹿な話はないから

**デフォルトの名無しさん** · 2018/06/16(土) 22:01:21.03

>>334
そりゃだって>>317の画像で言えばB列に条件付き書式を設定すれば十分だし、
色はおまけで値で管理したいだろう？

**デフォルトの名無しさん** · 2018/06/16(土) 22:05:25.26

>>334
Excelの操作（データ整理など）で、
条件付き書式でセルの文字色や背景色を変更するのは一般的なことだと思ってたんだが、どういう点がバカなんだろ？

**デフォルトの名無しさん** · 2018/06/16(土) 22:06:33.94

おっと、IDを消してる人にレスしてしまった…

**デフォルトの名無しさん** · 2018/06/16(土) 22:13:39.48

アマチュア事務員さんの一般論とプロの一般論は異なるということだね
プロはセルに一個一個色を設定するなんてめんどくさいことはしないよ

状態が1つ変わるたびに別の状態を同期させるようなコードは手続き的で非常にメンテナンスしにくい
まずは問い合わせで解決することを考えよう
これを覚えてまた1つ賢くなったね事務員さん

**デフォルトの名無しさん** · 2018/06/16(土) 22:21:41.19

自分で考えない馬鹿には何を教えてもムダ

**デフォルトの名無しさん** · 2018/06/16(土) 22:29:39.05

今のエクセルは下手なVBAerが組んだらゴミの山生成するから気をつけたほうがいいのは間違いない

**デフォルトの名無しさん** · 2018/06/16(土) 22:36:27.25

ブバラー

**デフォルトの名無しさん** · 2018/06/16(土) 22:43:30.84

>>338-340
馬鹿は何も考えない方が良いんだってよプロさんw

**デフォルトの名無しさん** · 2018/06/16(土) 22:44:27.40

>>336
それも度を過ぎると再計算が走って重くなるからVBAで色を塗ってしまったほうがいいという一般論

**デフォルトの名無しさん** · 2018/06/16(土) 23:08:33.78

度を過ぎたときにおこる問題を回避するのが一般論という

**デフォルトの名無しさん** · 2018/06/16(土) 23:11:12.97

それは一般論の一般的な定義ではないねｗ

**デフォルトの名無しさん** · 2018/06/16(土) 23:12:30.35

その程度では重くならんだろ
どんだけ巨大なモンスターブックだよ

**デフォルトの名無しさん** · 2018/06/16(土) 23:12:39.52

>>342
なかなか釣れないね

**デフォルトの名無しさん** · 2018/06/16(土) 23:26:26.09

>>344
これはひどい

**デフォルトの名無しさん** · 2018/06/16(土) 23:52:20.14

重くなってから考えればいいと思うよ
仕様で決めたこと以外は極力手を抜こうぜ

**デフォルトの名無しさん** · 2018/06/18(月) 01:25:50.44

金にならない仕事を勝手にやって問題起こして仕事増やす奴

**デフォルトの名無しさん** · 2018/06/18(月) 02:25:09.76

FileCloseとSub Procの寿命について質問です。
作業中のSafe Backupを作成しようと思い、Shift+Ctrl+Sに
① "_01" で終わるファイル名を、"_00" でリネーム保存
② 続けて "_01"でリネーム保存して元のファイルに戻る
といった動作を割り付けています。
この①の直後の時、"_01" はプロセス上にいないと思うのですが、SafeBackup
は最後まで正常に走り、"_01" ファイルがプロセス上に戻ってくるのが不思議です。
内部的にはどのような動きになっているのでしょうか。

**デフォルトの名無しさん** · 2018/06/18(月) 07:11:35.78

期間にあったものを抽出する検索ソフト作ってて、optionボタンそれぞれ1年前～今日、2年前～今日、全期間ってあってdateadd関数計算して全期間以外はうまく出来るのですが全期間ってどう計算したらいいですか？

**デフォルトの名無しさん** · 2018/06/18(月) 08:40:12.00

>>352
ネタ？
その程度の事をここで聞かないと分からないの？
嘘だろ？

**デフォルトの名無しさん** · 2018/06/18(月) 12:21:10.07

非建設的発言は良くないでしょ。

>>352
でも質問に情報が全く足らないな。
検索されるものは何なの?
別シートに日付のついたデータがあって、そこから検索するとか?

DateAdd使ってるのも良くわからないな。
全期間ってのは他に検索条件が無ければ全データになっちまうと思うんだが。

**デフォルトの名無しさん** · 2018/06/18(月) 12:45:04.79

>>354
テキストファイルから一列ずつ検索。
instr(1,strline,txtSrchWd)
これてヒットしたら、スプリットで切って配列に入れて、(5)に入る日付と比べて正なら抽出したくてやってます。
現在の日付からそれぞれ1年、2年前は計算でうまく抽出出来ますが、全期間は一番古い日付調べておく必要があるんですか？

**デフォルトの名無しさん** · 2018/06/18(月) 13:39:37.58

>>355
全期間だから全部だろ、馬鹿なの？
それとも前提条件を全部書かない馬鹿なの？

**デフォルトの名無しさん** · 2018/06/19(火) 00:08:08.37

君vba出来るんでしょとか言われて簡単なプログラム作成任されて作ったけど管理めんどくさすぎん？
初めはここは数字しか入らんよて言われてたからisNumericだけ判定してたのに数字以外入れると止まっちゃうから漢字とか諸々の対応させられた
そんな感じで他のinputとかアウトプットの要件がころころ変わる
そして全然動かんねーとか言われるイラつく

**デフォルトの名無しさん** · 2018/06/19(火) 00:14:52.67

>>355
全期間ならば現在の日付からの計算は必要なく、一番古い日付を指定しなくともテキストファイルの最終行まで走らせれば良いのでは。

**デフォルトの名無しさん** · 2018/06/19(火) 00:48:51.59

>>357
プログラムの仕様を決めるのはあなた
あなたが使用者に対してルールに沿った入力を求めるのは当然
道具は正しく使われるから道具として機能するのであって、猿に道具を渡しても壊れて返ってくるだけ

会社の要求をどの程度受け入れるか、もう一度冷静に考えたらどうか
個人的には、猿には付き合う必要ないと思ってる

**デフォルトの名無しさん** · 2018/06/19(火) 01:12:30.87

入力規則でガチガチにしろ

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

>>357
人に使わせるような真面目なツールにVBAは無謀でしょ
品質担保しようとしたら凄まじいコストがかかる
自分しか使わない、数行で終わる、使い捨ての、エクセル操作に特化したマクロがVBAのターゲット

**デフォルトの名無しさん** · 2018/06/19(火) 07:29:40.94

トレードオフで論破

**デフォルトの名無しさん** · 2018/06/19(火) 07:36:01.81

>>307
一番簡単な方法はその都度オブジェクトブラウザで確認すること
アイコン表示されているから一目瞭然

**デフォルトの名無しさん** · 2018/06/20(水) 18:04:43.14

>>357
バカほど我儘な要求を平気でするからなぁ。で、「俺は忙しいからプログラムなんて覚える暇が無いんだ、暇なヤツはいいなぁ」とか吐かしたりさぁ。

俺は「お前のオツムに合わせてたらキリがねえわバカ」ってあからさまに言ってるよ。だいたい、数字を入力するところに平気で文字を入力して「何ｊこれエラーとかマジやってらんない」とか。
やってらんねえのはこっちだっての！

**デフォルトの名無しさん** · 2018/06/20(水) 18:22:57.33

使い方守れない馬鹿も馬鹿だけど本気で業務システムを作ろうってんなら
誰でも使えるようにデザインする努力も必要

入力文字種を守れない馬鹿がいる環境なら自由に手入力させる余地を残すな

**デフォルトの名無しさん** · 2018/06/20(水) 18:39:01.82

とりあえずドキュメントなりマニュアルなりを作って
読まん奴まではフォロー出来ないとはっきり意思表示する

そっから先は職場の人間関係の話なので何とも

**デフォルトの名無しさん** · 2018/06/20(水) 19:02:33.02

そういう人に使わせる前提のある程度しっかりした作りのアプリはエクセルみたいな非生産的なプラットフォームでは普通は作らないね
エクセルは個人用のちょっとした処理をサクッと実行したい時とかに使うといいよ
まあその個人用のちょっとした処理だと今度はPowerShellのほうが楽なんだけどな
帯に短し襷に長しってやつだ

**デフォルトの名無しさん** · 2018/06/20(水) 19:28:16.79

> そういう人に使わせる前提のある程度しっかりした作りのアプリ
エクセルには無理なんやなく
プロさんには無理なだけやんけw
言い訳だけは上手やねw下手やけどw

**デフォルトの名無しさん** · 2018/06/20(水) 20:43:28.89

VBAでUTF-8(BOM無し)ファイルを読み書きする最速の方法は何ですか？
ADODB.Streamだと遅いしBOM無しにするための2度読み書きでさらに遅いし

**デフォルトの名無しさん** · 2018/06/20(水) 21:27:51.31

>>364
数字とか入力文字列の制限とかくらいはプログラム側でエラー処理するべきだろ。

**デフォルトの名無しさん** · 2018/06/20(水) 21:54:21.71

>>367
程度にもよるが普通作る。
1回動かして終わりになる場合は作らんが。

**デフォルトの名無しさん** · 2018/06/20(水) 22:03:23.77

>>369
アセンブラで最適化したDLLを作って読み込む

**デフォルトの名無しさん** · 2018/06/20(水) 22:36:11.28

>>369
nkfでBOM付けて処理して、ポスト処理で外すw

**デフォルトの名無しさん** · 2018/06/21(木) 02:33:39.35

2007から2016に変えたらCSVの処理速度なんかがかなり低下した気がするんですが気のせいかな？

**デフォルトの名無しさん** · 2018/06/21(木) 10:26:53.76

>>369
コードページを明示的に指定するdllを作るのがいいんじゃないか？
俺はそうしてる。自動判定なんていらん。（言い過ぎ？）

**デフォルトの名無しさん** · 2018/06/21(木) 12:24:27.49

>>374
CSV言うても読み方も書かんとわからん。
workbook.openなんかはバージョン上がるにつれてどんどん遅くなってる。2003までは一瞬だったのに・・・

**デフォルトの名無しさん** · 2018/06/21(木) 15:28:13.92

>>369
こいつ程度の頭でもできる最速の方法なのか？
そもそも最速の定義は何なのか。同一ハードウェア上でという前提条件があるのかないのか等々
馬鹿は考えもなしに｢最高とか最速｣などの用語を使いたがる

**デフォルトの名無しさん** · 2018/06/21(木) 16:15:01.66

>>376
あー、基本workbook.openで開いてます…
ここで結構時間かかってるのかな
あと、セルの数字を一つ一つ計算したり置き換えたりって処理もかなり遅くなってるような
配列でまとめてとりこんで配列で吐き出すって感じの方が速いのかな

まだ色々と確認中なのですがいろんな物がこれまでよりやたら遅くなってる気がして…

**デフォルトの名無しさん** · 2018/06/21(木) 17:46:03.54

表計算ソフトなんだかた視覚効果なんかいらないと思うんだが何故かMSはそういうのに拘りがあるようで

**デフォルトの名無しさん** · 2018/06/21(木) 17:55:46.72

それいったら殆どの機能が不要になるけど
表計算の上に無秩序に機能を拡張したコンセプトのよくわからないソフト
素人にはこういうのがいいんだよ

**デフォルトの名無しさん** · 2018/06/21(木) 19:45:05.77

>>380
スマホタブレット世代の若いヤツはそれをいいとは思わないだろ。

**デフォルトの名無しさん** · 2018/06/23(土) 22:52:17.92

誰かwbsのイナズマ線を自動で引いてくれるソース書ける人いない。。。？

どこから初めていいかすら、分からない。

**デフォルトの名無しさん** · 2018/06/23(土) 22:56:41.49

>>382
まずは息を30分停める練習をしてください。
それができたら来てください。

**デフォルトの名無しさん** · 2018/06/23(土) 23:06:49.20

>>382
1. WBSの入力サンプルを用意する
2. 1に基づいてイナズマ線を手動で書いてみる
3. 2に基づいてどういう入力のときにどういう出力をすればいいのか整理してパターン化する
4. 3に基づいてコーティングする
5. 4を動かして2と同様の出力になるかどうか確認する

**デフォルトの名無しさん** · 2018/06/23(土) 23:55:59.49

>>382
> どこから初めていいかすら、分からない。
流石にその状態だとこっちもどこから教えたらいいかすら、わからん
Excel 稲妻線あたりでググって適当なアドイン使ったほうがいいんじゃね？

**デフォルトの名無しさん** · 2018/06/24(日) 02:48:24.86

Project買えばいいのに
これだからExcel陶酔者は困るんだ

**デフォルトの名無しさん** · 2018/06/24(日) 04:38:46.13

VBAなんだから、何はともあれマクロの記録からだろ。

**デフォルトの名無しさん** · 2018/06/24(日) 06:57:49.54

VBAの本に書いてあるコードをひたすらパソコンに写経して実行してればVBAできるようになりますか？

**デフォルトの名無しさん** · 2018/06/24(日) 07:22:58.28

>>388
3日でオッケー

**デフォルトの名無しさん** · 2018/06/24(日) 07:38:59.29

>>388
タイピングの能力上がるだけかな

**デフォルトの名無しさん** · 2018/06/24(日) 07:42:37.49

>>382
まずはWBSとイナズマ線の定義を明確化して
全てはそこからだよ

**デフォルトの名無しさん** · 2018/06/24(日) 08:59:29.02

GG佐藤のせい

**デフォルトの名無しさん** · 2018/06/24(日) 11:05:37.20

ワールドビジネスサテライト?

**デフォルトの名無しさん** · 2018/06/24(日) 11:16:27.44

「イナズマ線」でググったらこんなの出ましたけど？

イナズマ線を簡単に引くExcelマクロを作りました
http://www.fin-itnews.com/entry/2015/08/12/031032
Sub イナズマ線描画()
'FreeformBuilderオブジェクトを宣言
Dim InazumaLine As FreeformBuilder
'始点を設定
Set InazumaLine
'以降の点を結んでいく
'繰り返し用変数i
Dim i As Integer
'列の位置固定用変数
'上から下にセルをなめていく。0以外の数値ならイナズマ線を引く
For i
'数値以外はスキップ
If Not () Then
'0もスキップ
ElseIf
'イナズマ線を引く（正の数なら＞、負の数なら＜）
Else
End If
Next i
'終点を設定
'イナズマ線を描画
'見た目の編集（青の太線）