Excel VBA 質問スレ Part80

1 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 08:23:38.97 ID:4RV1IxmB.net] ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 関連スレ Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり) https://mevius.5ch.net/test/read.cgi/tech/1674875532/ ※前スレ Excel VBA 質問スレ Part79 https://mevius.5ch.net/test/read.cgi/tech/1674874007/ 166 名前：デフォルトの名無しさん mailto:sage [2023/09/09(土) 15:33:08.91 ID:F9Z+i/7c.net] >>162 たとえていうなら、この表に追加的に買ってきてほしいものを書いてくれたら買ってきますよ、というようなものなので、買ってきてほしいものがバナナだけの時もあるわけで、バナナだけじゃ困るというエラーメッセージを出すのはちょっと・・・ >>163 それ考えたんですけど、ちょい面倒くさいなぁと思ってやめました でもそのコードは簡潔でいいですね。拝借させてもらいますね ありがとうございました 167 名前：デフォルトの名無しさん mailto:sage [2023/09/09(土) 17:39:26.81 ID:be6v4mh1.net] 同じ問題に直面したけどググってみつけた自作関数GetArrFromRangeで対応してるわ https://yaromai.jp/cellvalue-array/ 流れとしては>>163に近いかな？ 168 名前：デフォルトの名無しさん [2023/10/05(木) 02:08:04.21 ID:+NVPN5Yc.net] あるセルをマウスで選択すると、 選択したそのセルと隣のセルも消す、 というマクロを作って現在動かしていますが、 どうしても類似のシートをもう一つ作って連動 させたいのですが、例えば、 シートAのセルのE1をマウスで選択した時、 シートBのセルのE1も同時に選択状態にする、 というマクロは可能でしょうか？ 宜しくお願い致します。 169 名前：デフォルトの名無しさん [2023/10/05(木) 03:02:59.67 ID:+NVPN5Yc.net] 追記 別に「同時」でなくともいいです。 要は、シートBのセルのE1をマクロで 操作できればなんだっていいです。 170 名前：デフォルトの名無しさん [2023/10/05(木) 04:09:43.70 ID:tRnDXjTr.net] 同時は無理かも知れんが 同時じゃなくて良ければ可能 次の方どうぞ 171 名前：デフォルトの名無しさん [2023/10/05(木) 08:25:15.77 ID:+NVPN5Yc.net] >>168 どうやればできるか教えてください 172 名前：デフォルトの名無しさん [2023/10/05(木) 10:30:07.40 ID:AvBTKCCq.net] Range("シートB!E1").Select 173 名前：デフォルトの名無しさん [2023/10/05(木) 12:27:59.35 ID:9btcP5Iv.net] >>166 「選択したそのセルと隣のセルも消す、というマクロ」 をここに書いてもらえればアドバイスできる。 174 名前：デフォルトの名無しさん [2023/10/05(木) 20:37:12.52 ID:+NVPN5Yc.net] >>166です。 自己解決しました。 結局ここで質問している方法は分かりませんでしたが、 別の方法でなんとかできるようになったのでそちらを 採用します。皆さん有難うございました。 175 名前：デフォルトの名無しさん [2023/10/05(木) 20:37:35.99 ID:+NVPN5Yc.net] >>166です。 自己解決しました。 結局ここで質問している方法は分かりませんでしたが、 別の方法でなんとかできるようになったのでそちらを 採用します。皆さん有難うございました。 176 名前：デフォルトの名無しさん [2023/10/09(月) 18:37:12.70 ID:bDtEeCCl.net] test 177 名前：デフォルトの名無しさん [2023/10/09(月) 18:37:28.81 ID:bDtEeCCl.net] test 178 名前：デフォルトの名無しさん [2023/10/09(月) 18:43:55.87 ID:bDtEeCCl.net] MT4のDDEサーバー機能使ってエクセルにリアルタイムレート表示させてるんだが ここで質問よい？ 179 名前：デフォルトの名無しさん mailto:sage [2023/10/21(土) 00:44:14.90 ID:QYcnZo6w.net] VBAとVBSで同じ内容をPOSTして、 返ってきたreponsebodyも同じなのに、 操作出来るHtmlElementが違うってどういう事やねん!! 180 名前：デフォルトの名無しさん mailto:sage [2023/10/24(火) 23:47:02.19 ID:Qu5vmivm.net] forで配列testにシート名を格納し、Sheets(test).Selectでシートを複数選択したいですがエラー9になります Sheets(test(0)).Selectとするとエラーは出ないです Debug.Print test(0) Debug.Print test(1) と指定するとシート名が確認できますが Debug.Print Join(test) と指定すると空の値でした。test0とtest1の値が連携されて表示される想定でしたがなぜ空なんでしょうか 181 名前：デフォルトの名無しさん [2023/10/25(水) 01:50:17.21 ID:iLS1no5v.net] 配列testの初期化かforでシート名を取得している部分がおかしいんじゃない？そこのコードを書いてもらわないと。 182 名前：デフォルトの名無しさん mailto:sage [2023/10/25(水) 19:24:35.26 ID:8bx5SHat.net] >>178 そもそも >test0とtest1の値が連携されて表示される想定 が間違ってるんだが それができたとしても、Sheets().Selectで複数シートのセレクトはできないと思うが 183 名前：デフォルトの名無しさん mailto:sage [2023/10/25(水) 19:32:55.99 ID:8bx5SHat.net] >>178 試したけど、 Sheets()に文字列配列渡せば複数セレクトできるな 渡すのは連結された文字列とかじゃなくて、文字列の配列津 testを文字列配列で宣言すればいけるんっぽ 184 名前：デフォルトの名無しさん mailto:sage [2023/10/25(水) 20:15:45.40 ID://t71i0T.net] >>179-181 ご指摘いただいて確認し直したところRedimの指定が間違ってました ありがとうございました 185 名前：デフォルトの名無しさん [2023/10/31(火) 23:39:07.52 ID:0l/KyLnQ.net] バージョンはExceloffice2019です。 「Sheet1」で購入した野菜の一覧を作成します。 　A1:A100に野菜の種類．例：トマト、キュウリ、キャベツ… 　B1:B100に野菜の産地．例：千葉、埼玉‥‥ 　C1:C100に野菜の購入年月日．例：2023/10/31 　D1:D100に野菜の価格．例：1,000 「Sheet2」に 　A1:A5に野菜の種類　 　B1:B5に野菜の産地 　を記載したときに 　C1:C5に、「Sheet1」のAとBの条件に合う一番下の行の購入年月日を返す。 　かつ 　D1:D5に、「Sheet1」のAとBの条件に合う一番下の行の価格を返す。 　これをVBAで表現できますでしょうか。 　何卒、よろしくお願いいたします。 186 名前：デフォルトの名無しさん mailto:sage [2023/11/01(水) 02:50:19.57 ID:nS+y2GzJ.net] できます 187 名前：デフォルトの名無しさん [2023/11/01(水) 02:56:30.71 ID:LeiRH4ql.net] 表現 'できらぁ 188 名前：デフォルトの名無しさん [2023/11/01(水) 03:05:32.93 ID:5z6NYMjm.net] ぶいば 189 名前：デフォルトの名無しさん mailto:sage [2023/11/01(水) 03:12:36.26 ID:H7+Ix2LY.net] 仕様に応じて価格は変わります 価格に応じて仕様も変わります 色々突っ込みどころが多すぎる 190 名前：デフォルトの名無しさん mailto:sage [2023/11/01(水) 03:27:01.62 ID:Q2iQ3kej.net] バージョンすらまともに書けない馬鹿に何を期待するのか 191 名前：デフォルトの名無しさん mailto:sage [2023/11/08(水) 17:47:52.62 ID:TYSKNLfT.net] 初歩的な質問ですみません 例えばですがセルA2の型が標準だったとして、標準だった場合は色を付けたいです どうやってセルが標準かどうか判断すれば良いか教えて頂けませんでしょうか 192 名前：デフォルトの名無しさん mailto:sage [2023/11/08(水) 18:14:40.14 ID:TYSKNLfT.net] 186です 自己解決しました 193 名前：デフォルトの名無しさん mailto:sage [2023/11/08(水) 19:53:31.21 ID:7oppFyNo.net] >>190 どうやったの？ 194 名前：デフォルトの名無しさん mailto:sage [2023/11/10(金) 00:50:32.41 ID:VwCFMbHh.net] 俺も気になる。 NumberFormatLocalじゃない奇想天外な解決策だったらウケる。 195 名前：デフォルトの名無しさん [2023/11/21(火) 22:58:20.04 ID:AR1yXI4p.net] 　 If　(a = 1)　Then 　'{ 　　　b = 1 '; 　'} 　 Else 　'{ 　　　b = 2 '; 　'} 　 End If どう? 196 名前：デフォルトの名無しさん mailto:sage [2023/11/21(火) 23:58:40.18 ID:xeomrwBy.net] それVBAか？ 197 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 00:34:59.56 ID:byPvCzkk.net] バレバレだと思ったらバレてなくてワロタ 198 名前：デフォルトの名無しさん mailto:sage [2023/11/26(日) 13:42:56.19 ID:8a4yzyW0.net] >>193 どうでもいい 199 名前：デフォルトの名無しさん mailto:sage [2023/11/26(日) 20:04:28.62 ID:bZOTy+QC.net] VBEで-キーを押すとExcelが落ちる 何で? 200 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 19:55:15.09 ID:IFAh3DJf.net] 床に置いたら落ちないんじゃね 201 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 20:06:45.93 ID:y0lY01bz.net] 俺もそう思う 202 名前：デフォルトの名無しさん [2023/11/27(月) 20:19:28.03 ID:wYp6UIkr.net] なにごとも 低い位置においておけば落ちることはない 203 名前：デフォルトの名無しさん mailto:sage [2023/11/29(水) 05:31:22.23 ID:0nQJ/yPv.net] Uiautomationでアプリに表示されてる文字を3万行くらい読み取ったら落ちた エクセルじゃなくてアプリの方が どういう理屈? 204 名前：デフォルトの名無しさん mailto:sage [2023/11/29(水) 09:05:11.59 ID:F9HVG0++.net] イベントビューアーで何が起きたかぐらいは確かめなさい 再現性 205 名前：あるならタスクマネージャーのパフォーマンスでメモリなのかCPUなのか とかも　アプリの表示文字3万行だけで、アバウト過ぎる [] [ここ壊れてます] 206 名前：デフォルトの名無しさん [2023/11/29(水) 10:10:43.50 ID:sD7VzCeS.net] 昔はintの最大が32767 だからそれ越える数を扱うと落ちるソフトがよくあったな 207 名前：デフォルトの名無しさん mailto:sage [2023/11/30(木) 09:29:06.87 ID:vgaDfHiB.net] 変数の値がマイナスとか変な数字になるだけじゃないの？ その程度のことで落ちるの？ 208 名前：デフォルトの名無しさん [2023/11/30(木) 10:14:04.34 ID:uCTIv0ls.net] マイナスの場所がアクセスできなかったり 永遠にloopの終了条件に達しないとか 結果が大きくなりすぎてメモリ不足とかなる 209 名前：デフォルトの名無しさん [2023/11/30(木) 12:17:27.34 ID:3oFcABR+.net] 古いexcelも最下行が少なかった 210 名前：デフォルトの名無しさん mailto:sage [2023/12/01(金) 02:42:24.09 ID:xLT/7JKF.net] このスレも落ちる 211 名前：デフォルトの名無しさん mailto:sage [2023/12/01(金) 16:31:31.03 ID:7wVpTT+J.net] 落ちないで 212 名前：デフォルトの名無しさん [2023/12/01(金) 17:06:11.81 ID:fwRU51B8.net] ハゲないで 213 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 09:27:15.99 ID:gVhM2KTB.net] 戦えよ 214 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 09:57:19.84 ID:vycJbAdX.net] Excel VBAって長時間経過すると一定間隔で一時的にCPU割り当てが止まったりする仕様ですか？ プログレスバーもどきやマクロ経過時間を10秒毎に表示させているんですが、毎回2万件を超えたあたりから一時的に処理が停止しているみたいなんですが。 215 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 09:58:41.46 ID:vycJbAdX.net] 訂正。10秒毎にではなく10件処理する毎にです。 216 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 10:01:01.61 ID:OwcK4uEB.net] セルコピーの繰返しで条件付書式設定が多大になってるとか 217 名前：デフォルトの名無しさん [2023/12/02(土) 10:11:47.98 ID:0tC7Yjqi.net] excelで一万件以上のデータを扱わないで下さい 218 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 10:11:58.70 ID:vycJbAdX.net] 変数の価をセルへ記入する処理は繰り返し行っていますが条件付書式は設定していないしセルからセルへのコピー処理はしていません。 処理開始から20000件あたりまではスルスルと進んで行って20000件を超えたあたりから休み休みになるのが謎です。 ソース的には同じことを繰り返しているだけなんですけどね。 セルへ記入されていく行数は増えていくのでそのあたりが原因なんでしょうか。 219 名前：デフォルトの名無しさん [2023/12/02(土) 10:29:12.94 ID:gVhM2KTB.net] pcの性能じゃね 毎回起きるなら条件を変えてテストし発生条件をはっきりさせる 220 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 10:55:39.59 ID:5w2fWXOw.net] 計算式が2万行あるとか 221 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 10:58:44.05 ID:5w2fWXOw.net] 実行前に以下弄って画面更新を抑制してる？ Application.ScreenUpdating Application.Calculation 222 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 11:01:53.10 ID:vycJbAdX.net] いえ、単なる文字列を上から下に向かってひたすら記入していくだけです。 記入する文字列を決めるためにVlookup関数の結果をフィルターして抽出された1行を文字列としてセルに記入してますが、Vlookup関数の数は固定で増えるわけでは無いのでCPU負荷も一定なんじゃないかと思います。 223 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 11:02:50.91 ID:vycJbAdX.net] >>218 Vlookup関数の結果を利用するのでそれはできないです。 224 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 11:03:58.36 ID:vycJbAdX.net] あ、すみません Application.ScreenUpdating は抑止したり解除したりを繰り返してました。 225 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 12:25:52.64 ID:dC73Xol+.net] 原因追及したいのなら 出力データを増やさずに同じ行に書き出すとか 226 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 13:23:33.03 ID:gVhM2KTB.net] そのうち前の担当が作ったとか言い出すんじゃね 227 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 17:03:47.70 ID:H7HADDQf.net] Windowsの仕様として、重たい処理をさせてるときは中の人が勝手に一休みするようにできている アプデがいくつもある時など、進捗の％が進んだり止まったりなのを目にしたこともあるだろう エロ動画を何本もDLしてる時に同サイズなのにすぐ落ちるのといつまでも落ちないのがあるように 基本的にExcelは同じディレクトリにテンポラリーファイルを自動的に作る（Excelに限らないが そのファイルと相互に連携して「戻る」だの「処理を取り消す」だの「保存しない」だのを可能にしている システムファイルなので敢えて表示する指定をしないと通常は目に見えない 処理は目の前のファイルだけで無くそのシステムファイルにも反映されている いっぺんに大量の仕事をさせると「さすがに休ませろよ」と両方のファイルがブー垂れる←チンタラし出す for−nextとかLoopの中にDoEventを盛り込むと、多少は改善されるかも知れないしされないかも知れない https://www.tipsfound.com/vba/05doevents-vba https://qiita.com/nekohei/items/3fb066e267866bcae96c 正直なハナシ、おれには何が何だかさっぱり理解できないが呪文みたいなものなんだろう（違う 228 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 17:12:50.25 ID:hwp9WWnB.net] デフォルト10分に一回の自動回復用データの保存か 229 名前：デフォルトの名無しさん [2023/12/02(土) 19:21:37.99 ID:FUL/sgR0.net] >>224 馬鹿の妄想 230 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 19:43:05.04 ID:UnnytQXE.net] >>224 バカの長文ってホント的を得てるな 応答なしってのは文字通りマウス操作やキー操作に応答がない状態で、 なぜそれが起きるかは操作に応答する余裕もないくらい全集中して処理してるから リンク先に書いてあるのは定期的にマウスだのキーボードだの気にしろよって指示 ID:vycJbAdXが書いてることとは根本的に違う事象 231 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 21:20:16.63 ID:gVhM2KTB.net] 内容を理解しないで ○○すると速くなるとか、エラーを出なくするとかを検索で見つけたのを 鵜呑みにして呪文のように至る所に無意味なコードを貼るタイプかな 232 名前：デフォルトの名無しさん mailto:sage [2023/12/02(土) 22:41:07.55 ID:H7HADDQf.net] 「詳細設定」−「ハードウェア グラフィック アクセラレータを無効にする」にチェックしOK 使っていないアドインがあったらチェックを外す 可能性が高いのが、GPUがレッドゾーン　タスクマネージャーのパフォーマンスでCPU・メモリ・ディスク 辺りはまったりと余裕ぶっこいてるのに、GPUがパンパン状態　これは増設できないマシンなら どうしようもない　一行目の処理の前後でこれを比較してみて変わったら原因はそこ 　フリーズする訳でも無くちゃんと完走するなら「こういうもんだ」で済ますのも大人の対応 高性能ギンギン！のマシンとCeleronマシンでも現象一緒とかなら尚更コチラ側では対処のしようも無い 233 名前：デフォルトの名無しさん [2023/12/03(日) 01:31:41.80 ID:MKV2NgOh.net] >Windowsの仕様として、重たい処理をさせてるときは中の人が勝手に一休みするようにできている そもそもこれが嘘 そんな仕様ねーよ 234 名前：デフォルトの名無しさん [2023/12/03(日) 06:53:42.28 ID:xZHPSaOR.net] >>203 そもそもintって何？ データ型は正確に書かないと 235 名前：デフォルトの名無しさん [2023/12/03(日) 06:55:03.43 ID:xZHPSaOR.net] >>230 アイドリング中はデータの先読みをしているから、彼は勘違いして反対のことを言ってしまっているんだろうな。 236 名前：デフォルトの名無しさん mailto:sage [2023/12/03(日) 09:55:11.40 ID:5HcnYZkn.net] 重たい処理で休むってCPU温度が上がったせいで速度落とすあれのことかと 237 名前：デフォルトの名無しさん mailto:sage [2023/12/03(日) 11:08:35.63 ID:QTewqrs7.net] >>224 これはひどい 238 名前：デフォルトの名無しさん mailto:sage [2023/12/03(日) 11:10:09.56 ID:QTewqrs7.net] >>228 script kiddie 239 名前：デフォルトの名無しさん [2023/12/04(月) 15:12:23.07 ID:Nbpgvbo/.net] for each で処理するときにI列は処理を飛ばしたかったので for each rng in range if rng.column = 9 then goto skip 処理内容 という風にしたところすべての処理がスキップされてしまったので 以下のようにしたらうまくいきました。解決したんでよかったんですが どういった理由で結果が違うのでしょうか？ if rng.column <> 9 then 処理内容 240 名前：デフォルトの名無しさん [2023/12/04(月) 15:18:26.28 ID:+hRuE00u.net] skip,endif,next の位置関係を省略すんな 241 名前：デフォルトの名無しさん mailto:sage [2023/12/04(月) 16:25:34.26 ID:xc8M7hCZ.net] まーたどっかから質問パクって来た？ https://oshiete.goo.ne.jp/qa/12821811.html 若干改変してるか　RangeとCellsについて、小一時間問い詰められてみるのもいいかも https://sugoikaizen.com/excelvba/2_80/ ここでこうだよって書かれても身に付かないだろうし（おれもだし 242 名前：デフォルトの名無しさん [2023/12/04(月) 16:43:57.28 ID:Nbpgvbo/.net] 質問パクったわけではないですが確かに似てますね 省略しないと以下になります 処理の内容は同じです ■うまくいく方 For Each rng In Range(Cells(3, 7), Cells(m, n)) If rng.Column <> 9 Then If rng.Value = "-" Then dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value j = j + 1 End If End If ----------------------------------------------------------------- ■すべてスキップされてしまう方 For Each rng In Range(Cells(3, 7), Cells(m, n)) If rng.Column = 9 Then GoTo skipCol If rng.Value = "-" Then dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value j = j + 1 End If skipCol: End If 243 名前：デフォルトの名無しさん [2023/12/04(月) 16:46:57.68 ID:Nbpgvbo/.net] すみません最後両方とも「Next」付け忘れました 244 名前：デフォルトの名無しさん [2023/12/04(月) 17:25:36.52 ID:IJgpRS5M.net] >>239 馬鹿はGotoを使う法則 こんなこと瞬時にわからん頭ならやめとけ 245 名前：デフォルトの名無しさん mailto:sage [2023/12/04(月) 20:44:12.36 ID:iY+/6ufA.net] >>239 落ち着いてよく考えてみ 246 名前：デフォルトの名無しさん [2023/12/04(月) 21:18:11.46 ID:1Ww5lLLM.net] ネタだろうな 247 名前：デフォルトの名無しさん mailto:sage [2023/12/05(火) 01:23:49.48 ID:9BlMohwu.net] よく知らないけど、この= は代入演算子か j = j + 1 この= は比較演算子か If rng.Column = 9 Then こんな= を、2つの意味で使う言語ってあるの？ Ruby では、= は代入演算子で、== は比較演算子だけど 248 名前：デフォルトの名無しさん [2023/12/05(火) 01:30:03.25 ID:+1t+2z4I.net] Rubyの話にしたい例のキチガイ 249 名前：デフォルトの名無しさん mailto:sage [2023/12/05(火) 06:54:56.45 ID:i0GvpvVS.net] >>244 馬鹿にはわからんよ ドンマイ 250 名前：デフォルトの名無しさん mailto:sage [2023/12/05(火) 10:53:58.86 ID:3p/65ALc.net] 客観的にこの人はVBAができる人だと思ってもらうのに、VBAエキスパートのスタンダードを取るのは効果あり？ 受験料高い上に対して難しくもない資格なんだけど、知らん人から見れば勘違いしてくれるかねぇ 251 名前：デフォルトの名無しさん [2023/12/05(火) 11:03:15.47 ID:3GhQ7B+D.net] あんなハリボテみたいな資格で勘違いしてくれるような会社に入りたいのか？ 252 名前：デフォルトの名無しさん mailto:sage [2023/12/05(火) 11:03:58.32 ID:0D+v86FO.net] 名刺に書くには恥ずかしくない？ 253 名前：デフォルトの名無しさん mailto:sage [2023/12/05(火) 11:21:20.84 ID:3p/65ALc.net] >>248 ある大手の非IT子会社の求人にVBAやデータベース、PowerAutomateができれば尚可 みたいなことが書いてあるんよ まぁVBA自体は広く知られてるから他企業でも資格持ってれば多少有利になるかどうなのかと思ってね。 >>249 名刺に書くなら恥ずかしいわな 254 名前：デフォルトの名無しさん [2023/12/05(火) 20:07:16.92 ID:R0TA+AvY.net] >>239 自分でステップ実行してどのように処理されているか確認してみては。本当に分からないならif文の仕組みを勉強するところから始める必要があるかと。 255 名前：デフォルトの名無しさん mailto:sage [2023/12/06(水) 23:52:59.21 ID:Y0R/nynM.net] >>239って ここに張り付けたからインデント消えているのか？ 実際のコードもインデントなしで書いてそうだな 256 名前：デフォルトの名無しさん mailto:sage [2023/12/07(木) 01:27:12.14 ID:J0zHJsHa.net] >>252 ちゃんとインデントついてるぞ 257 名前：デフォルトの名無しさん mailto:sage [2023/12/10(日) 09:52:24.49 ID:b059r/QR.net] フィルターの設定について質問させてください。各年の1月のデータを取得したいのですがうまくいきません。 手動だと、［日付フィルタ］から［期間内の全日付で1月を選んでできます。同じようにしたいのですがどうすればよいでしょうか？ ws.Rows("1:1").AutoFilter ' C列日付のフィルター条件を設定 Dim oldestYear As Integer oldestYear = 2021 ' 最も古い年を指定 ' 1月のデータを含むフィルター条件を設定 Dim filterCriteria As String filterCriteria = ">=01/01/" & oldestYear & " AND <02/01/" & (oldestYear + 1) ' C列で条件に基づいてフィルタリング ws.Columns("C:C").AutoFilter Field:=3, Criteria1:=filterCriteria 258 名前：デフォルトの名無しさん mailto:sage [2023/12/10(日) 11:43:28.11 ID:/HCFQ2uK.net] 手動でうまくいくなら マクロの記録→手動操作→記録終了 とすればマクロできてないか 259 名前：デフォルトの名無しさん mailto:sage [2023/12/10(日) 22:40:23.08 ID:sT365tcs.net] Stringなの？日付は 260 名前：デフォルトの名無しさん mailto:sage [2023/12/11(月) 20:35:30.67 ID:bj1MKtN8.net] Integerじゃね？(適当 261 名前：デフォルトの名無しさん mailto:sage [2023/12/11(月) 20:37:58.60 ID:dC/0oU5n.net] 以外にもDecimal 262 名前：デフォルトの名無しさん mailto:sage [2023/12/11(月) 23:17:25.43 ID:D21ZDkpy.net] 意外？ 263 名前：デフォルトの名無しさん [2023/12/12(火) 07:24:28.25 ID:oC/8xaVQ.net] >>254 そのフィルター条件の書き方はどこかで紹介されてたもの？ Criteria1に複数条件を入れず､分ける必要があるみたい ws.Columns("C:C").AutoFilter Field:=3, Criteria1:=">=01/01/" & oldestYear, Operator:=xlAnd, Criteria2:="<02/01/" & (oldestYear + 1) 264 名前：デフォルトの名無しさん [2023/12/12(火) 11:29:55.50 ID:TixshqYj.net] ユーザーフォームをワークブックから指定するにはどのようにすればいいですか？ セルだとこんな書き方をしてます Workbooks(”book1”).Worksheets("Sheet1").Cells(1,1) そこで Workbooks(”book1”).UserForm1.Label1 のように書いたらエラーです 検索しても、ブックを指定せず単にUserForm1とだけ書いている事例しか見当たりませんでした 265 名前：デフォルトの名無しさん [2023/12/12(火) 18:44:33.33 ID:isBhbmiY.net] 「やまぶきいろ」って ヤマブ黄色かと思ってたら 山吹色だったんですね。 まあそれだと「ヤマブ」というのが意味不明なんだけど。 266 名前：デフォルトの名無しさん mailto:sage [2023/12/12(火) 18:47:07.92 ID:EvQ2Bvwd.net] お馬鹿自慢要らない

---

---

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

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