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 てかお前らそんなに一か八かでactivesheet使ってんのかよw これが通るけど、ウォッチ式には現れない 多分ウォッチ式の不具合だと思う そう考えないと気持ち悪くて仕方ないし疲れてきた・・・ Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Calculate MsgBox Sh.Index End Sub http://stamp-uploda.com/src/file7299.jpg >>175 sheetでもShでも見れるようになりました Shの参照をコピーしたのでインスタンスが生成されたのかな >>177 indexプロパティでも通りましたし Sh.Calculateメソッドでも通りました >>181 使ってないよ。sheetの指定はsetした変数を使ってる 昔はactive〜やselect〜を使ってたけどね >>182 worksheetクラスではないクラスのプロパティを指定したらどうなると予想する? 例えばRangeクラスのプロパティとか もしかしたらサイズとかを見ていてサイズが異なる場合はキャスト出来ないかもしれないど メモリ領域には値が格納されているけどそれをどう解釈するかはクラスが決まらないと特定できない >>183 Private Sub Workbook_NewSheet(ByVal Sh As Object) Debug.Print Sh.Range("a1").Address End Sub で $A$1 が返ってきたわ http://stamp-uploda.com/src/file7301.jpg 写ってないけどウォッチ式のshのプロパティは不明なままね ウォッチ式がおかしい以外考えにくい Private Sub Workbook_NewSheet(ByVal sh As Object) Dim obj As Object Set obj = sh MsgBox obj.Name End Sub これだと中身が見られないけど通る。 やっぱり>>183 の型キャスト説じゃないかなぁ。 ローカルウィンドウでも見られないし。 obj.Value = "aaa" で実行時エラーになる。 「ん〜何か知らないけどValueに入れるよ?あっねえわw」 ってことでは? .Nameや.Range().Addressはあったんで通る。 >>186 それはrange指定してないっす・・・ Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Cells(1, 1).Value = "aaa" End Sub で通ったよ >>184 Debug.Print Sh.Range("a1").Address ではなくて Debug.print sh.address だったらどうなるかって意図だったけど ためしたら実行時エラーになる これはtypename(Sh)を表示したらわかるけど Shという変数自体にクラス(型)に関する情報を持っているから 無理矢理Rangeクラスのプロパティを表示させようとするとエラーになる dim rng as Range set rng = Sh とかやっても実行時エラーになる 文法的にはエラーじゃないからコンパイルは通る VBAが型チェックしてバグにならないようにしていると思う 他の言語だとこれができるものもある >>187 ShがWorksheetクラスだっていうのが判ってるからRangeを指定するってわかるけど Objectクラスだったら何のプロパティを持っているかわからなくない? Objectクラスはすべてのクラスのスーパークラスだから何でも参照できる Sh as Objectと宣言されているShが実態はRangeクラスである場合もある その場合は、Sh.Value = "a"でも実行時エラーにはならない >>188-189 なるほど、意図が分かりました。コンパイルエラーになる意味もわかりました、ありがとうございます 以下の状態だと、shの型はobject/Sheet5としてウォッチ式に認識されます この「Sheet5」というのは何でしょうか? デフォルトプロパティでしょうか? Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim sheet As Worksheet Set sheet = Sh Debug.Print 1 'ここでブレークポイント End Sub しかし>>175 がどうしてもわかりません object型をobject型に渡してもプロパティは分からない、それは分かります http://stamp-uploda.com/src/file7303.jpg object型をworksheet型に渡すと、ウォッチ式で見れるようになる、それがわからない http://stamp-uploda.com/src/file7302.jpg 全部のプロパティ・メソッド見たら全部一致してたからworksheetとしてコピーしますね〜ということ? >>190 Set sheet = Sh を実行した時点で、Sh = sheet = Worksheetクラスのオブジェクトと特定可能 なのでworksheetクラスのデフォルトプロパティを表示しているのではないか ウォッチ式にsheet変数も追加すると、そのタイミングで Shの他のプロパティも見えるようになった >>191 型キャストで Shがワークシートだと判明したので Shとsheetは同じ物なので 両方のプロパティが同じで表示されるのではと思うが。 詳しくはマスターにまかせる。 と思ったらもう回答されていた。 すごい勉強になった。 >>191 ウォッチ式の表示更新タイミングはその内容が特定されたときに 即座に表示更新されるとは限らない つまり表示更新されるよりもずっと前に表示すべき内容が特定されていた可能性もある activesheet使うのはworksheets.copy使うときぐらいだな 真面目に作るときは書式とか直で指定するように頑張るけど レコードセットをそのままシートに張り付けると、元の型を継承して数字のみのカラムも文字列として貼られるんだけど、さすがにどうしようもない? >>197 和は加算の結果を表す言葉 0を加算とか足す0じゃないと意味が違ってくる 因みにレコードセットの型はcolumnの最初の7行分のデータから推測されるとかだったと思うから 目的の型になるようにソートすればいいかも 関数の引数にbyval ws as Worksheetってやるとどうなるの? worksheetに対しては、byrefしか使ったことない オブジェクト型はbyval渡し出来ないんじゃなかったっけ? >>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車種しか運転できない」のと同じ プログラマになろうなど論外 ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.5 2024/06/08 Walang Kapalit ★ | Donguri System Team 5ちゃんねる