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/09(木) 21:42:49.37

>>399
参照設定をしていればいらない

2020/07/10(金) 10:20:58.35

>>397
OfficeやWindowsは開発者が妄想を公式ブログで垂れ流すのが恒例行事
それを公式発表だと世間が勝手に騒いでるだけ

2020/07/10(金) 13:53:04.16

ExcelってIE制御からedge制御できるようになった？
未だにIEが一番使い勝手いいの？

2020/07/10(金) 14:38:15.55

ExcelってChrome制御できるようになった？

2020/07/10(金) 15:03:43.58

いまはExcelがブラウザを制御するのではなくてブラウザがExcelを制御する方向性が主流
VBAはあくまでExcel内で完結する作業に限定した言語であって外部との連携作業はOfficeアドイン(実体はJavaScriptなどのスクリプト言語)や
VSTO(VisualStdioで言語はC#が中心)で行なうのがMicrosoftの方針
Pytonはよく分からんけど上手くOfficeAPIを利用すれば出来るかもしれない
概要についてのドキュメントは>>398

2020/07/10(金) 15:20:21.38

てゆかブラウザ操作するよりAPI叩いたりスクレイピングするほうが主流よね、今は
ずっと昔はExcelで入力してIEに反映させるとかあったけど、今じゃレガシーすぎる

2020/07/10(金) 17:42:22.09

ウチはシステムが古くてAPIなんてものに対応してないので現役だわ。

2020/07/10(金) 20:17:34.10

人間も古いからちょうどいい

2020/07/10(金) 21:41:25.81

>>407
API叩くのもスクレイピングも変わらんけどな。
何でやるかの違いくらい。
まあ、Chrome制御は出来んけどな。
WebDriver使えるから出来るとも言えるか。
何処から何処迄がExcelって話。

2020/07/10(金) 21:42:22.54

>>406
VSIOは寧ろ廃れてるような気がするが。

2020/07/10(金) 21:42:47.24

>>411
VSTOな。

2020/07/10(金) 22:02:00.46

>>412
VIOな

2020/07/10(金) 22:39:50.15

>>413
それはちん毛ちんこケツの穴のことだ

2020/07/11(土) 00:41:33.92

あかん、モーむり
sendkeys使いすぎてるせいで
Numlockキーがオンになったりオフになったり・・・
かと言って必ずオンオフ切り替わるかというとそうでもないし
誰か絶対100％常にNumlockオンになるコード教えてくれえ

2020/07/11(土) 01:11:16.23

>>415
vbaでレジストリを操作できるから、そこに道があるかも知れない

2020/07/11(土) 02:13:29.34

>>415
2 つ以上の SendKeys ステートメントが連続して実行されると、NumLock キーがオフになる

2020/07/11(土) 02:29:45.71

>>415
https://santane.jp/wp/?p=355

2020/07/11(土) 09:37:08.18

ありがとうございます
418の方法も試したんですが、なぜか一回目では適用されず
あと418の一番下にある、入力リストを展開するとは一体？

2020/07/11(土) 10:30:37.96

>>415
Sendkeys使う奴は糞。
絶対に使っちゃいけないと言った方が事故が起こらないくらい事故が起きても不思議じゃない所で使う奴がいる。

2020/07/11(土) 10:36:45.99

糞！ですか

2020/07/11(土) 10:40:32.24

何年前からのバグなんだろうねこれって

2020/07/11(土) 10:45:18.55

>>421
Sendkeysは基本的にコントロール出来ない。
他アプリを操作するにはもっとコントロール出来る方法がある。

どうにも出来ない時は仕方がないが、絶対に使わないつもりで、どうにもならない時だけ使うべきだね。

2020/07/11(土) 10:51:22.16

あと、危険は承知でちょろっと使う時はある。
お手軽だから。

でも、それで使うことを許容すると危険もしらず、ちょろっとで済まない所で使う奴が出てくる。

2020/07/11(土) 11:53:42.98

Excelを頼りすぎ

2020/07/11(土) 11:59:27.85

Excelで恋愛相談から今晩のおかずまで

2020/07/11(土) 12:25:50.11

sendkeysって手段としてしょうもなさすぎるんだよな
目的を整理すれば他にもっといいやり方があるはず

2020/07/11(土) 12:40:05.09

キーワードによる予測変換機能っぽいのをやろうとしたときに、
いいコード無いか探してたら使ってたなsendkeys

2020/07/11(土) 13:02:10.38

糞！

2020/07/11(土) 13:57:47.97

確実にコントロールしたいならAPI
https://www.vba-ie.net/code/numlockon.php

まあAPIも万能じゃないんだけど、今回はとりあえず使える

2020/07/11(土) 14:02:53.27

>>430
いやいや、確かにSendkeysよりは良いけど、何でキーボードシュミレートしたいのよ。
オブジェクトに直接キーを送るとか、オブジェクトの動作そのものを実現するとかは無しか?

2020/07/11(土) 18:21:43.63

大抵のアプリは外部からの要求を受けるのはマウスとキーボードだけだから

2020/07/11(土) 18:52:58.44

あ、ちょっと失礼。
ほんの少し前、テキストボックスに入力された数式をだったか
マクロだったかをプロシージャにして実行するってなことをやってたんだが
すっかり忘れてしまいました。
どうやるんでしたでしょうか。

OS;Windows 98
Excel 97

2020/07/11(土) 19:37:48.81

>>418
そんな不具合見たことないな。
VBA限定で、VBSから使うと出ないとか?

2020/07/11(土) 20:21:11.98

>>433
死ね

2020/07/11(土) 23:15:56.45

>>433
そのうち思い出すから

2020/07/12(日) 08:33:32.60

>>433
Application.Run

2020/07/13(月) 14:37:54.03

sendkeys問題解決しました
ありがとう！create object wscript.shell.sendkeysでうまいこと行けた

2020/07/14(火) 20:11:25.31

二つのieを起動して2つ目のieにpdfを表示させてそのpdfをexecwbのsaveasで名前をつけて保存したいのですが名前をつけて保存ダイアログに一つ目のieのファイルが保存項目として表示されてしまいます。どなたかわかる方教えてください。よろしくお願いします。

これがそのコードです getIE はシェル取得ファンクションです
長すぎると書き込めないので省略しました
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://book.impress.co.jp/appended3384/4-4.html";

Dim ie2 As InternetExplorer

Set ie2 = CreateObject("InternetExplorer.Application")

ie2.Visible = True

ie2.Navigate2 "C:\\Desktop\test.pdf", 1

Set ie2 = getIE("test")

Dim test As String

test = "c:\test\test.pdf"

ie2.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, test

End sub

2020/07/15(水) 02:33:14.34

Excelでやることか？

2020/07/15(水) 04:42:17.63

>>439
5ch では、同じ質問のマルチポストは禁止です！

もう1つのスレの方で、やってください！

2020/07/15(水) 05:05:59.66

Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)

n = ws2.Cells(Rows.Count, "E").End(xlUp).Row
n = n + 1

For i = 2 To ws1.Cells(Rows.Count, "A").End(xlUp).Row
j = 1

ws2.Cells(n, 5).Value = ws1.Cells(i, j).Value
n = n + 1
j = j + 1

ws2.Cells(n, 5).Value = ws1.Cells(i, j).Value
n = n + 1
j = j + 1

ws2.Cells(n, 5).Value = ws1.Cells(i, j).Value
n = n + 1
j = j + 1

ws2.Cells(n, 5).Value = ws1.Cells(i, j).Value
n = n + 1
j = j + 1

ws2.Cells(n, 5).Value = ws1.Cells(i, j).Value
n = n + 1
j = j + 1

これが10回ほど続くんですか簡潔にかけませんか？

2020/07/15(水) 05:28:08.89

え？VBAって二重ループ出来ないの？

エクセルVBAの二重ループについて
https://oshiete.goo.ne.jp/qa/7136635.html

2020/07/15(水) 07:31:51.88

再計算をオフにしていても、VlookupとかIndex/Matchで参照されているセルを削除すると初回だけ滅茶苦茶重くなる
二回目からはアンドゥしようが削除しようが一瞬になる
この初回も重くならないようにしたいんですけど、初回だけどこかで再計算か何かが裏で動いてるんでしょうか？

2020/07/15(水) 07:50:23.17

プリンタに接続してるんじゃね？

2020/07/15(水) 08:49:05.20

記念パピコ

2020/07/15(水) 09:01:25.32

ちゅーちゅーちゅぶりらチュパカブラー

2020/07/15(水) 17:34:47.36

テーブルの特定列に入力されている値から選択できるドロップダウンリストを作りたいです

【要望】
・重複なし
・(できれば)空白は除く

2020/07/15(水) 17:39:29.54

>>448
そうか
頑張れよ
ここは日記お断りだぞ

2020/07/15(水) 17:39:30.37

>>444
キャッシュのなら場合そういう動作が正常

2020/07/15(水) 19:30:17.20

>>448
これがゆとり世代だ

2020/07/15(水) 20:33:22.18

質問してるじゃん
俺は答えられないけど

2020/07/15(水) 21:01:28.16

「作りたいです」という決意表明だろ？
そう言えば誰かが勝手に手助けしてくれると思ってるのかね。
あ、本人かよ。

2020/07/15(水) 21:25:35.44

平成生まれと昭和生まれは少々使用する言語が違う。
同じように日本語とは言うけれど。

2020/07/15(水) 21:35:02.16

ゆとり世代は誰かが助けてくれて当然と思っているからな

2020/07/15(水) 21:38:36.33

そこら辺は見た目の影響も大きいんだよな。
イケメンだったり可愛かったりすると、助けてもらえるのが当たり前で生きてる。

一方、ちょっと残念な感じだと、助けてもらえることが無く生きてる。

そこら辺の感じ方が違うのは当然なんだよね。

2020/07/15(水) 22:18:05.17

俺じゃない誰かが助けてくれるんじゃね

2020/07/15(水) 22:44:18.56

覚えてものにしようと断固たる決意でマクロを完成させたけど
最初の方に組んだプロシージャを今見てもほとんど覚えてないわ
メンテナンスだけはできるようにコメントつけてあるけど
これがネットで拾い集めて基礎を学ばない相変わらずの俺のダメスタイル

2020/07/15(水) 23:23:50.74

コメント残してるだけだいぶマシ

2020/07/16(木) 00:53:10.42

個数や最終行などよく使う変数名は今後の為に統一させたほうがいいな
その時の気分でいろいろと変えると後で意味不明になる

2020/07/16(木) 02:52:22.64

古いソースをコピペするからそうなる

2020/07/16(木) 09:14:27.30

そして統一後気が変わって全て置換か

2020/07/16(木) 09:39:51.11

何の変数かコメント付けるだけで十分では

2020/07/16(木) 11:51:40.64

同じフォルダ内の"取引実績"ブックの"関東地区"シートのＡ列・Ｂ列・Ｃ列・Ｊ列・Ｌ列・ＡＤ列の
それぞれ２行目から最下行までを配列に入れる方法を教えてください

Workbooks.Open ThisWorkbook.Path & "\取引実績", ReadOnly:=True

i = Sheets("関東地区").Cells(Rows.Count,1).End(xlUp).Row

ReDim SiresakiArray(i -1, 6) As Variant
'代入するのはA,B,C,J,L,AD列のみ
SiresakiArray() = Range("A2:??????

ActiveWindow.Close

2020/07/16(木) 12:20:55.35

いらん列を消せば?

2020/07/16(木) 12:29:13.40

みんなvbaどうやって勉強してるの？
しっかり参考書とか買って、じっくり？
ちなみに自分は>>458に近いスタイル
必要に迫られたらネットで検索して、ちょっと弄ってって感じ
だからいつまでたっても上達しない・・・

2020/07/16(木) 12:41:43.01

消したらrange("a2").resize(i,6)

2020/07/16(木) 12:45:12.35

コピペするだけで身に付くわけがない…
そのコードが何をしてるのか理解できるまで調べて自分で使っていれば自然に身に付く

>>464
いらん列消すか、いる列の2行目から地道に入れる

2020/07/16(木) 13:00:26.82

これできるようにしてくれない？
これって自動でならない？
職場の糞どもの質問は完全に無視してる
テメーの昼休憩にずっと触ってるスマホで調べりゃ出てくるだろ
話しかけんな

2020/07/16(木) 13:38:13.07

その人が楽するためなら何もしないな
あえて普段はどうやってるか聞いてみて嫌な顔一つしない感じならやる

2020/07/16(木) 14:52:54.75

>>464
Sub hoge1()
Dim aa As Variant
aa = Range("a1:c3,e1:f3")
'結果：a1:c3までしか入らない。なるほどね。
End Sub

Sub hoge2()
i = Cells(Rows.Count, 1).End(xlUp).Row
ReDim siresakiarray(i - 1, 6) As Variant
retsu = Array("A", "B", "C", "J", "L", "AD")

For iic = 0 To UBound(retsu)
For iir = 2 To i
siresakiarray(iir - 2, iic) = Cells(iir, retsu(iic))
Next
Next
'
Worksheets.Add
Range("a1:m999") = siresakiarray

End Sub

一つずつ入れるならザックリこんな感じのロジックで。
他の方法として新しいシートにシートコピーして列を消して配列に挿入の方が
効率いいのかも　どうだろう

2020/07/17(金) 00:37:14.96

少し組んで改善するとまぁ評価はされるんだけど
他の人後でメンテナンスできるよな？
とか
マクロが壊れる心配ないよな？とか

テンプレートのように言われるけど知るかよ
読み取り専用で配布してるしプロシージャ弄れないようにしてあるし壊れねーっつーの
パスワードかけてないマスター版も社内サーバーに置いてあるから
いじりたきゃ学べや

あと配布した途端楽になったらその業務ばっかりやろうとするおっさん見苦しくてむかつく
配って損したわ

2020/07/17(金) 08:36:30.29

あれ？ここ日記帳だっけ？

2020/07/17(金) 09:55:37.13

みんなの日記帳だよ
君も自由に書き込んでいいよ

**464** (ﾜｯﾁｮｲ 89cc-sTnA) · 2020/07/17(金) 11:03:50.73

>>465,468,471
ありがとうございます。列を削除して取り込みます。

2020/07/17(金) 11:46:31.69

配列 ary(1,6)に年月日(2020/7/18)が入っていて、配列ary(1,7)には何らかの値が入っていることがあります
ary(1,6)を20日締で起算して、ary2(1,1)に"20_7"のような文字列を返す式を教えてください。
またary(1,7)に値が入っていれば翌月にずれるようにしたいです

ary(1,6)="2020/7/18"
ary(1,7)= ""
の場合ary2(1,1)="20_7"

ary(1,6)="2020/7/21"
ary(1,7)= ""
の場合ary2(1,1)="20_8"

ary(1,6)="2020/7/18"
ary(1,7)= "値"
の場合ary2(1,1)="20_8"

ary(1,6)="2020/12/20"
ary(1,7)= "1"
の場合ary2(1,1)="21_1"

2020/07/17(金) 12:02:43.77

型はなんなの？
くそコードでもいいからひとつずつ考えて作ってみたの？

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

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