Excel VBA 質問スレ Part71

2021/05/25(火) 12:48:01.06

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

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

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

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

2021/06/17(木) 12:03:07.26

マ板でやれ

2021/06/17(木) 13:14:56.38

>>423
人件費の方が高くなる

2021/06/17(木) 22:34:01.24

EXCELのツールごときに予算取れんと一蹴
ホント日本て効率化の基礎すらないよね

2021/06/17(木) 22:38:47.24

そもそも政府からして
大金かけて中抜きしてゴミみたいなシステム作り上げるからな

2021/06/17(木) 23:14:34.47

全員が田中の爺さんみたいになる必要なんか無いんだよ
かえって喧嘩になるわ

2021/06/18(金) 13:14:05.55

最近365のインスコデフォが64Bitなのか知らんが
やたら64Bit入れてるとこ多くてAPIの宣言で苦労するわｗ

2021/06/18(金) 14:31:11.45

官公庁や地方の役所は excel 禁止にするべきだと思う
マイナンバーと一緒にコピペしたゴミファイル対象に存在してそう

2021/06/18(金) 16:16:04.51

>>429
822 名無し~3.EXE sage 2021/06/16(水) 09:36:00.33 ID:mfWEfGUc
https://support.microsoft.com/ja-jp/office/2dee7807-8f95-4d0c-b5fe-6c6f49b8d261?ui=ja-jp&;rs=ja-jp&ad=jp

>インストールプロセスを始める前に、明示的に 32 ビット版を選択しなければ、64 ビット版の Office が自動的にインストールされます。

826 名無し~3.EXE sage 2021/06/16(水) 10:36:08.09 ID:mfWEfGUc
64ビット版Office
https://i.imgur.com/f4XX4AR.png

2021/06/19(土) 21:17:20.75

Wordファイルをフォルダから選択して開く方法がわからないので教えてください
Documents.open filename:＝.selectedItems(1) でエラーになってしまいます

Dim myFD As FileDialog
　Dim myFolderPath As String
My folderPath ="C:\Users\ユーザ名\Desktop\test"
　Set myFD = Application.FileDialog(msoFileDialogFilePicker)
　With myFD
　.Title = "Wordファイルを選択してください"
AllowMultiSelect = False
　With .Filters
.Clear
.Add "すべてのWordファイル", "*.doc; *.docx"
End With
.initialFileName = myFolderPath
If .Show = -1 Then
Documents.Open FileName:=.SelectedItems(1)
End If
.Filters.Clear
　End With
　Set myFD = Nothing
End Sub

2021/06/19(土) 22:01:06.86

>>415
「リーダブルコード」の丸写し？

何をやってるかはコード見りゃわかるだろって、それが
わからないからコメントって概念があるんだろ。

2021/06/19(土) 22:48:12.33

>>432
とりあえず見つけた間違いが2箇所だけど、これで動くかどうかまでは未検証

正 MyfolderPath = "C:\Users\ユーザ名\Desktop\test"
誤 My folderPath = "C:\Users\ユーザ名\Desktop\test"

正 .AllowMultiSelect = False
誤 AllowMultiSelect = False

2021/06/20(日) 04:10:19.34

>>432
>Documents.open filename:＝.selectedItems(1) でエラーになってしまいます
..selectedItems(1) の部分をpath付きでファイル名直接指定してみ

あとエラーの内容書かないで動かないとか言ってんじゃねーよ

2021/06/20(日) 04:48:09.25

>>433
＞何をやってるかはコード見りゃわかるだろって、それが
＞わからないからコメントって概念があるんだろ。

別に書いてあっても「親切な人だなぁ」とは思うけどきちんと単一責任原則に沿って書かれていればひとつひとつの関数やメソッドは基本そんなに長くなるもんじゃなし、ヘッダコメントに「こんなことやってます」的なことが書かれていれば必要ないよ

コードに対する読解力がないのか
コード書いてる奴が可読性低いコード書いてるのか知らないけど
自分とこの仕事場の能力の低さを棚に上げて俺に言われても困る

2021/06/20(日) 06:35:27.96

>>432
> Documents.open filename:＝.selectedItems(1) でエラーになってしまいます
エラーメッセージを書けよ…
あとそこにブレークポイント掛けて、debug.print myFD.selectedItems(1)
ってやってみて

2021/06/20(日) 07:31:37.47

>>434>>435
レスありがとうございます
エラーは実行時エラー429
ActiveXコンポーネントはオブジェクトを作成できませんです。
>>437
外にいるので後で確認します

Wordをファイル指定なら開けるのですがダイアログボックスのフォルダからファイルを選択して開くのは難しいんでしょうか

2021/06/20(日) 08:27:01.55

>>433
>>415 が言ってるのは極端な例だと
i = i + 1 ' i を１つ増やす
みたいな奴のことだろ

2021/06/20(日) 10:40:04.96

なるほどそりゃ確かに見りゃわかるわってなるな

**デフォルトの名無しさん** (ｽﾌｯ Sdba-hhAf) · 2021/06/20(日) 11:44:28.54

そんなん普通はincとdecを作るだろ

Sub inc(ByRef i)　'1増やす
　　i = i + 1
End Sub

Sub dec(ByRef i)　'1減らす
　　i = i - 1
End Sub

2021/06/20(日) 11:58:27.02

VBAらしくない

2021/06/20(日) 13:29:47.77

>>441
普通？
そんなのみたこともないけど、それを作るメリットは？

2021/06/20(日) 14:10:12.41

>>441
forループできるのにそれする意味は？

2021/06/20(日) 15:16:43.19

リーダブルコードはコードの要約よりも、意図とか疑問点とか全体としての位置付けとかを書くといいぞって主旨だった気がするが

2021/06/20(日) 15:17:08.78

ネタだぞお前ら

2021/06/20(日) 15:32:17.18

>>446
>>441のことを言ってるのか？
ネタならもう少し面白い奴にしてくれ

2021/06/20(日) 15:44:58.90

>>432
>>432
参考にしていると思われるサイト
　https://ameblo.jp/gidgeerock/entry-12059401800.html

上記に書かれているのは Word用のマクロが書かれているので
そのままでは Excelのマクロとしては実行できません

参照設定とかオブジェクトとか指定する必要があるのでExcelで動かすならExcel用のマクロを
見つけて参考にしてください

2021/06/20(日) 16:44:41.50

エクセルで何故か散布図の最大値が35になってしまうんだけどどうすればいいのかな？

2021/06/20(日) 16:54:50.18

横軸の最大値が三十五になってしまう

2021/06/20(日) 16:54:54.50

エクセルで何故か散布図の最大値が35になってしまうんだけどどうすればいいのかな？

2021/06/20(日) 16:57:32.03

VBAで散布図作ったのか？

2021/06/20(日) 17:01:39.70

>>452
そう
横軸だけ何故か35になる

2021/06/20(日) 17:12:29.90

選択したフォルダの絶対パスを取得したいと考えているのですが、下記のフォルダ選択を実行すると
Dim shell As Object
Dim p As Object
Set shell = CreateObject("Shell.Application")
p = shell.BrowseForFolder(&O0, "フォルダを選択してください", &H1 + &H10, "C:\")
オブジェクト変数がセットされていないか、Withブロックがセットさせてないとエラーが出ます。
型がオブジェクトにするといけないのでしょうか？

2021/06/20(日) 18:36:22.06

自決しました

2021/06/20(日) 19:07:41.63

Excel板で、勉強するならよねさんかインストラクターのネタ帳がオススメと言われましたが他にオススメありますか？

2021/06/20(日) 20:09:32.61

インストラクターのネタ帳はいいよね

2021/06/20(日) 22:15:33.98

>>439
ああ、なるほどｗ

それなら俺も「わかるわ。そんなもん！！」と言いたくなるな。

**デフォルトの名無しさん** (JP 0Hff-19dE) · 2021/06/20(日) 23:21:02.61

いや、iが数値型とは限らんぞ？
文字列だったらどうする

2021/06/20(日) 23:58:31.05

ところで俺はbooleanやbyteでセコセコメモリ稼いでるんだが
これ今のPCでやる意味あるんかな

**デフォルトの名無しさん** (JP 0Hff-19dE) · 2021/06/21(月) 01:46:50.36

まあ処理内容によるけど、ほぼ無意味
巨大な配列とか数億回ループとかやるとさすがに差が出てくる

2021/06/21(月) 07:09:00.41

あっやっぱり？

2021/06/21(月) 22:25:26.02

>>455
成仏してください

2021/06/22(火) 11:40:45.71

オフィス365でデーターを保存したときにウインドウの上のバーの箇所のタイトルに
「ファイル名＋保存しました・・」って表示になるけど、
これ出さないように出来ないのかな？

ウインドウのタイトルが変わるとRPAが誤作動をおこすので
いらない機能をつけるなよといつも思います。

2021/06/22(火) 11:53:10.81

｢データー｣と伸ばすのはだいたい馬鹿

2021/06/22(火) 15:05:16.35

ハーゲーと伸ばすのはたいていハゲ

2021/06/22(火) 16:22:04.60

六本木をギロッポンて言うのはバブル世代

2021/06/22(火) 17:33:55.87

コンピュータとか最後の長音を省略する文化が浸透しすぎて勘違いしたお爺ちゃん達がメールをメイルって書き始めてから数年が経ちました

**デフォルトの名無しさん** (ｽﾌｯ Sdba-19dE) · 2021/06/22(火) 17:38:24.50

メード喫茶

2021/06/22(火) 17:40:58.43

デエタベイス
コンビュウタア
ワアプロ

2021/06/22(火) 17:43:44.45

めゑる

**デフォルトの名無しさん** (JP 0Hff-C2Ex) · 2021/06/22(火) 17:52:33.69

ヱクセルヴァイオレットナンバーワン

2021/06/22(火) 18:10:38.33

VBE使いにくいです。
皆さんは何か別のものを
使っていますか？

2021/06/22(火) 18:14:32.32

一晩寝たら意外と簡単にプログラム書ける不思議
昨日あんなに悩んだのに

2021/06/22(火) 18:17:45.56

おぢーさん達はWordの事を「ワアド」と発音するね

2021/06/22(火) 18:29:06.95

放置したら頭がスッキリするんだな

2021/06/22(火) 18:29:22.48

放置したら頭がスッキリするんだな

2021/06/22(火) 18:38:41.16

猫杓子ビールス

2021/06/22(火) 19:05:13.17

放尿したら頭がスッキリするんだな

2021/06/22(火) 19:21:16.66

これって何だったっけ？
確か昔は変数に持たせられる文字列数に制限があって末尾の棒線を取って記載するのが流行って今に至ってるって話の奴だっけ？
まぁ何かデータとかメモリとか書くのが当たり前になっちゃってるし俺もそう書くけど
別にどっちでもいいんじゃないの？
むしろ今はそんな制限殆どないんだし、最近の人の方が末尾に棒線付けて書いてるかもね。

2021/06/22(火) 19:43:01.98

>>480
こういう英語のわからない馬鹿は黙ってろよ

2021/06/22(火) 20:39:14.51

>>480
内閣告示・内閣訓令が出てるので今は付ける方が多くなってる、省略したがるのは知識が更新できない爺
ちなみにデーターとか言うのは単なるアホ
https://www.bunka.go.jp/kokugo_nihongo/sisaku/joho/joho/kijun/naikaku/gairai/honbun06.html

2021/06/22(火) 20:40:18.28

「棒線」で素人丸わかり

2021/06/22(火) 20:46:35.31

しようもないマウント

2021/06/22(火) 20:47:21.44

伸ばし棒だよな！

2021/06/22(火) 20:48:45.83

VBAスレらしくプログラムの知識でマウント取れよ

2021/06/22(火) 21:09:02.39

せめて変数のネーミングセンスでマウントとってください

2021/06/22(火) 21:46:11.98

マイクロソフトが周辺機器メーカーも巻き込んで表記ルールを作っている

2021/06/23(水) 00:05:56.27

ルールーには従わないとな

2021/06/23(水) 00:19:56.88

ルールははじめる前に作れ
あとからいうな

2021/06/23(水) 05:00:42.54

メモリ？メモリー？

2021/06/23(水) 08:36:39.57

ルール一　質問するな

2021/06/23(水) 09:00:39.91

よっしゃまかせろ！

2021/06/23(水) 09:01:02.65

そのかわりブツに文句言うなよ

2021/06/23(水) 12:25:06.39

メモリ＝目盛

2021/06/23(水) 12:37:19.89

メインをメーンと呼ぶのはなぜかしっくり来ない

2021/06/23(水) 12:43:38.93

>>496
そりゃそうだぜメーン

2021/06/23(水) 14:38:25.35

>>497
そりゃないぜセニョール

2021/06/23(水) 15:16:25.32

基本的には長音歓迎派なんだけど、コンパイラとかドライバを伸ばすのはちょっと抵抗ある。慣れなんだろうけど。

2021/06/23(水) 16:26:51.57

ドライバーは運転手か工具
ドライバはIT系な感じ

2021/06/23(水) 16:49:46.55

JIS Z 8301:2011 規格票の様式及び作成方法
https://kikakurui.com/z8/Z8301-2011-01.html
p.61
G.6.2.2 英語の語尾に対応する長音符号の扱い
英語の語尾に対応する長音符号の扱いは，通常，次による。
なお，英語の語末の -er，-or，-ar などは，ア列の長音とし，長音符号を用いて表すものに当たるとみなす。

a)専門分野の用語の表記による。
　注記学術用語においては，原語（特に英語）のつづりの終わりの -er，-or，-ar などを仮名書きにする場合に，
　長音符号を付けるか，付けないかについて厳格に一定にすることは困難であると認め，
　各用語集の表記をそれぞれの専門分野の標準とするが，
　長音符号は，用いても略しても誤りでないことにしている。
b)規格の用語及び学術用語にない用語の語尾に付ける長音符号は，表 G.3 による。

表 G.3?外来語の表記に語尾の長音符号を省く場合の原則

a) その言葉が 3 音以上の場合には，語尾に長音符号を付けない。
　エレベータ（elevator）
b) その言葉が 2 音以下の場合には，語尾に長音符号を付ける。
　カー（car），カバー（cover）
c) 複合の語は，それぞれの成分語について，上記 a)又は b)を適用する。
　モータカー（motor car）
d) 上記 a)?c)による場合で，
　長音符号を書き表す音（例 1），
　はねる音（例 2），
　及びつまる音（例 3）は，それぞれ 1 音と認め，
　よう（拗）音（例 4）は1音と認めない。
　1 テーパ（taper）
　2 ダンパ（damper）
　3 ニッパ（nipper）
　4 シャワー（shower）

2021/06/23(水) 17:36:51.98

ニッパーじゃね

2021/06/23(水) 19:21:04.82

パイじゃなくてファイだφ

2021/06/23(水) 20:14:03.48

ワイワイ
ファイファイ
パイパイ

2021/06/23(水) 20:27:01.71

Dをでー、Tをてーと発音するのはどうなるよ

2021/06/23(水) 20:58:36.08

AやEと聞き間違えないようにするための配慮

2021/06/23(水) 21:02:37.21

読み方アンケート
http://shinh.skr.jp/yomikata/

2021/06/23(水) 22:06:12.43

ラッパーがラッパになるのか

2021/06/24(木) 02:25:12.03

仮面ライダ

2021/06/24(木) 06:37:37.59

共有フォルダのmdbファイルにADOでアクセスしてます

一人だとconnectionのcloseは、すんなり行きます
だけど、誰かが同じようにadoでconnectionをopenしてるときに、connectionのcloseをかけると30秒くらい止まります

どしたら解決できますん？

2021/06/24(木) 11:29:29.71

解決とは？

2021/06/24(木) 11:38:25.88

質問を質問で

2021/06/24(木) 11:43:35.17

そう思うなら回答してやれよ

2021/06/24(木) 11:47:51.88

そういう時はコーヒーを沸かして飲んでみよう
飲み終わってから画面を見ると、なんともう終わってるじゃないか！

2021/06/24(木) 11:50:14.97

ということでそれで解決でいいんじゃね

2021/06/24(木) 12:21:52.89

待て待て、>510本人が良くても他に開いてる誰かが大人しくコーヒー淹れて飲むかは分からんぞ
ここは待ち時間の間に詰将棋でも表示する方が良いのではないだろうか

2021/06/24(木) 16:40:18.82

普通に考えて、何もなければクローズに30秒もかかるわけないし
なんらかのエラーが出てるかファイル共有サーバに問題があるかだろ

ちょっと試したけど実際そんなことにはならん
詳しい環境もわからんしこれ以上は何とも言えんわな

詰将棋のルールわからん人もいるだろうからおとなしく待てとしか

2021/06/24(木) 18:52:32.85

「誰かが入ってるとき」ってのが引っかかるけどACCESSでしょ？
排他やら何やらもあるかも知れんけど、こういうときはまず最初に疑うのはそのACCESSファイルが最適化されているかでしょ？
とりあえず閉じるときに最適化ロジックが入っているかと、一回最適化して同じように確認してみたら？

2021/06/24(木) 19:05:50.58

詰将棋のルールーがわからない人にはルールーを表示させればすむけど
1日に何杯もコーヒーのむほうが大変だと思うぞ

2021/06/24(木) 21:23:06.04

データベースへのアクセスは1日3回までってルールにしとけばいい

2021/06/24(木) 22:15:39.20

サンキューお前ら
VBAで詰将棋作ってみたくなったわ

2021/06/24(木) 22:19:38.50

4回以上やりたくなった時は？

2021/06/24(木) 22:25:25.99

翌日まで我慢