Excel VBA 質問スレ Part67

2020/06/26(金) 02:01:29.56

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

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

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

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

2020/07/17(金) 12:07:44.33

の場合、とか言ってるんならif使えばいいだけだろ
アホなのか

**477** (ﾜｯﾁｮｲ 8949-cgHx) · 2020/07/17(金) 12:46:43.52

書いてみた
理解しなきゃ使えないと思うが

https://i.imgur.com/3Ynd7KW.png

https://i.imgur.com/5mFzai4.png

**476** (ﾜｯﾁｮｲ 89cc-V+qA) · 2020/07/17(金) 15:02:49.46

>>479

完成しました。ありがとうございました

dt = CDate(ary(1,6))

If Cint(Format(dt,"d")) > 20 Then '20日以降か

dt = DateAdd("m",1,dt)

End if

　 '空欄でなければさらに１カ月繰り上げる

If AfuriArray(cnt-1,26) <> "" Then

Else

　dt = DateAdd("m",1,dt)

End If

ary(2,1) = Right(Format(dt, "yyyy"),2)&"_"& Format(dt,"m")

2020/07/17(金) 21:27:08.31

来年の役員報告の課の改善発表の内容に
俺のマクロで作る事が既に組み込まれてるんだが
そもそもそこまでスキルないし年上のもっと給料もらってる奴にやらせろやカスが

2020/07/17(金) 23:08:06.59

って言えばいいじゃん

2020/07/18(土) 15:07:16.47

日本語環境でmiLANG_JAPANESEを指定してもbad languageのエラーが出るのは何故?

2020/07/18(土) 16:11:19.98

敗戦国だから

2020/07/18(土) 18:26:41.44

sheet"s1"にFunctionで処理したary2を貼り付けたいのですが、処理前のary1が貼り付けられます
Function後のary2を貼り付けるにはどうすればよいですか？

Sub test()
Dim endrow, r As Long
endrow = Sheets("rui").Cells(Rows.Count, 1).End(xlUp).Row
ReDim ary1(endrow - 1, 6)

ary1() = Sheets("rui").Range("A2:F" & endrow).Value
Sheets("sh1").Range("A2:F" & endrow) = ary2(ary1())
End Sub

Function ary2(ary1() As Variant) As Variant()
Dim en, r As Long
en = UBound(ary1())
For r = 1 To en
ary1(r, 1) = Application.Asc(ary1(r, 1))
ary1(r, 1) = StrConv(ary1(r, 1), vbUpperCase)
ary1(r, 1) = Replace(ary1(r, 1), " ", "")
Next r
End Function

2020/07/18(土) 19:22:36.82

>>485
そりゃあ貴方、ary2は関数ですと自分で宣言してるもの。
しかもary1に代入してますやんかー
プログラムは命令通りに動作してるだけじゃん。

ary2の配列を準備して処理してから
そのary2の内容をシートに展開すようにプログラムしなきゃ

**485** (ﾜｯﾁｮｲ 89cc-sTnA) · 2020/07/18(土) 20:24:50.23

>>486
ありがとうございますFuntionの使い方を誤解していましたm(_ _)m

2020/07/18(土) 22:33:50.97

Function大魔王

2020/07/18(土) 22:50:59.73

>>485
Functionの配列渡しは少しややこしい
まずは内容を単純化して正解の型を見つけた方がいいと思う

2020/07/18(土) 23:52:10.32

>>485
単純化した一つの正解の型

Sub test()
Dim ary() As String
ary() = fnc
MsgBox ary(1)
End Sub

Function fnc() As String()
Dim ary(1) As String
ary(1) = "a"
fnc = ary()
End Function

2020/07/19(日) 01:27:51.35

配列の扱いや参照渡し以前の問題では・・・

2020/07/19(日) 02:51:36.02

結局、馬鹿には無理なんだよ

2020/07/19(日) 02:54:31.21

joinして受け渡ししてsplitで復元がシンプルでわかりやすいんじゃね？

2020/07/19(日) 06:42:33.41

もう企業ユーザーにはOffice Script解放されてるみたいですが試された方、使用感どんなもんですか？

2020/07/19(日) 08:30:43.83

調査してる最中じゃねーの、あわてんな

2020/07/19(日) 14:09:46.91

>>485
ary2の宣言部分は正しい。
でもary2の内部でary2はどうなったの?
何もしてないよね。
ary2の内部でary2はこうなりましたって書かないと宣言した時点の空の配列が返るのが当然。

つまりary2のFunctionの最後にary2=の文が必要。

2020/07/19(日) 14:11:26.48

>>490のfnc=any()の文が正にそれ。

2020/07/20(月) 12:06:47.51

excelなんだから配列はセルにいれときゃいいんじゃね

2020/07/20(月) 18:29:09.95

速度気にしないなら

2020/07/20(月) 23:22:10.32

全然気にしない

2020/07/20(月) 23:52:01.41

配列は大量に入れるとメモリ不足になるのが嫌。
値以外のプロパティ持ってるセルの方がよっぽどメモリ喰うだろって思うけど、
仕様だから仕方がない。

2020/07/21(火) 07:20:28.10

メモリ不足になるほど大量に入れることなんて殆ど無い。
不足するのは別の理由だと思うが。

2020/07/21(火) 10:31:44.78

10万行のCSVとか配列で処理したくなるけどメモリ不足になるんで仕方なくワークシートに入れてる

2020/07/21(火) 11:09:54.82

VBAは過去のしがらみが多いので64bit Excelでも変な制限があってびっくりする
最近経験したのはユーザー定義型の中の配列サイズ
Type T
A(33000) As Integer
End Type
Sub S
Dim X As T
End
ってやるだけで「動的なローカル変数が多すぎます」って言われる
A(32000) As Integer
なら問題ない

2020/07/21(火) 11:43:12.61

intの最大の32767だろうね

**デフォルトの名無しさん** (ｱﾒ MMa9-XNKV) · 2020/07/21(火) 12:27:55.57

オフィススクリプト試したい…
個人ユーザーにも解放してくれ…

2020/07/21(火) 13:35:34.68

csvを文字列形式のセルに取り込む時、値がない場合は""とemptyどっちにしておくべき？

2020/07/21(火) 14:38:12.66

office田中の人が顔出しでYoutubeはじめたらしいが
おじいちゃんで偉そう。
実世界なら関わりたくないタイプ。

2020/07/21(火) 19:47:20.41

ネット上でも関わり合いになりたくないタイプだろ

2020/07/21(火) 21:24:07.75

自分の参考になるとこだけ聞いときゃいいんじゃないの？
その他アレコレ言うのはどうかと思うぞ

2020/07/21(火) 22:50:12.29

>>503
1レコードずつシーケンシャルに処理できないの?

2020/07/21(火) 23:00:00.64

複数の同じ形式で入力されたブックをマージしたんですが、テキストを連結する場合に区切り文字を「｜」にしました
（「｜」は入力時には使用していません）
ファイルが3つ（A.xlsx,B.xlsx,C.xlsx)、それぞれのブックの値をa,b,c（テキストのみ、数値なし）、セルの値は
空白可だとすると、マージ後のあるセルの文字列は

a|| a|b| a||c |b| |b|c ||c a|b|c |||

のいづれかになりますが、このうち左端及び右端の「｜」は削除、連続する「｜」は「｜」ひとつに統合、すべて「｜」の
場合はセルを空白にするにはどうすればいいでしょうか？余分なスペースを削るTrimのようなことを任意の文字でしたい、
という趣旨です。処理後は以下のようにしたいです

a a|b a|c b b|c c a|b|c 空白のセル

一旦「｜」をスペースに置換してTrim関数で余分なスペースを削ってから再度スペースを「｜」に置換すればできるんですが、
もうちょっとスマートな方法があるのかなということと、意図して連続したスペースを入力していたらTrimで消えてしまうので
そういった場合に備える意味も含めていい方法があれば教えてください

2020/07/21(火) 23:08:39.79

Excel2019です
外部CSVをpowerqueryで取り込んで整形したのちシートに貼り付けてあるテーブルがありまして、
ファイルを立ち上げる度にこのテーブルを自動で更新させるところまではできました。
この後、更新完了後に自動的にCSVファイルを保存、終了させようと考えているのですが
更新完了のイベントがどうもわかりません（見当たりません）。

アドバイスをいただけないでしょうか
よろしくおねがいします。

2020/07/21(火) 23:15:37.99

>>513
スマートさは知らないが正規表現で置換するとか

2020/07/21(火) 23:16:26.19

間違えた
>>512宛

2020/07/22(水) 01:35:45.12

>>507
null 値は文字列型じゃなく、
型もない、または、null型だから、空文字列ではないと思う

>>513
>このテーブルを自動で更新させるところまではできました
この処理の後に、やりたい処理を書けば？

2020/07/22(水) 02:45:59.48

>>512
/^\|+|\|+$//
/\|+/|/

2020/07/22(水) 03:16:01.58

>>517
v(^^)/~

2020/07/22(水) 03:56:58.93

>>511
ファイル操作はセル操作以上に重いからできるだけまとめた方が速くなる

2020/07/22(水) 08:03:26.55

>>519
そう？

2020/07/22(水) 08:33:57.99

>>503
10万を一気に配列に入れるの?
5000行ぐらいずつで処理できんの?

2020/07/22(水) 08:40:56.01

>>512
1.連続する｜を1つにする。
2.両端の｜を消す。

2020/07/22(水) 16:49:33.87

ExcelWebAddinっていうのを使ってWebフォームの入力を自動化しようとしていますが、ラジオボタンにチェックを入れるにはどのようなコマンドを入力すれば良いのでしょうか？

2020/07/22(水) 17:06:35.37

１人だけマクロ作って超楽に終わらせてるのがバレたわ
改善提案で出して8000円賞やるから他の奴らにも配って共有化してくれと言われた
まぁ仕方ない
でもまぁマクロはこっそり作って自分で運用するに限るね
次にそういうのできたら発表で使ってくれだと

2020/07/22(水) 17:17:55.78

こっそり使わないと
マクロ適用できないように仕変されるよ

2020/07/22(水) 17:25:20.04

Excelを使った業務が95％くらいの職場だから問題ない
逆に使いにくいwordを俺が改善で駆逐していってたが今回のはみんなに配りたくなかったけどまぁ仕方ないか…
在宅の日なんて他の人が半日かかるのを5分だったのに…

2020/07/22(水) 17:55:11.21

>>524
そういうのさあ、共有してあげてもいいけど、共有すると知的障害の人が仕様の異なるものに適用して失敗して文句言ってくるのが目に見えてるんだよね
だからといっていろんなケース想定してプログラミングするのはアホらしいし

2020/07/22(水) 18:47:51.04

むしろあえて自分用に最適化して「共通部分以外はできません」でもいい

2020/07/22(水) 19:56:15.37

いつのころからかマクロを忌み嫌い極限までＶＬＯＯＫＵＰで済ませるようになった

2020/07/22(水) 19:58:49.72

index/matchは使わないのｗ

2020/07/22(水) 20:03:08.77

オレオレ証明書でスムーズに使えるかと思ったら
証明書付けると逆に使えなくなったり
嫌がらせが半端じゃなかったしな
今では設定がどこにあるのかすら分からん

2020/07/22(水) 21:55:35.93

XPの頃はオレオレ証明書を作ってたけど、そういや今は作らなくても動いてるな
何がどう変わったのか把握してないわ

**デフォルトの名無しさん** (ｱﾒ MMfd-BRR5) · 2020/07/22(水) 22:08:08.79

今ならxlookupがある。

あと関係ないけど、スプシのquery関数輸入してくんないかなぁ…あんなのに特許とか無いでしょ？

2020/07/23(木) 02:13:32.09

あるだろう
使われてないけど

2020/07/23(木) 02:31:09.52

シートのコード名をマクロから変更することはできますか？

2020/07/23(木) 02:32:42.56

できるわけないだろ

2020/07/23(木) 02:42:45.18

まじか！

2020/07/23(木) 02:44:48.35

シートのコード名ってなんだ？

2020/07/23(木) 02:46:02.22

プロシージャ名じゃね
知らんけど

2020/07/23(木) 02:50:40.32

設定を変更する必要はあるけど、VBproject を編集できるかもね

2020/07/23(木) 03:09:52.56

>>535
値取得のみ可
https://docs.microsoft.com/ja-jp/office/vba/api/excel.worksheet.codename

2020/07/23(木) 03:16:02.13

>>526
もしかして長文資料もExcelで作っちゃう系？
それはそれで絶対やめとけよ

2020/07/23(木) 03:21:02.63

>>541
やっぱり値取得だけなんですね。
ありがとうございました。

2020/07/23(木) 07:12:45.90

>>543
何で変えたいの?

2020/07/23(木) 07:16:32.96

世の中が気に入らないから

2020/07/23(木) 07:23:13.06

手入力でやれよ

2020/07/23(木) 07:35:31.90

sendkeyでなんとか

2020/07/23(木) 10:55:22.67

>>517
ありがとうございます、休み明けに試してみます

2020/07/23(木) 11:56:15.16

Android版のアウトルックが操作方法また変わって、開こうとしたら削除されて、しかも削除済みのフォルダにもない。
どうしたら良いんだこれ。
メール消えてもうた。

2020/07/23(木) 11:58:48.40

>>549
スレチ

2020/07/23(木) 11:59:14.78

ロードに1分以上かかるのに、一見、ロードされているように見せかけるのも、問題があるように感じる。
人によっては、本文の無いメールが来たと思う人もいるだろう。

一見して高速にロードされるように見せかけるのは大した技術なんだろうけど、それ、ユーザーを騙すってことだよね？
実際にはクライアント側にデータを保存していないんだから。

2020/07/23(木) 12:02:50.60

高速にロードされるように見せかけているがために、まだデータをダウンロードできていないことをユーザーに知らせることが出来ない。
通信中であることを示すマークを出すと、高速で無いことがバレてしまう。
ここに矛盾を抱えてる。

2020/07/23(木) 12:12:38.03

しかもアウトルックドットコムはLinuxに慣れてる一般大衆からすると信じがたく重い。
サーバーからダウンロードしていることを隠すなら、高速なLinuxサーバーを使うべきでは？

2020/07/23(木) 12:24:44.89

先月まで開く動作だった左にスワイプが削除の動作に代わるって、とんでもない仕様変更だよ。

2020/07/23(木) 12:26:28.82

しかも、本文がロードされる前の時間帯では、削除済みのフォルダに入らない。

さすがにこれは仕様というよりバグなんじゃないのかな？

2020/07/23(木) 12:31:43.83

officeTANAKAのおじいちゃんの動画見てる人いる？

2020/07/23(木) 13:19:56.66

>>555
死ね

2020/07/23(木) 17:49:45.58

>>556
WEBを流し見した方が早い
同じ内容なら動画は時間がもったいない

2020/07/23(木) 18:24:47.13

おじいちゃんよりperfect human NAKATAなら見るけど

2020/07/23(木) 19:47:21.57

中田のは世界史/日本史やってるときはよかったが
範囲を広げすぎて見てるほうも興味ないしやってるほうも専門じゃないからおもしろくない

2020/07/23(木) 19:47:32.61

このスレは雑談スレで質問はVBAでもビジネスsoft板スレで聞いた方がいいのかな

2020/07/23(木) 20:23:47.73

課で全員が共有する色んなExcelのファイルがあるけど
xls→たいがいマクロ組んでないからそのままマクロ組むこともある
xlsm→作成者の作ったのを見て少しだけ弄ることはある
xlsx→手を出さない

2020/07/23(木) 20:32:21.34

subってプライベートにしないと何か良くないことあるんですか？

2020/07/23(木) 20:39:15.52

>>561
雑談してるスレ住人達の興味を引くような質問なら答えてくれるかもな
あるいは答えることで承認要求が満たされそうな質問とかマウント取れそうな質問とか

2020/07/23(木) 20:40:34.07

>>563
目障りだ。消えろ！

2020/07/23(木) 20:52:02.29

>>563
プロシージャを沢山作るだろ。
その中にゃちょっとお試しのSub test1()なんてのが作られる。
で、同名のプロシージャとか作ると、色々問題が出る。
プライベートならモジュールが変われば問題無し。

そもそも、面倒くさいからわりと忘れがちだが、ちゃんとスコープや型を考えて作れない人のプログラムは出来も悪いことが多い。
バグも作りがちだね。

2020/07/23(木) 20:53:38.12

ちゃんとクラス作んないとな

2020/07/23(木) 21:08:16.92

クラスとかよー分からん
オブジェクト指向の言語やるといいのかな？

2020/07/23(木) 21:14:07.35

作らなくても何とかなってきたんだろ、だったら要らないよ。
どうせクラスとかインテリセンスに項目追加するぐらいの効果しかないでしょ。

2020/07/23(木) 22:12:35.10

>>562
無能自慢はやめとけ

2020/07/23(木) 22:29:15.13

名前はクラスだけどやってることはほぼ構造体だしな

2020/07/23(木) 22:41:45.26

イベントを持った動的に生成するフォームはクラスでやるしかないのでは
と、思うのだが（´･ω･`）違ったらごめんね
クラスなんか要らない構造体で十分って言ってる奴、知的好奇心足りなさすぎでは

2020/07/23(木) 23:49:06.55

>>572
VBEにメニュー追加して、メニュー押した時のイベントにはクラスが必要だね。

VBAはクラス使わなくても組める言語だけど、時々クラスがピッタリ来る場合がある。
そういう場合はクラス使った方がメンテナンス性とか後々良いことがある。

2020/07/23(木) 23:54:31.71

ADOとかUIAutomationとか、長くなりそうなのは面倒だからクラス。

2020/07/24(金) 07:38:12.69

クラスの意味はわかるけど使うメリットがようわからんな
for eachで回せるくらいしか思い浮かばないんだが…
javaチックに全部クラスで作るのもなんか違う気がするし

2020/07/24(金) 08:16:46.34

またVBAでクラスの話かよ…
せめてClass_Initializeに引数持てたらな…

2020/07/24(金) 08:56:19.08

>>576
'Class_Initialize' イベントはサポートされなくなりました
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/misc/bc42001

オブジェクト指向プログラミング (Visual Basic)
コンストラクター
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/concepts/object-oriented-programming#constructors