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/09/16(木) 20:24:24.60

Macには無料で今流行りのPythonがついているそうなので
スクレイピンクはそっちの方が遥かに簡単じゃないかな
ExcelVBA経験がないのなら

2021/09/16(木) 20:45:30.18

>>48
ばあちゃんハイカラやな

2021/09/17(金) 03:52:03.83

Rubyist は、たいていMac

スクレイピングは、Ruby, Selenium Webdriver, Nokogiri だけど、
無断で、大量のスクレイピングすると、営業妨害で逮捕される

スクレイピングする際、そのサイトのrobots.txt を遵守しないといけない。
取得したデータは、CSV, JSON、データベースなどに保存する

今は、どの本でも、無断でスクレイピングする事は推奨しないと書いてある。
相手のサイトと契約して、API を使わしてもらうべき！

YouTube API とか、Google Maps API とか、
株式相場などもそう

2021/09/17(金) 11:36:45.56

>>41
なんでできもしないことやろうとすんのかね
検索してもわからないんじゃ無理だろ

2021/09/17(金) 12:01:52.56

できないことをやらないと
いつまでたっても何もできないのだが、、、

2021/09/17(金) 18:44:11.62

>>29, 31
ありがとうございました。

2021/09/17(金) 20:27:29.50

見えないものを見ようとして望遠鏡を覗き込んだら捕まった事例

2021/09/17(金) 20:40:10.73

>>53
おまえが出来ないのは自業自得

2021/09/17(金) 22:49:29.45

前の定義で移動できるセルを登録したいのですが、アプリケーションの定義エラーがでます。
範囲は101カ所登録したいのですが、どうやらstr*を３個くらい抜くと動くのですが、名前の定義に制限があるのでしょうか？
str*はどこを抜いても同じです。

Dim stra As String, strb As String, strc As String, strd As String, stre As String, strf As String, strg As String
stra = "=sh1!$H$3:$K$3,sh1!$N$3:$O$3,sh1!$R$3:$S$3," & _
"sh1!$E$6:$N$6,sh1!$O$6:$AC$6,sh1!$AD$6:$BG$6,sh1!$BH$6:$BR$6," & _
"sh1!$BS$6:$CG$6,sh1!$CH$6:$CQ$6,sh1!$CV$6:$DB$6,sh1!$DC$6:DR6," & _
"sh1!$DS$6:$EH$6,sh1!$EI$6:$ER$6,sh1!$ES$6:$FA$6,sh1!$FB$6:$FD$6," & _
"sh1!$FE$6:$FF$6,sh1!$FG$6:$FH$6,"

57 (ﾜｯﾁｮｲ b7cc-W1il) · 2021/09/17(金) 22:50:14.26

続き
strb = "sh1!$E$7:$N$7,sh1!$O$7:$AC$7,sh1!$AD$7:$BG$7,sh1!$BH$7:$BR$7," & _
"sh1!$BS$7:$CG$7,sh1!$CH$7:$CQ$7,sh1!$CV$7:$DB$7,sh1!$DC$7:DR7," & _
"sh1!$DS$7:$EH$7,sh1!$EI$7:$ER$7,sh1!$ES$7:$FA$7,sh1!$FB$7:$FD$7," & _
"sh1!$FE$7:$FF$7,sh1!$FG$7:$FH$7,"
strc = "sh1!$E$8:$N$8,sh1!$O$8:$AC$8,sh1!$AD$8:$BG$8,sh1!$BH$8:$BR$8," & _
"sh1!$BS$8:$CG$8,sh1!$CH$8:$CQ$8,sh1!$CV$8:$DB$8,sh1!$DC$8:DR8," & _
"sh1!$DS$8:$EH$8,sh1!$EI$8:$ER$8,sh1!$ES$8:$FA$8,sh1!$FB$8:$FD$8," & _
"sh1!$FE$8:$FF$8,sh1!$FG$8:$FH$8,"
strd = "sh1!$E$9:$N$9,sh1!$O$9:$AC$9,sh1!$AD$9:$BG$9,sh1!$BH$9:$BR$9," & _
"sh1!$BS$9:$CG$9,sh1!$CH$9:$CQ$9,sh1!$CV$9:$DB$9,sh1!$DC$9:DR9," & _
"sh1!$DS$9:$EH$9,sh1!$EI$9:$ER$9,sh1!$ES$9:$FA$9,sh1!$FB$9:$FD$9," & _
"sh1!$FE$9:$FF$9,sh1!$FG$9:$FH$9,"
stre = "sh1!$E$10:$N$10,sh1!$O$10:$AC$10,sh1!$AD$10:$BG$10,sh1!$BH$10:$BR$10," & _
"sh1!$BS$10:$CG$10,sh1!$CH$10:$CQ$10,sh1!$CV$10:$DB$10,sh1!$DC$10:DR10," & _
"sh1!$DS$10:$EH$10,sh1!$EI$10:$ER$10,sh1!$ES$10:$FA$10,sh1!$FB$10:$FD$10," & _
"sh1!$FE$10:$FF$10,sh1!$FG$10:$FH$10,"

2021/09/17(金) 22:50:45.98

続き
strf = "sh1!$E$11:$N$11,sh1!$O$11:$AC$11,sh1!$AD$11:$BG$11,sh1!$BH$11:$BR$11," & _
"sh1!$BS$11:$CG$11,sh1!$CH$11:$CQ$11,sh1!$CV$11:$DB$11,sh1!$DC$11:DR11," & _
"sh1!$DS$11:$EH$11,sh1!$EI$11:$ER$11,sh1!$ES$11:$FA$11,sh1!$FB$11:$FD$11," & _
"sh1!$FE$11:$FF$11,sh1!$FG$11:$FH$11,"
strg = "sh1!$E$12:$N$12,sh1!$O$12:$AC$12,sh1!$AD$12:$BG$12,sh1!$BH$12:$BR$12," & _
"sh1!$BS$12:$CG$12,sh1!$CH$12:$CQ$12,sh1!$CV$12:$DB$12,sh1!$DC$12:DR12," & _
"sh1!$DS$12:$EH$12,sh1!$EI$12:$ER$12,sh1!$ES$12:$FA$12,sh1!$FB$12:$FD$12," & _
"sh1!$FE$12:$FF$12,sh1!$FG$12:$FH$12"
ActiveWorkbook.Names.Add Name:="Nyuryoku2", RefersToLocal:=stra & strb & strc & strd & stre & strf & strg

2021/09/17(金) 23:08:43.51

255文字

**デフォルトの名無しさん** (JP 0Hfb-qDHA) · 2021/09/17(金) 23:31:47.79

>>57
1274文字まで
質問のために加工したんでなければ、その範囲はもっとシンプルにまとめられるぞ
"=$H$3:$K$3,$N$3:$O$3,$R$3:$S$3,$E$6:$CQ$12,$CV$6:$FH$12"

57 (ﾜｯﾁｮｲ b7cc-W1il) · 2021/09/18(土) 09:25:55.38

>>61
ありがとうございます。シート名を削除したら動きました

2021/09/18(土) 09:39:13.68

>>62
横から失礼
RangeはUnionにすると実質文字制限がなくなる

**デフォルトの名無しさん** (JP 0Hfb-qDHA) · 2021/09/18(土) 10:16:04.89

>>63
引数はRangeじゃなくてStringなんよ

2021/09/18(土) 12:10:53.45

名前定義ってRangeオブジェクトからでもできるのか知らなかった
Range("B1:G10").Name = "Nyuuryoku2"

2021/09/18(土) 12:26:09.80

便利だけどExcelの名前の定義ウインドウは使いにくすぎる

2021/09/18(土) 12:26:47.71

つまりたくさん定義すると管理しにくいんだよな

2021/09/18(土) 16:41:01.37

名前の管理を簡単にする便利なアドインって誰か作ってないの？
（とおねだり）

2021/09/18(土) 18:23:53.93

簡単の意味を定義してくれれば俺が作ってやるよ。

2021/09/18(土) 18:33:26.51

表形式ならテーブルでOK
名前の定義使わなくても

2021/09/18(土) 18:45:25.50

>>69
俺が思った通りに名前を定義してくれて、不要な名前は勝手に知らない間に削除してくれるとかかな
当然 >>57-59 ⇒ >>61 程度の変換は自動でやる

2021/09/18(土) 18:49:07.44

ちょっとぐぐったけど
NamesコレクションをForEachで回してユーザーフォームにでも表示させれば作れそうだな

2021/09/19(日) 00:12:03.29

>>71
めちゃくちゃ簡単だな。任せとけ。

2021/09/19(日) 05:13:48.14

おう、頼んだぞ

2021/09/19(日) 10:09:24.37

Internet Explorer_Serverのハンドルから取得したIHTMLDocumentオブジェクトではそのページ内での操作はできましたが
Navigate実行時にメソッドをサポートしていないというエラーになります
別のURLへ移動する方法ありますか？

**デフォルトの名無しさん** (JP 0Hfb-qDHA) · 2021/09/19(日) 12:24:27.96

>>75
たぶんメソッドの使い方が間違ってる
デバッグしてやるからコード晒してみ

2021/09/19(日) 12:45:26.42

IEのオプションでcssの設定を変える

2021/09/19(日) 14:05:15.93

>>76

検証中のためハンドルも直接入力してますし
コードも他のサイトの転用したものだったりかなり端折ってますが
何か解りましたらよろしくお願いします

Private Declare PtrSafe Function CLSIDFromString Lib "ole32" (ByVal pString As LongPtr, ByRef pCLSID As Currency) As Long
Private Declare PtrSafe Function RegisterWindowMessageW Lib "user32" (ByVal lpString As LongPtr) As Long
Private Declare PtrSafe Function SendMessageTimeoutW Lib "user32" (ByVal hWnd As LongPtr, ByVal msg As Long, ByVal wParam As LongPtr, ByRef lParam As LongPtr, ByVal fuFlags As Long, ByVal uTimeout As Long, ByRef lpdwResult As Long) As LongPtr
Private Declare PtrSafe Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, ByRef riid As Currency, ByVal wParam As LongPtr, ppvObject As Any) As Long
Private Enum SMTO
NORMAL = 0
BLOCK = 1
ABORTIFHUNG = 2
NOTIMEOUTIFNOTHUNG = 8
End Enum

Sub test()
Dim hWnd As Long
hWnd = 136698
Set objDoc = GetHtmlDocument(hWnd)

'objDoc.Navigate ("https://www.google.co.jp/";)

'Googleの検索窓に入力
objDoc.getElementsByName("q")(0).Value = "test"

End Sub

2021/09/19(日) 14:06:52.91

続き
Public Function GetHtmlDocument(ByVal hWnd_InternetExplorer_Server As LongPtr, Optional ByVal uTimeout As Long = 1000, Optional ByVal documentVersion As Integer = 1) As Object ' As MSHTML.IHTMLDocument
Set GetHtmlDocument = Nothing

If documentVersion <= 0 Then
documentVersion = 1
ElseIf documentVersion >= 8 Then
documentVersion = 8
End If
Dim IID_IHTMLDocumentX As String
IID_IHTMLDocumentX = Split(",{626FC520-A41E-11cf-A731-00A0C9082637},{332c4425-26cb-11d0-b483-00c04fd90119},{3050f485-98b5-11cf-bb82-00aa00bdce0b},{3050f69a-98b5-11cf-bb82-00aa00bdce0b},{3050f80c-98b5-11cf-bb82-00aa00bdce0b},{30510417-98b5-11cf-bb82-00aa00bdce0b},{305104b8-98b5-11cf-bb82-00aa00bdce0b},{305107d0-98b5-11cf-bb82-00aa00bdce0b}", ",")(documentVersion - 1)
Dim InterfaceId(1) As Currency
Call CLSIDFromString(StrPtr(IID_IHTMLDocumentX), InterfaceId(0))

Dim lngMsg As Long
lngMsg = RegisterWindowMessageW(StrPtr("WM_HTML_GETOBJECT"))
If lngMsg <> 0 Then
Dim lpdwResult As Long
If SendMessageTimeoutW(hWnd_InternetExplorer_Server, lngMsg, 0, 0, SMTO.ABORTIFHUNG, uTimeout, lpdwResult) <> 0 Then
Dim hResult As Long
hResult = ObjectFromLresult(lpdwResult, InterfaceId(0), 0, GetHtmlDocument)
If hResult <> 0 Then
Err.Raise hResult
End If
End If
End If
End Function

2021/09/19(日) 14:13:18.62

gethtmldocumentにnavigateあるのか？

2021/09/19(日) 21:14:40.95

navigateじゃなくてcreateDocumentFromUrlじゃないの？
知らんけど

2021/09/20(月) 00:12:39.27

A1からA10000にデータが有って検索したい文字列があったとする。
この場合,範囲をdictionaryで調べるのと配列で調べるのは速度は同じぐらい？？

2021/09/20(月) 00:16:46.79

なぜ自分で試さないのか

**デフォルトの名無しさん** (JP 0Hfb-qDHA) · 2021/09/20(月) 02:45:51.50

>>82
データがセルに入ってるならワークシート関数使った方が速い

2021/09/20(月) 10:43:06.46

えっ？そうなの？？

2021/09/20(月) 10:44:41.60

試しましたが、
コードはdictionaryのほうがすっきりした。
体感速度はあまり変わりませんでした。

2021/09/20(月) 10:54:05.02

かまってちゃんかよ
天気いいから散歩でもしてこいよ

2021/09/20(月) 11:55:16.12

コード醸せよ

2021/09/20(月) 12:03:32.94

A・オリゼー

2021/09/20(月) 12:27:59.43

ｘｘとyyどっちが早い、というのは本当に試した方が早い
バージョンアップで最適化されて、すげー早くなってる事がある

2021/09/20(月) 12:51:40.86

>>87
別にかまってちゃんじゃなくて、回答に信頼性がないから自分で試したんだろう。誰かが信頼できそうな回答をくれたんだったら試さないと思うぞ。

2021/09/20(月) 13:12:45.31

ちゃんと結果まで書き込んでるんだから
質問だけしていなくなるやつもいる中で、優秀だと思うよ

2021/09/20(月) 15:29:06.41

>>86
まずはありがとうございました、だろ
うぜー帰れ

2021/09/20(月) 15:32:05.91

>>93
お前何代表者みたいな顔して怒ってんだよ、とチャチャを入れてみる（笑）

2021/09/20(月) 16:38:36.67

イヤ
マジで>>86はウザいわ
2度と来るな

2021/09/20(月) 16:58:36.07

スルー力がない奴もセットて消えろ

2021/09/20(月) 17:03:04.82

>>96
お前もスルーしないと

2021/09/20(月) 17:07:29.03

子供か

2021/09/20(月) 17:16:52.36

>>98
スルー力、言うのは易し、行うのは難し、を指摘しているだけ。

もう一ついいか？
人の振りして我が振り直せ（笑）

2021/09/20(月) 17:48:58.56

一番スルーしてない人が言うと説得力ある！

2021/09/20(月) 18:05:45.62

モジュールとボタンを別のブックにコピーしたくてできたと思ったんだけど
ボタンに登録されるマクロがコピー元のマクロになっちゃってとうすりゃええのか分からん
.OnAction＝Thisbook&”マクロ名”とかじゃ動かないのね

2021/09/20(月) 18:30:41.29

それコピーじゃなくてインポートしろよ

2021/09/20(月) 18:40:40.67

>>99
寂しいのか？

2021/09/20(月) 21:44:55.52

ボタンをインポート？
これも楽な方法があったらいいのにね

2021/09/20(月) 21:51:19.19

シート上のフォームコントロールを消す時って
・右クリックで選択
・コンテキストメニューをESCで消す
・切り取り、もしくは「deleteキー」
で合ってますか？

選択する時はF5キーのオブジェクトでもいいんですけど、
どちらにしろ右クリックで選択というのが何か気持ち悪い

2021/09/20(月) 21:58:02.93

>>101
sheetモジュールのマクロ？
それとも標準モジュールのマクロ？

どちらによるかでやり方が変わる

2021/09/20(月) 21:58:44.81

Cｔｒｌ+クリック
Delete
でいいんじゃない

2021/09/20(月) 22:10:20.73

>>107
短縮できました、ありがとうございました

2021/09/21(火) 16:59:19.72

private subのどのプロシージャーからでも、グローバル変数に入った値を取り出す方法として、

たとえばenvという標準モジュールを作り、そのなかで

public dim grobal_a as string

sub hoge
global_a = "aaaa"
end sub

とやっておき、

エクセルのブック起動と同時にこの初期値を入れておきたいので
thisWorkbookにcall hoge

ってやるの、普通？

2021/09/21(火) 18:19:02.19

>>106
標準モジュールのマクロですー…

2021/09/21(火) 19:19:53.65

>>110
シートに標準モジュールのやつを呼び出すSubを書いて、それをボタンから呼び出せばいい

2021/09/21(火) 20:47:40.27

>>109
まず変数のスコープ覚えようね

2021/09/21(火) 21:06:44.82

>>109
普通は grobal_a と global_a の二つを一つにまとめると思う

2021/09/21(火) 21:13:59.43

>>110
全シートを選択してカットペーストでいけるだろ、と思ったら無理だった

VBEをVBAで動かすしか無いと思う。
https://jizilog.com/vba-modadd
http://officetanaka.net/excel/vba/vbe/07.htm

2021/09/21(火) 21:29:23.86

>>109
vbaってグローバル変数の初期化できないのか・・・
見たことはない。変な気はする
とりあえずはシートに書くほうが楽だと思う
constでいいなら初期化が出来る。社名みたいにほぼ絶対変わらない物ならこれでもいいかも

Public Const 定数 = 1
sub foo
debug.print 定数
end sub

>>113
わらった

2021/09/22(水) 07:59:00.83

>>109
普通か普通ではないか、と言われれば普通ではないかなぁ。
ではどこが、と言われるとまずモジュール変数をグローバル指定しているところはPrivateにして外部から呼び出す用のプロパティに組み込む。これでどこかで値が変更されてもブレイクポイント仕掛けてどこで呼び出されて値が変更されたかを確認出来るようになる。

あと、初期化用の関数はPublic指定にしておかないと別のモジュールから呼び出せないよ。ThisWorkbookから呼び出すんでしょ？

2021/09/22(水) 08:55:25.77

ありがとうございます

2021/09/22(水) 08:56:23.60

constやってみます

2021/09/22(水) 11:22:09.41

普通じゃなかったのか…俺もそうしてた
>>116
勉強になります

2021/09/22(水) 15:13:16.34

書籍「イヤンもう！最初からそう教えてくれればいいのに！ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本」の評判はどうですか？買うか検討中なのですが。

2021/09/22(水) 19:17:45.16

>>120
ゼッタイにわかる本系の口語調文章に抵抗がないラノベ好きには良いんじゃない？

2021/09/22(水) 19:18:09.88

>>120
ゼッタイにわかる本系の口語調文章に抵抗がない人には良いんじゃない？

2021/09/22(水) 19:19:18.20

なにこのエラー去勢された

**デフォルトの名無しさん** (JP 0Hfb-qDHA) · 2021/09/22(水) 19:35:51.24

>>120
人それぞれ印象が違うから、参考書は最初の2、3ページ立ち読みして自分で決めるのがいいよ

2021/09/22(水) 20:05:10.79

イヤンもう
って言うから検索したら特にそんな単語ついてないじゃないですか

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-qDHA) · 2021/09/22(水) 21:46:48.06

https://i.imgur.com/Izd2bnq.jpg

2021/09/22(水) 22:05:18.59

若い子が水着姿で教えるVBAの本なら簡単に死ぬほど売れるのでは？と思った

2021/09/22(水) 22:14:11.23

そもそもVBA自体がオッサン臭い言語

2021/09/22(水) 22:16:41.63

そもそも5ch自体がオッサン臭い場所

2021/09/22(水) 22:21:20.29

そもそもオッサンしかいない

2021/09/22(水) 23:01:12.21

VBAとか作業記録してそれループするなり可変したりするなりちょっと直せば誰でも作れるからな

2021/09/22(水) 23:14:36.78

「はたらくプログラミング」
「高校生からはじめるプログラミング」
「メイクロックマン　史上最大のプログラミング」
「独学プログラマー Python言語の基本から仕事のやり方まで」
のようなアニメやゲームキャラやイケメンを
採用して若い子にアピールするとか
「乙女チック4Gamer」第267回：
「推しと学べるプログラミング」
初心者も学べるプログラミング学習ゲーム
とか

美少女×プログラミング学習×ソーシャルゲーム『コードガールこれくしょん』
とかゲームで呼び込み

恋のプログラミング~ダメ男の見分け方~ DVD-BOX2
のようなDVDを付録に付けてみたりとか
とかとにかくVBAもなんとか頑張って欲しい

2021/09/22(水) 23:55:17.87

オレも1冊3000円くらいのVBAの本買ったわ
その本をキーボードの下奥に置くと角度が良い感じになるんだわ
手首が疲れないし、職場でもなんか「やってる」感がかもし出せるし、本当に買って良かったと思える1冊だったな

2021/09/23(木) 00:25:56.19

全国フェミニスト議員連盟が半泣き←いまここ
https://www.tokyo-np.co.jp/article/132305

2021/09/23(木) 00:27:06.21

>>132
ん。
昔、EXCELVBAゲーム大作戦とかいう本が出てたよ。まぁVBAも昔からあるからゲーム作るのも先駆者がいたんだね。

けど、結局難しいというか、お仕事で覚えることとベクトルが違うんだよ。1/60秒単位で押されているキーの値読み取って、キャラクターや地形描いてその当たり判定行なったりね。

まぁ暇でそういうの作ってみたいというのにはいいかもだけど、お仕事でVBA使うのの興味を持つために、というのにはちょっと重いかもね。

2021/09/23(木) 00:56:08.87

>>133
分かりすぎる
分厚い本って意外と重宝するよなｗ

2021/09/23(木) 00:59:12.19

vbaでゲームは基本的にかなりめんどくさい
メインのループ処理がキツイ
定期的に処理をエクセルに返してあげないと色々と不具合が起きる
曲芸でなければvbaで作るのは絶対に避けたほうが良い

2021/09/23(木) 09:34:39.93

2つあるフレームの位置を調整していたら、
フレームAをフレームBの中にドラッグしてしまったらしく、
2つのフレームが一緒になってしまいました。

プロパティウィンドウを見ると、フレームAはまだ存在するのですが、
画面上にはフレームBしか表示されていないため、Aを選択することができず、
AをBから分離することができません。

AのLeftやTopを変更してみましたが、画面上に変化はありませんでした。

何かいい解決法があれば教えてください。

2021/09/23(木) 09:39:09.54

自己解決しました。

①プロパティウィンドウでプルダウンからフレームAを選択する。
②Ctrl+[A]で全選択した後、Ctrl+[X]で切り取り状態にする。
③フレームBのエリア外にマウスカーソルを持っていき、Ctrl+[V]で貼り付ける。

2021/09/23(木) 11:52:58.11

おめ～＾＾

2021/09/23(木) 13:11:17.06

>>139
たった５分も考える事が出来んのか

2021/09/23(木) 13:48:48.21

せっかく解決策書いてくれてるのにイチャモンつけるバカって何を考えてるんだろ…

2021/09/23(木) 13:53:17.23

ただの寂しがり屋の暇つぶしとか

2021/09/23(木) 13:59:57.49

黙って去るやつよりよっぽどいいんだが

2021/09/23(木) 14:03:41.04

配列からグラフを書いたときってデータ数の上限はありますか?
その場合どのように対処すれば良いですか?

2021/09/23(木) 14:08:33.29

>>145
上限を気にするようなデータ数だったら
excelでは重くて動かないと思う
別の言語で書いた方がいい

2021/09/23(木) 14:45:47.29

>>145
その場合はデータをコンパクトにまとめるしかなくね

2021/09/23(木) 14:47:47.80

>>145
数千個程度は描けたような記憶がある
そもそもそのレベルだと個々の値は見えないから複数個まとめて平均取るとかしてデータ量を減らせばいいかと