Excel VBA 質問スレ Part59

2019/02/09(土) 15:12:30.70

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part58
https://mevius.5ch.net/test/read.cgi/tech/1542577644/

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

2019/02/18(月) 16:21:45.06

https://japan.cnet.com/article/20087747/

「Microsoftにとって、（Officeのような）ウェブベースのアプリケーションサービス
を提供することは願ってもないことだろう。これにより、エンドユーザーや違法コピー
の問題をもっとしっかりコントロールできるようになる。しかも、大量にメディアを
用意したり、それを流通させるコストも不要になる」
--Garcia on Slashdot

2019/02/18(月) 16:23:02.33

>>292
誤爆してしまった。
スマソ。

2019/02/18(月) 17:39:58.04

VBAスレにまで来てVBAネタ飽きたって、こんなとこくる暇があったら病院行った方が良いんちゃう？

2019/02/18(月) 21:13:51.18

vbaおそすぎい…

2019/02/18(月) 21:25:29.27

Selectメソッドは記録マクロの記述のためだけに存在する命令と言ってもいいくらいのものだからな
実際に実務でSelectメソッドを書いたことは殆どない
特定のセル範囲（特に複数セル）が選択された状態を作り出すことに実務上の意味があるならば書かざるを得ないんだろうけど

2019/02/18(月) 21:53:14.97

どうしてセレクチオンしないの～！

2019/02/18(月) 22:15:32.75

>>296
コードの最後に
cells(1,1).select
って書いておくのが僕

2019/02/18(月) 22:31:21.38

カーソル位置の初期化によく使うけどな。Select

2019/02/18(月) 22:37:53.94

application.gotoを使う

2019/02/18(月) 22:51:42.46

スクロールの有無を選べるApplication.Gotoの方が小回りが効くわな

2019/02/18(月) 23:52:49.47

SelectよりActivateの方がしっくりくる

2019/02/19(火) 00:02:24.54

>>302
違いってなんだっけ？

2019/02/19(火) 00:21:46.10

selectは複数できる
acrivateは1つだけ

selectしたcellsはselectionで取得でき、
activateしたセルはActiveCell

また、
ActiveCellはsheetではなくapplicationのメンバ
Application.ActiveCell.Select

↓はできない
sheets(1).activeCell.Select

今色々試しただけだから、間違ってたらゴメン

2019/02/19(火) 08:36:38.55

>>304
Oh,thx.

2019/02/19(火) 11:46:22.25

WebBrowserのフォームに文字列変数に入れたHTMLを反映させるのってどうすれば良いですか？

2019/02/19(火) 12:39:59.48

>>306
説明が分かりにくい。

WebBrowserのフォーム
→フォームにWebBrowserコントロールを貼り付けたもの?

文字列変数に入れたHTML
→指定したURL?

フォ―ムにWebBrowserコントロール貼り付けて、指定したURLを表示させたいってこと?

2019/02/19(火) 12:42:06.27

それともHTMLのソースコードを元にブラウザ表示させたいってこと?

2019/02/19(火) 13:02:37.15

>>306
input type="text"を変更したいんでしょ
メールアドレスに「123」を入れる例
めっちゃめんどくさいけどガンバレ

Private Sub UserForm_Activate()
WebBrowser1.Navigate ("https://opentype.jp/oteditmoney.htm";)
End Sub

Private Sub UserForm_click()
Set hec = WebBrowser1.Document
Set mailaddress = hec.GetElementsByName("MailAdress2").Item(0)
mailaddress.Value = 123
End Sub

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 13:06:28.07

質問じゃないけどcsv取り込みでQueryTable使ったら感動した
ググるとほとんどLine Inputでやってるんだもんなぁ

2019/02/19(火) 13:10:41.92

ExcelでJavaScriptが使えるみたいだけど、どんなことに使えるのでしょうか？

2019/02/19(火) 13:21:57.84

>>310
便利なんか？
住所の番地ってどうにかできるんかね
1-1が日付扱いになってしまう

>>311
jsがどうこうではなく、vbaが化石すぎる
jsは慣れれば超楽に書ける。これから覚える人は大分楽できるんじゃないかな
ただ、jsはところどころじゃあくなので気をつける必要がある
具体的にはundefined

2019/02/19(火) 13:30:09.72

>>312
おぉ！レスありがとう😊
そっかぁvbaは化石か…
今職場で必要だから、業務を通して勉強してるんだよね。
JavaScriptは少し勉強してたけど、会社が受け入れてくれるかな。

2019/02/19(火) 13:35:17.78

>>296
広範囲のソートとかどうすんの？

2019/02/19(火) 13:44:22.98

>>313
幾つか忘れていた

jsのメリット
・jsはwebでも標準的な言語
・イラレのスクリプトもjsで動かす事もできる。ほとんど使わないけど
・googleSpreadsheetのマクロはjs

ただ、化石言語にもいいところはある。今までのノウハウがweb上に山程ある
そして仕様変更も20年なかったから、全コードがそのまま使える
（他の言語はバージョン違いでエラーが発生したり、全く動かなかったりする）

結局やることはエクセルのスクリプトなので、vbaでも十分ちゃ十分、
jsのノウハウが積み上がるまでは、vbaの方が楽出来ると思う

2019/02/19(火) 13:55:09.79

>>315
なるほどなるほど。
詳しく説明してくれてありがとう！
たしかにvbaは歴史があるから、調べてるのは楽だよね。
JavaScriptはしばらく家で勉強した方が良さそうだねw
時期をみて上司に提案してみるよ！

2019/02/19(火) 14:12:13.94

Java script は
VBA → VB.Net → ASP.net って勉強して行く過程で勉強することになるから
そんなに慌てなくてもいいよ

2019/02/19(火) 14:15:00.77

>>317
ドヤ顔のところ申し訳ないけど、ASP.NET(最新のものではなくVBerが知っている方のASP.NET)も化石だよ

2019/02/19(火) 14:16:57.12

ちなみに最新のASP.NETと呼ばれるものはVBer達がよく知っているASP.NETとは全く互換性がない
それどころか.NET Frameworkすら切り捨てた

2019/02/19(火) 14:24:40.78

>>319
知らなかった、昔のASP.NETの印象しかない。名前が完全に足引っ張ってる

2019/02/19(火) 15:20:23.15

>>307
>>309
説明不足すみませんでした
ユーザーフォームにwebBrowserのコントロールを張り付けて、そこにURL指定ではなくて直接htmlの文章を書き込みたいです。

2019/02/19(火) 15:44:15.07

>>321
かなりめんどくさいことをしている気がする
やりたい事はこれじゃないんじゃないか

Private Sub UserForm_activate()
'多分一回呼ばないとダメ
WebBrowser1.Navigate ("https://example.com";)
End Sub

Private Sub UserForm_Click()
html = "<div>foo</div>"
WebBrowser1.Document.body.InnerHtml = html
End Sub

2019/02/19(火) 16:06:51.67

四角の領域を表す構造体にRECTというのがありますが、領域が10個あってしかも定数です
その中にあるポイントがあるかどうかを判断するのに、　PtInRectを使いますが、10個のRECT領域をどうやって
定義するのか考えています
Dim rect1 as RECT, rect2 as RECT ,,,,, rect10 as RECT
とやって、これらに定数を代入するときにいちいち
rect1.Top = 10
rect1.Left =10
---
rect10.Bottom = 1000
rect10.Right = 1970
とかやってたら大変です。　Cとかなら
rect1 = CRect( 10,10,100,100)
って出来ますが、VBAでは出来ませんか。　またやりたいのは、PtInRectなので、簡単に

if PtInRect( CRect( 10,10,100,100), x,y) <> 0 then

みたいにしたいのですが、どうしたら一番スマートに出来るでしょう？

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:25:56.81

>>323
四角形を描画するメソッドは知ってる？

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:32:07.86

>>323
ごめん勘違い
GetCursorPos()

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:34:56.56

>>323
またまた勘違い
座標の指定はむりじゃね
それぞれの四角形の位置関係に規則性はないんでしょ

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:46:08.58

Topとか名前を付けないで配列の要素番号に対応づけるとか

2019/02/19(火) 19:15:58.92

>>322
それです！ドストライクです！！
エスパーさん手間を掛けて本当にすみませんでした。
二日考えてダメだったんですけど一回何か表示させる必要があったんですね。

あと次回は自力で出来るように頑張ります～！！
ありがとうございました！

2019/02/19(火) 19:40:34.45

カンマ区切りのCSVファイルを2次元配列に入れたい。

Dim arr()
arr=getCSVData(strFile)

private Function getCSVData(byval ...)as string()
Dim tarArr()
　//処理
getCSVData=tarArr
end Function
こんな感じで配列にして1次元が行、2次元が列に格納したいんですが
ReDim、ReDim Preserveのタイミング等々が分かりません。

先に一度開いて行数と列数の最大を取得してからReDimでtarArrを2次元配列にし、もう一度開いて一行ずつ読み取ってカンマ区切りをsplitして配列に入れてからUBound分ループしてtarArrに入れる方法ですかね？

2019/02/19(火) 20:09:29.49

>>329
多次元配列は最後の要素しか拡張できないから、左の要素はUbound(Split(1行目,”,”))で最初に確定させるしかない
右の要素はredim preserveで拡張できるから普通にループで増やしていけば良い

2019/02/19(火) 20:17:18.51

>>323
クラスにしたらいいんじゃないの
vbaで引数付きコンストラクタの実現は難しいけど、
四つの座標情報を引数に取るプロパティ関数を用意して、Rect構造体のプロパティを持たせるようにすればそれらしいことができるのでは

2019/02/19(火) 20:41:15.17

>>331
VBAでもクラスって出来たんですね。　ちょっとググってみました
ありがとう。　これは知らなかった

2019/02/19(火) 21:21:04.93

>>323
構造体でできなくはない
VBAの構造体、制限多いけどな

Public Type Rect
Top As Integer: Left As Integer: Bottom As Integer: Right As Integer
End Type
Public Function CRect(Top As Integer, Left As Integer, Bottom As Integer, Right As Integer) As Rect
Dim r As Rect
r.Top = Top: r.Left = Left: r.Bottom = Bottom: r.Right = Right
CRect = r
End Function
Public Function PtInRect(Rect As Rect, x As Integer, y As Integer) As Boolean
If Rect.Left < x And Rect.Right > x And Rect.Top < y And Rect.Bottom > y Then
PtInRect = True
End If
End Function
Public Sub test()
Dim r(10) As Rect
r(1) = CRect(10, 10, 100, 100) '...
If PtInRect(r(1), 15, 180) Then
MsgBox "In Rect1"
End If
If PtInRect(CRect(10, 10, 100, 100), 15, 80) Then
MsgBox "In Rect2"
End If
End Sub
改行多すぎらしいので:で詰めて書いてる

2019/02/19(火) 21:25:35.60

>>329
エクセルでCSV開いてシートをそのまま２次元配列に突っ込めば良いんじゃないか

2019/02/19(火) 21:47:03.10

>>319
え？
そうなの？
それは知らなかった。

ちなみに最新はASP.netのcore2.1だと思うんだけど
VisualStudioでASP.Net Coreプロジェクトを作る際、
.Net Coreと.Net Freamworkのどちらのプラットフォームを選択するか聞いてくるけどあれは何なの？

2019/02/19(火) 22:14:11.03

>>335
ASP.NET Core 3.0以降ではFull .NETが切り捨てられることが公式に明言されてる
3.0はまだPreviewだけどね

2019/02/19(火) 22:33:29.04

Dimってどこに書いてますか？
全部最初に書きますか？

For i= 0 to 100
for j = 0 to 100
iとjを使った処理
next
next
この時、Dim j as Integer ってどこに書きますか？
「For i= 0 to 100」の上か下かという質問です。

2019/02/19(火) 22:37:52.77

定義は一番最初にまとめて全て書くと管理しやすい
個人的にはそもそも書かないけどな～

2019/02/19(火) 22:45:04.21

>>330
自分でも調べてたけど、「最後の要素しか増やせない」って同じこと書いてありました。これは
例えば、行数読んだ結果がLcnt=10だとして
まず

ReDim(Lcnt,0)で作り
配列(0 to 10,0)ができ
Redim Preserve(Lcnt,Ubound(Split(1行目))
区切った値が5なら
配列(0 to 10,0to5)が出来てしまい、いっぺんに右の要素数が変更されるってことで合ってます？
と言うことは、1行目が5列で次に読んだ2行目が3列なら右の要素数は3に減るって事ですかね？
ifか何かで要素数は増える時だけRedim Preserveのが良いですかね？

2019/02/19(火) 22:50:47.62

>>337
VBは上にまとめ
C#は使う時
他の言語はしらん。あくまでイメージ。

スコープは短くが理想だから長くなって下部に変数が初登場ならFunctionとかCallで余分そうなものは排除。

だからそのループも逃がす

2019/02/20(水) 00:08:08.78

>>339
あなたの用途に合ってるのは2次元配列じゃなくて配列の配列。
ReDim arr(0 To n)
arr(i) = 別の配列　　` i : 0～n
みたいなことができる

「別の配列」のところに、csvの一行分を処理して配列を返す関数を当てはめればいい。
もちろんクラス化してもいいけどさ

2019/02/20(水) 03:34:25.29

>>329-334
Ruby では普通に、2次元配列に入る

require "csv"

p CSV.read( "test.csv" )

結果
[["id", "first name", "last name", "age"],
["1", "taro", "tanaka", "20"],
["2", "yumi", "adachi", "21"]]

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/20(水) 07:38:24.67

クラスって要素名を予め宣言しないといけないからcsvの要素が変わると対応できない？
教えてエロい人

2019/02/20(水) 07:54:07.56

要素名で名前解決する処理がないなら、レコード値を配列プロパティで受け渡すだけで良いと思う
名前解決が必要なら要素宣言しないといけないね

2019/02/20(水) 11:17:04.40

教えてください。
エクセルのマクロです
PDFファイル（１００ページくらいある）を、エクセルに、全ページをたて一列に貼り付けたいのですが、
どう書けばいいでしょうか

2019/02/20(水) 11:58:45.20

RPAを買ってコピペを自動化するのが手っ取り早いよ

2019/02/20(水) 12:07:33.49

なぜPDFを貼り付けるのか
そのまま印刷すればええやん

そのPDFは1つのファイルの中に100ページあるの？
1ページだけのPDFファイルが100個あるの？

バラバラのPDFファイルを1つに結合したいだけならフリーウェアでできるよ

2019/02/20(水) 12:28:15.94

>>347
印刷のためじゃなく、PDFをシートにはり、横にエクセルでコメント入れたい。

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/20(水) 12:36:44.12

コメントならPDFファイルでも入れられるよ

2019/02/20(水) 12:37:09.49

>>345
PDFを画像に分割→エクセルに貼り付け
って流れになる
PDFから直接どうこうは止めたほうが良い、PDFを触るのはかなりめんどくさい

PDFを画像に分割するソフトがあると思うから、まずはそれを探して試してみて
どういう形式で画像が出て来るかが分かれば、後はvba簡単に書けると思う

>>349
そういやそっちの方が早いね

2019/02/20(水) 12:38:58.44

>>349
大量のコメントや式です

2019/02/20(水) 12:39:49.65

>>349
大量のコメントや式です

2019/02/20(水) 12:41:03.23

>>345
｢教えてください｣で始まる質問をするのは馬鹿しかいない法則

2019/02/20(水) 12:53:11.56

分割するとは？
100ページのドキュメントだから100個のファイルを作成するということでしょうか。

2019/02/20(水) 12:55:03.75

そういう事

2019/02/20(水) 13:15:01.09

分割しないで、ページを読み込み、貼り付けはできないのでしょうか？

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/20(水) 13:17:35.13

100in1で出力すればいけんじゃない？

2019/02/20(水) 13:27:36.70

エクセル方眼紙の厚かましい馬鹿は死ね

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/20(水) 13:27:47.31

PDFを画像にするっていうのはプリンタで印刷するのと同じイメージだから基本1ページ1ファイルね

2019/02/20(水) 13:48:22.42

>>356
できるけどめんどくさいんだって。
自分用ですら>>350の手順踏む
この件は誰もやらんって断定するから諦めたほうが良い

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/20(水) 13:51:25.06

pdfをtxtにできるサイトがあるね

2019/02/20(水) 14:19:25.05

そもそもスレタイ読めない馬鹿は死ね

2019/02/20(水) 14:49:29.70

どうしてもVBAとExcel上でやりたかったら
100ページのPDFを100枚の画像に変換するのはフリーウェアで一発でできる
画像をワークシートに並べるだけならVBAで簡単に書ける

上司の命令とかで他の選択肢がないなら、俺ならこうする

2019/02/20(水) 16:49:36.00

>>345
>エクセルのマクロです
なにがどうエクセルのマクロなのか全くわからなくて面白かった

2019/02/20(水) 17:37:12.40

>>362>>364
エクセルのマクロだけでいけるとおもったんやろ
実際出来なくはないと思うけどすげーしんどいって事にまで気が回らなかったことは仕方ない

2019/02/20(水) 17:59:23.96

「○○したいんですけど教えて下さい」
「なんでそんなことしたいの？バカなの？」

何でこんな回答いちいちすんだろ
答えてくてウズウズしてる自称プロが自分のわからない質問来てカリカリしちゃってるのか？

2019/02/20(水) 18:50:33.54

なんでそんなめんどくさいことするの？
〇〇でよくね？

とかよく見るけど、質問者が聞いてる事だけ教えればいいのにと思う。

2019/02/20(水) 19:09:49.05

できない。

以上。

2019/02/20(水) 19:09:49.63

>>366
大正解
vbaと実務の範囲を分かってない未熟者

>367
それを言うと
「〇〇はやりたくないんですｗ」
という回答が帰ってくるのがもう過去何度も

2019/02/20(水) 19:19:56.14

QAに集中したいならteratailかstackoverflow.jpがオススメですよ

2019/02/20(水) 19:30:07.27

1ページ目が貼り付けられるけど、ページを指定できないのかな

2019/02/20(水) 21:05:48.46

>>311
htmlに書かれているJavaScriptを実行したい時とか。

2019/02/20(水) 22:38:30.49

めんどくさいっていうか、AcrobatOLE使えないと無理じゃない？
Excelだけで完結できる手法あるの？

2019/02/20(水) 22:49:49.45

>>367
質問者が気付いてない、知らないだけの場合もあるから

2019/02/20(水) 22:57:03.31

上司から言われてるだけというケースもあるだろうな。

2019/02/20(水) 23:14:04.77

手順固定で指示する糞上司っているよね
その手順がボトルネックになって糞の塊のようなツールが出来上がったりする

2019/02/21(木) 01:06:52.19

>>373
ハンドアセンブルを覚える。
バイナリで書き出す。

2019/02/21(木) 05:02:12.65

>>376
組織はそれが普通。趣味で仕事やりますというわけには行かない

2019/02/21(木) 07:46:17.08

昭和の労働集約的な企業の紹介乙

2019/02/21(木) 08:00:03.08

趣味で作り上げたとしても説明してレビュー受けないといけない。その労力って結構きついしいっそ言われたまま作り上げた方が精神的にラクね

2019/02/21(木) 08:15:00.93

>>376
固定するのは百歩譲って良いんだけど説明も了解もなく決める人には困るね
より良い方法を提案する機会がないままルールとして決まってしまう

**デフォルトの名無しさん** (JP 0H2e-AaBj) · 2019/02/21(木) 08:24:52.09

マニュアル化できるレベルの仕事しかできないって自虐だろ

2019/02/21(木) 12:40:21.42

1.質問に回答する。
2.質問者から、「その場合だと～が上手くいきません。」と返事。
3.その場合は～すれば良いと回答する。
4.質問者から「それだと～」...
5.2-4を何度か繰り返す。
6.質問者に「そもそも君はその処理で何をやりたいんだ?」と聞く。
7.質問者の返事を聞いて、結局質問者の設計が糞だったと知る。
8.1-7をを何度となく経験してると、質問を見た時に設計の糞さ加減がかなりの確度で予想できるようになる。
9.質問者の聞いてることだけ回答すると糞設計のせいでドツボに嵌まるので聞いてることだけ回答するのは辞めようという結論になる。
10.質問者は自分の糞設計に気付かないので、質問にだけ回答すれば良いのにと思う。

2019/02/21(木) 16:01:26.14

こうやって質問者をひとくくりで決めつけちゃうような視野が狭い人が一番の癌なんだよな

バカほどなんでも決めつけて単純化させようとする
勝手に単純化させた結論を赤の他人にいきなり押しつけるから当然理解されない
理解されないことを相手がバカだからと決めつけていきなり罵り出す
頭がおかしい人なのかな？と放置されると論破して黙らせたと思い込んで悦に浸り出す
そしてプロ回答者としての自信を増して増長して居座る

2019/02/21(木) 16:10:32.99

大抵の事務仕事は本来単純なことをわざわざ難しくして仕事を作っているだけなのは事実だね
VBAや最近だとRPAのような小手先の自動化ツールのは、本質的なプロセスの見直しに対するモチベーションを削いでいる面もある

2019/02/21(木) 16:23:50.23

営業はそれが売上に繋がってると信じてやまないので、
どうにもなんないのよ～

2019/02/21(木) 18:36:57.10

>>384
お前が碌に回答したことが無い初心者なだけだろ。
いろんな所で回答してる奴らは皆同意する。

2019/02/21(木) 18:47:24.87

>>387
同意するわ
明らかに知識の乏しい初心者が妙に具体的に手段を特定して助けを求めてきた場合、
「そんなことはどうでもいいから目的を教えろ」と対応するのが最も確実で効果的で手っ取り早い

2019/02/21(木) 18:56:23.16

>>383
＞8.1-7をを何度となく経験してると、質問を見た時に設計の糞さ加減がかなりの確度で予想できるようになる。
この辺りになると回答でイライラする事が無くなるゾ

2019/02/21(木) 18:57:24.28

>>384
お前が決めつけててワロタ

2019/02/21(木) 19:18:39.73

プログラムって書き方って人それぞれ違うと思うけどみんな書き方どんな？

EXCELのセルデータをComboBoxに格納

メイン文

caii addcbo(FilePath,1,Me.cbo1)
caii addcbo(FilePath,5,Me.cbo2)
caii addcbo(FilePath,8,Me.cbo3)

Function addcbo(....)
※DAOでEXCEL開く
第2引数の列を下にループ
第3引数に空になるまで格納

End Function

てな感じのコードってどうなの？
俺は先に2次元配列でシート丸ごと持ってきてから入れてく感じにしたんだけど、ここにいる人達はどう書く？

2019/02/21(木) 19:30:43.16

データ取得は別プロシージャにして配列につっこむ