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/24(金) 23:19:31.78

>>46

n=4

aaaergjoeriA3543Behwfhewu ←これのBの位置
bbbA3fewfew354Bffewo
cccfjewpfAf3e54f3w54Bfjeei

正規表現でA・Bの間が数字だけ、それをfindで見つける気がするけど飲みすぎて無理だー

2021/12/25(土) 00:32:33.67

>>47
酔いが覚めたらお願いします

2021/12/25(土) 00:49:36.50

>>48
ヒント貰ったのだから後は自分で考えろ

2021/12/25(土) 00:58:09.02

>>49
そこまではヒントをもらわんでも俺でもわかる。
この先がわからんから聞いているのよ。

それにお前関係ないやつだよな。
貢献もしてないのに横からでてきて文句をいうな。
マスク警察みたいなやつだね（笑）

2021/12/25(土) 01:35:14.15

>>50
馬鹿には無理ってことか
いや、Ruby基地外だろ

2021/12/25(土) 09:39:15.77

自分で自分の首を絞めるスタイル

2021/12/25(土) 09:45:38.27

逆にそこまでわかってて何がわからないの

2021/12/25(土) 10:05:17.74

検索する能力がない
応用力がない

2021/12/25(土) 10:16:27.24

向いていないからVBAやめろと言っているようなもんか

**デフォルトの名無しさん** (ｽﾌｯ Sdaf-bp1O) · 2021/12/25(土) 10:26:38.11

仕事ってのは、できるやつに頼みたいと思っても手持ちの人材をなんとかやりくりするしかないわけで
ベストは不可能だから、どうやったらベターな結果が得られるか考えるのが管理職の仕事
世の中そんなもん

2021/12/25(土) 10:40:38.77

Find はセルにしか使えない。instr関数は正規表現をサポートしてた。like 演算子は文字位置を返さない。何で行き詰まってる。

2021/12/25(土) 10:42:03.53

すまん誤字が多かった。

Find はセルにしか使えない。instr関数は正規表現をサポートしてない。like 演算子は文字位置を返さない。なんで行き詰まってる。

2021/12/25(土) 10:42:44.93

正規表現使えばいいじゃん（いいじゃん）

2021/12/25(土) 10:51:58.85

>>58
WorksheetFunction.Find

2021/12/25(土) 10:58:39.79

正規表現でA-Bの文字列を取り出して
その文字列をfindかinstrにかければAの位置がわかる
あとはA-B文字列の長さを出せばBの位置もわかる

2021/12/25(土) 11:14:22.36

飲みながら正規表現はキツイ

Sub foo()

a = "aaaergjoeriA3543Behwfhewu ←これのBの位置"
b = "bbbA3fewfew354Bffewo"
c = "cccfjewpfAf3e54f3w54Bfjeei"
n = 4 'n文字以降
str_start = "A"
str_end = "B"

'RegExpオブジェクトの作成
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")

'正規表現の指定
reg.Pattern = ".{" & n & "}" & str_start & "[0-9]*?" & str_end 'パターンを指定
reg.IgnoreCase = False '大文字と小文字を区別するか(False)、しないか(True)
Debug.Print reg.Pattern

'main1　この引数が検索対象
Set matches = reg.Execute(a)

2021/12/25(土) 11:14:27.46

'無かったら終了
If matches.Count = 0 Then
MsgBox "見つからないので終了します"
Exit Sub
End If

'main2
For Each Match In matches
文字列長 = Len(Match.Value)
発見場所 = Match.firstindex
結果 = 文字列長 + 発見場所
Debug.Print 結果 & "文字目に見つかりました"
Next Match

End Sub

2021/12/25(土) 11:44:00.82

>>62,63
おお、ありがとうございます。
これです。

RegExpでVBAでも正規表現が使えるところまでは調べたのですが、具体的な使い方がわかりませんでした。
勉強します。

このような素晴らしい解決策をご教示していただける前は下のような手作り感満載の関数でしのいでおりました。
あとから見た時にわからなくなりそうなのでもっと定式化された解決策を探しておりました。

なお必要なのは最初にマッチした位置だけでいいです。

Function patternSearch(x As String, pattern As String, start As Long)
Dim i As Long
Dim isStartEndMatching As Boolean
Dim isNum As Boolean
Dim cond_StartEnd As String '前後の文字の一致を調べる
Dim cond_Numeric As String '間が数字であることを調べる

cond_StartEnd = Left(pattern, 1) & "*" & Right(pattern, 1)
cond_Numeric = Mid(pattern, 2, Len(pattern) - 2)

For i = 1 To Len(x) - (start - 1)
isStartEndMatching = Mid(x, start, i) Like cond_StartEnd
isNum = IsNumeric(cond_Numeric)
If isStartEndMatching And isNum Then
patternSearch = start - 1 + i
Exit For
End If
Next i
patternSearch = 0
End Function

2021/12/25(土) 11:52:30.46

>>62
>>46 > VBAで文字列x内のn文字「以降」で

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時間掃除選択お買い物、みたいな感じ
手を動かすよりも頭を動かす方が効率良い

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