Excel VBA 質問スレ Part64

1 名前：デフォルトの名無しさん mailto:sage [2019/12/02(月) 23:43:54.18 ID:ngrqyTy20.net] !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 2 名前：デフォルトの名無しさん [2019/12/03(火) 00:17:07.29 ID:C8UnG3E4M.net] >>1 MSgbox "乙" 3 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8101-MhVQ) mailto:sage [2019/12/03(火) 06:50:45 ID:EPisquqd0.net] 北海道のグラサンのハゲはここにこないのー？ 4 名前：デフォルトの名無しさん [2019/12/03(火) 07:23:30.55 ID:0rVoayhJp.net] 前レスナンバー999 なんとなくわかるけど a = msgbox 文字列 これならmsgboxが戻り値とわかるが cells.border() これはborderの戻り値が〜じゃなくてcellsの戻り値がボーダーに入ってんじゃないの？ 関係図を教えて 5 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f602-FWG3) mailto:sage [2019/12/03(火) 09:16:21 ID:9IKqMgsD0.net] >>4 じゃないの a = cells() a.border() って事なの 6 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f191-iiDQ) mailto:sage [2019/12/03(火) 10:50:38 ID:eFWYyMY/0.net] セルのボーダーのラインスタイルの戻り値にxlInsideHorizontalを入れようとしている。 7 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 92b1-W09L) mailto:sage [2019/12/03(火) 16:53:00 ID:HVSFa5J10.net] >>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プロパティプロシージャを実行してね）。 8 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f191-iiDQ) mailto:sage [2019/12/03(火) 16:57:39 ID:eFWYyMY/0.net] >>7 多分、初心者は何言ってるかサッパリ分からんだろうなw 9 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 18:21:24.00 ID:0X+RZN9Ra.net] >>8 そう・・・ >>4 「Cells.Borders」は 1.アクティブなWorksheetオブジェクトのCellsプロパティを参照(Get) 　→戻り値はRangeオブジェクト 2.RangeオブジェクトのBorders（Borderではない）プロパティを参照(Get) 　→戻り値はBordersオブジェクト という表現。 Borders()の括弧の中にxlBordersIndex定数を指定した場合、 戻り値はBorderオブジェクトになる。 「いきなりプロパティからはじまるのはおかしい」と思うかもしれないが、それは>>7に書いたとおり色々と省略しているから。 10 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 18:47:20.18 ID:0X+RZN9Ra.net] >>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プロパティプロシージャを実行してね）。 11 名前：デフォルトの名無しさん [2019/12/03(火) 19:15:56.54 ID:0rVoayhJp.net] >>10 インスタンスねぇ… プログラム1ヶ月の人にわかると思う？荒らしか？ 12 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 20:14:07.74 ID:GoxUwlnv0.net] メソッドの引数は普通だけど、プロパティの引数って特別な呼び方ある？ よく考えたら他の言語にプロパティの引数って見たことないような 13 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 21:25:51.83 ID:qY14OTyg0.net] >>11 それがわからんと理解できないよ そもそも一般には聞き慣れないと言うだけでそんなに難しい概念じゃないし 14 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 22:00:54.56 ID:Af3RUiJcx.net] >>12 インデクサの一種だろ 15 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 23:06:13.37 ID:h3dlk8FC0.net] インスタンス？ VB.Netとかだと最初の1日目か2日目に学習することだとか言ったらまた荒れるんだろうなぁ 16 名前：デフォルトの名無しさん mailto:sage [2019/12/03(火) 23:11:52.57 ID:Af3RUiJcx.net] インスタンスとクラスが分からないとお話にならんわな 式で参照取得しているものが何なのかまるで分かってないってことだから 17 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 00:04:05.95 ID:teYzVY+x0.net] 上級者でもわかってないと思うけどな。 シートモジュールに書くと、エラー出た時に、どこで止まったか分からないから、 標準モジュール書け!とかさwww 18 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 07:44:27.63 ID:95sMFvbJ0.net] そんな話じゃね―だろ。 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。 19 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 07:45:37.52 ID:95sMFvbJ0.net] >>17 それは上級者ではない。 20 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 07:49:29.48 ID:k4fgFX/Ba.net] >>17 自分で作ってないだろ 21 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 12:58:07.59 ID:pTwF3wZxd.net] ｸﾘｯﾌﾟﾎﾞｰﾄﾞの文字を操作するのはdataobjectで可能らしいですが、 スクショ撮った後に任意の座標の画素値を自動で取得するのは不可能なのでしょうか？ また、やるとするとシートに画像貼り付け→画像をbmp保存→その画像をバイナリで読み込みという流れになってしまうのでしょうか？ 22 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 13:01:40.27 ID:T2HYa+hHx.net] >>18 返す 直線を代入 このあたりの表現の曖昧さでひっかかるかどうかが初心者に留まる人と上級者になれる人の違いってことだわな 23 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 14:05:40.23 ID:95sMFvbJ0.net] >>21 スクショ取った後じゃないとダメなの? 別にスクショ取らなくても取得できるんだが。 勿論スクショ取った後に、そのスクショの任意座標の画素値も取得できる。 24 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 14:06:26.73 ID:95sMFvbJ0.net] >>21 シートに画像貼り付けとか必要無い。 25 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 18:01:03.06 ID:pTwF3wZxd.net] >>23 やりたいこととしては、囲碁やオセロなどのゲーム中に、盤面をリアルタイムにスクショ等をして、そこから各座標の色を読み込むことで盤面をデータ化するという流れなのですが、画像保存の手間を省けるのであれば教えて頂きたいです。 dataobjectだとgettextでテキストのｸﾘｯﾌﾟﾎﾞｰﾄﾞは読み込めるのですが、スクショだとできませんでした、、 26 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 20:05:12.18 ID:RAKlTKsZ0.net] >>25 いちいちクリップボードにスクショを入れなくても、ゲーム画面のデバイスコンテキストがわかれば、自由にピクセルの色を調べたり、逆にピクセルを書き込んだりできる excel.syogyoumujou.com/memorandum/get_dc.html 27 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 20:36:16.46 ID:M9X3+qe90.net] >>26 デバイスコンテキストなるものがあるのですか、、知らない概念でした、、 スクショ取るのは余計なステップだったのですね。素人にはこの発想しかなかったです 難しそうでまだざっとみただけですが、画面の画像認識系の自動化はこのやり方が基本なのですかね。 ゆっくり読んでやってみます！ありがとうございます 28 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 20:46:11.63 ID:M9X3+qe90.net] ちなみにｽｸｼｮでも可能とありましたが、その際はdataobjectではなく同様にwin32apiの何かを使うことになるのでしょうか 29 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 21:17:45.91 ID:le08Bijgx.net] gdiplus.dllを使う感じかな 30 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 21:46:06.48 ID:z+3QCMVld.net] >>27 >>26のリンク先に殆ど書いてある。 指定座標のピクセル値を取得するなら他にGetPixelを使う。 ただ、こいつは遅い。 大量に取得するならgdiplus系のGetPixel使った方が速いけど、そこまでする必要は無いかと思う。 どっちにしてもこの辺が自在に扱えるなら間違いなく上級者だね。 >>29 >>26のリンク先の内容で行くならgdiplusじゃない。 31 名前：デフォルトの名無しさん mailto:sage [2019/12/04(水) 21:57:16.24 ID:M9X3+qe90.net] >>29>>30 ある程度の範囲の取得になると方針が変わるのですね、、 とりあえずまずはリンク先のやり方を勉強してみることにしてみます。 ご丁寧にありがとうございます。 32 名前：デフォルトの名無しさん (ｱｰｸｾｰ Sxc1-8b9E) mailto:sage [2019/12/06(金) 08:56:17 ID:jTNEW24Lx.net] VBAスレの方でも質問させていただいたのですが、こちらのスレにも詳しい方がいらっしゃるようなので、質問させてください Exchange / Outtlook VBAの質問です 初歩的な質問で申し訳ありません 任意の名前を持つ配布リストや連絡先グループに属するExchangeユーザーのSMTPアドレスの一覧を取得するにはどうしたら良いのでしょうか 配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません なお配布リスト、連絡先グループいずれも個人ユーザーのみが登録されている前提なので、再帰によるメンバー取得は不要な状況です 33 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM43-cb5P) mailto:sage [2019/12/06(金) 12:30:08 ID:G0zfLpZEM.net] >>32 > 配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません その部分のコード貼れよ 34 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7501-cb5P) mailto:sage [2019/12/06(金) 18:27:30 ID:c6fF/5cl0.net] yokokara 35 名前：デフォルトの名無しさん mailto:sage [2019/12/06(金) 20:54:35.91 ID:Nvs1NFCt0.net] >>32 先に質問した方でちゃんと断ったん？ 36 名前：デフォルトの名無しさん mailto:sage [2019/12/06(金) 21:19:32.34 ID:CNjj6fiz0.net] outlookを使わなければならないような身の上には同情する さすがに人少なそうだしいいんじゃないかな 俺はoutlook自体持ってないから良くわからないや。あれまだあるのか 37 名前：デフォルトの名無しさん mailto:sage [2019/12/06(金) 21:25:37.04 ID:I1is1QTTM.net] 今のOutlookは使いやすくなってるよ 俺の中のOutlookは2000で止まってたから久々に使うことになってびっくりした もはや別物 38 名前：デフォルトの名無しさん mailto:sage [2019/12/06(金) 21:33:39.56 ID:CNjj6fiz0.net] そうなのか？ 大変そうだしoutlook入ってるし使ってみるか、と思ったらメールアドレスが必要なので諦めた 頑張って！ 39 名前：デフォルトの名無しさん mailto:sage [2019/12/06(金) 22:46:30.30 ID:Nvs1NFCt0.net] 2013時点ではまだ使いにくい… 40 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Src1-paXL) [2019/12/08(日) 04:18:02 ID:b513l43Er.net] 正直メール関係でマクロは怖いな ローカルでサーバ建ててテストするならともかくExchangeでいきなり本番環境でしょ？ 41 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 09:25:05.41 ID:om5egmGHx.net] アカウント情報やOutlookアイテムの読み取り、アイテムダウンロードだけならExchange環境でのマクロ使用を恐れる理由はないかと思う 42 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 16:03:51.58 ID:Bl/pyruh0.net] すみません、お力を貸して頂きたいです。超初心者です。 固定長形式テキストデータを読み込んで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 43 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 16:05:10.30 ID:Bl/pyruh0.net] 続き 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 44 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 16:14:11.41 ID:/kMCly/xM.net] 目がチカチカするから大文字変数関数やめろ COBOLかよ 45 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 16:57:19.39 ID:om5egmGHx.net] ' 指定ファイルを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使った方が早いと思うので、暇があったら調べるといいよ 46 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 17:19:26.73 ID:Bl/pyruh0.net] >>45 できました…！！ 本当に助かりました、ご親切にありがとうございます！！；； 時間が出来たらQueryTableも調べてみます！ 47 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 17:46:46.44 ID:om5egmGHx.net] >>46 動いてよかった 急いで書いたからDim cDirの行とか要らない行が入ってたわ、ごめんね テキスト読み込みなのにCSVどうこうとか言っちゃってるし 適当にコード直してつかってね 48 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 18:05:03.89 ID:Bl/pyruh0.net] >>47 了解です。 頂いたコードは今後勉強する時にも参考にさせていただきます…！ 本当にありがとうございました！ 49 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 20:46:43.66 ID:m4NCsCKi0.net] 教えて下さい。 役所の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だから？ 50 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 21:02:19.63 ID:m4NCsCKi0.net] 教えて下さい。 役所の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だから？ 51 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 21:04:30.92 ID:m4NCsCKi0.net] ごめん。 専ブラ不調で >>49,50と、 二重投稿になってしまった。 52 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 21:11:35.36 ID:uIaXKQtl0.net] >>50 Range(名前).Value 53 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 21:38:38.38 ID:m4NCsCKi0.net] >>52 ありがとう。やってみた。 ・・・ 　実行時エラー '1004': 　'Range' メソッドは失敗しました: '_Global' オブジェクト だって。 54 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 22:06:19.10 ID:ick2zDgR0.net] yokokara 55 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 22:10:45.88 ID:qsJQUXNgx.net] >>53 違うブックや違うシートがアクティブになっているとかで、名前付きセルが見つけられなくてエラーが返ってきてるんじゃないの ブック名を指定して式を書き起こせば問題なく動くと思うが 56 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 22:49:12.52 ID:uIaXKQtl0.net] >>53 Rangeにブックやシートの指定してる？ 57 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 23:01:44.63 ID:gCiRV9kE0.net] MsgBox R_TargetFullPath で何が表示されるか見てみたら? 58 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 23:04:27.84 ID:m4NCsCKi0.net] >>55 ありがとう。 フォルダパスも名前を定義しているんだけど、 まずはその定義名を使わず、以下でやってみた。 With .Workbooks.Open(R_TargetFullPath) 　↓ With .Workbooks.Open(Range("E:\Excel研究\前回保存日時の取得\○○の場合\'Last save timeを得るVBA.xlsm'!R_TargetFilePath").Value) コンパイルは通った。 で、立ち上げているのは自bookだけなのを確認して マクロを実行した結果、 　実行時エラー '1004': 　'Range' メソッドは失敗しました: '_Global' オブジェクト むぅ・・・ 59 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 23:18:37.85 ID:m4NCsCKi0.net] >>56 ありがとう。 >>55 はシート名を飛ばしているけど、 定義名があるシート名も入れ込もうとしたら どう書いたら良いのだろう？ 「ファイル選択」がシート名なんだけど、 ・・・\'Last save timeを得るVBA.xlsm'!ファイル選択!R_TargetFilePath でも、 ・・・\['Last save timeを得るVBA.xlsm']!ファイル選択!R_TargetFilePath でも、結果は 　実行時エラー '1004': 　'Range' メソッドは失敗しました: '_Global' オブジェクト だった。 60 名前：デフォルトの名無しさん [2019/12/08(日) 23:23:11.19 ID:zBnJIcph0.net] >>59 死ね 61 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 23:31:46.83 ID:m4NCsCKi0.net] >>57 ありがとう。 目的のファイル指定は取りあえず置いといて 画面抑止のままのこの主旨でいいのかな？ Public Sub LastSaveTime2() With CreateObject("Excel.Application") .Visible = False MsgBox R_TargetFullPath End With End Sub で、MSGの結果は、中身がブランク。 62 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 23:32:04.18 ID:m4NCsCKi0.net] >>60 どうぞお幸せに。 63 名前：デフォルトの名無しさん mailto:sage [2019/12/08(日) 23:35:44.03 ID:uIaXKQtl0.net] >>59 普通にシート指定すればよい はっきり理解できてないのにブックもシートも指定せずセルを扱うなんて危険なことはやめた方がいい ところでR_TargetFullPathはセル名と言ってなかったかな？ >Workbooks.Open(R_TargetFullPath) これが通るってR_TargetFullPathの中にフルパスが入ってるとしか思えない 64 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4bda-Fgt1) mailto:sage [2019/12/08(日) 23:50:05 ID:m4NCsCKi0.net] >>63 > 普通にシート指定すればよい その「普通」がよく分からなくて。 >>59 で試行したように、 sheet上での関数に他のbookから参照させるのとは 勝手が違うようだ。 > ところでR_TargetFullPathはセル名と言ってなかったかな？ は、>>50 で書いたとおり、 Worksheet上で普通に 　$A$8 = R_TargetFullPath と名前を定義して としただけ。 65 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-TCJi) mailto:sage [2019/12/09(月) 00:26:53 ID:JYKNIWO60.net] >>64 シート指定とか調べず勘でやってるのか？ 基本が無いのに勘で文法は書けないよ、知らないならちゃんと調べた方がいい 名前を定義とは、$A$8セルに「R_TargetFullPath」という名前を付けたと言ってる？ ちなみにVBAでR_TargetFullPathという名前の変数か定数作ったりしてない？ 66 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2359-VnuC) mailto:sage [2019/12/09(月) 00:28:16 ID:s6MuVJyT0.net] R_TargetFullPathに何を入れたいのかもう一度よく考えてコードを見直せ 67 名前：50 mailto:sage [2019/12/09(月) 18:07:53.39 ID:Z8IKnDOY0.net] いろいろ考えてくれた皆さん、どうもありがとう。 自分の考えを上手く伝えられず、申し訳ない。 自分なりの考えで、確証は得られていないけど、 ・"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 68 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 19:47:30.76 ID:FU5EvZBv0.net] ここには北海道のグラサンスーパーハゲザーこないのー？ 69 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 20:06:58.60 ID:JYKNIWO60.net] >>67 ブックとシートを指定せずにセルを指定してるから取得できないと何度… 指定してないからアクティブなシートを拾いに行く アクティブなシートに名前の定義がなければ当然名前の定義を取得できるわけがない 70 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 20:26:18.92 ID:e1eF5taTx.net] >>67 Public Subによる制御フローじゃないとドキュメントプロパティを参照できないなんていう制約は存在しないと思う 71 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 20:35:27.90 ID:Z8IKnDOY0.net] >>70 ただのSubに変えたら、ダメだった。 72 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 20:37:14.17 ID:Z8IKnDOY0.net] >>69 仰いますけど、 参照しようとした定義名は、自bookのアクティブsheet内だす。 73 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 20:45:36.21 ID:Z8IKnDOY0.net] >>71 参考にしたのはMSコミュニティのこれ↓ https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_other-mso_2010/%E5%89%8D%E5%9B%9E%E4%BF%9D%E5%AD%98%E6%97%A5/97f992ad-416d-e011-8dfc-68b599b31bf5?messageId=33ce5330-cb6f-e011-8dfc-68b599b31bf5&auth=1 74 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 21:50:46.52 ID:TvnOkFVF0.net] Range("R_TargetFullPath").Value 75 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 22:19:06.53 ID:JYKNIWO60.net] >>72 そのシートがアクティブになっていれば取得できる なってなければ取得できない 取得できないということはアクティブだと思い込んでるだけか、名前が間違ってるか、指定が間違ってるか 76 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 22:21:49.68 ID:ZJISTsUc0.net] >>72 シートは一つ？別のシートにも同名範囲があって特定できないとか？ 77 名前：デフォルトの名無しさん mailto:sage [2019/12/09(月) 22:23:12.83 ID:JYKNIWO60.net] >>74 それだと1004エラーが出たらしい 78 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 00:08:00.24 ID:IGUOZi3/x.net] >>73 これはサブルーチン呼び出しの都合でPublicスコープにしているだけで、BuildinDocumentPropertiesの仕様とは関係ないのでは 79 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 00:18:53.99 ID:IGUOZi3/x.net] 名前付き範囲のスコープの問題もありそう 80 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4be8-V35x) mailto:sage [2019/12/10(火) 06:11:01 ID:1SW8Wt4N0.net] >>77 その時は Range(R_TargetFullPath).Value としたんじゃないか？>>52-53 81 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 037d-V35x) mailto:sage [2019/12/10(火) 11:53:22 ID:Snrdoe410.net] ページに設定しているフィルターの解除をする場合 Range("E5").Select Selection.AutoFilter といった具合にRangeとセットで使うしか無いのでしょうか？ ここでは、VBAで「E5」を指定していますが、中のデータが入力により空になる事もある為 Range指定する事なくフィルタを解除したいです。 82 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 20:17:21.65 ID:78OD2uofx.net] >>81 ページって何？シートのこと？ それとも印刷範囲のこと？ 83 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 21:36:21.94 ID:ntdCbZOy0.net] シート１のJ１〜J220のセルをシート２に行で張り付けて それをどんどん繰り返して１〜48400の列を220*220の表にしたいんだけど、forに対するnextが無いと怒られます 3つのforに対してnextが足りてないのはわかるのですが、適当な場所においてもエラーが出ます どうしたら解決するでしょうか？ Sub TEST4() Dim S1 As Worksheet, S2 As Worksheet Dim i As Integer, y As Integer, z As Integer For i = 1 To 220 For y = 1 To 48181 Step +220 For z = 220 To 48400 Step +220 Set S1 = Worksheets("Sheet1") Set S2 = Worksheets("Sheet2") S2.Range("A" & i & ":" & "HL" & i).Value = S1.Range("J" & y & ":" & "J" & z).Value Next End Sub 84 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 21:54:10.27 ID:bwWsAejd0.net] >>83 Sub TEST4() 　　Dim S1 As Worksheet, S2 As Worksheet 　　Dim r1 As Long, r2 As Long 　　Set S1 = Worksheets("Sheet1") 　　Set S2 = Worksheets("Sheet2") 　　r2 = 1 　　For r1 = 1 To 48400 Step 220 　　　　S2.Range("A" & r2 & ":HL" & r2) = WorksheetFunction.Transpose(S1.Range("J" & r1 & ":J" & r1 + 219)) 　　　　r2 = r2 + 1 　　Next End Sub 85 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 21:58:10.86 ID:blXuValB0.net] >>83 間違った場所に置くからエラーが出るんでしょうな 86 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 22:05:06.97 ID:bwWsAejd0.net] Sub TEST4() 　　Dim S1 As Worksheet, S2 As Worksheet 　　Dim r1 As Long, r2 As Long 　　Set S1 = Worksheets("Sheet1") 　　Set S2 = Worksheets("Sheet2") 　　r2 = 1 　　For r1 = 1 To 48400 Step 220 　　　　S2.Range("A" & r2).Resize(, 220) = WorksheetFunction.Transpose(S1.Range("J" & r1).Resize(220)) 　　　　r2 = r2 + 1 　　Next End Sub 87 名前：デフォルトの名無しさん [2019/12/10(火) 22:33:04.15 ID:e5kRWpUlM.net] >>83 シート1には既に220*220の表があって、それをシート2に縦横入れ換えて貼り付けたいってこと？ 88 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 22:41:16.48 ID:+pH53X+X0.net] 現在表示しているワークブックからファイル名の一部を取り出して、その数字をMsgBoxで表示するなど他の計算で使うことってできないでしょうか？ 例えば「01-5.xlsx」の場合「-5」、「02+5.xlsx」の場合「5」、「03+1000.xlsx」の場合「1000」、「04-1234.xlsx」の場合「-1234」のような形 左の数字は2桁、右の数字は1〜4桁でファイルによって違います 0や小数点以下の数字はありません ファイル名がプラスの場合とマイナスの場合があります 正数の場合ファイル名は+表記ですが記号自体は必要ありません 「マクロを実行しているワークブック」ではなく「現在表示しているワークブック」のファイル名を参照したいです プログラミングの経験が全くなくて先週からマクロを触り始めたので不可能なことを質問かもしれませんがよろしくお願いします 89 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 22:46:23.21 ID:ntdCbZOy0.net] >>84、866 スゲーできたーありがとうございます。中身よく見て、勉強します。 >>87 シート１に１列で48400ほどデータがあるんで、それを別シートに220*220の表にしたかったんです。 90 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 23:00:44.84 ID:78OD2uofx.net] >>88 + または - を区切り文字としてThisworkbook.NameをSplit関数で分割して配列化する 得られた配列の二つ目の要素を取り出して整数型に型変換する この二つのステップを実現すれば良い 91 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 23:02:34.06 ID:78OD2uofx.net] >>88 よく要件を読んだらThisworkbook.Nameより ActiveWorkbook.Nameの方が良いかも 92 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 23:04:16.14 ID:blXuValB0.net] >>90 -が消える上に.拡張子まで全部取得する羽目になる 93 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 23:06:54.98 ID:blXuValB0.net] ファイル名を.で区切った1個目の3文字目以降を取得して数値変換すればいい 94 名前：デフォルトの名無しさん mailto:sage [2019/12/11(水) 01:12:21.51 ID:HRfJYRvp0.net] >>82 シートです！ 95 名前：デフォルトの名無しさん mailto:sage [2019/12/11(水) 05:06:25.08 ID:rrddvJwO0.net] >>81 Worksheets("シート1").Autofiltermode ＝ false 96 名前：デフォルトの名無しさん mailto:sage [2019/12/11(水) 09:15:52.19 ID:0sWj3Hq10.net] >>83 For NextではNextの後を省略すべきじゃない。 For Eachならまだ分かるが。 97 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 037d-V35x) mailto:sage [2019/12/11(水) 11:27:42 ID:HRfJYRvp0.net] >>95 サンキュー！！ 98 名前：デフォルトの名無しさん mailto:sage [2019/12/11(水) 19:02:34.08 ID:3wTkanlw0.net] それ多分フィルタ掛かってないとコケる。 On Error〜か、If AutoFilterMode Then入れないと。 99 名前：デフォルトの名無しさん mailto:sage [2019/12/11(水) 23:16:02.27 ID:0sWj3Hq10.net] >>98 Falseにする分には問題無い。 100 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 20:44:42.97 ID:gjQRRqT20.net] >>88 Sub test2() '整数を格納 Dim lngFileName As Long '正規表現オブジェクトを作成 Dim objReg As Object, objRegMatch Set objReg = CreateObject("VBScript.RegExp") With objReg 'ファイル名のパターンを指定 '[半角数字2文字][区切り文字1文字][半角数字1〜4文字][拡張子(xlsxまたはxls)]に一致 .Pattern = "^\d{2}.(\d{1,4})\.(?:xlsx|xls)$" .Global = True End With '正規表現にマッチしないファイル名だった場合の処理 Set objRegMatch = objReg.Execute(ActiveWorkbook.Name) If objRegMatch.Count < 1 Then 'メッセージボックスを表示 MsgBox ("正規表現アンマッチ") 'Label1にジャンプして処理を終了 GoTo Label1 End If '正規表現のグループ化した部分を整数として格納 lngFileName = objReg.Replace(ActiveWorkbook.Name, "$1") 'メッセージボックスを表示 MsgBox (lngFileName) Label1: End Sub

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef