Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

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

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/11/04(木) 20:01:42.86

>>553
jの値はどこでどうやって確認したんだ？

2021/11/04(木) 20:21:03.55

>>561
お前みたいな馬鹿が作っているからそうなる

2021/11/04(木) 20:33:51.75

どういう状況のファイルかもわからんで煽るバカに言われてもな

2021/11/04(木) 20:44:25.67

>>564
壊されるような造りになってるのが馬鹿の証だぞ

2021/11/04(木) 20:47:33.02

>>561
妥協点として下位互換は残しておいて
それでも成形の必要があるやつはお断りかな

成形はあなたの仕事では無いよ
ただ提出者が楽なようにしてるだけだと思う
それは提出者が仕事してないって事だな

2021/11/04(木) 20:49:27.77

仕方ないね。元は別の人が勝手に作った表で
おれのはその表をコピーして○がつけられるようにしたものだから

人のファイルを保護かけてガチガチに固めて私物化するわけにも行かないし
お前みたいな後先考えられないバカは
他所のファイルをガチガチに固めて属人化して批判されるんだろうけど

2021/11/04(木) 20:51:12.58

>>567
典型的な馬鹿の言い訳

2021/11/04(木) 20:53:21.15

もう反論終わって罵倒で誤魔化すタイムか
知能指数低すぎるわ

2021/11/04(木) 20:58:17.15

と、バカが申しております。

2021/11/05(金) 05:16:46.04

>>553
そもそも

>> 子ループの j が 2でクリアされず親ループの繰り返しの都度 3,4...と加算されていくケースがある

が起きてるとどうやって判断したのかが分からない。

例えば実行できるコードにdebug.printを挿入しておいて、
「これを実行するとこんな出力されます、実際にはこうなって欲しいです」
みたいな具体的な質問してくれた方がいいと思う。

そういう分かりやすい質問文書くと、その過程で自己解決できたりするし。

2021/11/05(金) 06:16:51.41

>>567
とは言え上でも言われている通り
違うフォーマットのものは受け付けないようにするか
触られたくないところは保護掛けるくらいしか現実的な解決策はないだろうね

形式の違うもの送られて来たからこちらで手で直す、というのは基本的に違う気がする。

フォーマットチェックを行うツールを作ってそのゴミ職員とやらに「これでOKとならないものは受け付けません」とやる手もあるけど、そのツール作るのにも工数は掛かるからね。

2021/11/05(金) 06:56:51.17

>>559
>無視して古いファイル使ってきたり

1,共有サーバーに置いてショートカットから起動させる
2,実際の処理はサーバーにやらせる。
3,VBA諦めてWebアプリにする

>様式ぶち壊してめちゃくちゃなファイルを提出してきて

そういうのは警告メッセージだして拒否するもの。

これまで未対応の様式のファイルも修正するおせっかいをしておきながら、
「めんどくさい」と突然キレるのは最悪。
やるならやりきる、やらないなら最初からやらない。中途半端は一番ダメだからね。
もしくはVBA諦めてテキスト関連のライブラリ豊富な使いやすい言語にする。

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-slLX) · 2021/11/05(金) 08:36:41.38

>>559
こういう風にやれよっていう説明資料が足りてないんだろ。
自責部分は改善してして、それでも従わない奴には突き返して再提出してもらうのが良い

2021/11/05(金) 08:42:12.18

話を聞かない、説明を読まない、世の中の大多数はアホばかり
まあこのことに気付かないで文句ばっか言ってるのもたいがい間抜けなんだけど

現実を受け入れて、バカにも使える仕様を考えるのが仕事ってもんだ

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-slLX) · 2021/11/05(金) 09:17:23.17

それはまあそうなんだけど資料を揃えておけば
ひとまず相手側のせいにできるからそれを根拠に文句は言いやすいわ

2021/11/05(金) 10:08:06.00

現場で変更するのはもとファイルが使いにくいからじゃないのか

2021/11/05(金) 10:16:00.53

確かにチェックつけるだけなのになぜ改変されるのか謎

2021/11/05(金) 10:22:26.73

よく見たら提出って言ってるな。
フォーマットに整形させたファイルをマクロつかって登録させる仕組みじゃないのか。

もしかしてVBAの話ですらない？

2021/11/05(金) 10:25:07.86

>>553
step 1　が気持ち悪い
てか、まずこういうの作って実験してみればいいじゃん
挙動がわからなければ、めんどくさがらず小さなプログラム書いてどう動くか実験
そういうことやる癖つけないと厳しいよ

Option Explicit

Sub TestSub()
Dim i As Integer
Dim j As Integer

Dim lastRow As Integer
lastRow = 1

For i = 1 To 10
For j = 2 To lastRow
Debug.Print "aa"
Next j
Next i
End Sub

まぁ、普通に考えれば、どう見てもiRastrowが1ではなく別のもっと大きな値をとっている可能性が果てしなくでかいわ

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-slLX) · 2021/11/05(金) 10:52:29.16

デバッグで値確認していけばいいだけの話

2021/11/05(金) 12:18:28.52

確認した結果、言語に致命的な問題があったという研究報告だろ
異論があるなら論文で提出しろや

2021/11/05(金) 12:19:13.47

文系プログラマにデバッガ使えは酷

2021/11/05(金) 12:24:56.88

研究報告は5chで

2021/11/05(金) 13:48:49.56

>>576
毎回一人ずつ文句を言うのもかなり面倒な作業だと思うがな
俺なら同じ時間と手間を掛けるならパソコンに向かってコーディングしてた方がいいわ

2021/11/05(金) 17:15:34.16

作業ルールの変更は職場長の許可もらってやれよ
勝手に変なシート作ってフォーマット変えるなとか言われてもね

2021/11/06(土) 09:43:33.18

年末調整面倒くさい
何故に毎回フォーマットを変えるのか
いや、分かるよ、控除や税金計算が変わってるんだから仕方ないけどさ、
国には毎年キチンと高い税金納めているんだからEXCELで自動計算してくれて、それ印刷して提出すればいいくらいのもの作ってくれないのかなぁ

2021/11/06(土) 09:54:07.39

>>587
いや、むしろ自治体から「年末調整やっておいたから内容確認して」
と連絡メールが来るくらいのことをしてくれていいと思う

2021/11/06(土) 11:02:12.05

>>587
うちの会社はイントラで内容確認して問題なければ「申請する」ボタンをクリックするだけだよ
俺は嫁がパートに出てるからその年収入力が必要だけど昔に比べたらめっちゃ楽になった

2021/11/06(土) 11:40:54.21

ちょっと思いて調べたらユーザー定義関数でもスピルできるんだな
今度実験してみるか

2021/11/06(土) 13:59:19.77

>>587
高額納税者なら会計士にたのめばええ
控除とか支給金とか、毎年新しい制度まできちんとチェックして、うちで使えるやつを教えてくれる
家族構成まで考慮して節税のアドバイスもくれるし、確実に手数料以上のメリットがある

2021/11/06(土) 19:50:35.22

>>589
扶養に入っていていてもメルカリ等で得た利益を合計すると扶養から外れることがあるからな

2021/11/07(日) 03:10:59.12

税理士のことを会計士って呼ぶやつはかなりの高齢だって聴いたことがあるわ

2021/11/07(日) 06:37:50.24

んな奴おらん
会計士は公認会計士の事

2021/11/07(日) 22:57:31.69

オランダはオラんだ

2021/11/07(日) 23:38:18.06

シンガポールの芯がポール

2021/11/08(月) 08:49:01.66

タイ米でタイ飯を炊く

2021/11/08(月) 12:53:20.11

そびえ立つソビエト

2021/11/08(月) 13:31:29.26

VBAの構造体で
Type Book
　　title As String
　　author As String
　　price As Long
End Type

桁数を予め指定しておくことてできないんですか？
こんなような感じで
Type Book
　　title As String (10)
　　author As String (10)
　　price As Long (5)
End Type

2021/11/08(月) 14:09:40.47

StringならString * 10 とかでできる。
Longは大きさ決まってるから指定できないはず。

2021/11/08(月) 16:24:53.09

>>587
前半は分かるけど、なんでそこでエクセルが出てくるんだよ

2021/11/08(月) 20:42:50.40

>>599
クラスつくってプロパティの代入時にチェックいれればいいんじゃね

2021/11/08(月) 20:52:16.35

>>601
数式だけでちゃちゃっと出来そうじゃん
そんなんで本格的なWebサイト作ってアクティブレポートとかではくより
このEXCELファイルダウンロードして必要なところに入力してねで終わらせた方が安上がりだし
むしろここ、EXCELVBAのスレだからEXCELにすらかすってないこと書くのってなんか気が引けるじゃん

2021/11/09(火) 09:52:46.91

というか、最悪Webフォームやらにして、番号言えば参照してもらえるって感じでいいとおもうけどね
印刷とかしてもってくのめんどいし
本人確認で行くのはしゃあないとして

ま、スレ違い

2021/11/09(火) 15:30:51.99

>>600
TypeてVBAでできるけど、VBScriptだとできないんだな。
やりたいことは全銀フォーマットをCSVにしたかったんだけど、別のやり方でやったわ。

2021/11/10(水) 22:53:12.24

>>605
それ普通じゃん

2021/11/10(水) 23:10:54.65

>>605
正規表現で一括置換すればいいだけだな。

2021/11/11(木) 22:25:28.82

問題を解決するやり方が複数ある場合は作る人のセンスがでる
速度重視なのか汎用性やメンテナンス、あるいはただ動けばいいとか

2021/11/12(金) 07:19:28.68

単に技術・経験の差が大きい

2021/11/12(金) 16:46:18.75

VBAっていうかエクセルの話題かもしれないけど、
ユーザーに入力させたテーブルがあってそれを校正するとき、
「間違っている部分」と「そこの入力形式の説明と記入例」をどうやって表示したら分かりやすいと思う？

イメージとしては「入力形式を確認する」ボタンをクリックすると
間違い場所が何らかの方法で説明されて、
ユーザーがそれを見ながら修正する感じです。

2021/11/12(金) 17:12:52.04

>>610
普通に入力規則使えば？
変なオレオレ方式作られるより慣れてて分かりやすいでしょ

2021/11/12(金) 18:11:45.18

>>611
複雑な形式（5～10文字の英数+アンダースコア+5文字の英数の繰り返し用のような）も多数あるのですが、可能でしょうか。
GoogleスプレッドシートならSplit関数があるので捏ね繰り回せばパース出来なくはないですが・・・

ユーザー定義関数で入力規則が設定できるのかとも思ったのですが、
「指定した範囲の名前は見つかりません」と出てしまい、
そもそも関数として認識されませんでした。

2021/11/12(金) 18:36:55.58

以下のようなマクロが組みたいです。

ファイル(以下A)が保存されているフォルダ内を検索して、特定の名前が含まれる別のエクセルファイル(以下B)を開いて、Bの各シートをシート名を指定した名前に書き換えつつAの指定の位置にシートを追加する。開いたBは閉じる。

2021/11/12(金) 18:40:57.40

>>613
そうか頑張れ
ここはお前の日記帳ではない

2021/11/12(金) 19:09:57.81

ルビー先生の自演ですね

2021/11/12(金) 19:19:22.94

>>610
> 「間違っている部分」
そこにフォーカス当てるとか色を付けるとか

> 「そこの入力形式の説明と記入例」
メッセージ表示ればいいけど修整箇所がたくさんあるとウザくなるからそういうことが予想されるケースでは俺ならエラーセルに色付けしてそこが選択されたらステータスバーに表示するとかするかな

2021/11/12(金) 19:56:06.94

>>612
正規表現だろうな

2021/11/12(金) 19:59:42.26

正規表現って言うと卑猥なことを言ってるような気がして口では説明しにくい

2021/11/12(金) 20:24:37.20

可愛い女子後輩が「せいきひょうげん教えて下さい！」なんて言ってきたらそれだけで射精してしまうよな

2021/11/12(金) 21:37:44.97

え？何の表現？

2021/11/12(金) 22:29:48.65

ここでぬいたでーたをこのせいきひょうげんでちゅうしゅつしてそこへそうにゅうしといて…

2021/11/13(土) 00:19:30.49

>>616
ステータスバーに書かれていると気づいてもらえるかどうか・・・

>>617
正規表現で入力規則に設定可能か、
自分ググってみたのですが見つかりませんでした・・・
やり方を教えてください。

2021/11/13(土) 04:21:00.05

>>610
色んなやり方があると思うけど
例えば小さなテーブルならOK、NGやなにがどう間違っているかの列を数式で出る欄を設けておいて
全ての行がOKならOK、そうで無ければNGと表示するセルをひとつ作って
それがNGであればなんかのボタン押したときに「入力値に誤りが有ります」的なメッセージを出す方法を使ってるところのが分かりやすかったかな。

ただこの方式だとユーザー定義関数使うとマクロ無効にされてる状態では正しく反応しないのが難点だけど。

2021/11/13(土) 05:16:16.94

>>622
> ステータスバーに書かれていると気づいてもらえるかどうか・・・
セルのどこかに表示するとかいいと思うよ
そこら辺は好みでどうぞ

2021/11/13(土) 06:02:35.99

どこに書いてあっても絶対に読まない民が43%いるから(当社調べ)
覚悟しとけよ

2021/11/13(土) 15:19:02.92

>>612
ExcelVBAのスレなので
VBA(WorkSheet_Changeイベントで起動)でチェックしたら?

2021/11/13(土) 17:00:36.35

>>613
クエリでフォルダ指定すると、ファイル名一覧を取得出来るから
キーワードで絞込む。
で、インデックス列と希望する書き換えファイル名の列作ってリストにしといて、
あとはVBAで、IF FOR構文とSaveAsあたり使えば
出来るんでね？

2021/11/13(土) 17:14:33.96

>>627
ただの決意表明に何でコメントしてるの？
Ruby基地外の自演コメントですか？

2021/11/15(月) 11:13:54.86

お金が稼げるVBAを組みたいです！

2021/11/15(月) 11:56:57.23

ハロワ行け

2021/11/15(月) 19:07:44.02

>>629
ソーシャルワーカーだらけで単価激減
vbaで稼ぐのは諦めろ

2021/11/15(月) 20:28:22.57

将来の希望としての発言なら
まず稼げる力をつけてからそういう会社に就職したらいいんじゃね
あとYoutuberとかなら勝手にやればいい

2021/11/15(月) 21:07:01.94

裸エプロンで胸を机に乗せた状態でプログラムする様子をYouTubeに上げれば稼げるかもしれんぞ

2021/11/15(月) 23:28:31.25

やったけど微妙だったわ

2021/11/15(月) 23:32:21.10

>>613
例えば、Ruby で、glob を使って、
拡張子がcsv で、ファイル名に13 を含む、ファイルのフルパスを求めると

# 絶対パスのディレクトリ名の後ろに、* を付けること！
# . で始まる、隠し directory, file を除く
glob_pattern = "C:/Users/Owner/Documents/*.csv"

filename_substr = "13"

p Dir.glob( glob_pattern )
.select { |full_path| File.file?( full_path ) } # ファイルのみを取り出す
.select { |full_path|
# ファイル名だけを取り出して、指定の語句を含む、ファイル名を含むものだけを抽出する
File.basename( full_path ).include?( filename_substr )
}

出力
[ "C:/Users/Owner/Documents/input113_2.csv",
"C:/Users/Owner/Documents/input13-3.csv" ]

2021/11/16(火) 03:08:02.41

>>634
これ思い出した
https://news.yahoo.co.jp/articles/c74cfb53262d1001291948766f2f5abceb2623b7

2021/11/16(火) 16:09:29.51

>>633
https://www.youtube.com/channel/UC9-eWyrUJfPJsRxtXTdx_Cg/videos

2021/11/17(水) 14:18:28.93

標準モジュールで、シートAから文字列拾ってシートBに転記しようとしたら、
望まぬ形でBのWorksheet_Changeを踏んだのでCaseで分けて素通りさせたんですが、
どうにもBのValueが1004エラーで書き換わっていないのにWorksheet_Changeが発動しているらしく、
なんの変哲もない「Worksheets("B").Range("XX").Value = str」が実行されません。

F8で(Changeしてないのに)Worksheet_Changeの中身だけ進む事ができますが、それが終わると元の位置に戻って再びエラーになります。
どうしたらValueを拾って貰えるんでしょうか。

2021/11/17(水) 14:26:30.65

イベント無効化しろよ

2021/11/17(水) 17:56:35.51

>>639
たったの2行で万事解決
ありがとうございます
Public文字列をスイッチに四方八方から切替えまくってからのこのオチは恥し過ぎる

2021/11/18(木) 11:22:25.43

>>638
何が起こってて何がしたいのかまるで意味不明なんだが、>>639が回答できた事に驚き

2021/11/18(木) 12:48:11.85

読解力って大事だよね

2021/11/19(金) 07:29:58.87

vba歴15年だがイベント無効化今知ったわ

2021/11/19(金) 07:42:51.24

それ絶対ウソだわ

2021/11/19(金) 14:43:03.48

そういうのって必要になった時に調べるもんだし
今まで一度も使わなかった機能なんて色々あるだろ

2021/11/19(金) 21:00:40.42

しかしだな
15年もいじってりゃエナブルイベントのせいで無限ループになることくらいあるんじゃないの

2021/11/20(土) 15:14:52.68

失われた15年

2021/11/20(土) 20:08:41.79

2013でSharePointに接続する方法ない?
2019ならADOで出来るんだけど

2021/11/20(土) 21:06:56.40

2021ならAHOで出来るよ

2021/11/20(土) 23:15:05.65

作る前に様式はこれでいいよねって事前に確認したのに、作ったあとに
やっぱりああでもないこうでもないと注文つける
簡単なコードすらまともに書けないゴミの後出し地獄にムカついてくる
じゃあてめえが作れと

2021/11/21(日) 00:12:13.26

たかがVBAを少し書けるだけで他人をゴミ呼ばわりする馬鹿
こいつみたいな勘違いの思い上がり馬鹿はよく見かける

2021/11/21(日) 00:20:55.86

わざわざ作業やり直したくないから様式を事前に確認したのに後出しで人の作業増やすやつをゴミ呼ばわりして何が悪いのかな
お前も後出しで人の作業量増やしそう

自分でやるなら好きなだけ後出ししていいけどな。できないでしょ

2021/11/21(日) 01:55:02.67

相手の要求を理解して指摘される前に用意しとくものだろ
馬鹿は言われたことしかできないから馬鹿だっての

2021/11/21(日) 02:07:24.62

提示した仕様に対してOKが出てるのに
勝手に仕様追加しとけって？キチガイですかね

2021/11/21(日) 02:12:33.23

相手のレベルに合わせて打ち合わせできないから馬鹿だっての

2021/11/21(日) 02:16:27.01

様式見せてるのに相手のレベルもクソもないんだがねキチガイくん

2021/11/21(日) 02:17:32.02

馬鹿は相手が理解しているかどうかすらわからないから馬鹿だっての

2021/11/21(日) 02:19:43.87

相手は様式を理解した上で後出しの思いつきで仕様変更要求してきたんだよ
馬鹿なお前にはこんな簡単な日本語すら理解できないんだろうけど

2021/11/21(日) 04:43:02.55

議事録なり議事メモなりで決定会議や打ち合わせの記録を残しておかないと後で後悔する

2021/11/21(日) 05:13:42.45

議事録だろうが録音だろうが無駄
レベルの低いやつってのは、簡単に前言を撤回して主張を変えてくる

2021/11/21(日) 06:09:13.16

つまり契約概念を理解しない客なわけだ。そんな客は契約は契約ですかと突っぱねて二度と相手にしないことだ。

2021/11/21(日) 06:13:44.85

VBAでなくてもクライアントからの急な仕様変更なんて日常茶飯事だから諦めろん
ある程度の仕様変更なら少ない手間で対応できる作りにするのも腕の見せ所だぞ
まぁ言うてその仕様にすんなら全部１から作り直しやんけって仕様変更もなくはないのがツラいところ