Excel VBA 質問スレ Part65

1 名前：デフォルトの名無しさん mailto:sage [2020/03/17(火) 16:27:20.88 ID:hh8LiIgR0.net] ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part64 https://mevius.5ch.net/test/read.cgi/tech/1575297834/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 101 名前：デフォルトの名無しさん mailto:sage [2020/03/28(土) 19:20:50.03 ID:rI/k2Pjrd.net] >>100 名前を付けるのは、コードと関係無い所で実装されるので個人的には絶対使わない。 というか、Cellsを使うよ。 2次元配列的にもぴったり来るし。 寧ろ、Rangeの方が使わない。 尤も、Cellsでも列を文字で指定するのはやらない。 AF列が何列目か分からないって? イミディエイトで?Range("AF1").Columnとでも入れてみろ。 102 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp79-CIkl) mailto:sage [2020/03/28(土) 20:14:42 ID:ihCuPYYIp.net] >>101 で、コメントで何列かとか、項目名とか書くわけ？ 103 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a9ad-yXVd) mailto:sage [2020/03/28(土) 20:37:45 ID:YbqXlWqq0.net] >>96 >>101 名前を付ける派 可読性が高い方が良い VBAは見にくいコードが多い 104 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b140-yKOS) mailto:sage [2020/03/28(土) 23:45:34 ID:m/WQBFmt0.net] >>101 名前定義が弄られるってことはロックしないで使うんでしょ 猶更、セル挿入なりで意図した場所とズレてても気づかずに成功し続ける方が危険だと思うんだが で、セルを挿入したい時も一個一個数値をずらしていくの？ ワークシートの見た目が二次元配列である事とコード内容を一致させる必要性も感じないんだが、 もしかしてハードコーディングしてるのか？ イミディエイトウインドウで毎回インデックスを調べろっていうは面白すぎるから止めて欲しい 105 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 091f-hvDm) mailto:sage [2020/03/29(日) 00:11:14 ID:JMfmjWXB0.net] Shapeの当たり判定の計算方法を教えて下さい。 基準の円のShapeにTextBoxが当ってたらTrue、当たって無ければFalse 円は選択時の□の面積じゃなく実際の円の大きさ。TextBoxは選択時の□の大きさ。 106 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 79ac-iBrl) mailto:sage [2020/03/29(日) 00:41:59 ID:Q4J2OaKi0.net] なぜそんなことを 107 名前：デフォルトの名無しさん mailto:sage [2020/03/29(日) 01:29:27.30 ID:Iv7ta0000.net] >>105 表示位置とサイズから比較したらいいんじゃね 108 名前：デフォルトの名無しさん mailto:sage [2020/03/29(日) 01:42:07.54 ID:hSuS8nXs0.net] 当たり判定だからゲームじゃないの? Corei世代でも60fpsでないから使いたくないけど。 109 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0dce-Cd0d) mailto:sage [2020/03/29(日) 08:29:34 ID:sBDU9ajX0.net] >>105 専用の関数などは用意されてないので、TextBoxの頂点と円の座標を比較したり、円の中心からの距離を三角関数で計算して調べるしかない 110 名前：デフォルトの名無しさん mailto:sage [2020/03/29(日) 09:06:15.85 ID:hrvcX8VW0.net] VBAであえてゲーム作ったりするのは 芸ではあるけど開発効率的に筋は悪いよね グラフィックにこだわるなら別言語推奨 111 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4191-tYYp) mailto:sage [2020/03/29(日) 19:07:35 ID:+LkL5rVp0.net] >>102 普通は定数で行、列を宣言するわな。 >>103 見にくいコードは書いてる奴の力量次第だろ。 >>104 ロックはしない。 そんなもんは解除されるかもしれんし、当てにしない。 というか、作ってるもの次第だね。 ワークシートの見た目と二次元配列を一致させるとか笑わせるなあ。 少し慣れた奴なら列も数値で扱うのがぴったり来るんだよ。 何故なら、最初から二次元配列的に考えるから。 VBE上に自作のメニュ―作って、入力するだけで列名←→列数はわかるげとな。 作る力量無い奴はイミディエイトで調べりゃ良いだろ。 VBEのCommandBerでイベント扱うのはクラスが必要だし、上級者の領分にはなるかもな。 VBE弄るVBAは会社じゃ使わないから通常のCommandBarでメニュー作ってやっても良いんじゃね? どっちにしても時間は考えることに使ってるんで、毎回イミディエイトで調べても大した話じゃね―んだわ。 112 名前：デフォルトの名無しさん mailto:sage [2020/03/29(日) 19:28:33.88 ID:Gw3heoMsM.net] >>63 今の若いヤツらはそういう説明じゃ200％挫折する。普段の業務を自動化っていう感覚がわからないそう。やっぱスマホタブレット世代はPC=ワープロにしか思えんのかもな。 113 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdb2-Ik0M) mailto:sage [2020/03/29(日) 20:04:11 ID:83saJEjVd.net] 若いほうがわかりそうなイメージあるが 114 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdb2-Ik0M) mailto:sage [2020/03/29(日) 20:07:10 ID:83saJEjVd.net] >>111 ロック外されたくないならパスワード付ければいいじゃん 115 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4191-tYYp) mailto:sage [2020/03/29(日) 20:28:31 ID:+LkL5rVp0.net] >>114 パスワードwww 116 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9201-aXsr) mailto:sage [2020/03/29(日) 20:55:58 ID:wDs4yIM00.net] >>111 > VBE上に自作のメニュ―作って、入力するだけで列名←→列数はわかるげとな。 まさか自慢じゃないよね？w 傍から見てたら馬鹿なことしてるなとしか思えんし 117 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 12ad-At9V) mailto:sage [2020/03/29(日) 22:56:25 ID:WhhHvRXO0.net] 共有編集可能にしたら更新は5分間隔だけどVBAとかで1分以内にできないかな？複数のパソコンで映してる同じエクセルファイルの内容を別のパソコンから共有編集で編集して保存したら1分以内に複数のパソコンにも表示を反映させたい。 118 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sada-pf+t) mailto:sage [2020/03/30(月) 01:33:21 ID:hihORIFda.net] あ、どうせ、コピーしても意味ねぇよ。記憶してるのＰＣじゃねぇから。 119 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sada-pf+t) mailto:sage [2020/03/30(月) 01:33:39 ID:hihORIFda.net] 考えまとめるためにＰＣ使ってるだけ、ただそれだけなんだよ。 120 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4191-tYYp) mailto:sage [2020/03/30(月) 09:44:28 ID:c+7OLkMF0.net] >>116 君にできないからと言って、そんなもんが自慢になると思うかね? 121 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr79-7qnn) mailto:sage [2020/03/30(月) 10:45:50 ID:44eTx7Dtr.net] >>96 それでも同じエラーが出ます… 122 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 10:57:15.53 ID:XiEELtFfM.net] >>120 日本語の理解力がないのかな？ 自慢にもならないことをいちいち書くとかバカじゃね？ って言う事な 123 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f6f7-DNZ3) mailto:sage [2020/03/30(月) 12:35:49 ID:rHF2nN3k0.net] >>121 wS1.Cells(c.Row, "Z").value < 0 そもそもこれ必要？ 124 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 13:30:25.60 ID:8cfGBpvw0.net] いや、いらないのはそっちじゃなくて、ElseIf〜 のIf〜Then If Not c Is Nothing Then If wS1.Cells(c.Row,"Z").value<0 Then .Cells(i, "V") = wS1.Cells(c.Row, "Q") Else .Cells(i, "X") = wS1.Cells(c.Row, "Q") Endif Endif でいいはず エラーが出たのが実は一つ上の行で、i に代入してなかったってオチじゃないよね 125 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdb2-tYYp) mailto:sage [2020/03/30(月) 15:51:59 ID:pRaklD1Wd.net] >>122 悔しいからって一々反応しなくて良いんだぞwww 126 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM9a-aXsr) mailto:sage [2020/03/30(月) 15:58:49 ID:5QM7gMbqM.net] >>125 ブーメラン乙w 127 名前：デフォルトの名無しさん (ｽﾌｯ Sdb2-Cd0d) mailto:sage [2020/03/30(月) 16:25:47 ID:Ds9EzL2Md.net] 反応したら負けだと(みんな)思ってる 128 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 17:08:01.39 ID:nRSFIrFT0.net] どこで受けたストレスをここで発散してるんだろう・・・ 129 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM71-aXsr) mailto:sage [2020/03/30(月) 19:49:19 ID:JBOku6fCM.net] >>127 >>125に言ってやれよw 130 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:13:35.71 ID:4l2N9sosM.net] ここの人等は本当にきついね 一部だけかもしれんけど 他スレ建ててもどうせそこにやってくるし困ったもんだ 131 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:19:47.92 ID:jrEvufLB0.net] いいから質問しろよ 俺が優越感感じられるように割と簡単なやつな 132 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:23:47.47 ID:z27088IIa.net] ワロタw ワイもドヤ顔で回答したい 133 名前：デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:33:15.75 ID:mnH7Xf0t0.net] 禿げのくせに 134 名前：デフォルトの名無しさん [2020/03/31(火) 00:31:58.74 ID:O8i/VRws0.net] >>133 このハゲ！ 135 名前：デフォルトの名無しさん mailto:sage [2020/03/31(火) 00:37:41.25 ID:fAiG3E7e0.net] 天才な人、教えて下さい。 フォルダAの中にフォルダa1があってこの中にxxx.zipがあるとします。 このxxx.zipを直接クリックしたりしないで解凍するプログラムを書くのはVBAで可能でしょうか？ 136 名前：デフォルトの名無しさん mailto:sage [2020/03/31(火) 00:57:46.12 ID:x9NcPTe/0.net] たまたま知ってたけど天才じゃないから教えられない 残念です 無念です 137 名前：デフォルトの名無しさん mailto:sage [2020/03/31(火) 01:02:53.10 ID:x9NcPTe/0.net] 俺も天才じゃないんだわ いるんか？このスレに、天才が 138 名前：デフォルトの名無しさん [2020/03/31(火) 02:01:24.29 ID:PSx1iNyN0.net] >>135 馬鹿は死ね 139 名前：デフォルトの名無しさん mailto:sage [2020/03/31(火) 02:22:12.33 ID:CMEsfttX0.net] >>135 「powershell zip 解凍」で検索！ 140 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8101-tylh) mailto:sage [2020/03/31(火) 03:29:43 ID:fAiG3E7e0.net] >>139 どうもありがとう！ 141 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 12ad-7qnn) mailto:sage [2020/03/31(火) 03:37:14 ID:sCGR7IuL0.net] >>117って難しい？ 142 名前：デフォルトの名無しさん [2020/03/31(火) 05:23:52.03 ID:kiJT2Kt60.net] zipをxlsxにすれば、VBAを使わなくても開くだけで解凍できる。どこに解凍されるかは知らんが。 143 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdb2-tYYp) mailto:sage [2020/03/31(火) 08:15:19 ID:AMZVbv8Gd.net] >>126 zip解凍ぐらい大して難しく無いんだから答えてあげたら? 144 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM1d-aXsr) mailto:sage [2020/03/31(火) 08:25:37 ID:FZ3Oti5EM.net] >>143 既に>>139で答えられてるだろ スレの流れも追えないのか？w 145 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdb2-tYYp) mailto:sage [2020/03/31(火) 08:42:47 ID:AMZVbv8Gd.net] >>141 VBA 共有編集でググレば参考になる所が出てくる。 146 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdb2-tYYp) mailto:sage [2020/03/31(火) 08:43:03 ID:AMZVbv8Gd.net] >>144 バーカwww 147 名前：デフォルトの名無しさん mailto:sage [2020/03/31(火) 09:32:50.09 ID:WgVk0vye0.net] うゎ、真性かよw 148 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b18f-+ryc) mailto:sage [2020/03/31(火) 13:30:22 ID:UcE7ogps0.net] そういやxlsxがそもそもzipファイルなんだよな 149 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d9e5-n60N) mailto:sage [2020/03/31(火) 22:47:10 ID:Rc1BoApG0.net] そーなのか 道理で大昔作ったフォーマットを作り直してみたら容量が半分程度だったんだ 効率的なコード書けるようになった俺スゲーって訳じゃなく、エクセルさんが凄かったのね 150 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9bf7-14eV) mailto:sage [2020/04/01(水) 01:30:54 ID:IClGbcwW0.net] 拡張子zipにして展開すると画像ファイル取り出せるしな 151 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sae9-f+0C) mailto:sage [2020/04/01(水) 02:22:12 ID:06G29rGEa.net] 今さら次郎 152 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 155f-P5Sm) mailto:sage [2020/04/01(水) 03:04:48 ID:Ex6pONtn0.net] これから三郎 153 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e5ad-KN+/) mailto:sage [2020/04/01(水) 03:32:39 ID:8LLFjcSO0.net] 終わりに四郎 154 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM79-bVUD) mailto:sage [2020/04/01(水) 04:33:51 ID:h6/hOHkqM.net] アッと驚くタメ五郎 155 名前：デフォルトの名無しさん mailto:sage [2020/04/01(水) 12:55:56.84 ID:2mAYLJyeM.net] >>151 好きだよ六郎 156 名前：デフォルトの名無しさん mailto:sage [2020/04/01(水) 18:21:42.63 ID:UG3CS4Iqd.net] ネットでこんな素晴らしい物を見つけたんだけれども、これがデータ量が多いと結構時間掛かるんだけど、高速で図形として書き出す方法って他にありませんか？ izawa-web.com/excel 157 名前：bcad/dxfreader.html [] [ここ壊れてます] 158 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5dce-bVUD) mailto:sage [2020/04/01(水) 22:01:42 ID:4Q64PMPZ0.net] >>156 CADアプリで画像にでも変換してシートに貼り付けた方が早くて綺麗 オートシェイプに変換すると重くなるし比率が狂うし、メリットがなさすぎる 159 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 251f-yCYu) mailto:sage [2020/04/01(水) 22:28:36 ID:kG9c2P/10.net] >>157 貼って終わりならそれでもいいんですが、数あるCADデータの中から指定のデータを呼び出してエクセルに貼り付けて線の色とか文字を取得したいんですよね。 160 名前：デフォルトの名無しさん mailto:sage [2020/04/01(水) 22:54:48.05 ID:cJ4COAhO0.net] >>145 更新時間を短くする方法は載ってなかった 161 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23b5-Lkgv) mailto:sage [2020/04/02(Thu) 00:31:10 ID:hOxCGNmI0.net] あるマクロを開いた瞬間に自作したユーザーフォームが出るようにする それと同時にエクセルファイルを選択できる　ファイルを開くウィンドウが出るようにする ド基礎以前だと思うのですがおしえていただきたく、、 162 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2ba7-9mb0) mailto:sage [2020/04/02(Thu) 00:42:40 ID:quV7czYu0.net] ググれば全部出るのに何故ここできく 163 名前：デフォルトの名無しさん mailto:sage [2020/04/02(木) 02:21:22.11 ID:9ZVXgmel0.net] >>160 Workbook_Open() UserForm1.Show Application.GetOpenFilename 164 名前：デフォルトの名無しさん mailto:sage [2020/04/02(木) 07:03:17.01 ID:qQpWBHI+0.net] ド基礎以前発言がひっかかるな．．． あるマクロが他人の作った編集できないマクロなら難しいね パスワードクラックはNGで 165 名前：デフォルトの名無しさん mailto:sage [2020/04/02(木) 08:01:03.55 ID:qvprCKttr.net] 少しくらいの調べる能力も持たないお子ちゃまが多い 166 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1dda-bVUD) mailto:sage [2020/04/02(Thu) 10:29:10 ID:2gPurUpa0.net] ド基礎以前のこともわからないやつに教えても理解できんだろう 167 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23b5-Lkgv) mailto:sage [2020/04/02(Thu) 18:43:17 ID:hOxCGNmI0.net] >>162 ありがとう、ネットで捜してコピペしながら頑張ってくわ 起動すると作ったユーザーフォームが開きつつ ファイルからエクセルを選べるウィンドウを出す ↓ 開いたエクセルにはBとCの2列目からずらーっと数字が並んでるからそれをあらかじめ自分のカスタマイズした散布図にする (2列目から始まるが終わりはデータによって違う) ↓ ボタンによって2つの散布図に分けられる がんばりやす 168 名前：デフォルトの名無しさん mailto:sage [2020/04/02(木) 19:19:56.56 ID:K5yIowQc0.net] >>164 人に教えることで自分も成長する。 169 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sae9-f+0C) mailto:sage [2020/04/03(金) 02:02:50 ID:Vs5HZC6Ua.net] 成長してないやん 170 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd43-bjOE) mailto:sage [2020/04/03(金) 12:51:38 ID:EwhXV+Zid.net] >>162 そりゃ駄目だ。 モーダルとモードレスを調べよう。 モーダルでやりたかったらフォームのInitializeかActivateイベントだな。 171 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd43-bjOE) mailto:sage [2020/04/03(金) 12:54:37 ID:EwhXV+Zid.net] >>159 AutoUpdateFrequencyプロパティじゃね？ ググっただけだけど。 172 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e5ad-KN+/) mailto:sage [2020/04/03(金) 13:10:39 ID:tVlvtk9J0.net] >>167 それはあるな 173 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4bcc-bVUD) mailto:sage [2020/04/03(金) 13:51:03 ID:S5/JCD2f0.net] >>170 それ、イミディエイトペインで試したけど、5未満はNGだよ >>145の共有編集って、Excel2016で実装した、OneDriveとか使ってクラウドでやるやつだと思ったんだけど、違うのかな ×共有編集　○共同編集　らしいけど 174 名前：デフォルトの名無しさん mailto:sage [2020/04/04(土) 10:09:51.56 ID:3Ir6pkSX0.net] モーダルあなた疲れているのよ 175 名前：デフォルトの名無しさん mailto:sage [2020/04/04(土) 10:15:36.71 ID:nxBKOFy80.net] 自動更新の間隔を短くするのが無理なら手動でできないのかな？ 強制的に切断と接続を繰り返してみたらどうだろう 176 名前：デフォルトの名無しさん mailto:sage [2020/04/04(土) 13:14:06.10 ID:MDQA80eK0.net] >>173 やっぱり、逆だよね 177 名前：デフォルトの名無しさん mailto:sage [2020/04/04(土) 18:10:09.51 ID:x7mbZh3f0.net] >>172 ローカルのつもりだったんだけどそれなら共同編集になるのかな？ 178 名前：デフォルトの名無しさん mailto:sage [2020/04/05(日) 01:47:50.77 ID:LE/VkChT0.net] セルA1とB1の数値が一致しない場合はC1を塗りつぶす、というのはできるのでしょうか？ 179 名前：デフォルトの名無しさん mailto:sage [2020/04/05(日) 01:56:11.77 ID:RR8jfU5J0.net] >>177 If A1 <> B1 Then [C1].Interior.Color = RGB(1, 234, 56) 180 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp01-xTSh) mailto:sage [2020/04/05(日) 07:39:22 ID:BAT1a6hLp.net] >>178 ありがとうございます！ 181 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1b06-bVUD) mailto:sage [2020/04/05(日) 11:37:21 ID:FbjC6ZOO0.net] A行の値を見て、その値が1だったら、空白行を上に2つ入れたいのですが、できますか。 182 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1b06-bVUD) mailto:sage [2020/04/05(日) 11:44:06 ID:FbjC6ZOO0.net] 間違えた。 A列の値を見て、その値が1だったら、空白行を上に2つ入れたいのですが、できますか。 183 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8d7c-5QI3) mailto:sage [2020/04/05(日) 11:59:20 ID:Kx41qnng0.net] できます 184 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5dce-bVUD) mailto:sage [2020/04/05(日) 12:00:45 ID:RR8jfU5J0.net] >>180 Sub Macro1() 　　For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 　　　　If Cells(r, 1) = 1 Then Rows(r).Resize(2).Insert 　　Next End Sub 185 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1b06-bVUD) mailto:sage [2020/04/05(日) 12:32:03 ID:FbjC6ZOO0.net] >>183 ありがとうございます！できました。 186 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 45ac-tCKN) mailto:sage [2020/04/06(月) 00:22:26 ID:8R1em71p0.net] ほんまこの程度自分で考えないのかなあ 187 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23ad-KBPB) mailto:sage [2020/04/06(月) 01:48:40 ID:SI8CeRSt0.net] 子が吐き出したcsvデータ(子の状況により1ファイル数行〜数百行程度のデータ00000000.csv〜FFFFFFFF.csv)を親で吸い上げて管理用に整理するマクロを作成しているのですが子のデータ数が多くなったせいか親の処理を実行中にExcelが落ちるようになりました。 現状では Workbook.Open 00000001.csv でファイルを開いてから配列に叩き込んで処理しているのですが、 他に何か開かずに直接配列に収納するとか別の開き方など良い手段はありますでしょうか。 188 名前：デフォルトの名無しさん mailto:sage [2020/04/06(月) 02:53:22.77 ID:mfVHo2vq0.net] >>186 その説明では落ちる原因がわからんので対処のしようがない とりあえずテキストファイルとして開いてSplitで配列に入れるとか 189 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr01-WpTI) mailto:sage [2020/04/06(月) 07:33:50 ID:c57grIZCr.net] >>174 自動更新しても更新されない 強制的にはできないね 190 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4bcc-bVUD) mailto:sage [2020/04/06(月) 09:41:20 ID:LXVfU9S30.net] >>174 最初、自前タイマーでの自動保存を提案しようと思ったけど、全ユーザーの同期とか排他処理とか必要になるからやめた 同時使用数にもよるけど、現状の5分ぐらいが実用限度だと思う それでも問題があるから、MSも共有ブック機能を非推奨にしたんだろうしね 191 名前：デフォルトの名無しさん mailto:sage [2020/04/06(月) 15:09:00.57 ID:0mGlPNRI0.net] >>186 まず落ちる原因の特定が必要 本当にデータ量が原因かどうか？ それでもし量の問題だとしたら 同時に必要なデータを見定める たとえばA、B、Cのファイルを同時に開いてたが じつはAとB、BとCで処理する工夫の余地があるとか それでもアルゴリズムではどうにもならない量なら SQLとかのデータベースに移行する 192 名前：デフォルトの名無しさん mailto:sage [2020/04/06(月) 22:35:08.05 ID:sFf9EAmnM.net] https://oshiete.goo.ne.jp/qa/1972570.html ActiveWorkbook.SaveAsにするとファイル名変えずに保存できる理由を教えてください Copyした時点で別ブックが作られるんですか？ 193 名前：デフォルトの名無しさん [2020/04/06(月) 23:45:47.95 ID:jDCeOgrg0.net] マクロで作られた印刷ボタンを押すと両面印刷で出てくるからこれを片面印刷に統一したいんだけどどうしたらいいの？ 194 名前：デフォルトの名無しさん mailto:sage [2020/04/07(火) 00:23:26.13 ID:YDovvV0g0.net] >>192 マクロを書き換える 印刷方法の変更はプリンターごとに違ってて、Excelのマクロの中でも一番面倒な部分だから、会社でわかってる人に聞くのが早い 195 名前：デフォルトの名無しさん mailto:sage [2020/04/07(火) 00:29:05.68 ID:BEkwL8Dn0.net] プリンタ登録を2つに増やして使い分けるのが簡単。 でもWin95のころはコピーするだけでプリンタ増やせたけど年々難しくなるよね 196 名前：デフォルトの名無しさん mailto:sage [2020/04/07(火) 00:35:40.64 ID:8SYsQHh80.net] 正直印刷は、機器変更、NW、印刷位置、紙質とかでトラブルが非常に多くなるから、 金、人命とか絶対にVBAで自動化しなければ行けない理由がない限り手動にするようにしたわ 印刷部分だけPDFにして置いておくとか 197 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2ba7-9mb0) mailto:sage [2020/04/07(火) 01:53:49 ID:qS+8J4U+0.net] マクロは印刷プロパティを出すところまで。 それ以上はトラブルの原因になるからやめとき 198 名前：デフォルトの名無しさん mailto:sage [2020/04/07(火) 04:36:48.84 ID:hIwtKFus0.net] そもそも紙にこだわるのが非効率で 電子化するのが本来の理想ではある 199 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 233e-g9A3) [2020/04/07(火) 07:13:41 ID:xwPFl55C0.net] プリンタのプロパティでプリンタの設定自体を片面印刷にしておくと片面印刷になりますか？ 200 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4d8e-jJEW) [2020/04/07(火) 08:07:09 ID:YQg5kUpF0.net] そのくらい自分でやって試せよ

---

---

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

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