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/10/26(火) 22:19:38.61

暇だから書いたけど、実際やるなら>>530みたいなので済ます戸思う

2021/10/26(火) 23:37:03.27

D列のセルに文字を入力するとJ列のセルが塗りつぶされる処理をしたいのだがどうしたら良いものか

Sub Macro1()

If InStr(Range("D1").Value, "") > 0 Then
Range("D1").Offset(0,6).Interior.ColorIndex = 16
Else
Range("D1").Offset(0, 6).ClearFormats

End If
End Sub

2021/10/27(水) 00:02:27.06

条件付き書式でいいんじゃね

2021/10/27(水) 00:17:15.91

条件付き書式でいいが、どうせVBAでやるなら入力のたびに書式をクリアしてから再設定する方がいいよね

2021/10/27(水) 19:45:59.71

条件付き書式がいいんじゃないかなぁ

2021/10/27(水) 20:46:04.85

>>533
If Range("D1").Value <> "" Then
あとはChangeイベントにする

2021/10/28(木) 11:45:30.63

コードを一括エクスポートするアドインでおすすめのってないですか？
Windows10のMicrosoft 365を使っていますが、下記は動作しませんでした。

https://moondoldo.com/DoldoWorkz/?Excel%E3%83%9E%E3%82%AF%E3%83%AD/VBA%E3%83%9E%E3%82%AF%E3%83%AD%E3%81%AE%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%E3%82%92%E3%82%A8%E3%82%AF%E3%82%B9%E3%83%9D%E3%83%BC%E3%83%88
ExcelVBAExport2007_xlam_20100321.ZIP → ExcelVBAExport2007.xlam

2021/10/28(木) 11:50:21.99

>>538
できた！これから手順を書いていく。

2021/10/28(木) 12:12:13.13

>>538
上記サイトに記載されているとおり、
アドインフォルダに.xlamファイルをコピーし、アドイン登録を済ませて、
[Visual Basic プロジェクトへのアクセスを信頼する]のチェックボックスをオンにした状態でも、
[開発]タブに[エクスポート][選択エクスポート]が表示されなかったので、
最新のExcelでは使えないと勘違いしていたが、下記の手順で使えるようになった。

①エクスポート対象のxlsmファイルを開く。
②[開発]-[Excelアドイン]をクリックする。
③有効なアドイン一覧に、既に登録済みのExcelvbaexport2007がある。
④既にチェックボックスはオンになっているが、そのまま[参照]ボタンを押す。
⑤アドインフォルダ(～Roaming\Microsoft\AddIns)が開く。その中のExcelVBAExport2007.xlamを選択する。
⑥「この場所に'～Roaming\Microsoft\AddIns\ExcelVBAExport2007.xlam'という名前のファイルが既にあります。置き換えますか？」と聞かれる。
⑦[はい]を選択する。
⑧[OK]ボタンを押してアドインウィンドウを閉じる。

[開発]タブ内の右端に[エクスポート][選択エクスポート]が現れる。

2021/10/28(木) 16:45:24.43

Excel 2019
「オプション」－「詳細設定」の「グラフィックアクセラレータを無効にする」のチェックを
VBAで設定するにはどうすればいいでしょうか？
AccessだとApplicationのSetOptionやGetOptionでできるんだけど、
Excelには見当たらないのでよろしくお願いします。

2021/10/28(木) 19:13:26.37

https://ja.play-and-more.com/4226-turn-off-hardware-graphics-acceleration-office-2013
ハードウェアアクセラレータ―の設定については、
Excel と Word の設定が連動しているので、
Excel のオプションから設定を変更することで
Word 側にも設定を反映することはできます。

2021/10/28(木) 20:43:34.51

>>530
>>531
ありがとうございます！
別のケースに応用できるのでありがたいです！

2021/10/29(金) 13:13:50.85

同じpersonal..xlsbを複数の端末で使いたいので xlstart フォルダーから同期フォルダーに移動し
xlstart フォルダーではかわりに同期フォルダー内のpersonal.xlsb へのショートカットを置きました。
期待通り起動時にpersonal.xlsbを読み込みますが毎回マクロの実行許可を求めるので面倒です。
マクロ有効ファイル一般の仕様であることは理解しておりますが、特定のマクロファイルのみ確認を省略するか、
またはxlstart内にpersonal..xlsbにおいたまま同期する方法はないでしょうか。
xlstartフォルダー自身を同期フォルダーに設定することも検討しましたが、
googlドライブの場合は同期フォルダーは全てGドライブに移動するので
xlstartフォルダ自体が自動実行できなくこと、またpersonal.xlsb起動時にマクロを有効にするか確認
がはいり解決になりません。

2021/10/30(土) 12:52:49.36

>544
信頼できる場所に追加するとか、デジタル署名付けるとかしたら行けるんじゃ？
しらんけど

2021/10/30(土) 15:59:41.68

>>545
知らんのかい

**546** (ﾜｯﾁｮｲ c1da-BvZE) · 2021/10/30(土) 16:14:32.06

>>545
personal.xlsbを信頼できるドキュメンに設定したらできました．
無礼な物言いごめんなさい．

2021/10/30(土) 16:52:18.20

ゆるさん、打ち首じゃ

2021/10/30(土) 18:39:08.12

めんご

2021/10/30(土) 18:39:42.42

りんご

2021/10/30(土) 18:44:01.08

マンゴ

2021/10/30(土) 22:30:09.59

三兄弟

2021/11/04(木) 12:18:24.94

for i = 1 to 100 step 1

　　'最終行は処理中に変動するため栗けしの都度最終行を取得する
　　Worksheets(OutputSheetName).Cells(1000, 1).Select
　　Selection.End(xlUp).Select
　　iRastrow = Selection.Row

　　for j =2 to iLastrow step 1
　　　何らかの処理
　　next j
next i

上記のようなプログラムがあったとして j=2、iLastrow=1のように最初から子ループの終了条件を満たしているようなケースで
子ループの j が 2でクリアされず親ループの繰り返しの都度 3,4...と加算されていくケースがあるんだけどさ

最初からループの終了条件を満たしている場合は、for j=2 … の部分の変数値のクリアはされないものなの？
終了条件を満たしているか満たしていないかに限らず、この行にきたら j=2 でクリアしてくれると思ってたんだが…

2021/11/04(木) 12:30:43.13

LとRはいいの？

2021/11/04(木) 12:43:19.95

ごめん、そこは単なる書き間違い
実際のコードはLで統一されとります

**デフォルトの名無しさん** (ｽﾌｯ Sd33-ZpU0) · 2021/11/04(木) 13:10:37.18

--ここから読む--

2021/11/04(木) 16:49:49.42

コボル、フォートラン、LISP、VBA、、、

2021/11/04(木) 19:17:22.94

>>557
色々行ったけど一つとしてものにならなかった…？

2021/11/04(木) 19:43:59.36

エクセルでチェック表作った

職員に入力してもらって月一で提出してもらってrpaツールに流し込んで専用ソフトに入力してるけど

バージョンアップしたファイル渡したのに
無視して古いファイル使ってきたり
様式ぶち壊してめちゃくちゃなファイルを提出してきて
まともなデータに成形するのに死ぬほど苦労した
ゴミ職員にたいしてブチ切れそうなんだけど
どうしたらいいですか

2021/11/04(木) 19:49:57.71

新しいファイル以外の提出は受け付けなければいい

2021/11/04(木) 19:53:35.21

なるほどありがとう
このゴミ職員エクセルを魔法か何かと勘違いしてるわ
あまりに適当な仕事に腸煮えくり返る

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で稼ぐのは諦めろ