1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2010/01/06(水) 12:34:58

0263デフォルトの名無しさん

2010/02/10(水) 16:49:44

>>261
>>262
ありがとうございます。ちなみに>>241で質問した者です。

'果物番号
　fruit = Worksheets("sheet1").Range("E10")
　aRow = 1
　aCount = 0
'=================================================
For i1 = 2 To 6 '検索する行を指定
'果物番号の検索
With Worksheets("sheet1")
Set found1 = Worksheets("sheet1").Range(.Cells(i1, 2), .Cells(i1, 5)).Find(fruit, , LookAt:=xlWhole)
End With

If found1 Is Nothing Then
Else
'最初の人の余り（率）を取得して書き込み
s1 = Worksheets("sheet1").Cells(found1.Row, "A")　　’s1は最初に食べる人
out_rate1 = Worksheets("sheet1").Cells(found1.Row, "G")
aRow = aRow + 1
Worksheets("sheet2").Cells(aRow, 1) = s1
'排出物
out1 = Worksheets("sheet1").Cells(i1, 8)
'=================================================
For i2 = 2 To 6　（以降続く）

というプログラムで、i1ではout_rate1=0となれば最初に戻って次のパターンを検索、
i2ではout_rate2=0となれば最初に…
という流れを目指して書いたものです。
分かりにく過ぎて申し訳ないです。エスパーさんいらっしゃいましたら宜しくお願いしますw

0264デフォルトの名無しさん

2010/02/11(木) 00:47:06

>>258
元のプログラム構造を尊重した一例。
本当はMsgBoxはどちらか一カ所にすべき。

Sub main()
　　If ChkShtName Then
　　　　MsgBox Now
　　End If
End Sub

Function ChkShtName() As Boolean
　　If ActiveSheet.Name <> "xoxo" Then
　　　　MsgBox "シートは:" & ActiveSheet.Name
　　　　ChkShtName = False '(1) ここで本当はmainを抜けたい
　　Else
　　　　ChkShtName = True
　　End If
End Function

0265255

2010/02/11(木) 01:36:07

>>257

例えば、現在アクティブなbook2（マクロを登録してあるファイル）の
中のマクロで、ひとつ前にアクティブであった
book1（いろいろなファイル）に対して操作を行う時に、
nameが固定されていないbook1をアクティブにする方法です。

それが分からないのでnameも取得できませんでしたが、一応自己解決しました。
丸一日かかってやっと思いついたのが、
「現在アクティブなブックのウインドウを最小化する
とひとつ前のブックが自動的にアクティブになる」
というエクセルの動作を利用してみました。

0266255

2010/02/11(木) 01:49:31

もうひとつ質問なのですが、
メニューバーへボタンを作って
そのボタンからマクロを実行するアドインを
作って実装させているんですが、
計１０台くらいの仲間に実装したのに、
何日かしたら数台のＰＣでボタンが消えていました。

ツール　→　アドインで調べてもアドインファイルにチェックは
ついたままになっているんです。

ちなみにチェックを外してＯＫボタンを押すとエラーになりました。
アドインのメニューボタンだけが消えてしまった状態なんですが

ボタンをdeleteするプログラムを含むプログラムを
実行していないとしたら、
ほかにどんな原因が考えられるのでしょうか？

0267デフォルトの名無しさん

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を最後に開いたら駄目だね

0268255

2010/02/11(木) 15:25:13

>>267
book3,book4,book.......と複数ブックが
開いている状態でbook2(マクロを登録したファイル）をアクティブ
にしてその中のマクロを実行するときに
ひとつ前にアクティブだった任意のブック(book1 or book3 or ......)
をアクティブにする方法です。
activewindow.activatepreviousではウインドウが開いた順番をもとに
ひとつ前の番号のウインドウをアクティブにするだけなので、

ひとつ前の番号のウインドウ　＝　ひとつ前にアクティブだったブック

とは限らないケースがあり、マクロ実行時に思惑通りの動作を
してくれなかったのです。

0269デフォルトの名無しさん

2010/02/11(木) 15:45:48

>>268
VBA単独でやるなら、すべてのブックにマクロを仕込んで、それぞれ自分がアクティブになったら
名前をどこかに記録しておく、みたいな方法かなあ。
俺ならウィンドウメッセージをフックして、アクティブになったウィンドウを記録するような常駐ソフトを作る。

0270デフォルトの名無しさん

2010/02/11(木) 15:55:08

そもそも仕様が腐っとる。

0271デフォルトの名無しさん

2010/02/11(木) 16:06:54

パソコン環境が貧弱な頃から積み上げた成果でしょ

0272デフォルトの名無しさん

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

0273272

2010/02/11(木) 20:42:19

アンカーみすった
>>268
だったですすみません

0274デフォルトの名無しさん

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

0275274

2010/02/11(木) 22:08:13

IsArray(buf)はTrueを返すんですけど、
LBound(buf)とUBound(buf)は“配列がありません”と
コンパイルエラーになってしまいます。

0276デフォルトの名無しさん

2010/02/11(木) 22:13:54

自分でrangeって宣言してるんだから
配列じゃなくて、rangeでしょ

0277デフォルトの名無しさん

2010/02/11(木) 22:16:14

Sub test()
Dim buf
buf = Selection
Debug.Print UBound(buf), LBound(buf)
End Sub

0278274

2010/02/11(木) 22:23:24

>>277
これ、エラーになりますよね？

0279274

2010/02/11(木) 22:25:36

あ、失礼しました！Variantだと配列ってことでしょうか？
でも、Rangeで宣言してIsArrayでTrueを返すのは
どういうことなんでしょう？
すみません・・・すごく初心者な質問ばかりで・・・orz

0280デフォルトの名無しさん

2010/02/11(木) 22:29:55

>>279

あやまる気があるなら自分で調べろ。

0281258

2010/02/11(木) 22:47:10

>>264
ありがとうございます。

0282274

2010/02/11(木) 22:54:26

http://www012.upp.so-net.ne.jp/scotchegg/ExcelVBA/Range/Value.htm
似たようなもの見つけました。
やはり配列で、最小インデックスは1ということのようですね。
試験でbuf(1)の値は何か？という問題が出て、
配列なら0から始まると思い込んでて間違えたものですから・・・。
お騒がせしました。

0283デフォルトの名無しさん

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なのかなと思う

0284デフォルトの名無しさん

2010/02/12(金) 23:59:10

VBAのメソッドやクラスのドキュメントてMSDNにないの？
全網羅してるやつ。。

0285デフォルトの名無しさん

2010/02/13(土) 02:15:15

ある

0286デフォルトの名無しさん

2010/02/13(土) 18:31:15

IEのフォームにセルの値を次々に入力して検索結果を別セルに転記する、というマクロ作っています。
入力内容によっては「Windows Internet Explorer」というタイトルの警告ウィンドウ（ボタンはOKボタンのみ）が
出てしまいます。
このウィンドウを閉じれば次のセルの値は問題なく入力、検索できるのですが、
このウィンドウを閉じるにはどうすればいいでしょうか？

0287286

2010/02/13(土) 18:46:50

警告ウィンドウが出てるかどうかの判断の仕方もあわせて教えてください。

0288デフォルトの名無しさん

2010/02/13(土) 19:34:29

逆に質問ですけど、JavaスクリプトでExcelに書き出してるの？

0289デフォルトの名無しさん

2010/02/13(土) 19:35:42

質問取消します
読間違えました

0290デフォルトの名無しさん

2010/02/13(土) 23:44:55

宜しくお願い致します。EXCEL2000です。

「サンプル写真」という名前のフォルダの中にある、
セルA1に書かれている数字のjpgファイルを開く。

というマクロを何とか作りました↓。

Sub テスト()

ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\a\デスクトップ\サンプル写真\" & Range("A1") & ".jpg"

End Sub

一応動くのですが、実行するとインターネットエクスプローラで開いてしまいます。
拡張子の関連付けでは、他のソフトで開くようにしいるので、
そのソフトで開けるようにしたいのです。

開くjogファイルを開くプログラムを指定するにはどうすればよいでしょうか？
宜しくお願い致します。

0291デフォルトの名無しさん

2010/02/14(日) 00:30:30

>>290
http://homepage1.nifty.com/MADIA/vb/API/ShellExecute.htm

0292290

2010/02/17(水) 10:04:46

>>291
遅レスすいません。アク菌にまきこまれ返信できませんでした。
解決しました。
本当にありがとうございます。
感謝

0293デフォルトの名無しさん

2010/02/17(水) 11:11:06

csvファイルをインポートではなくダブルクリックで開いた場合、
例えば「12-11」というデータは「11月12日（中身は40494）」に変換されてしまいますが、
これをマクロで12-11に戻してやる場合にはどういう方法がいいんでしょうか？

ちなみにその列は「数値-数値」の形ではない文字列も含まれていますので、
書式の取得からやらなければいけないと思います…

その処理を入れようとしているのは行数分回すfor文の中です。
よろしくお願いいたします。

0294デフォルトの名無しさん

2010/02/17(水) 11:38:10

>戻してやる場合にはどういう方法がいいんでしょうか？

考え方が違う。
EXCELに展開するときに処理することを考えるべし。

0295デフォルトの名無しさん

2010/02/17(水) 11:45:05

>>293
その場合、元のデータが「12-11」だったのか「12/11」だったのか「12月11日」だったのか
判断する方法はないので元に戻すこともできない。
あとから修正するんじゃなくて、最初から別の方法で読み込むこと。

0296デフォルトの名無しさん

2010/02/17(水) 12:08:17

>>293

発想が腐っとる。

0297デフォルトの名無しさん

2010/02/17(水) 12:19:07

>>295
住所のカラムなので日付が入ることはないんです

>>296
腐敗しとります

0298デフォルトの名無しさん

2010/02/17(水) 12:30:10

ああ、.textに"月"と"日"が含まれてたらそれぞれの前の数値を抽出して並び替えればいいのか

お騒がせしました。ちなみに俺は「取り込むときに処理しないとまずい」とちゃんと提言しましたよ？
腐敗してるんですよ

0299デフォルトの名無しさん

2010/02/17(水) 12:38:35

>>297
そういう重要な条件を後出しするんじゃねえボケ

0300デフォルトの名無しさん

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してやるとまた日付形式に
戻っちゃうんです。なんなんだ…泣きそうｗ

0301デフォルトの名無しさん

2010/02/17(水) 13:29:18

ああ、
If InStr(Address2, "月") + InStr(Address2, "日") <> 0
ではなくて
If InStr(Address2, "月") <> 0 And InStr(Address2, "日") <> 0 Then
じゃないとまずいですね。NORが無いのは残念だ

0302デフォルトの名無しさん

2010/02/17(水) 13:34:24

こうやって糞シートが出来上がっていくんですねｗ

0303デフォルトの名無しさん

2010/02/17(水) 13:35:32

>>302
ベストな解答頼む

0304デフォルトの名無しさん

2010/02/17(水) 13:48:11

結局どうせごり押しなら
Cells(i, 8).NumberFormat = "m-d"
で通しちゃうことに決めました
これだと日付形式じゃないものはそのままですし

>>302
俺からもお願いします

0305デフォルトの名無しさん

2010/02/17(水) 14:52:16

Excelは青色申告用ソフトであって住所録じゃないんだからそういう使い方自体が間違ってる

0306302

2010/02/17(水) 15:40:13

>303-304

つ>294-295

0307デフォルトの名無しさん

2010/02/17(水) 15:45:56

それがベストな解答？

0308デフォルトの名無しさん

2010/02/17(水) 17:45:54

Excelって青色申告用ソフトだったのか。長年使ってて初めて知った。そういう用途には一度も使った事ねーや w

0309デフォルトの名無しさん

2010/02/17(水) 21:02:37

webクエリで勝手に保存されてしまうアドレス群の中で、不要な物が多すぎるので消したいんだけど何か方法ないですか？
ＶＢＡ使うやり方でも使わないやり方でもなんでもいいです。

0310デフォルトの名無しさん

2010/02/17(水) 22:08:49

マクロを実行して
途中でエラーになった場合
VBAの画面が開かれるのですが
これを開かずに実行に失敗した事だけを伝えるのってどうすればいいのでしょうか？

0311デフォルトの名無しさん

2010/02/17(水) 22:20:11

On Error Resume Next とか

0312デフォルトの名無しさん

2010/02/17(水) 22:49:24

>>308
まあExcelは違うわな
パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから

0313デフォルトの名無しさん

2010/02/17(水) 22:50:47

>>309
必要か不要かを機械的に判断するロジックがあれば可能
人間が見ないとわからない物は手作業で消すしかない

0314デフォルトの名無しさん

2010/02/18(木) 00:27:32

VBはマイクロソフトが開発したわけではなく
他社が開発したものをマイクロソフトが買収したもの

0315デフォルトの名無しさん

2010/02/18(木) 08:58:22

>>313
レスありがとう、手作業での消し方すらわからんとです。

0316293

2010/02/18(木) 09:00:40

>>305
住所録として使っているわけではありません
csvにマクロを適用させるアプリとして使っているのです

>>306
だからその案は却下されたんですって言ってるじゃないですか
なんだ、がっかりです

0317デフォルトの名無しさん

2010/02/18(木) 09:14:05

>316
>だからその案は却下されたんですって言ってるじゃないですか

そうやって例外が例外を産み、糞シートが出来上がっていくのだよ。
>294-296がベストな回答だと思うがな。

0318デフォルトの名無しさん

2010/02/18(木) 10:09:40

>>317
自覚のない素人に何を言っても無駄

仕事でこんなことやってるってのにはﾋﾞｯｸﾘした

0319デフォルトの名無しさん

2010/02/18(木) 10:13:05

だめだこいつｗ
293は限定された条件の中でのベストな回答を訊いてるんだろうに。
その条件自体に文句つけてどうする。
サッカーやるのに「手を使えないのがおかしい！」って言ってるのと一緒だ。

0320デフォルトの名無しさん

2010/02/18(木) 10:27:11

>318

そういうくだらないことやってる会社って結構あるけどなｗ

0321デフォルトの名無しさん

2010/02/18(木) 10:34:38

文字列データを「"」でかこってないCSVをダブルクリックでまともに開きたいってだけでしょ
開いた後で自動なり手動なりでマクロから読み込み直しさせればいいだけじゃないの？

0322デフォルトの名無しさん

2010/02/18(木) 11:08:39

>>312
> >>308
> まあExcelは違うわな
> パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから

都合のいいところでお前のパソコンの歴史が始まったらしいな。
そんな話聞いたこと無いぞ。

0323デフォルトの名無しさん

2010/02/18(木) 12:22:22

パソコンは戦争目的じゃなかったか？
弾道計算か何かだと思う
表計算ソフトは
ttp://ja.wikipedia.org/wiki/VisiCalc
だとさ。金融がどーとかで税金かどうかまでは分からないが、
まあ似たようなものといえなくも無いが間違ってるとも言える
ってかどっちでもいい

0324293

2010/02/18(木) 13:10:45

なんかちょっとだけ盛り上がってますね。すみません

>>321
ああ、それがベストですね！
ルールを変えろ、って言ってる人は意味がわかりません
変えられない前提だって言ってるのになあ

0325デフォルトの名無しさん

2010/02/18(木) 13:33:05

サッカーボールを手で運べ！

0326デフォルトの名無しさん

2010/02/18(木) 13:36:52

ラグビーの発祥です

0327デフォルトの名無しさん

2010/02/18(木) 13:57:47

なるほど

0328デフォルトの名無しさん

2010/02/18(木) 14:13:01

どんな書類でもエクセルで作りそうｗ

0329デフォルトの名無しさん

2010/02/18(木) 14:16:17

フローチャートをエクセルで作るウチの会社のことだな
俺は個人的なチャートならイラレで作ってるｗ

0330デフォルトの名無しさん

2010/02/18(木) 14:30:58

アプリなんてどんな使い方してもいいよ
本来の目的からずれてようが、便利なら使えばいい

0331デフォルトの名無しさん

2010/02/18(木) 14:38:19

webページから一部分だけエクセルに取り込むコード作りたいんだけど、webクエリだと大きく取り込んでしまうので困ってます。
具体的には、ヤフーファイナンスからコードと社名と業種だけ(他はいらないです)欲しいんだけど、そういうピンポイントで取り出すみたいな事出来ますか？

また、そういうデータ取り込み系統の技術を得るための参考書籍とかあったら紹介して下さい。

0332デフォルトの名無しさん

2010/02/18(木) 14:59:06

>>331
Webクエリなら特定のテーブルだけを取り込むこともできるけど、
ヤフーファイナンスはページ全体が大きなテーブルになってるから一部を取り出すことはできない。
こういう時はページのソースを文字列変数に読み込んで、
タグなどを調べながら必要な部分だけをセルに入れることになる。

あと、やりたいことがピンポイントで決まってるなら書籍よりGoogleで検索した方が早い。
サンプルも必要な部分をコピペするだけだし。

0333デフォルトの名無しさん

2010/02/18(木) 15:05:25

レスありがとう。
自分が目指してるのは、多分こういう感じのを応用させるんだろうなとは思ってるんだけど(下、動画のアドレス)
ttp://www.youtube.com/watch?v=MVsh1XnfYOw

だんねんながらＶＢＡスタンダード程度のレベルでは意味不明でしたｗ

0334デフォルトの名無しさん

2010/02/18(木) 15:20:59

>>333
その動画サイトからソース置いてあるページにリンク貼ってあるし
ダウンロードして改造して使えばいいじゃん。
そのビデオ見てわかんないんだったら、ここで同じこと説明しても
やっぱりわかんないんじゃないの？

企業コードが知りたいだけなら、そういう一覧表がきっとどこかにあるはず。
検索してみたら？

0335デフォルトの名無しさん

2010/02/18(木) 16:45:51

>>331
新・ExcelVBAで極めるシステムトレード～最強パワーアップ編

正規表現による取得方法を書いてる

0336デフォルトの名無しさん

2010/02/18(木) 18:44:01

>>331
Sub test()
Dim URL As String
Dim WebTbl As String

URL = "URL;http://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

ちょっと違うかな？

0337デフォルトの名無しさん

2010/02/18(木) 19:00:35

>>331
ごめんorz
ちょっとどころか全然違ったねｗ

0338デフォルトの名無しさん

2010/02/18(木) 22:19:02

VBAでJavaにおけるExceptionみたいなものってあるのでしょうか？
つまり何らかのエラーがおこった時点でどのメソッドに強制的に移動するみたいな感じで

0339デフォルトの名無しさん

2010/02/18(木) 22:40:22

色々レスありがとう。
エクセル入ってるのが2ndＰＣなので後でコードコピーして試してみる。
あと、オススメ本は明日本屋で探してみます。

コレで勉強してたんだけど、少し不足を感じてたので助かったわ。ちなみに誤字脱字も多いしあんましオススメしない。
ttp://www.tradersshop.com/bin/showprod?c=9784775990391
ttp://www.tradersshop.com/bin/showprod?c=9784775990513

0340デフォルトの名無しさん

2010/02/19(金) 02:24:55

～　Range("K" & Rows.count).End(xlUp)
みたいにK列を固定させているのですが
こう書いた場合Excelのシートを列削除したり追加したりするたびに
書き変えなきゃいけないのですが
列を追加したりすると自動的に変更って出来るのでしょうか？

0341デフォルトの名無しさん

2010/02/19(金) 07:40:16

>>340
目的の列を探すコードを追加すればいいんでない？

0342デフォルトの名無しさん

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"に変わって追いかけてくれる。

0343デフォルトの名無しさん

2010/02/19(金) 23:54:00

初心者質問でごめんなさい

for i = 1 to 33
良くある構文ですけど、iの値を16進法で返す事って出来ますか
9の次は10でなくてＡで返したいんですけど。

0344デフォルトの名無しさん

2010/02/19(金) 23:59:28

Hex(i)
ってするってこと？

0345デフォルトの名無しさん

2010/02/20(土) 00:13:19

質問させてください。
Excel2000でSortメソッドを使うVBAコードを走らせているとき、
そのExcelウィンドウをバックグラウンドにすると、Sortメソッドの部分だけが滅茶苦茶遅くなります。
（計測するとフォアグラウンドの時と比べて１０倍くらい時間が掛かる）
フォアグラウンドに切り替えると高速に動作します。

環境はXPpro、Excel2000で、Core2Duo・Corei7 いずれのＰＣでも再現します。
パフォーマンスオプションはバックグラウンドサービスに設定しています。

これって仕様なんですかね。Excel2003や2007だと改善されていますか？

0346デフォルトの名無しさん

2010/02/20(土) 01:50:57

>>344
ありがとうございます。恥ずかしながらHexという関数を始めて知りました。
出来ればストレートに大文字で返して欲しいですけど、これでかなり楽になりました。

0347デフォルトの名無しさん

2010/02/20(土) 09:09:59

>>340
K列またはK列の一番後ろのセルに名前をつければいいんじゃね？

0348 [―{}@{}@{}-] デフォルトの名無しさん

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にでもすればいいだろう

0349デフォルトの名無しさん

2010/02/20(土) 15:59:46

セルの計算式を下記のようにして

=TEST()

標準モジュール関数TESTを呼出した場合、関数側で
呼出し元のセルの位置を取得するにはどうしたらいいですか？
アクティブセルの位置ではなく、関数呼出しの計算式が
書かれているセルを知りたいです。

Windows7、Office2007です。
よろしくお願いします。

0350デフォルトの名無しさん

2010/02/20(土) 16:22:21

>>349

関数の引数にRow,Column

0351デフォルトの名無しさん

2010/02/20(土) 16:24:48

ttp://www.ne.jp/asahi/hishidama/home/tech/excel/workfunc.html#Application.Caller

0352デフォルトの名無しさん

2010/02/20(土) 17:36:52

>>350 >>351
ありがとうございます。

Application.Caller　と　Application.Volatile　を使い
それらしい動きにはなったのですがセルの再計算時の挙動に
癖がありますね。
別シートをいじってからシートを切り替えると#VALUE!になって
しまい、元のシートで再計算しなおしてやらないといけません。

関数を諦めて計算式で全部やる方向も検討してみます。

0353286

2010/02/20(土) 20:43:44

C

A
B
D
F

0354デフォルトの名無しさん

2010/02/21(日) 15:36:41

ソートの話が出たので便乗するんだが、
結局、どのソートが一番速く安定性があるのか。。

エクセルのVBA限定の話で、
項目数が100程度の場合、項目数が100,000の場合、ほぼ並んでいる場合、まったくのランダム。
状況によっていろいろあるんだろうが、とりあえずこのソートをよく使うっていうのを教えてくれ。

0355デフォルトの名無しさん

2010/02/21(日) 16:25:34

エクセルのVBA限定の話ならエクセルのソートをまんま使っちゃう
中身がなんなのかは知らんｗだれか知ってる？

0356デフォルトの名無しさん

2010/02/21(日) 17:12:06

クイックソート

0357デフォルトの名無しさん

2010/02/21(日) 18:27:22

一般機能優秀じゃない？
わざわざコードを組むより、一般機能や関数を使った方が早い場合が多い

・・・とどっかに書いてあったｗ

0358345

2010/02/21(日) 21:13:08

>>345のような現象は自分だけなのかな？
仕様ならばSortメソッドを使わずにソートするしかない

Sortメソッドの場合、常にエクセルをアクティブにしていれば問題ないけど、
エクセルを複数起動して同じコードを並列処理させる場合、
アクティブなエクセルでは問題ないけど
他の非アクティブなエクセルは極端に遅くなってしまう。

0359デフォルトの名無しさん

2010/02/21(日) 21:34:43

先月自作のエロ画像処理ツールでクイックソートを使ったよ。
理由は使ったことが無かったから。
ソートのプログラムを書いたのは後にも先にもこれだけ。
DBのorder byとかエクセルの並べ替え機能さえ使えればプログラムで書くことはまず無い。

0360デフォルトの名無しさん

2010/02/21(日) 21:37:46

>>358
自動計算や画面更新を止めてもおそい？

0361デフォルトの名無しさん

2010/02/21(日) 21:43:26

構造体の配列例えば、生徒（学籍番号、名前、身長、体重）を体重で並べ替える場合って
学籍番号や名前や身長も全部入れ替えるの？

0362デフォルトの名無しさん

2010/02/21(日) 21:47:48

入れ替えないとデータが壊れるでしょ

■ このスレッドは過去ログ倉庫に格納されています