Excel VBA 質問スレ Part64

2019/12/02(月) 23:43:54.18

!extend:checked:vvvvv:1000:512

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

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

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

2019/12/03(火) 00:17:07.29

>>1
MSgbox "乙"

2019/12/03(火) 06:50:45.90

北海道のグラサンのハゲはここにこないのー？

2019/12/03(火) 07:23:30.55

前レスナンバー999

なんとなくわかるけど
a = msgbox 文字列

これならmsgboxが戻り値とわかるが
cells.border()

これはborderの戻り値が～じゃなくてcellsの戻り値がボーダーに入ってんじゃないの？
関係図を教えて

2019/12/03(火) 09:16:21.04

>>4
じゃないの
a = cells()
a.border()
って事なの

2019/12/03(火) 10:50:38.75

セルのボーダーのラインスタイルの戻り値にxlInsideHorizontalを入れようとしている。

2019/12/03(火) 16:53:00.11

>>4
Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal
↑色々省略されている。
↓なるべく略さずに書き直してみる。
Let Excel.Application.ActiveSheet.Cells(i,
j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal
先頭の「Let」はステートメント（命令）で、「この行のコードの右辺の値を左辺に
代入してね」という命令になっている。
また、このコード例の場合、ピリオドの右に続く単語はすべて（たまたま）「プロパ
ティ」になっている。
だが、「ApplicationプロパティのActiveSheetプロパティ」だとか「Cellsプロパ
ティのBordersプロパティ」だとかいう語は成り立たない。
ExcelオブジェクトライブラリのApplicationプロパティにより、Applicationクラス
のインスタンス（Applicationオブジェクト）を参照(Get)
→ApplicationオブジェクトのActiveSheetプロパティにより、Worksheetクラスのイ
ンスタンス（WorkSheetオブジェクト）を参照(Get)
　→WorkSheetオブジェクトのCellsプロパティにより、Rangeクラスのインスタンス
（Rangeオブジェクト）を参照(Get)
　　（Rangeオブジェクトのデフォルトプロパティの引数にi・jを指定し、Rangeクラ
スの別のインスタンス＝Rangeオブジェクトを参照）
　　→RangeオブジェクトのBordersプロパティにより、Bordersクラスのインスタン
ス（Bordersオブジェクト）を参照(Get)
　　　（Bordersオブジェクトのデフォルトプロパティの引数にxlDiagonalDownを指
定し、Borderクラスのインスタンス＝Borderオブジェクトを参照）
　　　→BorderオブジェクトのLineStyleプロパティにxlInsideHorizontalを代入
(Let)してね（＝LineStyleプロパティプロシージャの引数にxlInsideHorizontalを指
定して、LineStyleプロパティプロシージャを実行してね）。

2019/12/03(火) 16:57:39.86

>>7
多分、初心者は何言ってるかサッパリ分からんだろうなw

2019/12/03(火) 18:21:24.00

>>8
そう・・・
>>4
「Cells.Borders」は
1.アクティブなWorksheetオブジェクトのCellsプロパティを参照(Get)
　→戻り値はRangeオブジェクト
2.RangeオブジェクトのBorders（Borderではない）プロパティを参照(Get)
　→戻り値はBordersオブジェクト
という表現。
Borders()の括弧の中にxlBordersIndex定数を指定した場合、
戻り値はBorderオブジェクトになる。

「いきなりプロパティからはじまるのはおかしい」と思うかもしれないが、それは>>7に書いたとおり色々と省略しているから。

2019/12/03(火) 18:47:20.18

>>7
って、なんかめちゃくちゃ改行入っとる・・・

書き直し。
Let Excel.Application.ActiveSheet.Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal

ExcelオブジェクトライブラリのApplicationプロパティにより、Applicationクラスのインスタンス（Applicationオブジェクト）を参照(Get)
→ApplicationオブジェクトのActiveSheetプロパティにより、Worksheetクラスのインスタンス（Worksheetオブジェクト）を参照(Get)
　→WorksheetオブジェクトのCellsプロパティにより、Rangeクラスのインスタンス（Rangeオブジェクト）を参照(Get)
　　（Rangeオブジェクトのデフォルトプロパティの引数にi・jを指定し、Rangeクラスの別のインスタンス＝Rangeオブジェクトを参照）
　　→RangeオブジェクトのBordersプロパティにより、Bordersクラスのインスタンス（Bordersオブジェクト）を参照(Get)
　　　（Bordersオブジェクトのデフォルトプロパティの引数にxlDiagonalDownを指定し、Borderクラスのインスタンス＝Borderオブジェクトを参照）
　　　→BorderオブジェクトのLineStyleプロパティにxlInsideHorizontalを代入(Let)してね（＝LineStyleプロパティプロシージャの引数にxlInsideHorizontalを指定して、LineStyleプロパティプロシージャを実行してね）。

2019/12/03(火) 19:15:56.54

>>10
インスタンスねぇ…
プログラム1ヶ月の人にわかると思う？荒らしか？

2019/12/03(火) 20:14:07.74

メソッドの引数は普通だけど、プロパティの引数って特別な呼び方ある？
よく考えたら他の言語にプロパティの引数って見たことないような

2019/12/03(火) 21:25:51.83

>>11
それがわからんと理解できないよ
そもそも一般には聞き慣れないと言うだけでそんなに難しい概念じゃないし

2019/12/03(火) 22:00:54.56

>>12
インデクサの一種だろ

2019/12/03(火) 23:06:13.37

インスタンス？
VB.Netとかだと最初の1日目か2日目に学習することだとか言ったらまた荒れるんだろうなぁ

2019/12/03(火) 23:11:52.57

インスタンスとクラスが分からないとお話にならんわな
式で参照取得しているものが何なのかまるで分かってないってことだから

2019/12/04(水) 00:04:05.95

上級者でもわかってないと思うけどな。
シートモジュールに書くと、エラー出た時に、どこで止まったか分からないから、
標準モジュール書け!とかさwww

2019/12/04(水) 07:44:27.63

そんな話じゃね―だろ。
Cells(1, 1)はA1セルを返す。

Cells(1, 1).Borders(xlDiagonalDown)はA1セルの右下がり斜め線の罫線を返す。

Cells(1, 1).Borders(xlDiagonalDown).LineStyleはA1セルの右下がり斜め線の罫線の線スタイルを返す。

Cells(1, 1).Borders(xlDiagonalDown).LineStyle = xlContinuousはA1セルの右下がり斜め線の罫線の線スタイルに直線を代入(設定)している。

初心者はこの程度の理解でOK。

2019/12/04(水) 07:45:37.52

>>17
それは上級者ではない。

2019/12/04(水) 07:49:29.48

>>17
自分で作ってないだろ

2019/12/04(水) 12:58:07.59

ｸﾘｯﾌﾟﾎﾞｰﾄﾞの文字を操作するのはdataobjectで可能らしいですが、
スクショ撮った後に任意の座標の画素値を自動で取得するのは不可能なのでしょうか？
また、やるとするとシートに画像貼り付け→画像をbmp保存→その画像をバイナリで読み込みという流れになってしまうのでしょうか？

2019/12/04(水) 13:01:40.27

>>18
返す
直線を代入
このあたりの表現の曖昧さでひっかかるかどうかが初心者に留まる人と上級者になれる人の違いってことだわな

2019/12/04(水) 14:05:40.23

>>21
スクショ取った後じゃないとダメなの?
別にスクショ取らなくても取得できるんだが。
勿論スクショ取った後に、そのスクショの任意座標の画素値も取得できる。

2019/12/04(水) 14:06:26.73

>>21
シートに画像貼り付けとか必要無い。

2019/12/04(水) 18:01:03.06

>>23
やりたいこととしては、囲碁やオセロなどのゲーム中に、盤面をリアルタイムにスクショ等をして、そこから各座標の色を読み込むことで盤面をデータ化するという流れなのですが、画像保存の手間を省けるのであれば教えて頂きたいです。
dataobjectだとgettextでテキストのｸﾘｯﾌﾟﾎﾞｰﾄﾞは読み込めるのですが、スクショだとできませんでした、、

2019/12/04(水) 20:05:12.18

>>25
いちいちクリップボードにスクショを入れなくても、ゲーム画面のデバイスコンテキストがわかれば、自由にピクセルの色を調べたり、逆にピクセルを書き込んだりできる
http://excel.syogyoumujou.com/memorandum/get_dc.html

2019/12/04(水) 20:36:16.46

>>26
デバイスコンテキストなるものがあるのですか、、知らない概念でした、、
スクショ取るのは余計なステップだったのですね。素人にはこの発想しかなかったです
難しそうでまだざっとみただけですが、画面の画像認識系の自動化はこのやり方が基本なのですかね。
ゆっくり読んでやってみます！ありがとうございます

2019/12/04(水) 20:46:11.63

ちなみにｽｸｼｮでも可能とありましたが、その際はdataobjectではなく同様にwin32apiの何かを使うことになるのでしょうか

2019/12/04(水) 21:17:45.91

gdiplus.dllを使う感じかな

2019/12/04(水) 21:46:06.48

>>27
>>26のリンク先に殆ど書いてある。
指定座標のピクセル値を取得するなら他にGetPixelを使う。
ただ、こいつは遅い。
大量に取得するならgdiplus系のGetPixel使った方が速いけど、そこまでする必要は無いかと思う。
どっちにしてもこの辺が自在に扱えるなら間違いなく上級者だね。

>>29
>>26のリンク先の内容で行くならgdiplusじゃない。

2019/12/04(水) 21:57:16.24

>>29>>30
ある程度の範囲の取得になると方針が変わるのですね、、
とりあえずまずはリンク先のやり方を勉強してみることにしてみます。
ご丁寧にありがとうございます。

2019/12/06(金) 08:56:17.67

VBAスレの方でも質問させていただいたのですが、こちらのスレにも詳しい方がいらっしゃるようなので、質問させてください

Exchange / Outtlook VBAの質問です
初歩的な質問で申し訳ありません

任意の名前を持つ配布リストや連絡先グループに属するExchangeユーザーのSMTPアドレスの一覧を取得するにはどうしたら良いのでしょうか

配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません

なお配布リスト、連絡先グループいずれも個人ユーザーのみが登録されている前提なので、再帰によるメンバー取得は不要な状況です

2019/12/06(金) 12:30:08.82

>>32
> 配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません
その部分のコード貼れよ

2019/12/06(金) 18:27:30.78

yokokara

2019/12/06(金) 20:54:35.91

>>32
先に質問した方でちゃんと断ったん？

2019/12/06(金) 21:19:32.34

outlookを使わなければならないような身の上には同情する
さすがに人少なそうだしいいんじゃないかな
俺はoutlook自体持ってないから良くわからないや。あれまだあるのか

2019/12/06(金) 21:25:37.04

今のOutlookは使いやすくなってるよ
俺の中のOutlookは2000で止まってたから久々に使うことになってびっくりした
もはや別物

2019/12/06(金) 21:33:39.56

そうなのか？
大変そうだしoutlook入ってるし使ってみるか、と思ったらメールアドレスが必要なので諦めた
頑張って！

2019/12/06(金) 22:46:30.30

2013時点ではまだ使いにくい…

2019/12/08(日) 04:18:02.80

正直メール関係でマクロは怖いな
ローカルでサーバ建ててテストするならともかくExchangeでいきなり本番環境でしょ？

2019/12/08(日) 09:25:05.41

アカウント情報やOutlookアイテムの読み取り、アイテムダウンロードだけならExchange環境でのマクロ使用を恐れる理由はないかと思う

2019/12/08(日) 16:03:51.58

すみません、お力を貸して頂きたいです。超初心者です。

固定長形式テキストデータを読み込んでExcelに落としたいのですが、ファイルの名前がその時によって違うので、下記のようにファイル名固定ではなく、
”C:\test\"をオープンさせてその中から選択したテキストデータを読み込むようにしたいです。
試行錯誤しているのですが、作成完了まで時間がなく基礎的な知識も足りず、、　そのように書き換えて頂けないでしょうか；；

Sub READ_test()
Const cnsFILENAME = "\test1.txt"
Dim FSO As New FileSystemObject ' FileSystemObject
Dim TS As TextStream ' TextStream
Dim GYO As Long ' 収容するセルの行
Dim strREC As String ' レコードを収容する変数

' 指定ファイルをOPEN(入力モード)
Set TS = FSO.OpenTextFile(ThisWorkbook.Path & cnsFILENAME, ForReading, False)
' 2行目から開始
Rows("2:65536").ClearContents
GYO = 2
Do Until TS.AtEndOfStream
' レコードの読み込み(改行発見までの可変長⇒Ascii変換)
strREC = StrConv(TS.ReadLine, vbFromUnicode)
' １レコード分のセルへのセット
Call GP_EDIT_FixLngRec(strREC, GYO)
' 行を加算
GYO = GYO + 1
Loop
' 指定ファイルをCLOSE
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub

2019/12/08(日) 16:05:10.30

続き

Private Sub GP_EDIT_FixLngRec(strREC As String, GYO As Long)
Cells(GYO, 1).Value = FP_GET_REC_To_String(strREC, 1, 5)
Cells(GYO, 2).Value = FP_GET_REC_To_String(strREC, 6, 5)
End Sub

Private Function FP_GET_REC_To_String(strREC As String, _
lngStrPos As Long, _
lngLngs As Long) As String
Dim strREC2 As String
strREC2 = Trim(StrConv(MidB(strREC, lngStrPos, lngLngs), vbUnicode))
FP_GET_REC_To_String = strREC2
End Function

Private Function FP_GET_REC_To_Numeric(strREC As String, _
lngStrPos As Long, _
lngLngs As Long) As Currency
Dim strREC2 As String
strREC2 = StrConv(MidB(strREC, lngStrPos, lngLngs), vbUnicode)
FP_GET_REC_To_Numeric = CCur(strREC2)
End Function

2019/12/08(日) 16:14:11.41

目がチカチカするから大文字変数関数やめろ
COBOLかよ

2019/12/08(日) 16:57:19.39

' 指定ファイルをOPEN(入力モード)
Dim cDir As String
Dim srcName As String
srcName = "C:\test"

With Application.FileDialog(msoFileDialogFilePicker)
　　.InitialFileName = srcName
　　.Show
　　If .SelectedItems.Count = 0 Then Exit Sub
　　srcName = .SelectedItems(1)
End With

Set TS = FSO.OpenTextFile(srcName, ForReading, False)
' 2行目から開始

ファイル名指定の箇所だけ一部書き換えてみたので試してみて
ちなみにこの手のcsv読み込み作業は一からvbaでスクラッチするよりも今やQueryTable使った方が早いと思うので、暇があったら調べるといいよ

2019/12/08(日) 17:19:26.73

>>45
できました…！！
本当に助かりました、ご親切にありがとうございます！！；；
時間が出来たらQueryTableも調べてみます！

2019/12/08(日) 17:46:46.44

>>46
動いてよかった
急いで書いたからDim cDirの行とか要らない行が入ってたわ、ごめんね
テキスト読み込みなのにCSVどうこうとか言っちゃってるし
適当にコード直してつかってね

2019/12/08(日) 18:05:03.89

>>47
了解です。
頂いたコードは今後勉強する時にも参考にさせていただきます…！
本当にありがとうございました！

2019/12/08(日) 20:46:43.66

教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、
Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
ただの「更新日時」では、自分がDLした日時になってしまうから。

Public Sub getFileLastSaveTimeButton()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub

Cell(8,1).Value の(8, 1)=A8セルに
目的のファイルのフルパスを入力済みなんだけど、
ここを定義された名前に置き換えたい。

Worksheetで普通に
A8 = R_TargetFullPath
と名前を定義して
VBA上で
　With .Workbooks.Open(R_TargetFullPath)
としたら
　実行時エラー '1004':
　申し訳ございません。が見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。
と出てしまうのは、なんでだろ？
Public Subだから？

2019/12/08(日) 21:02:19.63

教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
　ただの「更新日時」では、自分がDLした日時になってしまうから。

Public Sub LastSaveTime()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub

これ自体は上手くいくんだけど、
目的のファイルのフルパスが入力済みの、
Cell(8,1).Value の(8, 1)=A8セルを
定義された名前に置き換えたい。

Worksheet上で普通に
　$A$8 = R_TargetFullPath
と名前を定義して
VBA上で
　With .Workbooks.Open(R_TargetFullPath)
としたら
　実行時エラー '1004':
　申し訳ございません。が見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。
と中途半端なエラーが出てしまうのは、なんでだろ？
Public Subだから？

2019/12/08(日) 21:04:30.92

ごめん。

専ブラ不調で
>>49,50と、
二重投稿になってしまった。

2019/12/08(日) 21:11:35.36

>>50
Range(名前).Value

2019/12/08(日) 21:38:38.38

>>52
ありがとう。やってみた。
・・・

　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト

だって。

2019/12/08(日) 22:06:19.10

yokokara

2019/12/08(日) 22:10:45.88

>>53
違うブックや違うシートがアクティブになっているとかで、名前付きセルが見つけられなくてエラーが返ってきてるんじゃないの
ブック名を指定して式を書き起こせば問題なく動くと思うが

2019/12/08(日) 22:49:12.52

>>53
Rangeにブックやシートの指定してる？

2019/12/08(日) 23:01:44.63

MsgBox R_TargetFullPath

で何が表示されるか見てみたら?

2019/12/08(日) 23:04:27.84

>>55
ありがとう。

フォルダパスも名前を定義しているんだけど、
まずはその定義名を使わず、以下でやってみた。

With .Workbooks.Open(R_TargetFullPath)
　↓
With .Workbooks.Open(Range("E:\Excel研究\前回保存日時の取得\○○の場合\'Last save timeを得るVBA.xlsm'!R_TargetFilePath").Value)

コンパイルは通った。
で、立ち上げているのは自bookだけなのを確認して
マクロを実行した結果、

　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト

むぅ・・・

2019/12/08(日) 23:18:37.85

>>56
ありがとう。

>>55 はシート名を飛ばしているけど、
定義名があるシート名も入れ込もうとしたら
どう書いたら良いのだろう？

「ファイル選択」がシート名なんだけど、
・・・\'Last save timeを得るVBA.xlsm'!ファイル選択!R_TargetFilePath
でも、
・・・\['Last save timeを得るVBA.xlsm']!ファイル選択!R_TargetFilePath
でも、結果は
　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト
だった。

2019/12/08(日) 23:23:11.19

>>59
死ね

2019/12/08(日) 23:31:46.83

>>57
ありがとう。

目的のファイル指定は取りあえず置いといて
画面抑止のままのこの主旨でいいのかな？

Public Sub LastSaveTime2()
With CreateObject("Excel.Application")
.Visible = False
MsgBox R_TargetFullPath
End With
End Sub

で、MSGの結果は、中身がブランク。

2019/12/08(日) 23:32:04.18

>>60
どうぞお幸せに。

2019/12/08(日) 23:35:44.03

>>59
普通にシート指定すればよい
はっきり理解できてないのにブックもシートも指定せずセルを扱うなんて危険なことはやめた方がいい

ところでR_TargetFullPathはセル名と言ってなかったかな？
>Workbooks.Open(R_TargetFullPath)
これが通るってR_TargetFullPathの中にフルパスが入ってるとしか思えない

2019/12/08(日) 23:50:05.28

>>63
> 普通にシート指定すればよい

その「普通」がよく分からなくて。
>>59 で試行したように、
sheet上での関数に他のbookから参照させるのとは
勝手が違うようだ。

> ところでR_TargetFullPathはセル名と言ってなかったかな？

は、>>50 で書いたとおり、
Worksheet上で普通に
　$A$8 = R_TargetFullPath
と名前を定義して
としただけ。

2019/12/09(月) 00:26:53.00

>>64
シート指定とか調べず勘でやってるのか？
基本が無いのに勘で文法は書けないよ、知らないならちゃんと調べた方がいい

名前を定義とは、$A$8セルに「R_TargetFullPath」という名前を付けたと言ってる？
ちなみにVBAでR_TargetFullPathという名前の変数か定数作ったりしてない？

2019/12/09(月) 00:28:16.96

R_TargetFullPathに何を入れたいのかもう一度よく考えてコードを見直せ

50 (ﾜｯﾁｮｲ 4bda-Fgt1) · 2019/12/09(月) 18:07:53.39

いろいろ考えてくれた皆さん、どうもありがとう。
自分の考えを上手く伝えられず、申し訳ない。

自分なりの考えで、確証は得られていないけど、
・"BuiltinDocumentProperties" を使った「前回更新日時」の取得は、対象ファイルをいちいち開かないと取得出来ないため、Public Subでやるしかない。
・が、Range(定義名)では、例えアクティブな自sheet内の定義名でもなぜか上手く取得出来ない。
・ただし、アクティブなセルをCells(行数, 列数)なら値取得が出来る。
ということかと。

ならば、「1つのファイルの日時を取得するのに定義名を使う」考え方を変えて、
・Cells(行数, 列数)を活かして、フォルダにDLした .xl* ファイルの、全ての前回更新日時を取得する。
としたら、出来た。

3つめの "Public Sub LastSaveTime3()" をボタンにマクロ登録
https://i.imgur.com/19QWsrZ.png

Power Queryで取得したフォルダ内.xl*ファイル一覧表（タイトルが黄緑色の列）の右列に
上記VBAで「前回更新日時」を取得した結果（タイトルが深緑色の列）
https://i.imgur.com/jegG0b5.png

2019/12/09(月) 19:47:30.76

ここには北海道のグラサンスーパーハゲザーこないのー？

2019/12/09(月) 20:06:58.60

>>67
ブックとシートを指定せずにセルを指定してるから取得できないと何度…
指定してないからアクティブなシートを拾いに行く
アクティブなシートに名前の定義がなければ当然名前の定義を取得できるわけがない