- 1 名前：デフォルトの名無しさん mailto:sage [2019/04/25(木) 23:41:03.61 ID:rni/4bMj0.net]
- !extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part60
https://mevius.5ch.net/test/read.cgi/tech/1552736349/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured
- 286 名前：デフォルトの名無しさん mailto:sage [2019/05/18(土) 20:16:07.59 ID:8gQadrhx0.net]
- Application.VBE.ActiveCodePane
こんなの合ったのか
PaneはPanelかと思ったら、ペインの事なのね
- 287 名前：デフォルトの名無しさん mailto:sage [2019/05/18(土) 20:29:02.38 ID:P5JmHxRDM.net]
- VBEを拡張するためのオブジェクト群が用意されてるんだよね
- 288 名前：デフォルトの名無しさん mailto:sage [2019/05/19(日) 09:22:38.02 ID:MCPGuHEx0.net]
- Excel4マクロは自己書き換え自由だったから
機能的に負けるわけにはいかなかったんじゃね？
- 289 名前：デフォルトの名無しさん mailto:sage [2019/05/19(日) 11:43:42.11 ID:1xMNIuy/x.net]
- 配布済マクロの修正パッチとかで大量のファイルや行を一括修正したいときは便利
- 290 名前：デフォルトの名無しさん mailto:sage [2019/05/19(日) 12:03:05.34 ID:igxNvdy7a.net]
- 単価の低そうな涙ぐましい仕事だな
- 291 名前：デフォルトの名無しさん mailto:sage [2019/05/19(日) 12:39:30.70 ID:gILK5dpZ0.net]
- マクロ4はできる人がいない＋やりたくないから単価超高いぞ
で、単価高くしても足が出る・・・
- 292 名前：デフォルトの名無しさん mailto:sage [2019/05/21(火) 19:13:05.44 ID:7gg6L6p3p.net]
- 実行から終了まで数分かかるマクロを途中で止める方法ないですか？f4押したら「処理を止めました」のメッセージボックスとともに停止するとか。
- 293 名前：デフォルトの名無しさん mailto:sage [2019/05/21(火) 19:31:11.94 ID:OX+uPiO40.net]
- Break
ESC
- 294 名前：デフォルトの名無しさん mailto:sage [2019/05/21(火) 19:37:07.71 ID:K+4dE9j10.net]
- ループが長いならDoEvent入れておいて
msgbox "終了します"とendだけ書いたのを起動できるボタンどっかに置いとけばいい
- 295 名前：284 mailto:sage [2019/05/21(火) 20:04:23.19 ID:MD1oUmkY0.net]
- ESCやBreakで止まるなら良いけど、それで止まらない処理ならウィンドウESC押しながらタスクバー上でマウスでウィンドウの切り替えをすると止まる。
どっかのブログで見て知ったけど役に立ってる。
- 296 名前：デフォルトの名無しさん mailto:sage [2019/05/21(火) 21:15:28.57 ID:QvaiZxJv0.net]
- こうする
https://youtu.be/h-xo-5krq2Y
- 297 名前：デフォルトの名無しさん mailto:sage [2019/05/21(火) 21:30:20.69 ID:7gg6L6p3p.net]
- ほー
明日試してみます
- 298 名前：デフォルトの名無しさん mailto:sage [2019/05/21(火) 22:08:13.75 ID:R92gi7e40.net]
- 2009/12/16に公開って何だよ。
20年くらい前に見たぞそれ。
- 299 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 06:58:44.20 ID:SD95iW5CM.net]
- >>298
映像はどうみても２０年以上前だな
的確な対応で現在も使える
- 300 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 09:27:28.15 ID:ztZYN21m0.net]
- セルの値を数式に代入って無理でしょうか？
たとえばA1セルに乱数が入ってた場合に
どっかのセルに =A2-乱数 という数式を代入したい感じです
- 301 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 09:41:17.90 ID:5+y7OppMM.net]
- =A2-A1
- 302 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 09:43:43.65 ID:ogyeLG/uM.net]
- 演算あり値コピーの話？
- 303 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 09:52:11.18 ID:AHnUJ8Jk0.net]
- いやセル番地じゃなくて値を数式に代入したい感じです
たとえばA1セルに2,134という数字が入ってた場合に
=A2-2,134 という数式をどっかのセルに代入
A1セルが387だとしたら
=A2-387
説明下手糞で申し訳ないです
- 304 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 09:54:20.78 ID:hC9fKDDe0.net]
- >>300
書いている意味がよくわからんど
セルに式でも値でも代入できる
ただ、乱数は曲者で常に変わるから
もう少しやりたいことを具体的に書き込もう
- 305 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 10:00:56.85 ID:hC9fKDDe0.net]
- >>303
乱数は曲者で
A1セルが387だとしたら
=A2-387
ほかのセルに「=A2-387」を入れた時点でA1セルは変わるから
もう少し何をしたいのか書くように
- 306 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 11:59:27.46 ID:zi+TqRd2r.net]
- そもそも数式はスレ違いだろ
VBA関係ないならどっかエクセルの使い方の板かスレかさがせ
- 307 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 13:17:58.06 ID:/GezpU1zp.net]
- >>305
A1セルの乱数結果が現時点で387だとしたら
変数(仮にrとする)に、387を格納して
ほかのセル(仮にB1とする)に"=A2-r(中身387)"を入力したいって事？
それなら確かに関数じゃできないよね
- 308 名前：284 mailto:sage [2019/05/22(水) 13:58:22.19 ID:WDej9GuM0.net]
- >>303
Range("C3").Value="=A2-" & Range("A1").Value
じゃ駄目?
- 309 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 16:05:46.41 ID:hC9fKDDe0.net]
- >>307
それに意味あると思えない、乱数なんてふつうは仕事に使わない
例えば、学校の先生あたりが、引き算足し算などの問題を自動的に作りたいとか
であれば、A列に乱数１の結果をB列に乱数２の結果を
C列に計算式を、D列に回答をで別シートなどで問題文を作る
このぐらいだな
- 310 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 18:12:45.70 ID:j7jZt3jJM.net]
- 説明下手糞ってレベルじゃねぇぞ…
- 311 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 18:48:51.39 ID:RRuRLAJCM.net]
- >>309
ちょっとしたシミュレーションで使うかもしれない。（Excelでやるとは言ってない）
>>302じゃダメなの？
- 312 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 19:16:53.47 ID:CZzIGWUTM.net]
- >>311
ちょっとしたシミュレーション・・無いだろ
この文書力だとセルに入れたい式って
計算式の文字列かもしれん
- 313 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 22:59:24.50 ID:bxcYYOqD0.net]
- もうあれだ。
ここは、何の用途に使うのか当たられたやつが優勝スレにしよう。
- 314 名前：デフォルトの名無しさん mailto:sage [2019/05/22(水) 23:13:17.16 ID:K7mhmRd90.net]
- 完全乱数を使って円周率の計算をする
- 315 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 07:43:57.81 ID:mLR+BkfhM.net]
- 別に用途は何でもいいさ
興味ゼロってわけじゃないけど
- 316 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 10:22:05.81 ID:WDXUv9KM0.net]
- こっちで作って欲しいと言われたものをつくってると
そんなもの作られたら困る
楽になって人が減らされると困る、と古参がちくちく
この古参、自分の作業を楽にしたい時には
これがもう偉そうな態度で、「作らせてやる」とでも言わんばかりに頼んでくる
どうしたいんよもう
っていうことないっすか
もう面倒なんで職場で作るのやめようかな
すんません落書きしちゃって
- 317 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 10:56:07.55 ID:cSCM+dO10.net]
- 厚労省で配布されている
https://www.mhlw.go.jp/stf/seisakunitsuite/bunya/000116890_00001.html
にある
https://www.mhlw.go.jp/content/10900000/000494621.xlsm
なんだけど、内容は単純で
1件いくらの検査があって、件数を入力すれば請求書が作成されるというもの
1シート＝1自治体なので、複数の自治体へ請求する場合は、ユーザーがシートコピーして作る
VBAで各シートを集計して総括表に転写する
なんだけど、VBAみて
変数が多すぎてコーディング中に間違えても気づかんだろってのと
引っ張ってくるセルをConstで決め打ちしてるけど
これ後のメンテナンスでセル一個挿入することになったら修正大変やん と思いました。
というか、エラーメッセージの所で間違えて
行を表示すべきところを列表示しているけど
これこそ変数多すぎて分かりにくくした事が原因だと思います。
じゃあどうする、と言われたらみなさんならどうしますか？
同じ形の複数の2次元の表を合計するだけなんだから
スタート地点とゴール地点決めてやって
後はずらしていけばいいやんと思うのですが
後、小数とか負の値ぶっこんでも動作するのはモヤモヤするんだけど
まぁこの辺やりだしたらキリがないので使わせる相手によってどうするかは変えますかね
- 318 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 11:43:15.47 ID:mLR+BkfhM.net]
- >>316
義務教育でプログラミングを扱うようになって、自分の仕事くらい自分でプログラミングできないようでは大変な事になるよ、
と教えてやればいい。
もしかしたら「手下にプログラミングさせればいい」と勘違いするかも知れないが、
それでは通用しないよと言ってやろう。
こういう話もあるし
https://lite.blogos.com/article/376203/
- 319 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 16:11:36.77 ID:hFcQqqxb0.net]
- >>316
ただ単純に業務全体を見ずに作るから役に立たないんだよ
業務に対して目的と効果を文書ではっきり示せば古参の意見を聞かなくていい
- 320 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 16:13:59.49 ID:X/3FpVKz0.net]
- >>316
その古参の上司に報告しろ
- 321 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 16:14:38.98 ID:hFcQqqxb0.net]
- >>317
すまん、リンク先を読む気もしない
- 322 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 17:56:30.55 ID:pyUsEGpsM.net]
- >>317
べき論の先には「VBAを使うのをやめるべき」という結論しかないから不毛よ
俺ならどうするか？下請けに丸投げして終わりだよ
- 323 名前： mailto:sage [2019/05/23(木) 19:35:05.76 ID:QGT5qlDg0.net]
- >>318
＞義務教育でプログラミングを扱うようになって、自分の仕事くらい自分でプログラミングできないようでは大変な事になるよ
脅かすことでプログラミングができるようになるとはおもいませんが…
プログラミングって極めて創造的な作業ではないでしょうか、似たようなものは数学の証明問題だと思いますが証明問題を脅かして解けるようになるとは思えません
- 324 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 20:39:50.63 ID:X/3FpVKz0.net]
- 機械学習やweb系ならともかく、
VBAレベルなら極めて事務的な仕事だろう。どこにも創造性なんて無いよ
ルーチンワークを自動化させてるだけ
- 325 名前： mailto:sage [2019/05/23(木) 20:58:31.34 ID:QGT5qlDg0.net]
- >>324
でもそのルーチンワークを実際に記述するとなると一本道というわけにはいかないでしょう？
論理的な一貫性を維持しながらしたいことを記述するのは、いわれているほどやさしい仕事ではない
- 326 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 21:06:10.14 ID:X/3FpVKz0.net]
- >>325
一本道だよ、全然難しくない
強いて言えば例外を先に全部列挙した上でシステムに放り込むという順序の変更がある程度
面倒なのは仕様変更と、使いにくいというオバハンの嬌声。オバハンにalt+F8は覚えさせたけど、まぁそれぐらい
- 327 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 22:12:48.96 ID:0Fgm70+GM.net]
- まあ、自己満足で終わるなら簡単だな
おばはんにも満足いくように作るんだよ
- 328 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 22:27:50.56 ID:49rcJhkB0.net]
- >>317
コンスト過ぎてﾜﾛﾀ。
- 329 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 22:55:08.55 ID:EGX4zlJj0.net]
- >>323
それもそうだが、その老害を大人しく
させることができれば上出来と考えた
- 330 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 01:42:55.95 ID:9kKOGm+S0.net]
- Excel2016にてpersonal.xlsbに「保存せず閉じて開き直すマクロ」を作ったところ挙動が変です
Sub ReOpen()
Dim wb As Workbook
Dim path As String
Set wb = ActiveWorkbook
path = wb.fullName
'※1
If MsgBox("本当に変更を取り消しますか？", vbYesNo) <> vbYes
Exit Sub
End If
wb.Close(False)
Application.Wait([Now() + "00:00:01"])
'※2
Workbooks.Open(path)
End Sub
このマクロ自体は動くのですが、※1のIf〜EndIfを消すと※2のOpen実行直後にExcelが通知無く落ちます
また、※1※2を両方消してマクロ実行した後、手動でブックを開き直すとやっぱりExcelが落ちます
対象のブックはフォームやマクロを含んだ3MB程度のxlsmファイルです
MsgBox出さないだけでなぜ不安定になるのか、思いつく原因を教えて頂けると幸いです
- 331 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 01:44:27.87 ID:9kKOGm+S0.net]
- あ、Ifの末尾のThen忘れたので脳内で補完してください
- 332 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 06:40:29.33 ID:/lvzTPqGM.net]
- >>331
ハイ イイエ が逆なのも利用者が自動変換するんですね
- 333 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 06:54:20.73 ID:/lvzTPqGM.net]
- >>332
すまん、継続がキャンセルか
- 334 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 09:59:52.88 ID:RAYiE+wA0.net]
- >>330
2019で試したけど落ちなかった
＞ Application.Wait([Now() + "00:00:01"])
これを抜いても同じ
カンで答えると、再計算が邪魔してるような気がする
・一度再計算や描画、イベントを切ってみてはどうかな
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
・あとはこの部分のウェイトをもう少し長くする
＞Application.Wait([Now() + "00:00:01"])
・まっさらなブックで試してみる
- 335 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 07:54:51.56 ID:TRopVMeK0.net]
- アドインって、ファイルを閉じたら、
一緒に閉じられるものだと思ってたけど、
VBA実行中は残るということか。
一緒に閉じられたら、途中で止まっちゃうからな。
- 336 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 08:55:38.15 ID:nkVbmNSl0.net]
- vba実行中というかずっと残るっぽい
- 337 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 09:55:42.63 ID:wPp02VNQ0.net]
- エクセルの機能に追加してるからな
アドイン使ったファイルをアドインがないエクセルで編集すると壊れるよね
- 338 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 10:07:50.37 ID:wPp02VNQ0.net]
- >>330
経験上納得できない動作をするときは何か見落としているところがある
step実行で場所特定して、各変数の値が壊れてないか確認
イミディエイト画面で入力してみるなど
- 339 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 10:14:01.11 ID:D2XIJyZK0.net]
- Excelに限って言えば、Excel自体に変な仕様が多い
これが男を惑わせる
- 340 名前：デフォルトの名無しさん mailto:sage [2019/05/26(日) 04:10:46.96 ID:xQGdFtWrM.net]
- >>334
元に戻さないアホがいると大迷惑になるな
>>335
アドインはExcelに組み込むよね
>>339
配列数式なんか使うとブーイングになるよな
- 341 名前：デフォルトの名無しさん mailto:sage [2019/05/26(日) 15:23:19.13 ID:/taseRUt0.net]
- 以下の状態だとB1〜B3は全て1:1048576と表示されてしまいます
Cells.SpecialCellsをRange("A1").SpecialCellsに変更した場合はB1〜B3は全てA1と表示されます
Ctrl + Endで選択されるセルの番地を文字列として取得するにはどうすればいいですか？
A B
1 Sheet1 =fn(A1)
2 Sheet2 =fn(A2)
3 Sheet3 =fn(A3)
Public Function fn(sSheetName As String) As String
fn = ActiveWorkbook.Worksheets(sSheetName).Cells.SpecialCells(xlCellTypeLastCell).Address(False, False)
End Function
- 342 名前：デフォルトの名無しさん mailto:sage [2019/05/26(日) 15:41:58.63 ID:/taseRUt0.net]
- 関数呼び出しではなくマクロやボタンクリックでなら問題なかったので
そっちの方法に切り替えますすみません
- 343 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 06:52:50.90 ID:lha2yOvQp.net]
- 入力項目を複数用意したinputboxって作れますか？
- 344 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 07:55:59.33 ID:6csejWaN0.net]
- >>343
どんなものを考えているんだ
- 345 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:12:50.88 ID:lha2yOvQp.net]
- >>343
ごめん入力フォームじゃなくていいかも
最終的にやりたいことは、以下のボタン等が設置されたユーザーフォームを作ることです（他の要素も考えたら普通にinput boxでは無理と気づきました）
・AUTO openで開く
・押すと特定セルに文字が入力されるボタンを複数設置する
・カレンダーを設置する
・押すと印刷処理を行いつつファイルを上書き保存し閉じるボタンを設置する
- 346 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:30:52.72 ID:jh6nOFVKM.net]
- >>345
こんな特殊なものAUTO openでやるって非常識だな
シートのマクロで十分だろてかマクロは印刷して保存だけでいいだろ
それも自動記録でも十分
- 347 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:37:02.21 ID:jh6nOFVKM.net]
- Excelの勉強不足だろ
- 348 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:47:00.50 ID:6csejWaN0.net]
- >>345
それユーザーフォームにする必要がないような
ユーザーフォーム超めんどいから止めたほうがいいよ
あと、カレンダーはデイトピッカーと言う
- 349 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 09:45:56.73 ID:W0zr6KdF0.net]
- この程度の理解力だとカレンダーが必要かもわからない
カレンダーなんか別にシートでもできるけど、どこまで使うかがわからないから
最適な解もわからない
入力をシートに反映するなんて普通にセルを参照すればいいだけ
ExcelもVBAも１％以下の理解で動作仕様を描くのではなく結果で何をしたいかを描くべき
これでも少しおだててるが
- 350 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 10:37:56.08 ID:6csejWaN0.net]
- おだてるの意味間違えてるよ。
- 351 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 10:41:41.92 ID:W0zr6KdF0.net]
- >>350
いや〜そうでもないよ
理解力は両方とも0.1％〜0.01％程度と思ってたから
- 352 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 11:25:38.71 ID:bVlhmZqp0.net]
- てか、みんなが
>>345←この説明で全容を理解できてるのがすごいとおもったけど
いろんな意味に解釈できそうで、おれにはそのうちの一つには絞りきれないんだけど
- 353 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 11:44:36.09 ID:dknccbkiM.net]
- >>352
教えたい人種の大半は問題の表層を自分の得意分野に転換して持論を得意気に展開してるだけ。
質問者の問題の背景に寄り添って解決を計ろうとする者は僅か。
- 354 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 13:50:33.03 ID:6csejWaN0.net]
- >>352
どういうパターンであれ、大体ロクでも無い物だという判定ぐらいなら可能
- 355 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:00:43.29 ID:zUYqf9yC0.net]
- >>345
ここの人達はマウント取りたいだけで実際はあまりスキルが無い人が大半なので程々に聞いていた方が良い。
あなたの要望については疑問が1つ、可能だけどあなたのスキルから考えて技術的に難しい点が1つある。
疑問は、AutoOpenで開いて、閉じるボタンで保存終了するのならExcelで作る必要は無いのでは?という疑問。
普通にC#辺りで作った方が適してると思う。この後に述べるけど、カレンダーの件もC#等の方が簡単。
技術的に難しいのはカレンダーの実現。
サブクラスとWin32の知識が無いと難しい。
後々を考えると汎用的にクラス作った方が良いからそういう技術も必要。
もっとも、ファイル追加とか自作するとかで良ければスキルが無くても出来るともいえる。
- 356 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:36:42.16 ID:dknccbkiM.net]
- >>355
この人はマウント取りたいだけで実際はあまりスキルが無い人なので程々に聞いていた方が良い。
- 357 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:38:46.48 ID:YnNlAtYud.net]
- >>356
そうくると思ったw
- 358 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:55:28.65 ID:W0zr6KdF0.net]
- >>355
具体的に簡単にできる方法を説明してやれよ
- 359 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:59:26.84 ID:6csejWaN0.net]
- >>358
まだ出せない
要件定義ができていないので、そもそもどういう設計が最適かも分からない
現状のまま作るのはめんどくさすぎる
具体的に言うとデイトピッカー、お前だ
- 360 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:11:18.55 ID:W0zr6KdF0.net]
- >>359
要件定義・・？この理解力だと
当然仕事に対する理解力もないってことだよ
- 361 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:14:09.75 ID:6csejWaN0.net]
- >>360
そこを何とかするのが面白いんじゃないの
マウント取りたいならハエやカエル相手にしてればいいだけだしね
- 362 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:29:12.90 ID:W0zr6KdF0.net]
- >>361
だったら適当にすれば(笑)
出来ることを安易に提案することの影響を考えろよ
例えば、自動計算を止める
こんなのそのままにされたら困るほかの人いるだろ
でも単にONとOFFじゃあだめなんだよ、直前を記録して戻す
また、エラーや中止でも戻さないとな
- 363 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:39:29.96 ID:W0zr6KdF0.net]
- >>361
きみはハエやカエル相手にして面白がってる
引きこもりさんってことね
- 364 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:42:22.97 ID:6csejWaN0.net]
- >>362>>363
韓国人？
- 365 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:42:59.47 ID:6csejWaN0.net]
- おだてるの意味もわかってないみたいだし、韓国の方でしたか
そりゃ話も合わないな
- 366 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:44:13.29 ID:W0zr6KdF0.net]
- >>364
きみはハエかカエル？
- 367 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:45:54.11 ID:W0zr6KdF0.net]
- >>365
ハエかカエル？
しかたないな
- 368 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:53:54.48 ID:6csejWaN0.net]
- おだてる・・・ｗ
- 369 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:04:29.34 ID:6csejWaN0.net]
- これ以外の高速化ってありますか？
https://15g.jp/post-314/
- 370 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:27:23.36 ID:aE9KPqY2M.net]
- >>369
これで問題ある場合はループしてるロジックが悪いか
ネットアクセスではありませんか？
- 371 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:42:48.59 ID:6csejWaN0.net]
- >>370
運用方法が急に変わりまして・・
毎日 100ループ→毎時間 20000ループ
他の高速化が無いものかな、と
特になければ諦めてロジック組み直します
- 372 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:43:14.09 ID:2J++TcAHM.net]
- 再描画を止めるのは好かんな
- 373 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 17:19:36.20 ID:aE9KPqY2M.net]
- >>371
セルへのアクセスを減らし
変数テーブルで処理をするぐらいかな簡単なのは
- 374 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 17:53:10.57 ID:aE9KPqY2M.net]
- 変更のないセルはかきかえない
変数の型をこていするかな
- 375 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 20:18:12.39 ID:28fQIolrF.net]
- >>369
完全に嘘。
そもそも、それなりに書ける奴ならこの手法では速くならない。
- 376 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 20:19:14.57 ID:28fQIolrF.net]
- 逆に、これで格段に速くなったら恥ずかしいと思うべきだ。
- 377 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 20:29:10.36 ID:eWpgS1rnF.net]
- 高速化については下記が参考になる。
https://excel-ubara.com/excelvba4/EXCEL228.html
- 378 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 21:03:48.67 ID:TIEuQB3m0.net]
- >>345
できるけど、一番最後の処理が事故を起こしそうだから1クッション置いた方がいいかも
- 379 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 21:13:42.01 ID:Soi68xiZ0.net]
- セルというかシートは使わない
データ保存には外部バイナリファイルを読み書きする
- 380 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 21:16:23.22 ID:TIEuQB3m0.net]
- >>369
これは描画を抑制するからその分の時間がかからなくなるというだけなので、表示に因らない処理の速度アップはまた別だよ
- 381 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 22:07:18.66 ID:9GzIJnKt0.net]
- 何でユーザーフォームを使うのかって?
シートに書くより格好いいからに決まってるじゃんwwwww
いや、わりとマジでそんなもんだと思いますけど。
だって、ユーザーフォームじゃなきゃ再現できないようなものって、
普通の事務処理でそんなに無いでしょ。
- 382 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 01:04:45.98 ID:Rr62XR8Vx.net]
- ワークシートのイベントに重めの処理を書いている場合、シート側のイベントを避けるためユーザーフォームで出入力制御や演算を処理させることはある
- 383 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 08:43:02.61 ID:8P1bQTIM0.net]
- 入力のしやすさとかフォームの方が良い場合もあるし、ユーザーインターフェイスとしてはフォームの方が優れている。
Excel使わずにメモ帳とCSVで事足りるってのと同じような考えの人がいるな。
- 384 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:44:28.89 ID:CE2aKfrCH.net]
- 初心者レベルの知識で長いことVBAいじってる者なんだが、
functionプロシージャって使わなくない？
普通のsubしか使ったことない
どんな時に便利なの？
- 385 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:47:42.25 ID:rhAlx8Ij0.net]
- >>384
値を返す時。便利というか必須。=sum()で値が返らなかった時の事を考えてみると良い
むしろfunctionが普通なのだ
vbaの場合、ワークシート変更しておしまいってパターンが多いから恩恵を得にくいけどね
- 386 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:55:56.33 ID:JWvhlEsx0.net]
- Findを利用したコードについて教えて下さい。
書籍、サイトで掲載されていたコードを利用し、少し変えたものです。
Findメソッドを使ってC列の”たろう”を検索します。
探し出したら、A〜C列の文字列をE列に結果を返すように作り替えてみましたが、結果がE1〜G1に上書きされてしまいます。
Cells(Rows,count を理解しきれていない、11行目のCells(i,”E”)の部分も理解していないと感じます。
どのように違うのか、ご指導お願いします。
ワークシートはこんなかんじ E列からG列は実行後の結果をイメージしたものです
A B C D E F G
1 日付 売上 担当者 000 AAA たろう
2 000 AAA たろう 333 DDD たろう
3 111 BBB はなこ
4 222 CCC たかし
5 333 DDD たろう
6 444 EEE はなこ
7 555 FFF くみこ
|
 |
