VBAなんでも質問スレ Part3

**デフォルトの名無しさん** · 2021/09/09(木) 19:46:21.53

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ
VBAなんでも質問スレ Part2
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

**デフォルトの名無しさん** · 2021/09/09(木) 19:50:57.85

関連スレ

Excel VBA 質問スレ Part72
https://mevius.5ch.net/test/read.cgi/tech/1626565335/

Access VBA 質問スレ Part2
https://mevius.5ch.net/test/read.cgi/tech/1544620479/

古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]c2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1440930335/

Excel総合相談所 145
https://mevius.5ch.net/test/read.cgi/bsoft/1624085733/

**デフォルトの名無しさん** · 2021/09/09(木) 19:51:44.70

前スレ落ちたままだったから建てた

**デフォルトの名無しさん** · 2021/09/17(金) 20:28:55.22

プロシージャ終わったあとに変数の中身を保持するにはどうすればいいですか
ボタンとかで変数を後で呼び出したいです

**デフォルトの名無しさん** · 2021/09/17(金) 20:58:48.95

シートのセルに値を書き込んでおく

**デフォルトの名無しさん** · 2021/09/18(土) 00:17:54.33

>>4
Static変数をつかう
プロシジャの外で変数を定義する
VBA以外のどこか（シートとか）に保存する

好きな方法えらべ

**デフォルトの名無しさん** · 2021/10/20(水) 22:37:31.96

超初心者です
すみません、他スレでもきいたのですが

以下の対応をさせたいです
①シートを支店分だけ増やす
②シート名をそれぞれ「支店一覧」A2～A18の支店名にする
③作成したシートのB5に支店名を入れる
④作成したシートの表のA列が"0"になっている行を削除する
⑤作成したシートのオートフィルタを解除する

以下のものではエラーになりますが、どこが悪いのでしょうか

Sub シート作成
Dim 支店名 As Range
For Each 名前 In Worksheets("支店一覧").Range("A2：A18")
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 支店名.Value
.Range("B5") = 支店名.Value
End With
　 Range("B3").AutoFilter 1, "0"
With Range("B3").CurrentRegion.Offset(1, 0)
.Resize(.Rows.Count - 1).EntireRow.Delete
　　Range("B3").AutoFilter
End With
Next 支店名

**デフォルトの名無しさん** · 2021/10/20(水) 22:49:26.57

④作成したシートの表のB列が"0"になっている行を削除する
の誤りです

コードの3行目は
For Each 支店名 In Worksheets("支店一覧").Range("A2：A18")
の誤りです

**デフォルトの名無しさん** · 2021/10/21(木) 01:14:54.35

>>7
エラーについて質問する時は、なんていうエラーが出たか、どの部分が黄色くなってるか書いて
プログラムは間違ってないから、おかしいのは支店一覧のA列に入ってる支店名と思われる

7 · 2021/10/26(火) 13:12:31.54

>>7です。
間があいてしまい、申し訳ございません。

マクロを実施すると、「支店一覧」Ａ２：Ａ１８のＡ２，Ａ３，Ａ４のシートまでは対応が完了するのですが、
その後Ａ５名のシートが作成されず、「原本（２）」というシートが作成されたあと、以下エラーとなります。

「実行時エラー'1004':
この名前は既に使用されています。別の名前を入力してください。」

>>9さんの仰る通りなのだと思うのですが、「支店一覧」をみるかぎりではおかしなところはみあたりません
（もちろんA2:A18に重複もありません）

**デフォルトの名無しさん** · 2021/10/26(火) 18:21:16.44

>>10
隠しシートか、支店名のところに隠れた行があるのでは？
きちんとデバッグしないと分からんけど。

11 · 2021/10/26(火) 18:27:36.54

簡単なデバッグとしてら、まずはwithステートメントを全てコメントアウトして、動くかどうか。
あとは支店名のところをシンプルにアルファベットのAからQとかに変えてみる。

**デフォルトの名無しさん** · 2021/12/16(木) 14:58:51.82

reportのインスタンスを作成して、property Letでprivate変数に配列を渡した後に、docmd.openreportを行うと変数が全部初期化されるのな。
reportに表示させるものを変数で与えるのは不可能なのかなあ？
やっぱり、クエリとか一時的なテープルが必要なのかな？Openargsで出来そうだけど、数が多いと非現実的だよね。

13 · 2021/12/16(木) 15:02:05.17

グローバル変数でやるべきかなあ？でも変なときに変数の寿命が来るから不安だよなあ。

**デフォルトの名無しさん** · 2022/02/13(日) 16:56:03.94

word vbaについて質問です。
本文↓
0001234567891

コード↓
Sub findText()
With Selection.Find
.Text = "1"
Do While .Execute
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="あ"
Loop
End With
End Sub

特定の文字列を検索し、コメントを追加するマクロを作っているのですが、
コードを実行すると、本文1個目の「1」にコメントがついた後，
2ループ目の「Selection.Comments.～」で「5935 コメント、脚注および文末脚注は、本文にのみ追加できます。」というエラーが出ます。
コメント入力時にカーソルが本文外に出るのが原因かと思い、
ループの最後にカーソルを本文中（コメントを付けたワードの直後）に戻すようにしたいのですが
どのように記述したらいいのでしょうか？

**デフォルトの名無しさん** · 2022/03/01(火) 18:52:06.00

Excel VBAで質問です

現在開いているシートにマクロボタンを作り、実行させると…
現在シートのB列に検索値
別のシート(ABC)のB列の5行目～400行目までを検索して一致したセル番号が欲しいのですが
For cnt=1 To 10 samsu(cnt)=WorksheetFunction.Match(Cells(cnt,1),Worksheets(”ABC”).Range(Cells(5,1),Cells(400,1)),0)
…
next
このMatch関数の正しい書き方を教えてもらいたいのですが。

**デフォルトの名無しさん** · 2022/03/01(火) 20:16:20.95

B列ってcells(?,1)で合ってる？
もうcells(?,"B")しか使わないから忘れた

**デフォルトの名無しさん** · 2022/03/01(火) 22:26:50.78

>>17
すみません。
Bは2でした…
2に訂正しても、match関数としては動かないみたいです。

**デフォルトの名無しさん** · 2022/03/12(土) 08:01:57.51

質問です。

アクセスから書き込みパスワード付きエクセルファイルに保存するためにエクスポートします。

当然、単純にエクスポートするコードを書いたらエラーで止まります。
これが5年くらい前

最近、この手順を自動化するために
エクセルファイル側の書き込みパスワードを解除し、保存、
アクセスからエクスポートと、いうコードを書きました。

パスワードの再設定をしていないのに正常にエクスポートされ、
書き込みパスワードも正しくかかっています。

パスワード絡みの動作がおかしい気がしますが
心当たりはありますでしょうか？

**デフォルトの名無しさん** · 2022/03/12(土) 08:09:55.30

WiNdowsを10にかえたことも影響あるかもしれま追記
せん。

19 · 2022/04/09(土) 10:45:51.24

ウインドウズの更新かかったらさらに挙動が変わりましたw

質問の件ですが
もともとファイル内容の変更ではなく
新規作成で問題無い事に気づいたので
パスワードなしマクロファイルを作成→
マクロファイルからパスワード付きで新規(上書き)保存
と、二段階にしました。

**デフォルトの名無しさん** · 2022/05/01(日) 14:19:41.70

2日前まで動いていた自作のマクロが、昨日からウィルスと誤検出されて実行できなくなってしまいました
内容はseleniumでchromeを操作して特定のページを表示させるだけの比較的単純な物です

Windows Defenderの定義と、chromeとseleniumと.netは最新にしましたが改善されません
どうしたら誤検出だとシステムに教えることができるのでしょうか？

**デフォルトの名無しさん** · 2022/05/01(日) 14:58:43.07

署名

**デフォルトの名無しさん** · 2022/05/01(日) 19:48:46.19

デジタル証明書を作って読み込ませたら実行できるようになりました
ありがとうございました
それにしても、こんなに簡単に証明書を作れてしまうのなら、あんまり意味がない気もしますね

**デフォルトの名無しさん** · 2022/05/01(日) 19:50:53.15

とりあえず実行はできましたが、証明書を入れたら起動がとても遅くなってしまいました
誤検出だと知らせる方法もお願いします

**デフォルトの名無しさん** · 2022/05/06(金) 17:09:58.99

Excel VBAの質問です。
初心者で申し訳ありません。
yahoo知恵袋にベストアンサーにあったものなのです。

Sub Sample1()
Dim dt As Date

dt = Range("D11").Value
Range("D12").Value = GetNENDO(dt, 3)
MsgBox dt & " は " & GetNENDO(dt, 3) & " 年度です"
End Sub

Function GetNENDO(dt, x)
GetNENDO = Year(DateAdd("m", -x, dt))
End Function

Range("D12").Value = GetNENDO(dt, 3)の(dt, 3)が理解できません。
またYear(DateAdd("m", -x, dt))の-xとはどういうことでしょうか。

抽象的ですみません

**デフォルトの名無しさん** · 2022/05/06(金) 18:24:20.55

自作のファンクションでGetNENDOというのを作っていて、
このファンクションは引数に指定された日付dtに対してxか月前（-x）の日付の年を返却するみたいだね。
今回はセルD11に入っている日付の3か月前の年をD12に設定しているような動作だと思う
例）D11に「2022/2/3」が入っていればD12には「2021」が設定される

**デフォルトの名無しさん** · 2022/05/06(金) 19:49:29.47

知恵袋さんは回答するだけしといて解説が無いから初心者にはキツイよ

**デフォルトの名無しさん** · 2022/05/06(金) 22:15:14.38

カレンダー年から会計年に変換するVBAのようだが
こんなのワークシート関数で十分なのに有り難がって使う理由が分からんよ

**デフォルトの名無しさん** · 2022/05/07(土) 05:50:57.56

>>29
プログラミング全般に言えることだけど、単なる数式と比較して、関数化して名前が付けてあると、他人が見た時に用途や動作がわかりやすくなるという大きなメリットがある

**デフォルトの名無しさん** · 2022/05/07(土) 23:47:50.28

>>29
それ言い出したら、「全部0100010101000」で表現できるのにいちいちアセンブラとかありがたがって使う意味わからん、まで遡る。

抽象化は大事だよ。

あと、地の文に「有難がって」みたいなネガティブな印象の語を持ってきて、言いたいことを暗に伝えるのはやめたほうがいいと思う。

ゲスゴミがよく使うんだけど、「・・・などと訳のわからないことを言っており」とか、「行き過ぎた○○の是正を」とかの表現を使って責任逃れしつつ人や物にレッテルを貼る卑怯者に見える。

俺がゲスゴミって表現使ったのことでなんとなく俺のスタンス伝わるだろ？そういう類。

**デフォルトの名無しさん** · 2022/05/08(日) 10:19:01.14

>>29
ライブラリとか作ったり使ったりしたことなさそう

**デフォルトの名無しさん** · 2022/05/08(日) 10:51:36.83

>>26にある知恵遅れ袋の回答者が来てるようだな

**デフォルトの名無しさん** · 2022/05/08(日) 11:57:36.38

>>26
GetNENDはなんでわざわざ引数2つにしてるんだろうな
年度を求めるなら暦年との差は必ず3な訳で、
2つめの引数に3以外を指定するならGetNENDOって名前が不適切

>>33
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1063327550
これだろ？
質問の要件が「エクセルのVBAを使って」なんだからおかしくはない

**デフォルトの名無しさん** · 2022/05/08(日) 13:10:38.22

>>34
年度が4月始まりじゃない場面は業界によって色々ある

**デフォルトの名無しさん** · 2022/05/08(日) 14:40:26.99

>>35
それは事業年度
年度とだけ言う場合は4月始まりだよ

**デフォルトの名無しさん** · 2022/05/08(日) 15:13:04.89

その関数を何の用途に使ってるか部外者にはわからない
デフォルトが何かも職場によって違う
https://cdn.img-asp.jp/cms/351698_1_0_0_1.jpg

**デフォルトの名無しさん** · 2022/05/10(火) 02:24:40.53

知恵袋をたまに見てるとさ、無言で変な構文やなんかのサイトを張り付けて去っていく回答者いるけど、なんか不気味じゃない？？

**デフォルトの名無しさん** · 2022/05/10(火) 08:22:39.72

事業年度や会計年度は主体・組織によって全く異なる。
会社だと3月期決算の会社は4月始まりだが、
3月期決算でない会社は世の中にたくさんある。

学校年度だって国によって違う。
4月始まりの日本は少数派。

**デフォルトの名無しさん** · 2022/05/10(火) 09:44:48.97

自転車置き場の議論

**デフォルトの名無しさん** · 2022/05/10(火) 09:47:10.09

年度が4月始まりじゃないならなおさら二つ目の引数は馬鹿丸出しだろ
普通年度始まりの月とかにしないか？