Excel VBA 質問スレ Part49©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
!extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 スレ立ての際は一行目に !extend:checked:vvvvv:1000:512 と入れてスレ立てして下さい ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part48 http://mevius.2ch.net/test/read.cgi/tech/1494890685/ ※関連スレ VBAなんでも質問スレ Part2 http://mevius.2ch.net/test/read.cgi/tech/1432173164/ Access VBA 質問スレ Part1 http://mevius.2ch.net/test/read.cgi/tech/1328536426/ Excel総合相談所 126 https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured >>198 なるほどそうだぬ 「ゼロを一括して加算(D)すりゃいい」と言い直させてもらう もともと具体的に書かず曖昧な表現を目指していた >>200 できるよ。 メソッド呼び出しもそのオブジェクトに対するものとなる。 違いが出るのは代入(=)演算の意味だけだと思う。 >>199 たぶんプロシージャ内の set ws=hoge が引数に反映されるかされないかが変わってくる >>203 ありがとうございます。 時間あるときに試してみます! thisworkbookをoptionalな引数のデフォルト値にしたいんだけどできない 何かいい方法知りませんか >>205 確認せずに答えるけど、できないならOptionalのデフォルト値をNothingにして、 モジュール内で判断・分岐する If a Is Nothing Then Set a = ActiveWorkBook とか デフォルト値は定数式で、って言われるな デフォルト値を文字列にして"thisworkbook"、evalで…とか考えたけど2013持ってないから試せない そこまでしても読みにくくなるだけなので、素直に>>206 みたいに条件分岐させたほうが良いと思う 質問です。 ユーザーフォームをShowModal=Falseで表示しており、フォームを表示したまま、フォーカスをフォームからセルに移動することは可能でしょうか? cells(1,1).select や application.goto cells(1,1) ではフォーカスがフォームから動きませんでした。 >>208 昔やったことあるなぁ と思って試したら、仕様変更でできなくなってるっぽい http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one ;no=44929;id=excel 2010は無理だった >>209 回答ありがとうございます。 後出しで申し訳ないですがバージョンは2007です。 試せるのが明日になりますが、appactivate試してみます。 >>206 やっぱりそうなるか でもなんでできないんだろうインスタンスとして実体化されてないから? そんなことないよな >>211 コンパイル時点で決まってないからかな〜 >>209 AppActivateもApplication.Visible=Trueでもいけました! ちなみに以下のも試しましたが全部ダメでした。 ActiveWindow.Activate ActiveWorkBook.Activate ActivateSheet.Activate 2010以降だとWIN32APIとかでシートのマウスクリックを挟まないとダメかもですね。 >>213 良かったね 2007と2010でそんなとこに差があるとは驚いた ↑誤送信すまん。 Sh As Object Sh As Worksheet どちらでも動くのは分かる。 Objectにするのって、 どんな値が入るかわからないから、 Variantでいいやって考えるのと同じ? どんな値が入るかわからないコードってどんなコード? デバッグ用にエラーで分岐させた先とか? つっこむならせめて値と型の違いぐらい分かっていて欲しかったなあ >>218 普通にすまん >>219 あってもなくても一緒では? variantを書くのは「どんな型が入るか分からない」と明示する以外に利点があるのだろうか NewSheetイベントの引数の場合、Shには 「Worksheet オブジェクトまたは Chart オブジェクトが渡されます」 と書いてあるので どっちが渡されてもいいようにObjectなのでしょう 俺の書くVBAはVariantばっかりだけど問題ないよね? 書籍にさえ糞みたいなコードが平然と書かれてるVBA どんなコードだってヘーキヘーキ そもそも宣言しなくても特に問題はない vbaの型なんてやわらかすぎてあってないようなもん、死にはせん >>223 もちろんさ! ちょっと単体テストすりゃ全然平気! 唯一気をつけるのはNULLが来た時の扱いだけど、「NULLがあり得る」場合は結局避けられない問題だし ただこーゆー所でVariantプログラムって言うとなんやかんやめんどくさいので胸の内に秘めとくことをオススメする >>229 まあNothingが来れば気を付けなきゃいけないだろうけど、NULLはDBから読んだデータソースに含まれている場合が多いから。 She As Object Set She = New LoveDoll She.DressUp(MaidCostume) She.Attach(SilliconVagina) I.Fuck(She) I.FinishAlone() She.Detach(SilliconVagina) I.Wash(SilliconVagina) 5行目にSet her = She があればよかった NewSheetイベントの引数ShがObject型なのは、WorkSheetクラスとChartObjectクラスの両方でNewSheetイベントの呼び出しが定義されていて、実行時にしかShの型が決まらないからだと思うが Workbook.Sheets(Index)の戻り値がObject型なのと一緒 variantとかobject形はコンパイルエラーで止めてくれないからめんどい 今ちょうど使いたい場面出てきてるんだが二の足踏んでる 指定日(A)から現時点(B)までの経過時間をミリ秒で取得したい場合、 どのようにしたら上手く取れるでしょうか? VB.NETの時はGetTimeMillisecondsがあったので、(B-A).GetTimeMillisecondsで取得出来たんですが。 >>237 ありがとうございます。 GetTickCountも試してはみたんですが、システム稼働してからの時間だからか 自分では上手く取得できませんでした。 「指定日」(今回やりたいのは1970/1/1)からの経過時間をミリ秒取得するには どのようにしたら良いでしょうか? >>236 doubleに変換して計算してまた変換するとか >>238 どうせそんな長いスパンならミリ秒はなんちゃってでいいんでしょ Application.WorksheetFunction.RoundDown((Date - CDate("1970/1/1")) * 86400000 + Timer * 1000, 0) >>236 timediff()関数だかdifftime()があったはず datediff()だった ただ秒単位が最小だった Win32API の GetSystemTime( ) を呼び出して後は頑張って差を計算するなりすればいいだけでしょ そもそもソースがクソ精度のシステム時刻だからmsecなんてあてにならない気がする 直前にNTPで同期をとるとか? 指定日から当日までをdatediffの秒単位で取得して 当日からその時刻までをmsで取得して 足し合わせればいいんじゃね ミリ秒の精度が求められる操作をVBAでって嫌だなぁw 作成するファイルやデータの一意な命名、識別とかに使うんじゃないの だいたいでいいと思うわ 要件って喪前らは横浜のシューマイ屋さんか!!!! (´・ω・`)b Range("250").ClearContents !!!? その手があったか!! 今まで、真面目に名前を付けることしか考えなかったわ。 Dim Sh As Worksheet Set Sh = Thisworkbook.Worksheets("(´・ω・`)b") こんなのもありだな。 そういやみなさん その場限りの適当マクロじゃなくて ずっと使い続けてメンテも必要なVBAでセルにアクセスするなら名前経由でやってます? 自分はまずセルに名前をつけて Const hoge = "セルにつけた名前" Range(hoge).value = "うんこ" みたいなことやってます ちなみに、シート名でもこれやってるんですが‥ シート名やセル名が変わる可能性を前提にしたら こういうアプローチになるとは思うんですけど 結局凄く無駄なことをやってる気がして…(結局変えることあんまないし) 特にセルの名前に関しては、どうせその文字列をConstのところにハードコードするなら 名前つけずに Const hoge ="A1:B5" でもええやんけとか思ってるんですが 行挿入とかに追従してくれる名前の方を使うべきかなぁとか思ったり… >>253 セルに文字列で意味をつけて その文字列を検索して特定する そのセルからのオフセットを固定しておく 例えば列名とか行名とか >>253 よくある表の列の増減対応する場合は 列挙体で列名を定義しておいて Cellsで列名を参照させてる。 途中にぶっこんでも列挙体のほうをちょろっと書き換えればいい。 行にも対応させると、面倒かも。 >列の増減 会社のやつ、一切弄れないようにしたわwwwww セルを保護するとかじゃなくて、 データの更新時に、全消しして再描画するのwwwwwwwwww 列挿入とかしても無駄ですよってwwwwwww そういうの、このスレだと基本だと思う ・正規化したデータを引っ張ってくる ・ボタン押したらvbaで構築。シートすら削除して再作成 こんなんばっかだろ。誰もさわれなくて非難轟々だけど、どうかんがえてもこっちのほうが安全なんだよな >>253 普通にやってるしシート名とかも定義する あとは汎用的なクラスや関数いくつも作っておいて雛形エクセルにしてる >>256 コードをいじらないといけないじゃないか >>258 データの更新自分しか出来ないんじゃね 参照しか出来ないならwebシステムにすればいいんじゃね >参照しか出来ないならwebシステムにすればいいんじゃね ヒント:権限 >>253 > ずっと使い続けてメンテも必要なVBAでセルにアクセスするなら名前経由でやってます? 状況次第だけどよくアクセスするとか重要なセルは適当なところでまとめて変数に代入してる Dim hoge As Range Set hoge = Range("A1") ... hoge.value = "うんこ" > 行挿入とかに追従してくれる名前の方を使うべきかなぁとか思ったり… 行とか列の挿入を想定するなら名前をつけてそれで参照する ユーザーが作成するようなシートなら特定の文字列を検索して場所を特定するとかもやる >>264 自分に権限がないなら権限を持ってる人に許可貰えばいいだけじゃね? なんの権限か不明だが >>258 批難がでるって事は不便な点とかがあるって事で 仮にそれが商品だとしたら売れない可能性があるってこと 競争相手がいたら使われなくなる商品 >>267 売れてるiPhoneのスレでも見てこいよ 売れない/使われないものをいちいち非難するほど人は暇じゃない >>268 売れないなら批難は出ないと言う主張なら 批難轟々なら売れるって事だよな じゃ売ってみればいいんじゃね? >>268 それは代替品がある場合だ その代替品に乗り換えれば済むから 社内とかの代替品がなければ嫌々でもそれを使うしかない >>269-270 レスを分けて書く奴はもれなくバカの法則 w >>271 それ面白いか? 別に面白くないけどなぁ VBAのマクロって ・マクロ制作者本人の操作を補助する為のものであり、他人に使わせる事は想定されていない ・オフィス製品の操作を補助する為のものであり、アプリケーションの本来の振る舞いを超えた動作は想定されていない ・ユーザーフォームはマクロの操作を容易にする為のものであり、別のアプリケーションであるかの様に振る舞う事は想定されていない なので想定されていないものを作ろうとしたら不便さを感じるのは当然 どんな言語もそうだけど、想定された使い方なら便利だし、そうでないなら不便だよ >>255 なるほど 例えば ○年○月 の○のセルを指定する際に 「年」のセルを探してOffset(0,-1)する、みたいな感じですかね 自分はこれも名前つけて管理してましたが セルが1つの場合はそれで良さそうですね ただ、全く同じ内容のセルが検索範囲にないことが保証された運用にしないとバグりそうなのでちょっと怖いかも >>256 表に対してレコードセットみたいなアクセスをしたい場合に つい最近その方法を知って目からウロコでした とにかくインテリセンスを効かせたい派なので・・ http://thom.hateblo.jp/entry/2015/12/17/000132 こういうことですよね 行方向に関しては、列のように各行に別々の意味を持たせるような使い方はしたことないので 問題ありませんね >>261 自分は簡単なSQLを作る(ANDとかORで結合するだけ)に特化したStringBuilderみたいなのだけ使ってますね >>265 やっぱ可変範囲のこと考えると名前つけるのは意味ありますよね >>273 >他人に使わせる事は想定されていない これは本当に思いますね Accessなんかはフォームでの入出力が基本だし 各データの型も指定するから 出来ること出来ないことを設計者が細かく指定しやすいですが Excelは書式や入力データを限定させようとすると そのノウハウの習得のことも考えたら相当な時間がかかる気が… 以前「値のみの切り取り・コピーしかできない」ようにしようとして えらい苦労しました 所詮道具 しかし便利な道具 それをよりによってなんで使い辛くするのか 神経を疑うわ 改変、改ざん、変更がダメならそっちに注力すべきだろ バックアップなりPDF出力なり変更者・変更ヶ所の記録なりなんなり 余計な仕事して会社の利益を浪費すんなよ Excel VBA一本で家族養って食っていけてる人いる? >>277 vbaしか扱わない仕事なんて無いよ 必ず何かのついで vbaあると事務作業の確実性は上がるけどね >>279 プログラマー志望でvbaの仕事しかやったことないんだが。 >>280 クルマで言えば「1車種しか運転できない」のと同じ プログラマになろうなど論外 >>281 別の言語の方が得意なんですけどね。。 他言語のキャリアないから呼ばれない。 >>277 半年ぐらいならあるよ 社内システムの一部を担当しててVBAだけずっとやってた もちろんそれに付随する仕様書とかマニュアル作りとかも含むけど 自分は業界デビューがAccessVBAで、そのうちC/C++もやるようになった。 で、今PHPとかJavaとか知らなくて仕事減ってきてる。 PHPは言語は楽ちんだけどネットワーク周りがキツイ 専サバならどうでもいいけどレンタルサーバーだと制限多くて何もできん VBA4とかの時代はなぜかユーザー定義型のリファレンスをクラスモジュールに渡せなくて悩んだ覚えがあるけど最近は大丈夫なのねと >>287 うん。 50万ぐらいのレコードを扱う、MySqlをバックエンドとしたC/S型のシステム作ったよ。 vbaは例外ハンドラが弱すぎて、自作スタックトレースみたいな仕組みを作ったりとか、バージョン管理大変だし、vbaでシステム開発は怖すぎてやりたくないっす。 初速はいいけど、規模が大きくなってくると生産性が著しく落ちるねー。 >>289 クレイジーだな VBAでやるの間違ってね >>290 バックエンドがMySQLなら50万レコード程度は楽勝だろうしフロントエンドにExcel VBAはたいして珍しくないぞ そもそも、VBA使いってエンジニアじゃないよね。 なので、エンジニア目線での会話はしないほうがいいよ。 方言で喋るヤツは日本人じゃないよねみたいな言い回しは嫌い エンジニア畑の出身ではないということ。 エンジニア畑を歩いてきた人はVBAなんかには染まらないよ。 じゃあ東京出身以外は日本人じゃないんだね 哀れな見識の狭さだな 東京出身で大阪に住んでる人は関西人じゃないし、大阪出身で東京に住んでる人は江戸っ子ではない。 他の言語をバリバリ使うエンジニアがVBA使うなんていくらでもあるだろ 馬鹿の一つ覚えみたいに、なんでもかんでも変数に入れちゃうし、しかもいまだにハンガリアン記法だったりする。 エラー対策もバッチリですと言わんばかりにエラー処理が延々と続くコードを晒す。 ただでさえ冗長な言語なのに輪をかけて冗長なコードを書く。 誰もお前のコードなんかコピペしねーからコアな部分だけを簡潔にかけ、と言いたくなる。 VBAが書けるぐらいでエンジニアづらするな。 ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.5 2024/06/08 Walang Kapalit ★ | Donguri System Team 5ちゃんねる