Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part73
https://mevius.5ch.net/test/read.cgi/tech/1631485799/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/12/25(土) 11:57:08.35

>>64
動けばなんでもok

>>65
笑

2021/12/25(土) 15:45:55.24

マクロなんて動けばおkだよね

2021/12/25(土) 16:59:38.36

>>62
美しい

2021/12/26(日) 14:03:55.68

動かなくても問題ないし

2021/12/26(日) 14:10:17.85

>>67
我流のマクロは応用が効かないからね．
正規表現を使ったバージョンだと違う検索条件のときも，検索文字列だけ修正すればよい．
私の場合は上記の目的の後，全てのセルの特定文字だけ別の文字に置換して赤字に色付する目的に応用できた．

ところで話変わるけど，スペースのフォントは色付けできないんで，別の文字に置換して色付けするしか無いけど，何が良いかな．
□が一番近いかなという気もするが．

2021/12/26(日) 14:15:53.43

スペースに色を付けられないならセルに色を付ければいいじゃない

2021/12/26(日) 14:20:38.69

アンダーバーダメ？

2021/12/26(日) 16:17:30.13

実際我流が大半なんでしょ？

2021/12/26(日) 16:43:46.10

VBAでスクール通って学んだとか聞いたことがない

2021/12/26(日) 16:46:40.63

こいこいさんのチャンネルでVBAのスクールの話が出たことはあるな

2021/12/26(日) 17:13:23.67

記録したマクロ見てれば自然に解っちゃうしな

2021/12/26(日) 17:43:53.58

>>73
そもそもプログラムには「本流」が無いので「我流」がない。
※強いて言えば、その団体（勤務先企業）のやり方はある

プログラムなんて「最終的に要望通りに動けば何でもいい」
汚いとか綺麗とかは、本質的には、無い
vbaはかなり特殊で、エクセルの補助として動くプログラム。多少動きが悪くてもエクセルのルーチンでカバーできる

ただ昨今「ルーチンが変わりやすい」という風潮がある
その前提だと、「保守のコストをいかに低減させるか」という事に価値が生じてくる
それを「エクセルのオペレーションでカバーする」「vbaを改修する」どちらで負担するかは、それを運用している会社による。場合によっては個人。

別の風潮として、保守コストを下げる際に「上の方で設定して、後のプログラム部分では変更しないようにする」って風潮がある
これは絶対ではないが、妥当ではある

それらを総合すると「保守コストを極力低減させるコードを書く。設定は上の方で行っておく」というコードに価値がある

実は、>>62はわざと綺麗に書いている。
一箇所だけ明確に失敗している部分がある

2021/12/26(日) 19:31:54.80

>>72
スペースの書式の下線をつけたのだが不思議な現象が発生。
文字列の中間の場合は表示されるが、最後の非スペース文字よりあとのスペースの下線は表示されない。
エクセルのスペースの書式は予想外の振る舞いをする。

2021/12/26(日) 20:21:51.00

>>75
こいこいガチすごい人だな

2021/12/26(日) 21:36:01.96

>>78
検索すると、2003ではスペースにも下線がついたらしい
仕様が変わったのだろうか

**デフォルトの名無しさん** (ｽﾌｯ Sdaf-bp1O) · 2021/12/26(日) 23:39:01.85

Excel2021だけど、どこにスペーズがあっても普通に下線付くぞ
別の何かとバッティングしてるだけでは？
https://i.imgur.com/gimsTIF.png

2021/12/26(日) 23:42:16.71

365使ってるときに同じこと思った気がするけど今は確認できない

2021/12/26(日) 23:43:33.04

>>81
私がやっているのは文字ごとに書式を設定すること。スペースだけに下線をつけることを試してる。

2021/12/26(日) 23:46:55.18

DatePart構文の引数firstweekofyearを1月始まりじゃなくて4月始まりする方法ってない？
4月1日から第一週目として請求書を何週目に発行したか把握したいVBA組みたいんだけど

4/1〜4/7に収まる数字を第一週
4/8〜4/15に収まる数字を第二週…
っていちいち組むしかない？

2021/12/27(月) 00:04:55.38

>>84
日付シリアル値と3月31日のシリアル値の差を7で割って整数単位でラウンドアップする方法ではだめですか

2021/12/27(月) 00:06:52.13

>>85
シリアル値は考えたけど面倒そうで…簡単に何週目かを算出したい

2021/12/27(月) 00:09:03.03

組むっていうか自分で関数作ればすぐじゃね

2021/12/27(月) 00:14:15.86

datediffでintervalをwにして
4/1とその日を比較するだけかな？
やってみないとわからんけど

2021/12/27(月) 00:15:08.58

>>86

> 面倒そうで…
？

**デフォルトの名無しさん** (ｽﾌｯ Sdaf-bp1O) · 2021/12/27(月) 00:30:35.81

>>84
年またぎの処理はしてない
やりたかったら先に3/31を引いて1/1始まりに補正するのが一番簡単だと思う

Sub Macro1()
　　Dim d As Date
　　Dim w As Integer

　　d = DateValue("12/28")　　'求めたい日
　　w = Int((d - DateValue("3/31") + 6) / 7)　　' 4/1基準で何週目か
　　Debug.Print w
End Sub

2021/12/27(月) 02:58:33.09

先輩方にアホすぎるくらい初歩的な質問です。
マクロコード書くときに字下げって常識と聞きますが必須なんすか？
YouTubeとか観ていると字下げしてない人もいたもんで気になって

2021/12/27(月) 06:49:37.64

>>91
必須ではないけどやった方が見易いよ
If hoge = piyo then
foo = bar
End If
ってしておけば後から見てもどこからどこまでがIfやForなどの中身なのかって分かりやすいじゃない？

2021/12/27(月) 07:19:24.39

>>91
慣れてくれば入れるようになるが・・・無いと見づらくて仕方ない日本語でいうと句読点も改行もないようなもんだこれでもいいならどうぞ

2021/12/27(月) 08:17:15.04

外部ファイル100個、1ファイルにつき60要素を1つのExcelブックにまとめたいけど、高速なテンプレはどっち？
①外部ファイルオープン方式
　オープンして2次元配列に格納したらすぐに閉じる（見た目一瞬開いているのが見える）

②外部参照方式にする
　’サーバーパス[ファイル名]シート名!‘表示セル
　この式をまとめたいExcelブックにひたすら書く

まとめたい要素数によって①②方式を変えるのが正解ですかね？
今の所①で作ることが多いのですが、ファイルオープンに時間がかかってるような気がしています

2021/12/27(月) 09:39:51.64

>>94
データの種類によるけど参照するのがテキストファイルなら外部参照なんて使いたくないから個人的には1だが

2021/12/27(月) 09:45:56.70

>>91
これがコンピューター業界の常識
https://img.youtube.com/vi/qNHfKNjX8Us/maxresdefault.jpg

2021/12/27(月) 09:49:52.38

関数の直後に改行入れないで中括弧入れられると解りにくい

2021/12/27(月) 10:45:38.45

>>94
実際には二つやって比較するしかないと思うんだけど、直感的には両方ともファイルの内容を一度メモリーに展開して①の場合はそれを表示するプロセスがあるんで若干①が遅いような気もするんだけど。

一方②の場合は普通にメモリーに展開するのではなくて特殊な用途用のメモリ領域の確保というプロセスがあるかもしれないんでこれがあってしかも配置情報の各能があるばあいは遅くなるかもしれない。

実際にダミーのファイルを作って比較してみたらどうですか。ダミーファイルを作る作業は VBA を使えば簡単でしょ。

2021/12/27(月) 11:13:03.57

>>94
その二つには大きな違いがある
(1)の方法はVBAを実行した瞬間のデータで固定される
(2)の方法だと外部ファイルが更新されるたびに影響を受ける
この選択を間違えると場合によっては致命的なので、どちらが適切かよく考えること
つまり、この2つは速さで比較するべきじゃない

そもそも、わずか100ファイル、60要素程度で速さがどうとか考えること自体がおかしい
データ数が何十万以上のオーダーにならないとはっきりした差なんか出ない

2021/12/27(月) 11:45:31.10

>>99
勘違いしてたわ。
②はリンクでデータを取得する方式ね。
俺はてっきりVBAの中で対象ファイルを開かずに対象ファイルのデータを直接取り組む方式と思ってたわ。
たしかに、「参照」と書いているから99さんの言うとおりだね。

2021/12/27(月) 12:05:29.87

>>83
アンダーラインの位置を順番に変えるマクロで試してみたら、たしかに行末のスペースで線が消えた
仕様なのかバグなのか判断つかんな
Excel2021
https://i.imgur.com/chvCa5D.png

2021/12/27(月) 12:07:22.46

リンクでまとめるのは俺なら速度以前にやらないな

94 (ﾌﾞｰｲﾓ MMb3-T5FS) · 2021/12/27(月) 12:19:39.41

皆さんご意見ありがとうございました。

みんなが作ったExcel資料のチェックする雛形処理を作りたくて悩んでいました。ファイルオープン時間はかかるけど①方式がいいかなと思います

94 (ﾌﾞｰｲﾓ MMb3-T5FS) · 2021/12/27(月) 12:23:05.79

ちなみに、>>99さんの言うことは
数式を数値に変換する処理を書けば①と同じになりますのでやはり速度面からの比較でもで良いかと思っています

2021/12/27(月) 22:51:17.69

>>90
できたありがとうございます
d = DateValue("12/28")
12/28のところに変数を入れたいのですが、反応してくれません
具体的には変数strにセルの値の12/28を参照させるとエラーが出ます
d = DateValue strが言うこと聞いてくれません

94 (ﾜｯﾁｮｲ e3ad-T5FS) · 2021/12/27(月) 23:01:19.70

>>105
文字列型になってないんでないの？

2021/12/28(火) 01:55:16.45

>>105
セルの中身がシリアル値ならDatevalue関数を外せばいいけど、年には注意
Textプロパティを使った方が安全かもしらん

2021/12/28(火) 09:29:10.92

VBAでの字下げって何文字って決まりある？3文字字下げで作ってしまったけどいいとか悪いとかある？

2021/12/28(火) 09:38:17.58

>>108
明確な決まりはないけど、マクロの記録をすると4文字下げになるから標準は4文字と考えていいと思う
個人的に奇数はありえない
インデントを綺麗に整形するアプリで整えるといいよ

2021/12/28(火) 09:53:35.44

>>109
そんなアプリがあるんだ。試してみるよ。
でも4文字って字下げし過ぎな気がしないでもない・・・
横に長くなりすぎて横スクロールが発生するのは面倒だし、印刷時に文字が折り返されて見辛くなりそうだし。

2021/12/28(火) 10:00:05.70

>>110
自分がそれでいいと思ってるなら
それでいいじゃん

2021/12/28(火) 10:20:50.67

俺は逆の意見
初心者は自己流でやらない方がいいと思う

2021/12/28(火) 10:40:25.40

でも具体的なデメリットはないのでしょ？

**デフォルトの名無しさん** (ｽﾌｯ Sdaf-bp1O) · 2021/12/28(火) 11:17:49.92

明確なデメリットならあるぞ

3文字だとスペース3回、4文字だとタブ1回、つまり入力の手間が多い
マクロの記録やネットのコードは4文字だから、組み合わせた時に見にくくなったり修正の手間が発生する

2021/12/28(火) 11:25:51.13

めちゃ初心者の質問でごめん
沢山の商品コードがA列に並んでいて、B列にその商品のページのURLのリンクをずらっと作りたいんだよね
（A1のURLをB1、A2のURLをB2……）。

URLは「http://統一のアドレス/商品コード」なんだけれど、この場合どうしたら良い？

要するに、B列に「http://統一のアドレス// + 商品コード」って言うのをリンクにしたい

2021/12/28(火) 11:46:51.90

ハイパーリンク関数で済む話

2021/12/28(火) 11:51:02.78

>>114
それは最初から
「こいつタブキー使わないで、スペース3回打ってるのか」
って思ってたけど
>>110みたいなこだわりのまえでは大した問題ではないだろw

**デフォルトの名無しさん** (ｽﾌｯ Sdaf-bp1O) · 2021/12/28(火) 11:52:19.68

>>115
A1の内容を足しながらB1にリンクを作るのはこう書く
これを商品の数だけループすればいい
ActiveSheet.Hyperlinks.Add Anchor:=Range("B1"), Address:="http://google.com/"; & Range("A1")

2021/12/28(火) 14:27:58.14

インデントしないで平気な顔でコード晒している人の心理が知りたいわ
YouTubeだけじゃないし。

2021/12/28(火) 14:35:56.99

見にくいって指摘されたら何を勘違いしたのか
改行だけあけるのもいる
ブログかよ

2021/12/28(火) 14:41:58.24

>>119
少なくともここの掲示板はインデントが勝手に消える仕様

2021/12/28(火) 15:35:06.37

BASICの癖にインデントなんて生意気な

2021/12/28(火) 15:54:38.31

構造化BASIC

2021/12/28(火) 17:02:10.00

あーやっぱりインデントしても無効になるのね
おかしいと思った

2021/12/28(火) 17:34:57.68

どれちょいテスト
&nbsp&nbsp&nbsp&nbspスペーステスト

2021/12/28(火) 17:37:21.60

    4つ半角スペース
セミコロン抜けてんで

2021/12/28(火) 17:39:37.95

うむ、やはりダメか
半角スペースは全角にでも置き換えれば
インデントは表現できるかもしれないが
コードをそのまま貼って実行することを
考えたらそのままの方がいいかもね

2021/12/28(火) 17:40:12.80

>>126
あ、本当だ
すまんこ

2021/12/28(火) 17:41:49.64

>>126
あ、本当だ
おまんこ

2021/12/28(火) 17:42:25.67

挟むコメント使えたらまだ楽なんだけどなぁ
/* コメント */

2021/12/28(火) 18:07:37.81

そこらへんはさすがにサニタイジングされるでしょ

2021/12/28(火) 18:39:54.88

１番良いのはアレかな、直接エディターのスクショをうpすればインデントは無問題なのかなと

2021/12/28(火) 18:48:57.83

コピペで検証できなくなるから内容によっては回答率下がるかも

2021/12/28(火) 20:15:09.45

ブラウザは基本的に連続半角スペースを一つにまとめる挙動がある

2021/12/28(火) 20:16:39.86

>>132
うんこすぎるわｗ

コードをアップロードする専門のサイトがあるので、そこに上げるのが一番良い
https://jsfiddle.net/vxba/1twy9ny6/

2021/12/28(火) 21:19:32.95

うんこで思い出したけど、同志達は集中してマクロ組んでいる途中で猛烈にうんこしたくなったら我慢できる？

2021/12/28(火) 21:21:13.24

なんで我慢するの？

2021/12/28(火) 21:40:11.52

うんこしながらコード考えられるし、目も休められるからそんなに邪魔なものでもないかな
ってか我慢はよくない

2021/12/28(火) 22:48:33.96

俺はギリギリまで我慢するタイプ

2021/12/28(火) 23:03:08.29

中にはいるんだよ、途中で止められない人
自分そう
目を休ませるといろいろ調子良くなるのは事実だぬ

2021/12/28(火) 23:13:52.92

昔そうだった
ずっとやろうと思えばやれるんだけど、適度に休んだほうがどう考えても早い

2021/12/28(火) 23:17:25.07

寝落ちして次に起きると意味不明な文字列で画面が埋まっている

2021/12/29(水) 00:39:59.57

闇落ちしたらどうなるの

2021/12/29(水) 00:56:24.30

同志達は休憩は何時間おきに取ってる？
なんかExcelってやたら疲れない？

2021/12/29(水) 02:20:35.18

VBAに限らず何かのプログラムを作ってる時は寝食を忘れて没頭してしまうからよく嫁さんに怒られてる。

2021/12/29(水) 03:54:22.05

>>144
事務の趣味グラマだけど、
家では10分コード書いて1時間運動、10分書いて1時間掃除選択お買い物、みたいな感じ
手を動かすよりも頭を動かす方が効率良い

会社はうるさすぎてまるで捗らんのでやらん

2021/12/29(水) 07:18:02.50

同じですな。
Excelてかパソコンなんて１時間もやればクタクタ、変な疲れが出ますな。
終日やっている人とかいるけどスゲー気力体力だと思う。羨ましい

2021/12/29(水) 08:08:41.29

趣味ならそれで良いのではないでしょうか。
仕事となればまたちょっと話は別。
EXCELのVBAはこじんまりしてて
弄ってて面白いので昼休憩あれば
普通に1日行ける。

むしろ設計書とか書いててダレてくると
EXCEL VBAで妙なもの作って
現実逃避とかすることもあるかな。

2021/12/29(水) 09:23:40.77

>>148
> EXCEL VBAで妙なもの作って
> 現実逃避とかすることもあるかな。
お前は俺かw

2021/12/29(水) 14:56:09.81

そこでゲームを作る！

2021/12/29(水) 16:57:32.71

ドッペルゲンガーに出会うと。

2021/12/29(水) 19:03:35.12

ドッと生える毛がー！

2021/12/29(水) 19:05:13.81

遠くない

2021/12/29(水) 19:11:23.12

髪の毛とは言っていない

2021/12/29(水) 19:30:12.70

正月にExcel2021買って人柱になる！

2021/12/29(水) 23:07:41.65

頼みます

2021/12/29(水) 23:54:05.30

>>155
かんばれ！応援してるぞ！

2021/12/30(木) 00:13:57.98

俺は未だに Excel 2013なんだけど特に不自由してない。バージョンアップするといいことあるの？

2021/12/30(木) 00:21:53.32

>>158
なんと！
特に無い

2021/12/30(木) 00:23:09.37

2013て言い方悪いけど中途半端と聞いた
2016こそ至高だと

2021/12/30(木) 01:17:13.85

>>160
そうなの？

若い人は知らないかもしれないけどマルチプランやロータス123の時代から表計算ソフトを使ってて、正確なバージョン番号は忘れたけど Excel はずっと昔の2003とか2007くらいが使いやすかったな。その後バージョンアダルト重たくて使いにくくなっててできるだけバージョンアップはしないようにしてる。
数年前まで2010を使ってた。

2021/12/30(木) 07:04:56.73

エクセルは表計算ソフトと言いながらも表が苦手
シートをマス目で区切ってるだけで未だにDOS時代と変わらん
マス目サイズの異なる表を１シートに乗っけようとすると涙ぐましい努力と根気が必要
こんなソフトいつ放棄されてもおかしくないだろ
自由な表の管理ができるという意味ではmacのnumbersが気持ちいい

2021/12/30(木) 07:15:13.58

ロータス123とかを無理やりなぎ倒してWin上で天下をとっただけで使い勝手は褒められたもんじゃない
開発陣に何のポリシーも感じられない
これはワードも含めてオフィス全般に言えること

2021/12/30(木) 07:20:01.10

>>158
2013から2016になったときにVLOOKUP関数が最大約400倍高速化されたらしい
全然実感わかないけど

2021/12/30(木) 07:26:16.91

表を計算することが目的であって表を表示するのはその手段
目的と手段を勘違いするとそうなる
努力の方向性を間違ってるユーザーが結構多い