Excel VBA 質問スレ Part57

**デフォルトの名無しさん** · 2018/09/10(月) 21:42:39.57

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

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

**デフォルトの名無しさん** · 2018/10/18(木) 23:58:42.58

>>708
そうだねぇ
なんか赤にする以外の方法の方が良い気がする

**デフォルトの名無しさん** · 2018/10/19(金) 14:49:27.87

くそう、↑のやり方以外が思いつかない。
セルにtagプロパティでもありゃ前値保持できるのに。。

赤字にしたい目的がわかれば、そもそも別の簡単な手とかあるかも？（逃げ）

**デフォルトの名無しさん** · 2018/10/19(金) 21:19:57.26

>>711
Excelをフロントエンドにしたデータベース管理です
一度に複数のデータを弄ることが多いため、フォームではなくテーブルに直接データを読み込み、編集後に更新といった流れで、この更新部分の判定を文字色で行っています
作業者自身も更新前にどこを変更したかひと目でわかると考えてこの方法を取ってますが、もっとベターな方法があるなら全然乗り換えたいです

**デフォルトの名無しさん** · 2018/10/19(金) 21:42:58.96

編集後・更新
この間に変更する予定のセルに対して処理をかませることができそう、というか出来るだろう

**デフォルトの名無しさん** · 2018/10/19(金) 23:04:57.15

Vue.js などのウォッチャ・データバインド・リアクティブシステムだろ

データ更新前後のフックは、無いのか？

**デフォルトの名無しさん** · 2018/10/20(土) 02:32:55.91

Ifとforだけでとりあえず簡単な処理くらいはさせられるようになったんだけど、次は何を学べば順当にステップアップできる？
イベントプロシージャもダブルクリックだけは理解した
Constで柔軟なコード書くのも学んだ
配列はいまいち便利な使い道がわからない

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

>>715
処理の制御自体は分岐と繰り返しを覚えれば大抵なんとかなる。
ロジックをよりスマートにしたい。処理時間を短縮したい等なら、配列やアルゴリズム等の効率的なやり方が必須になる。
特に、セルを使うならば配列は絶対使ったほうがいい。二次元配列と聞くとよくわからなそうだが、
(y軸,x軸) を指定するだけだから、一見難しそうに見えても簡単だよ。
あとは、何をやりたいかによるかな。それによって取得するべき技術が決まってくると思う。

**デフォルトの名無しさん** · 2018/10/20(土) 07:07:20.99

>>715
配列使った方がいい理由を補足すると、
配列変数を使えば、変数の数を大幅に減らすことができるかつ、ループ文を使って1から最大数までアクセスがしやすいから。例えば、人間という名前の違う変数を別々に100人定義するのは面倒。
だが、配列変数を使えば1行で定義できる。

セルに関して言うと、VBAはセルにアクセスした際に大幅に時間を使う。値を編集するたびに毎回セルにアクセスするよりも、配列変数に格納をして、まるごとセルに代入するようにすれば、アクセスは1回で済む。
（それっぽく例えるなら、積み木を片付ける時に1つずつ摘まんで箱に入れるか、形を整えた後まとめて箱に入れるかの違い）

**デフォルトの名無しさん** · 2018/10/20(土) 07:49:40.17

>>715
次は違う言語を学ぶといいよ
pythonとかがオススメ

**デフォルトの名無しさん** · 2018/10/20(土) 08:15:19.11

>>715
シートはセルの二次元配列
ブックはシートの一次元配列
合わせて三次元の配列

元々エクセル自体が配列の塊なので、
vba上だけで配列を持たなくてもなんとかできるようにはなっている

他のプログラムだと配列なしなんてありえないんだけどね

vbaで配列を扱う大きなメリットとしては、爆速にできる事

で、そこまで来たら何を覚えるかだけど
・objectの扱い。set foo = sheets("name")
・fso（filesystemobject）

この辺かね～

他言語やるなら俺もpythonがオススメ

**デフォルトの名無しさん** · 2018/10/20(土) 09:34:05.81

>>719
>合わせて三次元の配列

「三次元配列」と書かないところが正確でイイ！

**デフォルトの名無しさん** · 2018/10/20(土) 11:18:59.41

あ・・・Application.Workbooks(3).Worksheets(1).Cells(1, 1).Characters(2, 2).Font.Color = vbRed

**デフォルトの名無しさん** · 2018/10/20(土) 11:51:10.77

参考になります！説明がとても分かりやすいですね尊敬します
配列を学ぶことでの処理の高速化も理解できました
setはサンプルコードでよく見かけるなとは思ってたけど、詳しく掘り下げてみます
fsoは初耳なのでじっくり学びます
Pythonも並行して学びたいと思ってたのでちょうどいいタイミングみたいですね
ありがとうございました。

**デフォルトの名無しさん** · 2018/10/20(土) 12:18:11.17

for each文かな

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

あぁfor eachは必須だね

**デフォルトの名無しさん** · 2018/10/20(土) 13:40:10.36

>>715
余裕があるならアセンブリ言語をちょっと齧っとくのがいいと思う

◆QZaw55cn4c · 2018/10/20(土) 14:06:53.02

>>725
アセンブラとか環境とかはどう調達すればいいのでしょうか？

**デフォルトの名無しさん** · 2018/10/20(土) 14:48:16.50

masm とか nasm とかのキーワードで調べる
っていうか、vbaの範囲外のことまでここで聞くなよ

**デフォルトの名無しさん** · 2018/10/20(土) 17:52:59.67

>>715
デバッグの方法（VBEの機能）
ユーザーフォーム
for next以外の繰り返し（do loop）

**デフォルトの名無しさん** · 2018/10/20(土) 18:35:11.69

>>726
齧るだけだからネットで調べてだいたいの仕組みが分かればそれでいいんだよ
「アセンブラ入門 casl」でググって見つかったサイトで勉強してみるのがいいと思う
資格の勉強にもなるし

やる気あるなら機械語が使えるポケコンを買って実際に
ハンドアセンブルしてみるのもいいかも

◆QZaw55cn4c · 2018/10/20(土) 19:32:33.10

>>729
casl2 は気が進まなくって…だってハードがないんでしょう？

**デフォルトの名無しさん** · 2018/10/20(土) 19:45:41.44

>>730
うん、ハードはないな、仮想CPUだから
でもコンピューターの仕組みは分かるようになる
俺はアセンブリの知識のおかげでデバッグとかで役に立ってる

**デフォルトの名無しさん** · 2018/10/21(日) 09:08:05.20

オデッセイのやってるvbaの試験受けてvbaスタンダードに合格したけど、
これ実際にvbaでプログラム作れって言われても絶対作れないな。

何が言いたいかって、お前らすげーわ。

**デフォルトの名無しさん** · 2018/10/21(日) 11:55:37.97

>>730
ハートもないやつがなにいってる

**デフォルトの名無しさん** · 2018/10/21(日) 12:30:29.51

vbaで色々ツール作ってるけど、自分しか使わないっていうので設計雑になっちゃう。
後の機能追加等考えるとクラスモジュール使って役割ハッキリさせた設計が良いんだろうけど、結局書くのが楽な手続き型チックになっちゃうのよね

**デフォルトの名無しさん** · 2018/10/21(日) 14:12:47.07

>>734
それは別に反省ポイントじゃない

**デフォルトの名無しさん** · 2018/10/21(日) 14:42:48.38

自分を省みるのは良いことだよ

**デフォルトの名無しさん** · 2018/10/21(日) 17:38:59.00

VBAはコードのスタイル云々以前に存在自体が基本的に悪なので、実務においてはいかに使用を最小限にとどめながら要件を満たすかが最も重要だよ
VBAがあるだけでメンテができる人が数十分の一になるんだから

**デフォルトの名無しさん** · 2018/10/21(日) 18:02:16.30

VBA撲滅委員会でも作ってその会長にでもなれ

**デフォルトの名無しさん** · 2018/10/21(日) 18:14:38.25

>>738
別にVBAで飯食ってる人を批判するつもりはないよ。
プログラミングにおいて>>734の言ってるような適切なモジュール化(VBのModuleではなく広義のモジュールだぞ、念のため)を行う目的は、メンテナンス性を良くすることだ。
そして、Excelのメンテナンス性を高める最善の方法は、VBAのコードを綺麗に書くことではなく、VBAの使用を極力控えることだ。
VBAのメンテナンス性を高めようという発想は根本的に矛盾してるんだよ。

**デフォルトの名無しさん** · 2018/10/21(日) 19:06:18.04

VBAの存在が基本的に悪という理由って何だ？
文面から見て、メンテできる人（使用者）が少ないからという風に捉えているんだが…
もしそれが理由ならば、職場によるのではないか？

**デフォルトの名無しさん** · 2018/10/21(日) 19:13:25.11

ただ、以前にマクロを修正する案件をやった時
初めて他者の書いたコードをしっかり見ることになったが…まぁ見辛いし目的が捉えづらく苦労した。
ろくなドキュメントも残っていなかったしね。
でもそれは、コードの改善や仕様書をしっかり残せば解決する問題であって、決して言語そのもののせいではないと私は思っているよ。

**デフォルトの名無しさん** · 2018/10/21(日) 19:36:36.64

言語や開発環境が悪いからユーザーが集まらない
言語や開発環境が悪いからユーザーが育たない
言語や開発環境が悪いから汚いコードが作られやすい

全てとは言わないが大きな影響力を持ってるのは否定できないな

**デフォルトの名無しさん** · 2018/10/21(日) 19:54:07.49

>>734
言うてもそんなに長くならないので、コメントさえしっかり書いておけば大丈夫だよ

**デフォルトの名無しさん** · 2018/10/21(日) 20:57:14.28

Pythonを使える環境ならPythonでExcelを操作できるようになっといたほうが将来的に有意義なんですかね

**デフォルトの名無しさん** · 2018/10/21(日) 21:27:31.42

>>744
何を目指すかによる
プログラマーならexcelはまず触らない
事務職ならpythonを触らない
両方知っておくことは悪いことじゃないが、どっちっつかずになりそう

**デフォルトの名無しさん** · 2018/10/21(日) 21:55:52.80

知恵遅れに毎日60以上ののVBA低レベ質問が恒常的に続くのは、商業科がExcelを教科に入れてるせいか？
VBA、大学教養のC課題、ネトゲーマーのUWSC自動化の三馬鹿うんざりトリオをなんとかして欲しい

**デフォルトの名無しさん** · 2018/10/21(日) 22:00:53.93

無視したら

**デフォルトの名無しさん** · 2018/10/24(水) 20:08:02.64

どうせ半年後は.jsになってるんだし

**デフォルトの名無しさん** · 2018/10/24(水) 21:19:25.29

昔アセンブラやってたけど
今はアセンブラの知識なんて
まず糞の役にもたたない
悪いことは言わないから
IL止まりにしておいて
残りの時間を他の言語の学習に回した方がいい

**デフォルトの名無しさん** · 2018/10/24(水) 23:52:56.26

VBAってWinAPI 使えるんだな
入力もエクセルのシート利用できるし使いがっていいなこれ
自分だけ使うものはこれで十分な気がしてきた

**デフォルトの名無しさん** · 2018/10/25(木) 00:03:26.58

二次元配列に入力できるってかなり神がかってると思う

**デフォルトの名無しさん** · 2018/10/25(木) 08:52:35.61

何を二次元配列に入力できる事が神がかってるの？

**デフォルトの名無しさん** · 2018/10/25(木) 09:32:39.27

人間が抽象化なしで無理なく扱えるデータは二次元の表までなのは確かだな
特別な技能を持たない人間の能力的限界がExcel

**デフォルトの名無しさん** · 2018/10/25(木) 11:20:28.64

行（列）をベクトルだとみなすと何次元にでもなるでしょ
テンソル入れ物にするメリットってあるか？
レベル上がると有益になるのかな

**デフォルトの名無しさん** · 2018/10/25(木) 18:41:01.78

>752
文字列と数値。ってかこれ以外セルには入れられないでしょ。オブジェクトは入れられないし

**デフォルトの名無しさん** · 2018/10/26(金) 00:13:09.54

何を～に入力できる？
って質問に対して間違っちゃいないが...

**デフォルトの名無しさん** · 2018/10/26(金) 01:08:48.00

>>755
変数型のことじゃなくて、どんな
データかって意味じゃね？

**デフォルトの名無しさん** · 2018/10/26(金) 07:12:48.70

セルって単語が後出しだからこうなるんだよ

**デフォルトの名無しさん** · 2018/10/26(金) 08:36:50.37

わかるなら聞くなよハゲども
なんでハゲてるか自問してろ

**デフォルトの名無しさん** · 2018/10/26(金) 10:34:09.86

>>750
当然だがWinAPIだけじゃなくVB呼び出しに適う任意のAPIが呼べるから、自分だけの環境なら何だって可能

**デフォルトの名無しさん** · 2018/10/26(金) 10:45:47.31

解凍・圧縮用のdllであるunlha32やらunzip32なんかもちゃんと用意されていて、vbaから利用できるしな

**デフォルトの名無しさん** · 2018/10/26(金) 12:00:29.68

>>761
え、ないでしょ？
あるんだっけ？

**デフォルトの名無しさん** · 2018/10/26(金) 13:41:39.22

「自分だけの環境」の話だろw

**デフォルトの名無しさん** · 2018/10/26(金) 20:18:33.42

それ言い出すとシェル呼び出してそこから外部プログラムの実行でなんでもできるわな

**デフォルトの名無しさん** · 2018/10/27(土) 00:10:36.89

それだと最早Excel VBAを起点にする意味がないんだよなぁ

**デフォルトの名無しさん** · 2018/10/27(土) 09:39:45.10

戻り値主体の関数的な使い方がしにくいのでは？

**デフォルトの名無しさん** · 2018/10/27(土) 12:17:32.77

なんで何でもできたら悪いみたいな言い方やねん

**デフォルトの名無しさん** · 2018/10/27(土) 15:13:38.94

彼女の作り方がわからない

**デフォルトの名無しさん** · 2018/10/27(土) 17:08:31.91

事務の女性をお得意のVBAで助けてやるんだ

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

助けてあげても一瞬感謝されるだけで何も起こらないぞ
下手すると感謝すらされない

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

>>770
そう、気づかないんだよな・・・

**デフォルトの名無しさん** · 2018/10/27(土) 23:46:47.86

助けても後出しで本当はこうしたいのにできてないだの文句言われる

**デフォルトの名無しさん** · 2018/10/28(日) 06:55:12.79

全然助けれとらんやんwプロさんあわれwww

**デフォルトの名無しさん** · 2018/10/28(日) 09:41:11.55

ちょっとしたことでいいからピンポイントで教えてあげる。
食いついてこなかったら諦める。

**デフォルトの名無しさん** · 2018/10/28(日) 10:40:54.72

ExcelVBAで、女にもてるようになる方法スレ w

**デフォルトの名無しさん** · 2018/10/28(日) 11:02:16.86

ランダムアクセスファイルでデータ管理をしています。
いままで動いていたものが　GET PUT　で　「レコード長が一致しない」となります。

一部こんな感じです。
Const MONTH_SIZE As Long = 60
Type M_Rec
S_code As Long
Stock As Long
byCode As String * 8
M_id_Cre(MONTH_SIZE) As Integer
End Type
Public S_MAIN_REC As M_Rec

Open FileName For Random As #SmainNO Len = Len(S_MAIN_REC)
Get #SmainNO, indexNo, S_MAIN_REC

この標準モジュールを破棄して同じモジュールをインポートすると
正常に動きますがワークブックを保存して再起動し同じ処理をすると
エラーになります。
Public S_MAIN_REC As M_Rec　の　記述場所を移動させると正常に
動きましたがモジュール内に新規プロシージャを追加したらまた
エラーが出るようになりました。
モジュールが壊れていると思い新しく作成しても同じでした。
ご意見お願いします。
現在ユーザ定義　の　M_id_Cre(MONTH_SIZE) As Integer　の配列を
６１に変更し正常動作中です。

**デフォルトの名無しさん** · 2018/10/28(日) 11:41:59.08

さすがに時代遅れにも程がある
そんな黴の生えたゴミカスは今すぐ捨てて普通にワークシートで管理するかDBにしろ

**デフォルトの名無しさん** · 2018/10/28(日) 15:41:48.78

言い過ぎ。しかしランダムアクセスファイルとは懐かしい

**776** · 2018/10/28(日) 16:59:37.36

すみません
もともとはワークシートで管理していたのですがファイルのほうが
都合が良いので変更しました。

**デフォルトの名無しさん** · 2018/10/28(日) 17:01:07.70

で、今まさにその前提が間違っていたことが判明したんだろ？
直ちに戻しなさい

**デフォルトの名無しさん** · 2018/10/28(日) 20:08:41.54

馬鹿の特徴

動きません
エラーが起きます

決して具体的なエラーメッセージを書かない

**デフォルトの名無しさん** · 2018/10/28(日) 21:40:15.40

バカの特徴
書いてあるエラーメッセージを理解できずに自爆 w

> GET PUT　で　「レコード長が一致しない」となります。

**デフォルトの名無しさん** · 2018/10/28(日) 23:30:32.75

ここの住人回答者は居丈高だからteratailにでも質問なさい。
ただコード具体例とエラー詳細はいずれにせよ求められるけど

**デフォルトの名無しさん** · 2018/10/29(月) 00:30:55.69

>>782
馬鹿は表面的なことしか見えない

**デフォルトの名無しさん** · 2018/10/29(月) 04:51:38.42

>>784
表面的なことすら見えてないバカの自爆乙 w

**デフォルトの名無しさん** · 2018/10/29(月) 09:45:00.02

初心者には環境とかエラーの詳細な条件を明記することへの心理的な障壁があります
その心理の正体は一体何でしょう？

**デフォルトの名無しさん** · 2018/10/29(月) 10:53:33.28

慣れの問題かと
・自信ないのでミス指摘されたくないなどの自尊心問題
・コンプライアンスリスクとの取り違え
・個人情報リスクとの取り違え

**776** · 2018/10/29(月) 11:24:48.23

少し荒れてしまいましたね、すみません

エラーは書いてあるとおり「レコード長が一致しない」
Openステートメントで指定された長さと異なるということなのですが
レコード変数やOpen Get Putのプロシージャなど変更せずに
このエラーが発生しました。多分VBAのバグだと思うのですが
詳しい方に教えていただきたく思いまして書き込みしました。
タイミングが悪かったですね。

**デフォルトの名無しさん** · 2018/10/29(月) 11:33:02.57

確かにタイミングが悪かったな
20年遅いわ
今回お前が苦労して解決しても後で他の誰にも分からないんだぞ？
そんなもん押し付けられる方の身にもなってみろ

**デフォルトの名無しさん** · 2018/10/29(月) 11:45:30.06

「VBA ファイル読み書き」で検索してOpen コマンドとかが出てくるものかねえ

**デフォルトの名無しさん** · 2018/10/29(月) 11:48:12.61

？出てくるぞ？あたりまえだろ

**デフォルトの名無しさん** · 2018/10/29(月) 14:25:31.25

>多分VBAのバグだと思うのですが

まぁ言語の方に責任を押し付けたくなるのは判るがなw

**デフォルトの名無しさん** · 2018/10/29(月) 15:23:05.64

何わろとんねん

**デフォルトの名無しさん** · 2018/10/29(月) 16:45:28.78

>>788
バイナリエディターでレコードファイルを確認するのと、テスト環境作ってレコードを減らしても発生するかみる

**デフォルトの名無しさん** · 2018/10/29(月) 18:06:20.39

>>794
頼む

**776** · 2018/10/29(月) 19:56:48.16

>>794
エラーになる状態ですと、新規にファイルを作成しても１レコード目でエラーとなりますので
ファイルがおかしいとは思えません。ユーザー定義のレコードサイズ、モジュール変数の
メモリ設定があやしいと思うのですが。

**デフォルトの名無しさん** · 2018/10/29(月) 23:29:14.96

素人質問ですみません
エクセルで消費税を算出したいのですが、一つのセル内で完結できないでしょうか
ググっても税抜き価格と税込み価格の、二つのセルを使うものばかりでして

**デフォルトの名無しさん** · 2018/10/29(月) 23:52:48.29

>>791
まさかな、と思ってぐぐってみたら本当だった。
しかもqiitaの新着記事にもそんなのあるし。

なぜなのか？

**デフォルトの名無しさん** · 2018/10/30(火) 00:03:25.38

>>796
最小条件での動作確認しないなら俺はなにもいわない

**デフォルトの名無しさん** · 2018/10/30(火) 00:10:19.82

>>797
それVBAの質問なの？そもそも

**デフォルトの名無しさん** · 2018/10/30(火) 12:34:46.04

>>797
税抜き価格を入力したら、そのセルの数値を自動的に1.08倍するマクロ

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Int(Target.Value * 1.08)
Application.EnableEvents = True
End Sub

**デフォルトの名無しさん** · 2018/10/30(火) 13:48:04.01

際限なく1.08倍していきます

**デフォルトの名無しさん** · 2018/10/30(火) 17:38:32.50

消費税は際限なく上がる

**デフォルトの名無しさん** · 2018/10/30(火) 18:40:58.23

くだらない質問だと思いますが、会社のバーコードで在庫納品書委託委託精算等連携したものを作成する場合は初心者でどのくらい作成期間がかかるものでしょうか？

**デフォルトの名無しさん** · 2018/10/30(火) 18:50:13.80

100年くらい見積もっておけば間違いない

**デフォルトの名無しさん** · 2018/10/30(火) 18:53:25.90

少なくとも、SIerに委託するより>>804の給料の方が遥かに高くつくくらいの期間は間違いなくかかるよ

**デフォルトの名無しさん** · 2018/10/30(火) 19:15:41.01

>>806
因みに幾らくらいかかるものでしょうか？

**デフォルトの名無しさん** · 2018/10/30(火) 19:49:51.22

>>807
仕様がわからないので見積もれません
4000億円ぐらいみとけば間違いない

**デフォルトの名無しさん** · 2018/10/30(火) 20:01:06.67

テーブル(lo)を列毎に配列で取り出して処理したいのですが、キーを列名、値に列範囲を格納すればforループで代入できて簡潔なのでDictionaryを使ってみようと思っています。

Dim dic As Dictionary: Set dic = New Dictionary
Dim lc As ListColumn
For Each lc In lo.ListColumns
＿dic.add lc.name, WorksheetFunction.Transpose(lc.DataBodyRange.value)
next lc

以上で作成した「Dictionaryの値」に格納した「配列の値」に代入が出来ません。
例えば

debug.print dic(見出しA)(1)　'「ピカチュウ」が表示
dic(見出しA)(1) = "ライチュウ"
debug.print dic(見出しA)(1)　'「ピカチュウ」が表示

となってしまいます。しかし以下の様に配列を格納し直すと反映されます。

debug.print dic(見出しA)(1)　'「ピカチュウ」が表示
dic(見出しA) = Array("","ライチュウ", dic(見出しA)(2),・・・
debug.print dic(見出しA)(1)　'「ライチュウ」が表示

修正があるたびに配列を代入し直すのは面倒なので出来れば値を直接書き換えたいのですが、どうすればいいのでしょうか。