Excel VBA 質問スレ Part69

1 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:22:23.67 ID:Fd224klc0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part68 https://mevius.5ch.net/test/read.cgi/tech/1598756127/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 116 名前：デフォルトの名無しさん mailto:sage [2020/12/25(金) 02:34:13.17 ID:oy51KHzs0.net] 標準モジュールに書いてCallではダメか？ 117 名前：デフォルトの名無しさん mailto:sage [2020/12/25(金) 04:03:39.34 ID:OfYljKJA0.net] >>116 そっか、たしかに標準モジュールに移植すれば良かったか 118 名前：デフォルトの名無しさん mailto:sage [2020/12/25(金) 19:42:46.45 ID:M+L+LuRT0.net] >>117 Privateを取っ払ってただのSubにすれば、 UserForm1.ボタン_Clickで実行できる。 119 名前：デフォルトの名無しさん [2020/12/26(土) 11:08:58.12 ID:xVJ70HL70.net] どなたかお教えください。 e-Gov法令検索 https://elaws.e-gov.go.jp/ というサイトでエクセルにリスト化されている法令を検索し， ダウンロードすることを試みたいと考えております。 .Navigate でサイトを開き， .document.getElementById("searchTextBox").Value = "法令名" .document.getElementById("searchBtn").Click で，該当の法令を検索させるまではできました。 その後，検索結果を見つけてURLを取得するところでつまずいております。 .document.getElementsByTagName とかをどのように指定したらよいのでしょうか？ どうぞよろしくお願いいたします。 120 名前：デフォルトの名無しさん mailto:sage [2020/12/26(土) 13:00:08.72 ID:JDXDJsEV0.net] >>119 そよのサイトでリスト化されているもののダウンロードはエクセルには向いてないので 手作業でやったほうがいいだろう 121 名前：デフォルトの名無しさん mailto:sage [2020/12/26(土) 14:44:21.47 ID:1Jq10AwVM.net] Javaを覚えろってことか 122 名前：デフォルトの名無しさん [2020/12/26(土) 14:52:02.96 ID:CuJQon1q0.net] Javaを覚えろってことよ 123 名前：>>119 [2020/12/26(土) 15:35:46.04 ID:xVJ70HL70.net] >>120 アドバイスありがとうございます。 しかしながら１００件くらいあって，定期的にチェックして（法令が更新されることがあるので）ダウンロードするとなると つらいです。 なんとかどうぞお願いします。 124 名前：デフォルトの名無しさん mailto:sage [2020/12/26(土) 16:34:12.06 ID:AsvwShK0H.net] >>123 ちょっとやってみるから、何か一つ検索キーワード教えて あと検索条件はデフォルトのままでいいの？ 125 名前：>>119 [2020/12/26(土) 18:32:04.58 ID:xVJ70HL70.net] >>124さん どうもありがとうございます。 キーワードは 予防接種法 検索条件はデフォルトのままでいいです。 お願いします。 126 名前：デフォルトの名無しさん mailto:sage [2020/12/26(土) 21:38:03.20 ID:AsvwShK0H.net] >>125 ざっくり見たところ、そのサイトはスタイルシートで検索結果を渡してWebAPIでダウンロードする方式だからGetElementsなどは使えないしURLもどこにも書いてない WebAPIを呼び出すフォーマットは、例えばこんな感じになってる https://elaws.e-gov.go.jp/download?law_unique_id=323AC0000000068_20150801_000000000000000&file_type=PDF_H1 このURLをブラウザのアドレスバーに入れるとPDFのダウンロードが始まる VBAでできないことはないけど難易度はけっこう高い 素人にはおすすめしない 127 名前：デフォルトの名無しさん mailto:sage [2020/12/27(日) 00:06:28.37 ID:V6kYHqJF0.net] Ruby なら、curl コマンドとか、open-uri でダウンロードできる require 'open-uri' html = `curl ttps://何々` url = "ttps://何々" html = open( url ) puts html.read 128 名前：デフォルトの名無しさん [2020/12/27(日) 01:58:09.26 ID:s6cy7Ti00.net] なぜVBAスレでrubyが 129 名前：127 mailto:sage [2020/12/27(日) 05:17:11.18 ID:V6kYHqJF0.net] Windows 10 にも、curl が入った コマンドプロンプトで、 where curl と入力すると、 C:\Windows\System32\curl.exe 130 名前：デフォルトの名無しさん mailto:sage [2020/12/27(日) 08:26:34.69 ID:CaXXLtf40.net] なら、 コマンドプロンプト require この３つをNGワードに追加。捗る。 131 名前：デフォルトの名無しさん mailto:sage [2020/12/27(日) 08:54:36.12 ID:73ofl+2yH.net] URLを指定してダウンロードする方法の質問なんか誰もしてないのに、いきなり独り言 ルビー使いはあたおかだとよくわかる 132 名前：デフォルトの名無しさん mailto:sage [2020/12/27(日) 09:21:25.61 ID:iG00duHM0.net] 名門校で球拾いより弱小校でエースのほうが楽しいから まあ関係のない部活に来てたらウザがられるだけだが 133 名前：デフォルトの名無しさん mailto:sage [2020/12/27(日) 09:39:02.91 ID:DRufeyQV0.net] 初心者がもの凄いものをいきなり作ろうとしてここに質問すればできると思っているいつもの人 134 名前：デフォルトの名無しさん mailto:sage [2020/12/27(日) 10:57:38.42 ID:Km9iTMMx0.net] >>118 おおおお、そういうことかー これなら標準モジュールに移植しなくても別のユーザーフォームから起動できるね ありがとうございます！こういう豆知識待ってました 135 名前：デフォルトの名無しさん [2020/12/27(日) 18:38:53.38 ID:kvcCvRIC0.net] privateの意味は豆知識ではなく一般常識ては？ 136 名前：デフォルトの名無しさん mailto:sage [2020/12/28(月) 00:09:12.39 ID:eYw4/aNg0.net] ユーザーフォーム2からユーザーフォーム1 ボタンを押したようにできることが豆知識だったのよ 自分にとってはね 137 名前：デフォルトの名無しさん mailto:sage [2020/12/28(月) 02:13:46.08 ID:zq2Mh9UF0.net] >>133 初心者ではなく初心者から脱却する気の無い人間が 138 名前：デフォルトの名無しさん mailto:sage [2020/12/28(月) 11:52:39.77 ID:D2Ae0vPz0.net] >>136 分かりにくくなるだろうな そのフォーム１の処理の中にフォーム２の処理が混ざっていて・・・みたいな 139 名前：デフォルトの名無しさん mailto:sage [2020/12/28(月) 12:18:01.21 ID:tqv11FjK0.net] 単体で使いたい時もあるけど ある処理の部品としても使いたいとかかな 140 名前：デフォルトの名無しさん mailto:sage [2020/12/28(月) 12:46:17.64 ID:2cxQATNW0.net] それなら共通部品として切り出して フォーム1から呼ぶ、2から呼ぶってしないと後々メンテで死ぬパターン 141 名前：デフォルトの名無しさん [2020/12/28(月) 20:20:11.64 ID:VGvj7ZmYa.net] 今FTPするのに諸事情あってwininetを利用してるんだけど これってファイルのディレクトリ移動は無理？ ちなみにLINUXサーバ 例えば /work/testdir/test.log を /work/movetodir/test.log って感じで移動したい コピーした後deleteすればいいのでコピーでもオッケー 今はスマホからならなので詳細ソースは勘弁して 試したのはFtpPutFileやFtpGetFileで fromとtoをそれぞれファイル名やフルパスで入れ替えたりしてみたんだけど まぁだめだった FtpMoveFile的なものはないですか？ 142 名前：デフォルトの名無しさん [2020/12/28(月) 20:23:27.00 ID:VGvj7ZmYa.net] ちなみにBASPやWINSCPとかは規約上使用できないです ない場合はローカルに一時的にgetした後別のディレクトリにPutすると言う力技も考え中 143 名前：デフォルトの名無しさん [2020/12/28(月) 20:51:35.01 ID:VGvj7ZmYa.net] なんとなく自己解決 やはりFTPの仕様上Moveはダメっぽい 力技しか無いかなぁ 144 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 04:24:04.54 ID:r4ksfnFx0.net] シートを開いたときにシート上のコンボボックスにリストを読み込ませたいんですけど、 シート上にある文字列を読み込むのではなくマクロのみで特定の文字列を読み込ませることって出来ますか？ 145 名前：144 mailto:sage [2020/12/29(火) 04:50:38.55 ID:r4ksfnFx0.net] DirectXのコンボボックス使えば一発でした……すみません…… 146 名前：144 mailto:sage [2020/12/29(火) 06:16:00.81 ID:r4ksfnFx0.net] ActiveXのコンボボックス2つを設置し、以下のようにシートのところに記述後、ComboBox1のプルダウンボタンをクリックすると、 実行時エラー "380": Valueプロパティを設定できません。プロパティの値が無効です と表示され、「ComboBox2.Value = "G6"」がハイライト表示になるのですが、対処法が分かりません。ご教授お願い致します。 --------------------------------------------------- Option Explicit Private Sub ComboBox1_Change() ComboBox2.Value = "G6" End Sub Private Sub ComboBox1_DropButtonClick() ComboBox1.List = Array("A", "B", "C", "D") End Sub Private Sub ComboBox2_DropButtonClick() If ComboBox1.Value = "A" Then ComboBox2.ListFillRange = "G6:G9" Else ComboBox2.ListFillRange = "G6:G8" End If End Sub 147 名前：144 mailto:sage [2020/12/29(火) 06:25:34.42 ID:r4ksfnFx0.net] すみません、Stylesプロパティが2 - fmStyleDropDownListだったからValueに代入できなかったんですね…… ComboBox2.ListIndex = 0 にしたら直りました。お目汚しすみません。 148 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 15:15:22.81 ID:eRbfzaAa0.net] コンボ１→鈴木一郎 コンボ３→鈴木専務 　　　　　　鈴木部長 　　　　　　須藤係長 　　　　　　杉村課長 コンボ３には先頭一致で「す」を検索し絞り込みで表示したいのですがむずかしいでしょうか？あるいは漢字一文字で検索でもいいのですがMatchFound関数を使用するのではないかと思うのですが検討もつきません Option Explicit Private Sub ComboBox2_Change() End Sub Private Sub UserForm_Initialize() Dim r As Long ComboBox1.ColumnCount = 2 For r = 1 To Sheet3.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.AddItem Range("DB!A" & r).Value ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶 Next End Sub Private Sub ComboBox1_Change() Dim r As Long Dim c As Integer r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か) ComboBox2.Clear For c = 2 To Sheet3.Cells(r, Columns.Count).End(xlToLeft).Column ComboBox2.AddItem Sheet3.Cells(r, c).Value Next End Sub 149 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 15:20:48.46 ID:xvN7YPpo0.net] インデントしてない時点で(ｷﾘ 150 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 15:24:36.38 ID:1ep2xIo7M.net] >(ｷﾘ ウザっ 151 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:02:20.40 ID:NKmqU0kK0.net] >>148 リスト全部チェックして一致したものを追加するなりシート上でフィルタした結果を追加するなりしたらいいんでないの 152 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:26:47.99 ID:NKmqU0kK0.net] 思ったんだが、そのコード自分で読み込んだり動き確認したりしてないだろう… 153 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:30:16.32 ID:9/T630Lp0.net] 質問するのが趣味なんだろ 154 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:53:27.47 ID:dODwImwo0.net] 読み仮名でソートすればいいんでないの エクセルの並び替えもこうなるし お 大学(おおきいで変換) か だ 大学(だいで変換) ぢ 155 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:16:49.35 ID:eRbfzaAa0.net] すいません！ 質問するレベルにも到達してなくて シート上で一致させるなら簡単ですね 質問が趣味ではないのですが 業務で必要なもので初心者ながら悪戦苦闘しています 質問のしかたが悪かったと思います ちょっと考えて質問したいと思います 156 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:20:31.42 ID:U6Tn+IN30.net] いつものあいつだろ 157 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:24:55.74 ID:NKmqU0kK0.net] いつものやつだった・・・ 158 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:26:09.51 ID:eRbfzaAa0.net] 前に質問した時も 誰かと勘違いされたような・・・ 誰ですか？ VBAスレには ４回ぐらいしか書き込んだりしてないのですが？ どういった人と勘違いしてるんですか？ 荒らしみたいな人いるんですか？ 159 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:57:29.26 ID:lS8hY7UX0.net] 話題に上ると嬉しそうに反応すんなよｗ 160 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 20:40:10.06 ID:eRbfzaAa0.net] >>159 だからここには４回ぐらいしか来たことない どういったら信じてくれるのかな 初めてだわ 荒らしと間違えられたの どんな荒らしなの？ 普通に書き込んでるつもりなんだけど？ 何か気に入らなかった？ ３日前ぐらいに書き込んだ時も勘違いされたけど ホント勘弁して 161 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:12:23.41 ID:DC9TsoaB0.net] 荒らしと同じようなことを書くから間違われるのでは？ 162 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:16:06.03 ID:mchvBN/f0.net] 真っ赤な帽子にキラリとヒカル 163 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:16:31.70 ID:eRbfzaAa0.net] >>161 どこがどう悪かったのか教えてください 164 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:29:26.63 ID:dODwImwo0.net] おかしな事言う人がいるな でスルーしてたらいいと思うよ 今のままだと思うツボ 165 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 23:51:56.35 ID:xvN7YPpo0.net] >>78 わからぬ。ホムペとかに時々セミナーの写真とか載ってるからそれを見て判断 性格まで瓜二つだからすぐわかるぜw 166 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 01:27:15.02 ID:RXqudRq00.net] 俺も前になんかの質問したときにいつものアイツって言われた事があったから逆になんでもかんでもいつものアイツって言いたがる荒らしが常駐してるもんだと思ってた 167 名前：144 mailto:sage [2020/12/30(水) 01:52:55.19 ID:Oh92F1JH0.net] シートを開くと「オブジェクトが必要です。」だの「メソッドまたはデータメンバが見つかりません。」だのと表示されるんですけど、特に修正することもなく動作している(ように見える)んですけど、これ何が悪いんですかね？ 168 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 03:31:25.87 ID:AqLm+Pp2M.net] PERSONALに余計な書き込みしちまっつてるんじゃね。 再表示させて全部消すんだ。 169 名前：144 mailto:sage [2020/12/30(水) 03:53:07.20 ID:Oh92F1JH0.net] Personal.xlsですかね？ 探 170 名前：しましたがそもそもファイル自体存在しないみたいです…… [] [ここ壊れてます] 171 名前：144 mailto:sage [2020/12/30(水) 03:58:33.29 ID:Oh92F1JH0.net] なんかよく分かんないんですけどエラー行で指定してたコンボボックスを消して再設置したら直りました 助言ありがとうございました 172 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 05:38:22.32 ID:AqLm+Pp2M.net] 毎回コンボボックス言ってるなあんた 173 名前：144 mailto:sage [2020/12/30(水) 05:47:42.87 ID:Oh92F1JH0.net] なんかコンボボックスってクセ強くないですか？ すごく弄りにくくてややこしいです 174 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 08:41:09.68 ID:mfFqR3/N0.net] クセ強いって言うか、1クリックで2回イベント発動するのがなぁ・・ いちいちIf Flag Then Exit Sub とかいれて、 無理矢理1回しか動かないようにしてるけど、 他にいい方法ないもんかね 175 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 08:43:56.99 ID:mfFqR3/N0.net] あ、直前に Flag = Not Flag な 176 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 11:23:33.25 ID:hFnpG/QKH.net] >>173 イベントハンドラは必ず先頭でEnableEvents=Falseするんだよ そして時間のかかる処理はハンドラの中へ書かずに別プロシージャに飛ばす 177 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 13:02:57.82 ID:mfFqR3/N0.net] >>175 ごめん、1クリックで2回じゃなくて、 選択肢の表示で1回、選択で1回で計2回の間違い なのでイベントOFFで逃げられない 178 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 16:14:15.56 ID:8iwO+LiN0.net] 状態管理用のフラグ作って管理している 179 名前：144 mailto:sage [2020/12/30(水) 23:59:22.86 ID:Oh92F1JH0.net] >>173 マジすか もしかしてDropButtonClickイベントに.Clearと.AddItemを入れたら選択してもボックス内に表示されなかったりするのって原因それですかね 180 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 08:04:03.76 ID:qAEGulJg0.net] >>178 そういうの作りながら動作確認しないの？ 181 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 08:17:09.79 ID:sAh4R5unH.net] ネットにサンプルがいくらでも転がってんだから、素直にコピペしとけばいいのに 182 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 08:39:17.53 ID:5hauEQny0.net] 直ぐにネットの野良コードを見て何も考えずにコピペコピペする人は決して【上級者】ではありません！(ｷﾘ 183 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 10:43:23.83 ID:yfYCC+Dx0.net] >>178 多分そう >>179 最初はそんな罠があると思わないからな 俺は、間にMsgBox入れたら2回出たのでやっと気づいたわ 184 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 10:53:25.38 ID:8vAoqqdn0.net] 罠なんてのは理解してる人間が陥るものであってただの知識不足には何の関係もない 想定の動きしなかったら一つ一つ確認するのは最低限のことだ 185 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 11:11:12.57 ID:sAh4R5unH.net] プログラムは決して思った通りには動かず、書いた通りにしか動かない 思った通りに動かない時、それは思った通りに書けてない時 186 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 11:33:07.51 ID:yfYCC+Dx0.net] いや、Windows Update直後に動かなくなるとか普通にあるから あとVBSだが、最近InputBoxで第1引数の文字が出ないことがある どこかのファイルから文字を読み込んでるとかじゃなく、 引数に直接指定してるのに 起動しなおすと出るから間違ってはいない 187 名前：デフォルトの名無しさん mailto:sage [2021/01/01(金) 09:42:29.21 ID:Sutdgdij0.net] 間違っているのではなく見落としているんじゃね 188 名前：デフォルトの名無しさん mailto:sage [2021/01/01(金) 17:08:38.32 ID:PXRj0cmP0.net] そりゃPGの動作ってのは環境含めてだからな 189 名前：デフォルトの名無しさん mailto:sage [2021/01/02(土) 20:54:06.70 ID:gYfsTimq0.net] 不具合がわかっていて放置できるとかうらやましいな 190 名前：デフォルトの名無しさん mailto:sage [2021/01/04(月) 03:24:12.12 ID:SOcZuJtz0.net] >>125 検索結果はARTICLEタグの1番目から3番目迄(0番目は検索結果とは違うものに使用されてる。)。 その下のクラス名LawDownloadの下にクラス名pdfFileが幾つか見つかるが、その直ぐ下にAタグにhref=で始まるURLが見つかる。 どれもGetElements系で取得出来る。 最後はURLDownloadToFile使えば良いんじゃね? 191 名前：デフォルトの名無しさん [2021/01/04(月) 16:03:39.37 ID:P/FS/eNz0.net] バッチでデスクトップを再起動する人もあまりいないと思うが デスクトップを再起動するプロシージャ内でExcelをQuitすると、Excelが勝手に再起動する という現象が起きるので一応報告しとくね 環境によるかも 最初からWin10のPCで、Excel2019 （Win8からのアプデPCで、Excel2013では起きなかったかも） デスクトップを再起動するコマンドを実行してるのはShell関数 Shell関数は非同期のはずだが、その同一プロシージャ内では、APIのSleepで５秒待っても駄目 DoEventsも駄目 そのプロシージャを一旦抜けて、タイマーで５秒後にQuitを実行すればExcelが再起動しない デスクトップを再起動するのは、とあるツールの強制終了で残るタスクバーアイコンをクリアするためで そんな用事のある人も滅多にいないだろうけど（クリアしなくても問題があるわけでもないし） 192 名前：デフォルトの名無しさん [2021/01/04(月) 16:52:13.02 ID:P/FS/eNz0.net] Access VBAに比べるとExcel VBAは随分安定してるが それでもゴリゴリ開発を繰り返すと、謎の実行エラーは起きるよね ソースを全部エクスポートしてインポートし直すと直るやつ 結構有名なはずだが 謎は実在するのにないと言い張るのは、経験不足なだけ 話題の動作を確認したわけじゃないがね 193 名前：デフォルトの名無しさん mailto:sage [2021/01/04(月) 18:20:52.45 ID:WAisD+UGM.net] あまり何もかもをまとめて処理するのはリスキー過ぎる 小分けにして段階を踏め 194 名前：デフォルトの名無しさん mailto:sage [2021/01/04(月) 21:23:02.41 ID:XJuzf2wY0.net] VDI環境でメモリ4ギガしか振られてないんだけど、グローバル変数を4つくらい作るとメモリ不足エラーが出て不安定になります。 割り当てるメモリを増やせばエラー収まりますか？ 195 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 11:25:47.54 ID:vMxmEGnU0.net] 質問というか相談です フォーム上のテキストボックスを右クリックした時、元の背景色が通常色の場合は黄色に、黄色の場合は通常色にと切替を行い、塗り潰しチェックの様な事が出来るようにした物を作りたいです なのでMouseDown若しくはMouseUpで拾ってButton=2の場合に、テキストボックスの背景色を切り替える方向で行こうと考えました MouseDownは１度のクリックで２度処理を行ってしまう為、MouseUPを使用しようと思いましたが、 正直押した瞬間ではなく離した時点なのが至極個人的に違和感バリバリなのでMouseDownでどうにか処理できないかと考えています その場合、静的変数を用いて２回目かどうかの判定を行うのが良いのでしょうか 196 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 12:14:22.04 ID:lqyAMCWOM.net] Timerで1秒以内の2回目は止めたら 197 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 13:06:20.76 ID:LEN4uLCLd.net] for eachでフィルターがかけられた列をコレクションし、現在のセルと一つ下のセルの値を比較しようと思ったのですが、offsetだと隠れた行の数値が参照されてしまいます。 フィルタリングして可視状態の一つ下のセルを参照するには、どうすればよいのでしょうか。 198 名前：デフォルトの名無しさん [2021/01/07(木) 15:55:15.71 ID:JVCs6nJOM.net] 無理だな 一つ上のを覚えといて比較しな 199 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 17:04:40.85 ID:lqyAMCWOM.net] 該当セルから下方向に、 VidibleがTrueなセルに当たるまで探せば 200 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 20:16:51.59 ID:GNpPPMMj0.net] >>194 マウス離した時に実行するのがExcelに限らず一般的な動作だと思うが 201 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 23:26:20.22 ID:q8h4Rq+X0.net] 確かに ↓＼→ 弱ボタン離す、でも波動拳出るな 202 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 23:51:53.97 ID:CAJlIzxl0.net] はどうけんてなんですか 203 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 23:59:30.52 ID:GNpPPMMj0.net] イギリスのロックバンドのことです 204 名前：デフォルトの名無しさん [2021/01/08(金) 07:36:54.65 ID:/1SPkI99a.net] 行とか列のデータのある範囲を選択するメソッドありますか？ currentregionの1行だけみたいなイメージで 今思いつくのは無理くり Range("C5").CurrentRegion.Offset(略).Resize(略〜 ないしは Endとかで割り出してから選択する とかなんですが なんかもう少しスマートな書き方があれば知りたいです 205 名前：デフォルトの名無しさん [2021/01/08(金) 07:38:15.90 ID:/1SPkI99a.net] 説明捕捉 >>203 の表の列はAからD以上まである感じです 206 名前：デフォルトの名無しさん mailto:sage [2021/01/08(金) 08:45:53.52 ID:F7dsXzNTM.net] columnsとかrowsプロパティで範囲から希望の列や行を取り出すじゃ駄目なの？ 207 名前：デフォルトの名無しさん [2021/01/08(金) 09:53:03.11 ID:/1SPkI99a.net] >>205 いや、rowsだと行全体が選ばれてしまうので 例えば 1行目は4列 2行目は5列 とデータの入っている列数がバラバラな場合 （値は全て入っているものとして） それぞれ4列とか5列分ぴったりに選ぶメソッドは無いものかと C列基準とかで選べたら一番いいけど A1選んで「ctrl+shift+→」と同じ結果でもいいです 208 名前：デフォルトの名無しさん [2021/01/08(金) 10:06:49.06 ID:/1SPkI99a.net] すみません >>205 のヒントで自己解決しました Range("C5").EntireRow.SpecialCells(引数) でいけました 失礼しました 209 名前：デフォルトの名無しさん mailto:sage [2021/01/08(金) 10:12:04.47 ID:0GZaxWieH.net] >>206 一発で求めるメソッドやプロパティはない たとえば3行目だけ選択だと、たぶんこれが最短 Range([A3], [A3].End(xlToRight)).Select 210 名前：デフォルトの名無しさん [2021/01/08(金) 10:18:16.84 ID:/1SPkI99a.net] >>208 ありがとうございます やっぱり1発ではないんですね 自分が書いたspecialcellも定数と数式とが混在してると やはりUnionで繋ぐなどしかないので 煩雑になるなあと思っていたので その書き方の方が良さそうですね 211 名前：デフォルトの名無しさん mailto:sage [2021/01/09(土) 19:33:14.89 ID:tpxthpMW0.net] Dirコマンド、 コマンドプロンプトに直書きだとローカルもネットワークも取れるのに、 VBAからWSHで取ると、ローカルしか取れないのは何故? 212 名前：デフォルトの名無しさん mailto:sage [2021/01/09(土) 22:38:35.27 ID:sDO7vtGda.net] 理由は知らないけど、コマンドプロンプトのDIRコマンドと、VBAのDir関数は別物です 213 名前：デフォルトの名無しさん mailto:sage [2021/01/09(土) 22:40:13.80 ID:sDO7vtGda.net] あ、失礼いたしました VBAのDirでなく、スクリプト経由なのか １つ前のレスは撤回します 214 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 01:05:09.81 ID:kg6XuktW0.net] >>210 まあユーザ認証回りだとおもうけど ちょっとコード晒してみて 215 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 01:13:14.86 ID:4Xu9louP0.net] >>213 これそのまま officetanaka.net/excel/vba/tips/tips27.htm sCmd = "dir [ローカル]" だとOKで、 sCmd = "dir [ネットワーク]" だと取れない Len(Result)で調べると0文字になってる コマンドプロンプトでやると取れるから、打ち間違いじゃないと思うんだけど 216 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 01:40:53.81 ID:bwHYpHvWH.net] >>214 手動でコマンドプロンプトからネットが見えるか再確認した？ Windows Updateするとファイル共有が勝手にoffにされることがけっこうあるよ

---

---

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

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