Excel VBA 質問スレ Part14

1 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 12:34:58 ] 過去スレ 01 pc11.2ch.net/test/read.cgi/tech/1054356121/ 02 pc11.2ch.net/test/read.cgi/tech/1168308855/ 03 pc11.2ch.net/test/read.cgi/tech/1180192018/ 04 pc11.2ch.net/test/read.cgi/tech/1189814602/ 05 pc11.2ch.net/test/read.cgi/tech/1197448064/ 06 pc11.2ch.net/test/read.cgi/tech/1205231499/ 07 pc11.2ch.net/test/read.cgi/tech/1212587819/ 08 pc11.2ch.net/test/read.cgi/tech/1219673793/ 09 pc11.2ch.net/test/read.cgi/tech/1228372971/ 10 pc12.2ch.net/test/read.cgi/tech/1235332603/ 11 pc12.2ch.net/test/read.cgi/tech/1241885130/ 12 pc12.2ch.net/test/read.cgi/tech/1247566074/ 13 pc12.2ch.net/test/read.cgi/tech/1254281104/ 267 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 03:05:32 ] >>265 それはbook3もあって一つ前にアクティブだったかわからないという事か？ ↓コピペだけど Sub マクロブックでない方のファイル名を取得する() Dim オブジェクト As Workbook For Each オブジェクト In Workbooks If オブジェクト.Name <> ThisWorkbook.Name Then MsgBox オブジェクト.Name End If Next End Sub もし２つしかbook開いていないなら上記で 2つ以上でもアクティブなBOOK名を絶えず取得して置けばいいと思ったけど マクロ書いたbookを最後に開いたら駄目だね 268 名前：255 mailto:sage [2010/02/11(木) 15:25:13 ] >>267 book3,book4,book.......と複数ブックが 開いている状態でbook2(マクロを登録したファイル）をアクティブ にしてその中のマクロを実行するときに ひとつ前にアクティブだった任意のブック(book1 or book3 or ......) をアクティブにする方法です。 activewindow.activatepreviousではウインドウが開いた順番をもとに ひとつ前の番号のウインドウをアクティブにするだけなので、 ひとつ前の番号のウインドウ　＝　ひとつ前にアクティブだったブック とは限らないケースがあり、マクロ実行時に思惑通りの動作を してくれなかったのです。 269 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 15:45:48 ] >>268 VBA単独でやるなら、すべてのブックにマクロを仕込んで、それぞれ自分がアクティブになったら 名前をどこかに記録しておく、みたいな方法かなあ。 俺ならウィンドウメッセージをフックして、アクティブになったウィンドウを記録するような常駐ソフトを作る。 270 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 15:55:08 ] そもそも仕様が腐っとる。 271 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 16:06:54 ] パソコン環境が貧弱な頃から積み上げた成果でしょ 272 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 20:36:35 ] >>267 自分ならクラスモジュールを使ってブックイベント拾ってやるかな 下記では　このマクロを含むブックを開く前に アクティブだったものは取得できないけどひとつのやりかたとして掲載してみる (ネーミングは適当なので勘弁してね) ★標準モジュール Private GetOldBook As New Class1 '←クラスモジュール名を指定する Sub TEST() 　　　Debug.Print "一つ前にアクティブだったブック:"; GetOldBook.Name End Sub ★クラスモジュール(モジュール名:Class1) Private WithEvents App As Application Private OldBook As String Private Sub Class_Initialize() 　　Set App = Application End Sub Private Sub App_WorkbookDeactivate(ByVal Wb As Excel.Workbook) 　　OldBook = Wb.Name End Sub Public Property Get Name() As String 　　Name = OldBook End Property 273 名前：272 mailto:sage [2010/02/11(木) 20:42:19 ] アンカーみすった >>268 だったです すみません 274 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 21:59:02 ] 初歩的な質問ですが､ A1に1､A2に2､B1に3､B2に4と入力されていて A1からB2を選択した状態で下記のコードを実行した場合､ bufは要素数が1から始まる配列になるということで よろしいのでしょうか？ 配列なのに何故0から始まらないんですか？？？ Sub test() Dim buf As Range Set buf = Selection MsgBox buf(2) End Sub 275 名前：274 mailto:sage [2010/02/11(木) 22:08:13 ] IsArray(buf)はTrueを返すんですけど、 LBound(buf)とUBound(buf)は“配列がありません”と コンパイルエラーになってしまいます。 276 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 22:13:54 ] 自分でrangeって宣言してるんだから 配列じゃなくて、rangeでしょ 277 名前：デフォルトの名無しさん [2010/02/11(木) 22:16:14 ] Sub test() Dim buf buf = Selection Debug.Print UBound(buf), LBound(buf) End Sub 278 名前：274 mailto:sage [2010/02/11(木) 22:23:24 ] >>277 これ、エラーになりますよね？ 279 名前：274 mailto:sage [2010/02/11(木) 22:25:36 ] あ、失礼しました！Variantだと配列ってことでしょうか？ でも、Rangeで宣言してIsArrayでTrueを返すのは どういうことなんでしょう？ すみません・・・すごく初心者な質問ばかりで・・・orz 280 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 22:29:55 ] >>279 あやまる気があるなら自分で調べろ。 281 名前：258 [2010/02/11(木) 22:47:10 ] >>264 ありがとうございます。 282 名前：274 mailto:sage [2010/02/11(木) 22:54:26 ] www012.upp.so-net.ne.jp/scotchegg/ExcelVBA/Range/Value.htm 似たようなもの見つけました。 やはり配列で、最小インデックスは1ということのようですね。 試験でbuf(1)の値は何か？という問題が出て、 配列なら0から始まると思い込んでて間違えたものですから・・・。 お騒がせしました。 283 名前：デフォルトの名無しさん mailto:sage [2010/02/12(金) 10:49:13 ] 配列とは思って無かったItemを省略した書き方って感じで 下の場合はobj.item(2)と同じ Public Sub ItemTest() Dim obj As Range Set obj = Range("B2:C3, D5") MsgBox (obj(2).Address) End Sub だから最小インデックスは1なのかなと思う 284 名前：デフォルトの名無しさん mailto:sage [2010/02/12(金) 23:59:10 ] VBAのメソッドやクラスのドキュメントてMSDNにないの？ 全網羅してるやつ。。 285 名前：デフォルトの名無しさん mailto:sage [2010/02/13(土) 02:15:15 ] ある 286 名前：デフォルトの名無しさん mailto:sage [2010/02/13(土) 18:31:15 ] IEのフォームにセルの値を次々に入力して検索結果を別セルに転記する、というマクロ作っています。 入力内容によっては「Windows Internet Explorer」というタイトルの警告ウィンドウ（ボタンはOKボタンのみ）が 出てしまいます。 このウィンドウを閉じれば次のセルの値は問題なく入力、検索できるのですが、 このウィンドウを閉じるにはどうすればいいでしょうか？ 287 名前：286 mailto:sage [2010/02/13(土) 18:46:50 ] 警告ウィンドウが出てるかどうかの判断の仕方もあわせて教えてください。 288 名前：デフォルトの名無しさん mailto:sage [2010/02/13(土) 19:34:29 ] 逆に質問ですけど、JavaスクリプトでExcelに書き出してるの？ 289 名前：デフォルトの名無しさん mailto:sage [2010/02/13(土) 19:35:42 ] 質問取消します 読間違えました 290 名前：デフォルトの名無しさん [2010/02/13(土) 23:44:55 ] 宜しくお願い致します。EXCEL2000です。 「サンプル写真」という名前のフォルダの中にある、 セルA1に書かれている数字のjpgファイルを開く。 というマクロを何とか作りました↓。 Sub テスト() ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\a\デスクトップ\サンプル写真\" & Range("A1") & ".jpg" End Sub 一応動くのですが、実行するとインターネットエクスプローラで開いてしまいます。 拡張子の関連付けでは、他のソフトで開くようにしいるので、 そのソフトで開けるようにしたいのです。 開くjogファイルを開くプログラムを指定するにはどうすればよいでしょうか？ 宜しくお願い致します。 291 名前：デフォルトの名無しさん mailto:sage [2010/02/14(日) 00:30:30 ] >>290 homepage1.nifty.com/MADIA/vb/API/ShellExecute.htm 292 名前：290 [2010/02/17(水) 10:04:46 ] >>291 遅レスすいません。アク菌にまきこまれ返信できませんでした。 解決しました。 本当にありがとうございます。 感謝 293 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 11:11:06 ] csvファイルをインポートではなくダブルクリックで開いた場合、 例えば「12-11」というデータは「11月12日（中身は40494）」に変換されてしまいますが、 これをマクロで12-11に戻してやる場合にはどういう方法がいいんでしょうか？ ちなみにその列は「数値-数値」の形ではない文字列も含まれていますので、 書式の取得からやらなければいけないと思います… その処理を入れようとしているのは行数分回すfor文の中です。 よろしくお願いいたします。 294 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 11:38:10 ] >戻してやる場合にはどういう方法がいいんでしょうか？ 考え方が違う。 EXCELに展開するときに処理することを考えるべし。 295 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 11:45:05 ] >>293 その場合、元のデータが「12-11」だったのか「12/11」だったのか「12月11日」だったのか 判断する方法はないので元に戻すこともできない。 あとから修正するんじゃなくて、最初から別の方法で読み込むこと。 296 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 12:08:17 ] >>293 発想が腐っとる。 297 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 12:19:07 ] >>295 住所のカラムなので日付が入ることはないんです >>296 腐敗しとります 298 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 12:30:10 ] ああ、.textに"月"と"日"が含まれてたらそれぞれの前の数値を抽出して並び替えればいいのか お騒がせしました。ちなみに俺は「取り込むときに処理しないとまずい」とちゃんと提言しましたよ？ 腐敗してるんですよ 299 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 12:38:35 ] >>297 そういう重要な条件を後出しするんじゃねえボケ 300 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 13:06:53 ] >>299 そうですね、ごめんなさい しかし、もし"月"と"日"が含まれている住所が存在するなら >>298の方法には完全に穴がありますね ところで、 'もし住所２が日付形式に変換されていたら Address2 = Cells(i, 8).Text Cells(i, 8).NumberFormat = "@" If InStr(Address2, "月") + InStr(Address2, "日") <> 0 Then Cells(i, 8).Value = Address2 ここまでは作ったんですが、この後"月"や"日"をReplaceでいじろうとしても うまくいかない…>>123の問題とかぶってるのかな？ 具体的に言うと、"月"を"-"、"日"を""にReplaceしてやるとまた日付形式に 戻っちゃうんです。なんなんだ…泣きそうｗ 301 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 13:29:18 ] ああ、 If InStr(Address2, "月") + InStr(Address2, "日") <> 0 ではなくて If InStr(Address2, "月") <> 0 And InStr(Address2, "日") <> 0 Then じゃないとまずいですね。NORが無いのは残念だ 302 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 13:34:24 ] こうやって糞シートが出来上がっていくんですねｗ 303 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 13:35:32 ] >>302 ベストな解答頼む 304 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 13:48:11 ] 結局どうせごり押しなら Cells(i, 8).NumberFormat = "m-d" で通しちゃうことに決めました これだと日付形式じゃないものはそのままですし >>302 俺からもお願いします 305 名前：デフォルトの名無しさん mailto:sage 釣り針 [2010/02/17(水) 14:52:16 ] Excelは青色申告用ソフトであって住所録じゃないんだからそういう使い方自体が間違ってる 306 名前：302 mailto:sage [2010/02/17(水) 15:40:13 ] >303-304 つ>294-295 307 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 15:45:56 ] それがベストな解答？ 308 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 17:45:54 ] Excelって青色申告用ソフトだったのか。長年使ってて初めて知った。そういう用途には一度も使った事ねーや w 309 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 21:02:37 ] webクエリで勝手に保存されてしまうアドレス群の中で、不要な物が多すぎるので消したいんだけど何か方法ないですか？ ＶＢＡ使うやり方でも使わないやり方でもなんでもいいです。 310 名前：デフォルトの名無しさん [2010/02/17(水) 22:08:49 ] マクロを実行して 途中でエラーになった場合 VBAの画面が開かれるのですが これを開かずに実行に失敗した事だけを伝えるのってどうすればいいのでしょうか？ 311 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 22:20:11 ] On Error Resume Next とか 312 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 22:49:24 ] >>308 まあExcelは違うわな パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから 313 名前：デフォルトの名無しさん mailto:sage [2010/02/17(水) 22:50:47 ] >>309 必要か不要かを機械的に判断するロジックがあれば可能 人間が見ないとわからない物は手作業で消すしかない 314 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 00:27:32 ] VBはマイクロソフトが開発したわけではなく 他社が開発したものをマイクロソフトが買収したもの 315 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 08:58:22 ] >>313 レスありがとう、手作業での消し方すらわからんとです。 316 名前：293 mailto:sage [2010/02/18(木) 09:00:40 ] >>305 住所録として使っているわけではありません csvにマクロを適用させるアプリとして使っているのです >>306 だからその案は却下されたんですって言ってるじゃないですか なんだ、がっかりです 317 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 09:14:05 ] >316 >だからその案は却下されたんですって言ってるじゃないですか そうやって例外が例外を産み、糞シートが出来上がっていくのだよ。 >294-296がベストな回答だと思うがな。 318 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 10:09:40 ] >>317 自覚のない素人に何を言っても無駄 仕事でこんなことやってるってのにはﾋﾞｯｸﾘした 319 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 10:13:05 ] だめだこいつｗ 293は限定された条件の中でのベストな回答を訊いてるんだろうに。 その条件自体に文句つけてどうする。 サッカーやるのに「手を使えないのがおかしい！」って言ってるのと一緒だ。 320 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 10:27:11 ] >318 そういうくだらないことやってる会社って結構あるけどなｗ 321 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 10:34:38 ] 文字列データを「"」でかこってないCSVをダブルクリックでまともに開きたいってだけでしょ 開いた後で自動なり手動なりでマクロから読み込み直しさせればいいだけじゃないの？ 322 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 11:08:39 ] >>312 > >>308 > まあExcelは違うわな > パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから 都合のいいところでお前のパソコンの歴史が始まったらしいな。 そんな話聞いたこと無いぞ。 323 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 12:22:22 ] パソコンは戦争目的じゃなかったか？ 弾道計算か何かだと思う 表計算ソフトは ttp://ja.wikipedia.org/wiki/VisiCalc だとさ。金融がどーとかで税金かどうかまでは分からないが、 まあ似たようなものといえなくも無いが間違ってるとも言える ってかどっちでもいい 324 名前：293 mailto:sage [2010/02/18(木) 13:10:45 ] なんかちょっとだけ盛り上がってますね。すみません >>321 ああ、それがベストですね！ ルールを変えろ、って言ってる人は意味がわかりません 変えられない前提だって言ってるのになあ 325 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 13:33:05 ] サッカーボールを手で運べ！ 326 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 13:36:52 ] ラグビーの発祥です 327 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 13:57:47 ] なるほど 328 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 14:13:01 ] どんな書類でもエクセルで作りそうｗ 329 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 14:16:17 ] フローチャートをエクセルで作るウチの会社のことだな 俺は個人的なチャートならイラレで作ってるｗ 330 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 14:30:58 ] アプリなんてどんな使い方してもいいよ 本来の目的からずれてようが、便利なら使えばいい 331 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 14:38:19 ] webページから一部分だけエクセルに取り込むコード作りたいんだけど、webクエリだと大きく取り込んでしまうので困ってます。 具体的には、ヤフーファイナンスからコードと社名と業種だけ(他はいらないです)欲しいんだけど、そういうピンポイントで取り出すみたいな事出来ますか？ また、そういうデータ取り込み系統の技術を得るための参考書籍とかあったら紹介して下さい。 332 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 14:59:06 ] >>331 Webクエリなら特定のテーブルだけを取り込むこともできるけど、 ヤフーファイナンスはページ全体が大きなテーブルになってるから一部を取り出すことはできない。 こういう時はページのソースを文字列変数に読み込んで、 タグなどを調べながら必要な部分だけをセルに入れることになる。 あと、やりたいことがピンポイントで決まってるなら書籍よりGoogleで検索した方が早い。 サンプルも必要な部分をコピペするだけだし。 333 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 15:05:25 ] レスありがとう。 自分が目指してるのは、多分こういう感じのを応用させるんだろうなとは思ってるんだけど(下、動画のアドレス) ttp://www.youtube.com/watch?v=MVsh1XnfYOw だんねんながらＶＢＡスタンダード程度のレベルでは意味不明でしたｗ 334 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 15:20:59 ] >>333 その動画サイトからソース置いてあるページにリンク貼ってあるし ダウンロードして改造して使えばいいじゃん。 そのビデオ見てわかんないんだったら、ここで同じこと説明しても やっぱりわかんないんじゃないの？ 企業コードが知りたいだけなら、そういう一覧表がきっとどこかにあるはず。 検索してみたら？ 335 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 16:45:51 ] >>331 新・ExcelVBAで極めるシステムトレード 〜最強パワーアップ編 正規表現による取得方法を書いてる 336 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 18:44:01 ] >>331 Sub test() Dim URL As String Dim WebTbl As String URL = "URL;quote.yahoo.co.jp/m3?u" ' 読み込むテーブルNoを指定する WebTbl = "4" With ActiveSheet.QueryTables.Add(Connection:=URL _ , Destination:=Range("A1")) .WebFormatting = xlWebFormattingNone .WebTables = WebTbl .Refresh End With End Sub ちょっと違うかな？ 337 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 19:00:35 ] >>331 ごめんorz ちょっとどころか全然違ったねｗ 338 名前：デフォルトの名無しさん [2010/02/18(木) 22:19:02 ] VBAでJavaにおけるExceptionみたいなものってあるのでしょうか？ つまり何らかのエラーがおこった時点でどのメソッドに強制的に移動するみたいな感じで 339 名前：デフォルトの名無しさん mailto:sage [2010/02/18(木) 22:40:22 ] 色々レスありがとう。 エクセル入ってるのが2ndＰＣなので後でコードコピーして試してみる。 あと、オススメ本は明日本屋で探してみます。 コレで勉強してたんだけど、少し不足を感じてたので助かったわ。ちなみに誤字脱字も多いしあんましオススメしない。 ttp://www.tradersshop.com/bin/showprod?c=9784775990391 ttp://www.tradersshop.com/bin/showprod?c=9784775990513 340 名前：デフォルトの名無しさん [2010/02/19(金) 02:24:55 ] 〜　Range("K" & Rows.count).End(xlUp) みたいにK列を固定させているのですが こう書いた場合Excelのシートを列削除したり追加したりするたびに 書き変えなきゃいけないのですが 列を追加したりすると自動的に変更って出来るのでしょうか？ 341 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 07:40:16 ] >>340 目的の列を探すコードを追加すればいいんでない？ 342 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 20:43:17 ] >>340 下記どうでしょう？ 案１ Range("K1").End(xlUp).Offset(r, c).Value r, c に増減した行・列の数を代入すると、 移動した先のセルでValueなどRangeの機能を使えます。 案２ ターゲットのセルがsheet1のD1であるとする。 sheet2のセルA1に式"=Sheet1!D1"を記入する。 VBAからは、常にsheet2のセルA1を読む。 例えば、列Bを削除してセルD1がC1に移動した場合、 sheet2のセルA1に記入してある式は、 自動的に"=Sheet1!D1"から"=Sheet1!C1"に変わって追いかけてくれる。 343 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 23:54:00 ] 初心者質問でごめんなさい for i = 1 to 33 良くある構文ですけど、iの値を16進法で返す事って出来ますか 9の次は10でなくてＡで返したいんですけど。 344 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 23:59:28 ] Hex(i) ってするってこと？ 345 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 00:13:19 ] 質問させてください。 Excel2000でSortメソッドを使うVBAコードを走らせているとき、 そのExcelウィンドウをバックグラウンドにすると、Sortメソッドの部分だけが滅茶苦茶遅くなります。 （計測するとフォアグラウンドの時と比べて１０倍くらい時間が掛かる） フォアグラウンドに切り替えると高速に動作します。 環境はXPpro、Excel2000で、Core2Duo・Corei7 いずれのＰＣでも再現します。 パフォーマンスオプションはバックグラウンドサービスに設定しています。 これって仕様なんですかね。Excel2003や2007だと改善されていますか？ 346 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 01:50:57 ] >>344 ありがとうございます。恥ずかしながらHexという関数を始めて知りました。 出来ればストレートに大文字で返して欲しいですけど、これでかなり楽になりました。 347 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 09:09:59 ] >>340 K列またはK列の一番後ろのセルに名前をつければいいんじゃね？ 348 名前： [―{}@{}@{}-] デフォルトの名無しさん mailto:sage [2010/02/20(土) 09:46:08 ] >>340 >>341もいいね。 行追加がないものとして、列見出しが"日付"だったら Set target = Rows(1).Find("日付").EntireColumn.Cells MsgBox target(target.Count).End(xlUp).Address とか 行追加があるならRows(1)をCellsにでもすればいいだろう 349 名前：デフォルトの名無しさん [2010/02/20(土) 15:59:46 ] セルの計算式を下記のようにして =TEST() 標準モジュール関数TESTを呼出した場合、関数側で 呼出し元のセルの位置を取得するにはどうしたらいいですか？ アクティブセルの位置ではなく、関数呼出しの計算式が 書かれているセルを知りたいです。 Windows7、Office2007です。 よろしくお願いします。 350 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 16:22:21 ] >>349 関数の引数にRow,Column 351 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 16:24:48 ] ttp://www.ne.jp/asahi/hishidama/home/tech/excel/workfunc.html#Application.Caller 352 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:36:52 ] >>350>>351 ありがとうございます。 Application.Caller　と　Application.Volatile　を使い それらしい動きにはなったのですがセルの再計算時の挙動に 癖がありますね。 別シートをいじってからシートを切り替えると#VALUE!になって しまい、元のシートで再計算しなおしてやらないといけません。 関数を諦めて計算式で全部やる方向も検討してみます。 353 名前：286 mailto:sage [2010/02/20(土) 20:43:44 ] C A B D F 354 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 15:36:41 ] ソートの話が出たので便乗するんだが、 結局、どのソートが一番速く安定性があるのか。。 エクセルのVBA限定の話で、 項目数が100程度の場合、項目数が100,000の場合、ほぼ並んでいる場合、まったくのランダム。 状況によっていろいろあるんだろうが、とりあえずこのソートをよく使うっていうのを教えてくれ。 355 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 16:25:34 ] エクセルのVBA限定の話ならエクセルのソートをまんま使っちゃう 中身がなんなのかは知らんｗだれか知ってる？ 356 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 17:12:06 ] クイックソート 357 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 18:27:22 ] 一般機能優秀じゃない？ わざわざコードを組むより、一般機能や関数を使った方が早い場合が多い ・・・とどっかに書いてあったｗ 358 名前：345 mailto:sage [2010/02/21(日) 21:13:08 ] >>345のような現象は自分だけなのかな？ 仕様ならばSortメソッドを使わずにソートするしかない Sortメソッドの場合、常にエクセルをアクティブにしていれば問題ないけど、 エクセルを複数起動して同じコードを並列処理させる場合、 アクティブなエクセルでは問題ないけど 他の非アクティブなエクセルは極端に遅くなってしまう。 359 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 21:34:43 ] 先月自作のエロ画像処理ツールでクイックソートを使ったよ。 理由は使ったことが無かったから。 ソートのプログラムを書いたのは後にも先にもこれだけ。 DBのorder byとかエクセルの並べ替え機能さえ使えればプログラムで書くことはまず無い。 360 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 21:37:46 ] >>358 自動計算や画面更新を止めてもおそい？ 361 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 21:43:26 ] 構造体の配列例えば、生徒（学籍番号、名前、身長、体重）を体重で並べ替える場合って 学籍番号や名前や身長も全部入れ替えるの？ 362 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 21:47:48 ] 入れ替えないとデータが壊れるでしょ 363 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 21:53:47 ] >>362 別の配列に学籍番号だけを取り出して ソートしてもとの配列と紐付けるとかはあり？ 学籍番号、名前、身長だけなら入れ替えてもいいけど 他の項目が100個とかあったら大変じゃね？ 364 名前：358 mailto:sage [2010/02/21(日) 22:39:11 ] >>360 もともと自動計算も画面更新も止めてます。 Sortメソッドを含むVBAコードがアクティブなエクセル上で高速に動作してる最中に、 デスクトップをクリックしてエクセルを非アクティブにすると、途端に実行速度が十分の一ほどになる。 再度エクセルをアクティブにすると高速に動作する。という状態です。 365 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 01:08:44 ] XPでExcelは2003を使用しています。 VBA（マクロ）を触りだして3日程です。 ブックA（1日の記録）　ブックB（数ヶ月のデータ・縦に日付、横に種類や個数等） ブックAの日付入力箇所に、日にちを打ち込みます（マクロでは無く手打ち） ブックAのデータ入力箇所に、ブックBのデータを引用する為に ブックAを開いた状態で、「マクロを記録する」で ブックBを開き、ブックAに戻り手打ちした日付のセルをコピーして ブックBに移動して、ctrl+Fでコピーした日付を貼り付けて検索 検索した右側に、必要なデータがあるので、キーボードで右側を押して 目的のデータ（種類や個数等）をブックBからブックAにコピーしてペーストを繰り返す （繰り返す理由は、必要なデータが飛び飛びな為と、横に並んでいるのを縦に並べる為） コピペ終わると、ブックBを閉じる。 というマクロを作ってみたのですが 日付を変えて実行してみたり、VBA？を見てみると問題点が沢山ありまして 問題点1、Aで日付をコピーして、Bで検索時にペーストして検索する所で 2010/1/1をコピーして、マクロを作った為か 日付を2010/1/2に変更してマクロを実行しても 2010/1/1で検索した、データを引用してしまう 問題点2、検索した日付の横のデータをキーボードで右側に移動してコピーの部分で VBA？で見てみたところ、単純にあるセルをコピー　となっているようなので 日付の問題が解決しても、検索した日付の右側ではなく あるセルをコピーしてしまう為、日付とは関係の無い特定のセルをコピーしてしまう 色々試したり、VBAで見たところ 問題点1は、検索時にコピペした日付では無く、マクロを記録した2010/1/1で検索しているので 日付を変更しても意味が無い？若しくは、検索自体がマクロで出来ない？ 問題点2は、キーボードの右等の操作は記録されない 検索ではなく、オートフィルタを使い、特定の日付を1行だけにすることにより 行移動を無くせば解決？ 366 名前：365 mailto:sage [2010/02/22(月) 01:09:58 ] 自分がしたい事を簡単にまとめると ブックAに日付を入力後、マクロ実行 ブックAに入力した日付に対するデータを ブックBから引用 日付等は、=today()　で入力したいのですが ブックBのデータを引き出す為の、日付の部分が 2010年1月1日が、20100101　となっているので オートフィルタでデータを絞る為にも、20100101　というデータが必要なので 日付は手入力という手段しか無いと思いました 後は、ブックBをオートフィルタで絞りこんだとして データをAに入力したら、ブックBを閉じたいのですが オートフィルタを実行した後だと、「変更を保存しますか？」と 窓が出てくるので、出てこない様にするにはどうしたらいいのでしょうか 長くなって申し訳ないですが、よろしくお願いします 367 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 07:37:15 ] 少しは自分で書く努力しようぜ

---

---

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

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