08/01/11 19:37:54
>>328
このスレはオマイの進捗報告書かと
332:デフォルトの名無しさん
08/01/12 13:39:08
ｗｉｎxpでExcel2003を使用しています。
VBA-Editorからの実行は正常で、ワークシート上のコマンドボタンからの実行だと
時々、Excelが強制終了します。
コードは変えていないのに、上記の状況が発生しないときもあります。
バグだと思うのですが、発生しない時もあるので、原因がつかめません。
そんな事ってありますか？
333:デフォルトの名無しさん
08/01/12 13:49:06
>>332
あるよ。何か、以前にも出てたと思う。
クラスをインプリメントして、何かややこしいことしようとしてるヒトが居て、
エラーが出たり出なかったりするという話があった。基本的にはそれと同じ系統の問題では？
334:デフォルトの名無しさん
08/01/13 01:40:25
ｗｉｎxpでExcel2003を使用しています。
以下のコードは、都道府県ごとに１枚のデータシートを作成する処理なんですが、コードが１行づつどんな作業を意味しているのかがわかりません。
１行ごとにどのような処理をしているのかの説明をよろしくお願いします。長文で申し訳ありません。
Sub まとめ()
Dim i As Integer 'カウンタ変数iの宣言
Dim n As Integer
Dim MyS1 As Worksheet 'ワークシート型オブジェクトMyS1を宣言
Dim MyC As Worksheet
Worksheets.Add before:=Worksheets("全国")
ActiveSheet.Name = "data"
Set MyS1= Worksheets("data")
With Worksheets("全国")
MyS1. Range(MyS1.Cells(1,1),MyS1.Cells(11,12))=.Range(Cells(1,1),.Cells(11,12)).Value
End With
i=12
For Each MyC In Worksheets
If MyC.Name<> "data" Then
n = 12
MyS1.Cells(i,1)=MyC.Name
i=i+1
Do While MyC.Cells(n,2).Value<>""
MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value
i=i+1
n=n+1
Loop
End If
335:デフォルトの名無しさん
08/01/13 01:45:30
Sub まとめ()←死ね
Dim i As Integer 'カウンタ変数iの宣言←死ね
Dim n As Integer ←死ね
Dim MyS1 As Worksheet 'ワークシート型オブジェクトMyS1を宣言←死ね
Dim MyC As Worksheet←死ね
←死ね
Worksheets.Add before:=Worksheets("全国")←死ね
ActiveSheet.Name = "data"←死ね
Set MyS1= Worksheets("data")←死ね
With Worksheets("全国")←死ね
MyS1. Range(MyS1.Cells(1,1),MyS1.Cells(11,12))=.Range(Cells(1,1),.Cells(11,12)).Value←死ね
End With←死ね
←死ね
i=12←死ね
For Each MyC In Worksheets←死ね
If MyC.Name<> "data" Then←死ね
n = 12←死ね
MyS1.Cells(i,1)=MyC.Name←死ね
i=i+1←死ね
Do While MyC.Cells(n,2).Value<>""←死ね
MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value←死ね
i=i+1←死ね
n=n+1←死ね
Loop←死ね
End If←死ね
336:デフォルトの名無しさん
08/01/13 04:26:19
こんなひどい丸投げを久しぶりに見た・・・
337:デフォルトの名無しさん
08/01/13 05:08:47
replace "\n" "←死ね\n"
338:デフォルトの名無しさん
08/01/13 05:10:22
>>334
随分酷いコードだな
VBA始めて3日くらいの奴が書いたコードだろ
こんな下劣なコードの説明なんてまっぴらだぜ
339:デフォルトの名無しさん
08/01/13 14:25:58
ある意味、微笑ましいコードだなｗ VBならでは、とでも言うか。
340:334
08/01/13 14:39:48
わからないのなら、レスくださらなくて結構です。
わかる方のみでお願いします。
341:デフォルトの名無しさん
08/01/13 14:58:48
>>340
どうもすみません・・。
342:デフォルトの名無しさん
08/01/13 15:17:23
要はググれということだ
343:デフォルトの名無しさん
08/01/13 15:18:17
>>340
判るんだけどさぁ、それを説明するのはスレ違いだし、そもそも野暮だろ?
344:デフォルトの名無しさん
08/01/13 15:56:32
>>340は馬鹿女
345:デフォルトの名無しさん
08/01/13 16:01:13
馬鹿かどうかは重要じゃない
大事なのは写真だ
346:デフォルトの名無しさん
08/01/13 16:06:19
>>340
１行ずつ説明が必要とかいう時点でおかしいと思わないか？
Dim i As Integerにも説明が必要なのか？どのレベルでだ？
Dimが何を意味して、Integerが何を意味するかまで解説するのか？
あるいは内部でIntegerがどのように管理されているかまで必要か？
処理ってのはある程度の塊で説明するのが普通だろ？
「ここはクラスの平均点を計算する」みたいな感じでよ。
文法がわからないのであれば入門書買うなりググるなりすればいい。
ピンポイントなら教えてやれても全部教えろとか金取りたくなるわ。
347:デフォルトの名無しさん
08/01/13 16:07:50
写真なんかはどうでもいい。
動画だ。動画をよこせ。
348:デフォルトの名無しさん
08/01/13 16:11:57
クリーチャーが「あたしはできる女なのよ！」とか自己紹介してる動画とかか？
349:デフォルトの名無しさん
08/01/13 21:03:19
質問ですが、組み込みダイアログボックス（例えばApplication.Dialogs(xlDialogPrint).Show）の
ウィンドウハンドルを取得するには、どうすればよろしいでしょうか？
APIを使って行うと思いますが、Excel本体やユーザーフォームのウィンドウハンドルの取得であれば
ググれば出てきたのですが、組み込みダイアログボックスのウィンドウハンドルの取得は
見つけることができなかったので、よろしくお願いします。
350:デフォルトの名無しさん
08/01/13 21:15:02
Spy.exe
351:デフォルトの名無しさん
08/01/14 06:14:32
>>334
i=12
iに12を設定する
For Each MyC In Worksheets
MyCごとの処理です
If MyC.Name<> "data" Then
n = 12
MyC.Nameがdataと違うときは、nに12を設定する
MyS1.Cells(i,1)=MyC.Name
i=i+1
MyC.NameをMyS1 の(12,1)に設定して、iを13にする
Do While MyC.Cells(n,2).Value<>""
MyCの(12,2)が空じゃなければ、以下の処理を繰り返す
MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value
MyS1の(13,1)から(13,12)に、 MyCの(12,1)から(12,12)を設定する
i=i+1
n=n+1
Loop
iを14に、nを13にして Do Whileに戻り、
MyCの(13,2)が空じゃなければ、また処理を繰り返す
MyS1の(14,1)から(14,12)に、 MyCの(13,1)から(13,12)を設定する
その次はMyS1の(15,1)から(15,12)に、 MyCの(14,1)から(14,12)を設定する
というふうに、iとnは1ずつ大きくなり、MyCの(n,2)が空になると処理をやめる
End If
352:デフォルトの名無しさん
08/01/14 07:47:13
URLﾘﾝｸ(zoomtv.web.fc2.com)
353:デフォルトの名無しさん
08/01/14 08:10:03
>>351
やさしいにもほどがあるな
354:デフォルトの名無しさん
08/01/14 09:41:33
教えたがりは一種の荒らし
355:デフォルトの名無しさん
08/01/14 10:18:46
中途半端なヤツほど、簡単な質問に答えたがる。
結局、自分自身の頭の整理をしてるんだろうな。
356:デフォルトの名無しさん
08/01/14 10:53:34
>>353-355
君たち気持ち悪いよ。
357:デフォルトの名無しさん
08/01/14 11:21:53
このスレ気持ち悪いよ
358:デフォルトの名無しさん
08/01/14 11:31:16
このスレ気持ち悪いよ
359:デフォルトの名無しさん
08/01/14 11:48:28
このスレ気持ち悪いよ
360:デフォルトの名無しさん
08/01/14 13:42:05
おいおいどう見ても皮肉のレスだろ
求めてる答えがあれなら質問の意味がないと思うぞ
361:デフォルトの名無しさん
08/01/14 14:04:34
だれも回答しないから自分で書いたんだろうな
362:デフォルトの名無しさん
08/01/14 18:30:10
質問スレって所で答えては駄目だと。じゃぁ、このスレの存在意義って何さ。
363:デフォルトの名無しさん
08/01/14 18:50:09
教えたがり撲滅
364:デフォルトの名無しさん
08/01/14 18:58:48
>>362
ごきぶりほいほい
365:デフォルトの名無しさん
08/01/14 20:43:59
要は面倒なことはやりたくないだけだろw
366:デフォルトの名無しさん
08/01/14 22:43:08
>>362
> 質問スレって所で
そう､ここは質問スレであって､
自社商品を購入してくれた顧客相手のサポートセンターでも
受講料を支払ってくれた生徒相手のスクールでも無い
367:デフォルトの名無しさん
08/01/14 23:14:23
要は面倒なことはやりたくないだけだろ
368:デフォルトの名無しさん
08/01/14 23:15:24
ここは無知な人間をののしるためのスレに決まってんじゃん
369:デフォルトの名無しさん
08/01/14 23:21:18
昔はそれなりにレスが付いていたが、今となっては・・・ね
370:デフォルトの名無しさん
08/01/15 00:05:33
Excel VBA回答スレが必要だな
371:デフォルトの名無しさん
08/01/15 00:41:49
質問です。
OS: xp pro
EXCELバージョン :2003
RGB値を使いセルの塗りつぶしを行いたいと思い、
Cells(1, 1).Interior.Color = RGB(227, 229, 223)と記述しました。
しかし実際セルの色を見てみるとまったく違う色が塗られていました。
色を解析するソフトでその色のRGB値を調べてみるとRGB(204,255,204)でした。
もうわけわかりません、アドバイスお願いします。
372:デフォルトの名無しさん
08/01/15 00:51:12
>>371
RGB(255, 0, 0)なら赤になるか？
なるならcells( i, j )にRGB( i, j, 0 )を入れたときに正しいグラデーションになるか？
RGB解析ソフトでRGB(255, 0, 0)等が正しく読み取れるか？
これくらい試してみてくれないか？
373:デフォルトの名無しさん
08/01/15 01:21:22
>>372
ありがとうございます、試してみました。
RGB(255, 0, 0)なら赤になるか？→ なりました。
cells( i, j )にRGB( i, j, 0 )を入れたときに正しいグラデーションになるか？
→
For w_row = 1 To 256
For w_gyo = 1 To 256
ThisWorkbook.Sheets(3).Cells(w_row, w_gyo).Interior.Color = RGB(w_row, w_gyo, 0)
Next
Next
を試したところ正しいグラデーションにはなりませんでした。
参考画像です。URLﾘﾝｸ(nagamochi.info)
ツール→オプション→色で表示したい色を追加すると表示できました。
これ以外には方法はないのでしょうか？
374:デフォルトの名無しさん
08/01/15 01:25:01
>>371
ｴｸｾﾙは全てパレット管理。
パレットの色しか表せない。パレット以外の色をVBA等で選んでも近いパレットの色を使用させられる。
↓
すなわちパレットを変更すればいい
＞ツール→オプション→色で表示したい色を追加すると表示できました。
＞これ以外には方法はないのでしょうか？
その表示できた方法をマクロの記録で記録してやればいい。
375:デフォルトの名無しさん
08/01/15 01:46:21
>>374
解決できました、ありがとうございました。
376:デフォルトの名無しさん
08/01/15 11:36:29
>>351
ありがとうございました！
377:334
08/01/15 11:42:32
>>351
そんなことを聞いているわけじゃありません、冗談は勘弁してください。
378:デフォルトの名無しさん
08/01/15 14:45:05
もっと言ったれw
379:デフォルトの名無しさん
08/01/15 18:52:50
>>334=377
ぷっっ て、ところだけど、何をききたいのか、言ってみたら。
折れが笑ってあげるからw
380:379
08/01/15 20:05:12
解決しました
381:デフォルトの名無しさん
08/01/15 20:49:36
>>380
おまい、アンカーもようつけんで、・・・www
382:379
08/01/15 20:52:47
>>380
は偽者です。
383:379
08/01/15 21:08:38
>>382
お前も偽物だろうがw
384:379
08/01/15 21:32:44
俺は偽物ですよ
でも>>380は本物ですよ
385:デフォルトの名無しさん
08/01/16 01:17:42
>>379
＞>>334=377
いいえ、等しくありません。
386:デフォルトの名無しさん
08/01/16 10:06:13
>>373
どうでもいいが、RGB()関数って256を指定してもエラーにならないのか、知らなかった。
387:デフォルトの名無しさん
08/01/16 13:00:24
項目とデータを含んだ2次元配列変数A,B たとえばA(30×2),B(100×2)があり、
Bの100個の項目のなかからAの項目30に該当するものをそのままAのデータに代入したい
ということを考えています。ワークシート上で行う場合はlookup関数を使えばよいのですが
マクロのままで高速に行う方法はないものでしょうか？
ワークシート関数を使ったとしても一度ワークシートにデータを書き出さなければ
つかえないのでしょうか？色々調べても分からなかったので
どなたか御教示頂けると嬉しいです。
388:デフォルトの名無しさん
08/01/16 13:26:11
>>387
ん？ というか、既に処理を書いてるんだったら、
VBAで処理してからワークシートに吐いた方が、そりゃ若干早いはずだと思うが。
389:デフォルトの名無しさん
08/01/16 13:46:00
あ、すみません。Bの項目、データは揃っていますが、Aは項目だけで
B100個の項目の一部でAの30個の項目と重複しているものを検索、抽出して
Aの該当する項目のデータとして代入しようとしています。
ワークシートの上でやるのなら、lookup関数をつかえば良いのでしょうが
ワークシートを一切いじらずに配列の内部処理だけで同様な操作を高速に
できないかと悩んでいる次第です。
390:デフォルトの名無しさん
08/01/16 14:21:54
>>389
Dim i, j As Integer
Dim AKey(30), AValue(30), BKey(100), BValue(100)
For i = 0 To 29
For j = 0 To 99
if AKey(i) = BKey(j) Then AValue(i) = BValue(j)
Next j
Next i
こういう事かな？
この程度の個数ならワークシートでやってもほぼ一瞬だと思うけど。
391:デフォルトの名無しさん
08/01/16 17:41:03
質問。
セル[A2:C2]に英語・数学・国語の得点が入っている。合計点を計算し、
セル[D2]に入れるマクロを作成しなさい。
また、合計点が270点以上の時には「大変よくできました」、
180～269点のときには「よくできました」、
180点未満のときには「がんばろう」というメッセージをセル[E2]に表示しなさい。
英語の得点は90点
数学の得点は85点
国語の得点は100点 とする。
よろちくね。
392:デフォルトの名無しさん
08/01/16 18:03:29
>>391
それは質問とは言わないような・・・。
Sub Macro()
Range("D2") = Range("A2") + Range("B2") + Range("C2")
Select Case Range("D2")
Case Is >= 270
Range("E2") = "大変よくできました"
Case Is >= 180
Range("E2") = "よくできました"
Case Else
Range("E2") = "がんばろう"
End Select
End Sub
393:デフォルトの名無しさん
08/01/16 19:17:08
デフォルトプロパティの省略はやめましょう
少なくとも他人にコードを渡すときは
394:デフォルトの名無しさん
08/01/16 21:49:52
2007で作ったマクロは何であんなに重くなるんだ。
一旦５．０で保存したら軽くなったんだけどまともに動かなくなるし。
これから2007が標準になっていくのかと思うと憂鬱だ。
395:デフォルトの名無しさん
08/01/16 21:59:19
うちの会社、未だに2000使ってて、GJ!!!
自宅の自前PCも、2000のまま。サポートし続けろよ＞MS
396:デフォルトの名無しさん
08/01/16 22:02:13
Office 2000
メインストリーム サポート : 2004 年 6 月 30 日終了
延長サポート 期間 : 2004 年 7 月 1 日から 2009 年 7 月 14 日まで
(修正プログラム サポートには最新のサービス パックがインストールされている必要があります)
397:デフォルトの名無しさん
08/01/17 10:00:49
>>390 ありがとうございます。
やりたいことはそういうことなのですが、
その書き方だと要素が膨大になった時は明らかに遅くなると思います。
VBA上で高速に行う書き方などご存知ありませんでしょうか？
398:デフォルトの名無しさん
08/01/17 10:22:24
>>397
アルゴリズム的な話なら､手法はいろいろあるが､｢VBA上で高速に行う書き方｣ではなく
｢VB言語で高速に行う書き方｣になるので､例えExcelでやるとしてもスレ違いだよ >>2★3★4
399:デフォルトの名無しさん
08/01/17 11:14:43
>>397
参照される側(ここではB)をCollectionにすればO(n)なるよ。
Dim i As Integer
Dim AKey(30), AValue(30)
Dim B As New Collection
For i = 0 To 29
AValue(i) = B.Item(AKey(i))
Next i
400:デフォルトの名無しさん
08/01/17 11:51:13
各都道府県に分けられているデータをdataという名前のシートに集計するプログラムを作成したいです。
簡単に言いますと１つのシートに４７個のシートを入れたいです。
よろしくお願いします
401:デフォルトの名無しさん
08/01/17 12:51:36
>>392 さん
ありがとうございます。
402:デフォルトの名無しさん
08/01/17 20:37:20
>>400
>１つのシートに４７個のシートを入れたいです。
意味不明
１つのブックに47個の県別シートを作りたいという意味なのか？
逆に県別に47個あるシートから1つのdataって言う名前のシートに集計したいってことなのか？
どのセルに何をどういう条件で集計するのかも書いていない。
403:デフォルトの名無しさん
08/01/17 22:54:26
質問です、VBA構造体配列を初期化したいのですがどうすればいいですか？
調べたのですがよくわかりませんでした。
404:デフォルトの名無しさん
08/01/17 23:16:07
初期化用の構造体を作って代入
405:デフォルトの名無しさん
08/01/18 00:46:52
初期化用関数作る
406:デフォルトの名無しさん
08/01/18 01:31:22
403です。
404.405さん以外のやり方を探しているのですがEarseの使い方やZreoMemoryの使い方がわからないです
407:デフォルトの名無しさん
08/01/18 02:43:12
＞Earseの使い方やZreoMemoryの使い方がわからないです
そりゃそうでしょう、そんなものありませんから。
408:デフォルトの名無しさん
08/01/18 08:27:07
>>403
その辺の仕様はVB6と一緒です
つまり>>2★3★4
409:デフォルトの名無しさん
08/01/18 11:59:04
VBAを実行する前に、このブックが共有されているかどうか
調べて、結果を返す方法は無いでしょうか。
410:デフォルトの名無しさん
08/01/18 12:20:06
>>409
Workbook.MultiUserEditing で調べられるけど、これはVBAだからダメってこと？
411:デフォルトの名無しさん
08/01/18 12:25:45
VBA実行してからまたきてね♪
412:デフォルトの名無しさん
08/01/18 12:31:44
ありがとうございます！
いえ、multiuserediting の存在を知りませんでした・・
413:397
08/01/18 14:55:18
>>398,>>399さん、判りました。自分でもまた試してみます。
ありがとうございました。
414:デフォルトの名無しさん
08/01/18 18:11:23
使えねーな
415:デフォルトの名無しさん
08/01/18 19:41:23
Worksheet_Changeで対応できない書式の変更にリアルタイム反応するためユーザーが入力した書式などをリアルタイム監視するプログラムを作成したところ、終了条件の問題に突き当たり処理に悩んでます。
'-----------------------------
Private EndFlg As Boolean
Sub Worksheets_Activate
EndFlg = False
Call 監視処理
End Sub
Sub Worksheets_Deactivate
EndFlg = True
End Sub
Sub 監視処理
Do
（処理）
DoEvents
Loop Until EndFlg = True
End Sub
'------------------------------
このようなものが、ほとんどのワークシートに書いてある状態です。
Loop Until EndFlg = True の直後にメッセージボックスを設け確認したところ、Worksheet_Activateのあるシートに移動するとその場では終了せず、Activateのないシートに移動した瞬間に終了します。
たとえばActivateのあるシートA、BとActivateのないシートCがある場合
A→C、B→Cは正常な終了が確認できるのですが
A→B、B→Aは終了メッセージが出ません。
A→B→A…を延々繰り返したあとにCを選択すると、終了メッセージがA⇔Bした回数に比例して複数出るため多重起動であると断定できました。
Activateのないシートをはさまずに開放する方法ありませんでしょうか。
416:デフォルトの名無しさん
08/01/18 20:16:17
TextBox1の入力に応じてlistboxの内容を決め、
クリックされた項目とTextBox1の入力を考慮して
TextBox2の内容を決めるということをやろうとしています。
後述のように書こうとしました。
Private Sub TextBox1_Change()
'入力に応じてワークシートからhaniにアドレスを取り出す
以下略
With UserForm1.ListBox1
.ColumnCount = 1
.RowSource = hani.Address
End With
End Sub
Private Sub ListBox1_Click()
'先ほどの入力とリストの結果からテキスト2の内容を決める。
UserForm1.TextBox2.Value = 以下略
End Sub
このようにするとPrivate Sub TextBox1から
Private Sub ListBox1_Click()に受け渡されるのは
haniの内容だけで、それ以外の変数を渡そうとしても
上手くいかず困っています。callの構文を使えば良いのでしょうか？
色々調べてみても判らずどなたかアドヴァイス頂けると嬉しいです。
417:デフォルトの名無しさん
08/01/18 22:25:58
初歩的ですみません。
VBAで、あるセル範囲にある数式の答えを出力するにはどうすればいいんでしょうか？
Range("A1:A5")="b2/2＋b5"みたいにすると数式がそのまま出力されるし・・・
418:デフォルトの名無しさん
08/01/18 22:31:50
>>417
それが初歩的だとわかるぐらいならじゅうぶん中級車さ
419:デフォルトの名無しさん
08/01/18 22:32:42
>>415
ループが入れ子になってると思う。
監視処理を各シートにを書くんじゃなくて、どこか一枚に
Sub 監視処理
Do
if !SheetA.EndFlg(0) = False Then （処理）
if !SheetA.EndFlg(1) = False Then （処理）
・・・
DoEvents
Loop Until 監視終了=True
End Sub
とか何とか書いて、実行しておけばいいんじゃないかな？
>>416
言ってる意味がよく判らないけど、
TextBox1_Change()内で使ってる変数を、ListBox1_Click()内でも使いたい、
と言う事なら、グローバル変数でも使えばいいんじゃないの？
>>417
Range("A1:A5") = "=b2/2＋b5"
420:デフォルトの名無しさん
08/01/18 23:11:24
>>415
DoEvents ステートメントは、ウィンドウズメッセージとイベントプロシージャの処理が終わるまで
戻ってこないから、多分、AのDeactivate⇒即座にBのActivateが走ってる状態。
ちょっと構造を見直した方がいいかもね。
421:デフォルトの名無しさん
08/01/19 17:14:35
OS XP、Excel2003
普段は、VBエディタから 挿入 → 標準モジュール で
Module** といったファイルを作成してコードを書いています。
このModule** というファイルを自分の好きな名前にするのにはどうしたら良いのでしょうか？
422:デフォルトの名無しさん
08/01/19 17:25:27
右クリックの名前を変更かF2でできたと思う。
423:421
08/01/19 19:16:55
>>422
ご解答ありがとう御座います。
しかし、右クリックしても「名前を変更」が見つかりません。
また、F2ではオブジェクトブラウザという表示になるのですが
名前を変更する方法がわかりません。
分かる方みえましたらお願いします。
424:デフォルトの名無しさん
08/01/19 19:22:37
>>423
プロパティウィンドウ→オブジェクト名を変える
425:デフォルトの名無しさん
08/01/19 19:23:18
>>423
プロパティウィンドウの、（オブジェクト名）を変更すると変わる。
426:416
08/01/19 21:26:44
>>419 ありがとうございます。グローバル変数にしたら解決しました。
また基本的な質問ですみませんが
マクロを起動した瞬間にリストboxに
候補を表示させようとしました
Private Sub UserForm1_initialize()
Set com1_r = Range("A1:A5")
With UserForm1.ListBox2
.ColumnCount = 1
.RowSource = com1_r.Address
End With
End Sub
のように書いても表示されません。
他のPrivate Sub TextBox1_Change()等に
書いた時は表示されるのですが
一体何が誤っているか御指摘頂けませんでしょうか？
427:421
08/01/19 21:29:38
>>424
>>425
教えて頂いた方法で出来ました。
大変ありがとう御座いました。お二人に幸あれ。
428:デフォルトの名無しさん
08/01/19 21:56:53
>>426
そのコードをそのままこちらで実行してみたけど、問題なく動いたよ。
何か別の場所でミスしてるんでは？
例えば、
値を表示させたいリストボックスのオブジェクト名が ListBox2 ではなく ListBox1 だった、とか
代入元のセル A1:A5 の値がマクロ起動時には空白だった、とか。
今一度、確認すべし。
429:質問
08/01/19 22:40:54
Visual Basic Editerの画面で何かの拍子に下記のように
操作パネルが統合されなくなってしまいました。
どうすれば元通りにできるでしょうか？よろしくお願いします！
URLﾘﾝｸ(members.at.infoseek.co.jp)
430:デフォルトの名無しさん
08/01/19 23:08:09
>>428 Private Sub UserForm1_initialize()
だとgeneralになっていたので
Private Sub UserForm_initialize()
に直すとUserFormになって動きました。
作ってるのはUserForm1なのに不思議ですね。
ともかく有難うございました。
431:デフォルトの名無しさん
08/01/19 23:51:21
>>430
画面のコントロール以外（フォーム、クラス等）のイベントプロシージャ名は、
オブジェクト名に影響されないハズなんだけどね。何でだろ？
でも、言われてみれば違和感あるよな。今気づいたｗ
432:429
08/01/19 23:52:15
自己解決しました。
プロジェクトエクスプローラで「ドッキング可能」にしたら直りました。
下記にも載ってました（＾＾）
URLﾘﾝｸ(www2.moug.net)
433:デフォルトの名無しさん
08/01/19 23:52:47
>>429
メニューの、ツール ⇒ オプション ⇒ [ドッキング] タブ を確認してみて。
434:デフォルトの名無しさん
08/01/20 00:16:46
>>400
47個あるシートから1つのdataと言う名前のシートに集計したい場合は多分これです。
Sub test()
Dim ws As Worksheet
Dim r As Range
Dim rr As Range
With Worksheets("data")
Set rr = .Range("A1")
For Each ws In Worksheets
If ws.Name <> .Name Then
Set r = ws.Range("A1").CurrentRegion
rr.Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
Set rr = rr.Offset(r.Rows.Count)
End If
Next
End With
End Sub
435:デフォルトの名無しさん
08/01/20 00:28:12
>>427
祈われるまでもなく幸ねぇよｗ
>>400
もうちょい詳しく書かないと失礼だぞぅ
436:デフォルトの名無しさん
08/01/20 00:30:46
range変数で格納できる範囲はRange(Cells(1, 1), Cells(5, 4))
のような一枚のワークシート上の範囲だけでなのでしょうか？
1枚目のRange(Cells(1, 1), Cells(5, 4))と2枚目のなんたらのように
別のsheetにわたった範囲の格納などしたい場合はどうすればいいのでしょう
437:デフォルトの名無しさん
08/01/20 00:57:59
>>436
それは無理。 クラスの概念を知らないと分からないかもしれないけど。
別々の変数に持たせるしかないと思う。もちろん、配列やコレクションは使えるはず。
438:デフォルトの名無しさん
08/01/20 20:46:37
Excelの分析ツールを使ってランダムにサンプルを取り出して計算するシート作ったのですが
Application.ScreenUpdating = False
て書いてもサンプル取り出すたびに再計算画面が出てしまいます
画面更新しないようにするにはどうしたらいいですか?
Sub MonteSample()
Dim myMonte As Integer
Dim i As Integer
Dim myMsg As String, myTitle As String
Dim myFun As Range
Dim myAv As Long, myStd As Long, myMax As Long, myMin As Long
Dim n As Long
Dim mysouce As Range
Dim mydat As Range
Dim mydats As Range
myMsg = "計算回数を入力してください"
myTitle = "モンテカルロ・シュミレーション"
myMonte = Application.InputBox(prompt:=myMsg, Title:=myTitle, Default:=30, Type:=1)
If Range("A12") = "" Then
MsgBox "A12のセルから損益のデータを入力してください", vbOKOnly + vbExclamation
End
End If
Range("D12:D1011").Select
Selection.ClearContents
Range("K32:K100").Select
Selection.ClearContents
Range("i32:i33000").Select
Selection.ClearContents
Application.ScreenUpdating = False
439:デフォルトの名無しさん
08/01/20 20:48:04
For i = 1 To myMonte
Range("A12").Activate
Set mydat = ActiveCell.CurrentRegion
Set mydats = mydat.Offset(1, 0).Resize(mydat.Rows.Count - 1, _
mydat.Columns.Count)
Application.Run "ATPVBAEN.XLA!Sample", mydats, _
ActiveSheet.Range("D12:D1011"), "R", 1000, False
Range("I65536").End(xlUp).Offset(1).Select
ActiveCell.Value = Range("E1011")
Range("D12:D1011").Select
Selection.ClearContents
Next i
Range("N4").Value = myMonte
Range("I31").Activate
Set myFun = ActiveCell.CurrentRegion
myFun.Offset(1, 0).Resize(myFun.Rows.Count - 1, _
myFun.Columns.Count).Select
myAv = Application.WorksheetFunction.Average(myFun)
Range("N5").Value = myAv
myStd = Application.WorksheetFunction.StDev(myFun)
Range("N6").Value = myStd
myMin = Application.WorksheetFunction.Min(myFun)
Range("N7").Value = myMin
myMax = Application.WorksheetFunction.Max(myFun)
Range("N8").Value = myMax
Range("K32").Value = myMin
Range("K33").Select
440:デフォルトの名無しさん
08/01/20 20:49:08
For i = 1 To 49
n = ActiveCell.Offset(-1).Value
ActiveCell.Formula = Int((Abs(myMin) + myMax) / 49) + n
ActiveCell.Offset(1).Select
Next i
Range("L32:L81").Select
Selection.FormulaArray = Application.WorksheetFunction.Frequency(myFun, Range("K32:K81"))
Set mysouce = Range("L32:L81")
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SetSourceData Source:=mysouce, PlotBy:=xlColumns
Application.ScreenUpdating = True
End Sub
441:デフォルトの名無しさん
08/01/20 21:03:23
Application.ScreenUpdating = False
Application.ScreenUpdating = True
↓
Application.EnableCalculation = False
Application.EnableCalculation = True
442:デフォルトの名無しさん
08/01/20 21:22:32
>>441
再計算しない場合はそんなのあるのか、ありがとう。
でも、変えてみたけど実行時エラーでてだめだった、
ワークシートで再計算してるから使えないのか
ワークシートの再計算はそのままで画面の更新だけ止めるのはできないのかな
443:441
08/01/20 22:05:30
折れには、試す気もないのでわからない。
続けての回答を待っているといけないから、折れには以後書くことはないと伝えておくよ。
あと、折れが使うのは
Application.EnableEvents = False （と True）
Application.Visible = False （と True）
444:デフォルトの名無しさん
08/01/20 22:17:22
>>443
いろいろありがと
新しいこと少し覚えられてよかったｗ
まあ、うまくいかなかったけど趣味で使ってるだけだから
そのうちできるようになると思うのでゆっくりやります
445:デフォルトの名無しさん
08/01/20 23:58:30
>>442
全くためしてないんだが
Application.ScreenUpdating = 画面の更新をするか
Application.EnableCalculation = 再計算してるか
を考えれば幸せになるんじゃね？
俺的には全部コードでやっちゃうがｗ
446:441
08/01/21 01:01:55
>>442での「実行時エラー」ってのが、気になった・・・
application.run関係ぐらいしか実行時エラーが出うる箇所はないように見えた。
もしかしたらだけど、ここが参考になるかも
URLﾘﾝｸ(www.geocities.jp)
おやすみ
447:デフォルトの名無しさん
08/01/21 01:59:57
>>445
>>446
ありがとうございます。
441さんの指摘のようにapplication.runが原因みたいです
Excelの分析ツール使うと画面更新されてしまうみたいです
ワークシート上だけで乱数関数使って同じようなコードで実行したら、
画面は更新されないでうまくいきました。
鋭い指摘ありがとう！
448:デフォルトの名無しさん
08/01/21 15:40:17
例えば、C3からK11まで範囲指定するのに、
rangeを使わず、offsetを使って指定することは可能でしょうか。
やりたいことをイメージ化すると以下のようなのですが・・・
Sub hoge()
Range("A1").Select
Range(ActiveCell.Offset(2, 2).Select, ActiveCell.Offset(10, 10).Select).Select
End Sub
449:デフォルトの名無しさん
08/01/21 15:58:59
あのさ、
いちいちこのスレで聞くよりもさ、
自分でググるなり本を買うなりして調べた方が圧倒的に早いと思うんだけど。
450:デフォルトの名無しさん
08/01/21 16:09:36
range("A1").select
range(selection.offset(2, 2), selection.offset(10, 10)).select
--
dim r as range
set r = range("A1")
debug.print range(r.offset(2, 2), r.offset(10, 10)).address
range(r.offset(2, 2), r.offset(10, 10)).value = 12345
451:デフォルトの名無しさん
08/01/21 16:10:15
>>448
つか、目的がよくわかんねーよ。 あと、その例文、.Offset に .Select付いてたらエラーになるぞ。
そもそも、Offset って、基本的にRangeのプロパティなんだが。Rangeを使わずにどうしろと？
452:デフォルトの名無しさん
08/01/21 16:57:48
If 気に入らない or わからない Then
スルーしろ
End If
453:デフォルトの名無しさん
08/01/21 17:01:03
意味が分かれば協力する気持ちがあるから訊いてるんだよ。全否定すんな。
それとも、どこが分からないか、こちらが分かりやすく優しく丁寧に質問しないとダメなのかよ？
454:448
08/01/21 17:19:29
すまん！
Sub hoge()
Range("A1").Select
Range(ActiveCell.Offset(2, 2), ActiveCell.Offset(10, 10)).Select
End Sub
selectとったらいけました。
逝ってくる
455:デフォルトの名無しさん
08/01/21 17:56:47
>>453
やりたいことの「イメージ」って書いてるだろ。
これで意図がわからんというのがわからん。
456:デフォルトの名無しさん
08/01/21 20:42:56
>>453はかわいそうな子
457:451
08/01/21 21:10:50
>>455
レスの流れぐらい見ろよ。レスから読み取れる範囲で回答はしてる。
それとも、IDがないと同一人物かどうかも判断できんか？
458:デフォルトの名無しさん
08/01/21 23:47:53
構造体の2次元配列の参照って
Kouzoutai(1,2).Member = 1
という形であってます？
オブジェクトが必要ですとかいうエラーが返ってくるんですが…
459:デフォルトの名無しさん
08/01/21 23:59:26
すごいな。
もう思いついたことをとりあえず質問するスレになってるな。
>>458なんてはなっから自分で調べる気ないもんな。
460:デフォルトの名無しさん
08/01/22 00:30:46
>>458
オブジェクトがないんだよ。
Dim Kouzoutai( 5, 5 ) as HOGE
って形になってるか？
どうせ
Type Kouzoutai
Member as integer
End Type
とかになってんだろ。
「VBA 構造体」でググればびっくりするくらいヒットするじゃないか。
461:デフォルトの名無しさん
08/01/22 07:24:11
OSはWindows XP Home Edition、
Excelは2003の11.8169.8172です。
VBA初心者でここも初めてです。質問させてください。
2種類のグラフをそれぞれ別のシート上のオブジェクトとして作成しました。
（2つ同時ではなく、まず1つ目のグラフを作り、その後別のグラフを作るというやり方です。）
2つ目のグラフを作る際、1つ目のグラフの数値軸で自動的に表示された軸の最大値と最小値を
2つ目のグラフにも反映させたい（同一の値にしたい）のですが、
どのように記述すれば1つ目のグラフの最大値や最小値を呼び出すことができますか？
With ActiveChart.Axes(xlValue)
.MinimumScale = ココと
.MaximumScale = ココです。
End With
ぜひヒントがほしいです、よろしくお願いします。
462:デフォルトの名無しさん
08/01/22 12:59:28
>>461
確認する時間がないのでヒントのみ。 あとはヘルプ見ながら直して。
Dim s As Worksheet
Dim c As ChartObject
Set s = Worksheets.Item("test") ←"test" って名前のシートが取得できる
Set c = s.ChartObjects(1) ←取得したシートの、１つめの図を取得
あとは c.Chart.Axes.Item(xlValue).MinimumScale な感じで対応する値が取得できると思われ。
まとめて書くこともできるが、とりあえず入力補助に反応する書き方にしといた。
463:デフォルトの名無しさん
08/01/22 13:25:13
Ｅ６からＥ２６とＮ６からＮ２６に数字を入力したのですが、このコードよりも簡単な方法はないでしょうか？
Dim c As Long
Dim f As String
Dim v1() As Variant
Dim v2() As Variant
With Excel.Range("E6:E26,N6:N26")
c = .Areas.Item(1).Count
f = "ROW(" & .Worksheet.Range("A1") _
.Resize(c).Address & ")"
v1 = .Application.Evaluate(f)
v1 = .Application.Small(.Cells, v1)
f = "ROW(" & .Worksheet.Range("A" & 1 + c) _
.Resize(.Areas.Item(2).Count).Address & ")"
v2 = .Application.Evaluate(f)
v2 = .Application.Small(.Cells, v2)
.ClearContents
.Areas.Item(1).Value = v1
.Areas.Item(2).Value = v2
End With
464:デフォルトの名無しさん
08/01/22 13:31:48
>>463
日本語でやりたいことを書け
465:デフォルトの名無しさん
08/01/22 13:38:05
>>463 観光客の人数をExcelで作成したのですが、Ｅ６からＥ２６とＮ６からＮ２６
に観光客の人数を入力したのですが、これを小さい順に書き換えるにはどうし
たらいいのですか？
466:デフォルトの名無しさん
08/01/22 13:46:13
つ【並べ替え(S)】
467:デフォルトの名無しさん
08/01/22 18:25:19
「セルが特定の値以外のとき、自分の行を削除」したい。
IFでセル内容を指定してから
Range.deleteでどうやって削除条件にすべきでしょうか。
468:デフォルトの名無しさん
08/01/22 20:22:56
な、何なんだこのスレは・・・
469:デフォルトの名無しさん
08/01/22 22:05:12
このスレは池沼のフリして教えたがりのうざいヲタを釣るスレですが、なにか？
470:デフォルトの名無しさん
08/01/22 22:13:25
ってことはこれは釣れたってことでFA?
471:デフォルトの名無しさん
08/01/22 22:49:21
>>470
お前がなｗ
472:デフォルトの名無しさん
08/01/22 23:03:33
やたー☆
473:デフォルトの名無しさん
08/01/23 11:53:11
やったー +1
474:デフォルトの名無しさん
08/01/23 18:41:55
ここで良いかどうか分かりませんが・・・
ビデオカードの現在の解像度（できればモニタのインチ数も）によって、
ActiveWindow.Zoomの値を変更するプログラムを考えているのですが、
vbaでビデオカードの現在の解像度を調べるのは不可能でしょうか？
475:デフォルトの名無しさん
08/01/23 21:16:04
>>474
vba api 解像度 でぐぐれば、2番目にあなたの望む回答が
476:デフォルトの名無しさん
08/01/24 08:57:54
良回答認定
477:デフォルトの名無しさん
08/01/24 09:11:24
>>475
ありがとうございます！
下調べはしてたつもりだったのですが、
甘かったです・・・orz
478:デフォルトの名無しさん
08/01/24 10:01:12
恥ずかしながら全く分かりません。
何卒お願い申し上げます。
次の選択肢より正しい記述をすべて選びなさい。
1:java.io.FileReaderはテキストファイルから文字を行単位で読み込むクラスである。
2:new File("bbs.txt")と記述すると、新しいファイルが作成される。
3:ファイルの操作を行う前には、Fileクラスのopenメソッドを必ず使用する。
4:BufferedReaderクラスのreadLineメソッドは、ファイルの終端までを読み込む。
5:FileクラスのisFileメソッドの戻り値がfalseだった場合は、そのファイルが無いか、またはその名がディレクトリである事を示している。
479:デフォルトの名無しさん
08/01/24 10:06:39
>>478です。
申し訳ありません、スレ違いでした。
失礼致しました。
480:デフォルトの名無しさん
08/01/24 10:33:36
アクセスのVBAのスレが見付からないのでここで質問します。
アクセスのVBAで、フォーム１
ユーザ登録画面
ユーザ名[ ]
パスワード[ ]
登録
があり、2つを入力し、登録を押したら登録できるのを教えてください
481:デフォルトの名無しさん
08/01/24 10:37:07
>>478です。
何度もすみません。もうこのスレに書いてしまったので、
ほかのスレに書いたら、マルチポストとか云うのに
なってしまいますので、もしよろしければこのスレで
教えて頂けないでしょうか？
482:デフォルトの名無しさん
08/01/24 11:04:47
>>481
誤爆はマルチにはならないと思うよ。
マルチポストだって言うヤツは居るかもしれんが、普通に教えて貰えると思う。
俺も多少は分かるけど、このスレで回答したくない。回答が違ってても突っ込みがなさそうだから。
483:デフォルトの名無しさん
08/01/24 11:06:44
>>482さん。
ありがとうございます。
助かりました。
484:デフォルトの名無しさん
08/01/24 12:07:30
AutoFilterが設定されたシートで選択されたセルの行数を知るには、下記の方法で
出来る事が分かったのですが、もっと簡単な方法がありますでしょうか？
Dim r As Range, rcnt As Long
rcnt = 0
For Each r in ActiveWindow.Selection.Rows
If Not r.Hidden Then
rcnt = rcnt + 1
End If
Next
485:デフォルトの名無しさん
08/01/24 17:23:24
すいません、VBA超初心者です。
"地域A"というシートから魚名前を検索して個数（魚の名前の2つ下のセル）と総量（個数のセルの１つ右）の数値を
台帳（以下の記述ではシート名”漁獲量”）シートの各魚の行に転記させたいのですが、
一生懸命ヘルプやネット検索しながら自己流で記述しましたが
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
と出ます。
どなたか正しい記述をアドバイスしていただけませんでしょうか？
486:485
08/01/24 17:24:49
Private Sub CommandButton1_Click()
Dim fish As String
Dim i As Integer
Dim wrkA As Integer
Dim wrkC As Range
Dim wrkB As Range
With Sheets("地域A")
wrkA = .Cells(1, Columns.Count).End(xlToLeft).Column
wrkC = .Range("A1").Resize(1, wrkA)
wrkB = .Range("A3").Resize(1, wrkA)
End With
Dim wrkD As Integer
With Sheets("漁獲量")
wrkD = .Cells(Rows.Count, 1).End(xltoUP).Row
wrkE = .UsedRange
fish = .Range(wrkD, 1).Value
End With
487:485
08/01/24 17:25:54
つづきです
For i = 1 To wrkA
If fish = wrkC("wrkA,i") Then
fish = wrkB(1, i)
Cells(wrkD, 1).Offset(0, 1) = wrkB(1, i + 1)
Else
fish = " "
Cells(wrkD, 1).Offset(0, 1) = " "
Exit For
End If
Next i
End Sub
488:デフォルトの名無しさん
08/01/24 17:55:01
>>485
ちょっと突っ込みどころが多すぎるので、全部回答はできないんだけど、
まだ基本を分かりきってないみたい。
とりあえず、 With Sheets("地域A") With Sheets("漁獲量") のトコを
Dim ws As Worksheet ←もちろん最初（１箇所）だけ
Set ws = ThisWorkbook.Worksheets("地域A")
With ws
のような形に修正すれば、"."キーを押したときに入力補助が反応するから、
それを参考に修正するといいと思う。この入力補助が反応するようなコードってのは結構重要。
（"."を押してもメソッドが出なければ、記述したところでほとんど実行時エラーになる）
あとは、.End(xltoUP) の定数は xlUp がいいのと、
fish = .Range(wrkD, 1).Value の行みたいに、Cells と Rangeの使い分けが混乱してるかな。
489:485
08/01/24 18:00:49
>>488
どうもありがとうございます！！
突っ込みどころ満載ですか…笑
ご指摘を元に再度勉強してがんばってみます！！
490:488
08/01/24 18:30:38
>>489
ゴメン、もっと重要なポイントがあった。
wrkC = .Range("A1").Resize(1, wrkA) は、オブジェクト型変数への代入になるので、
Set wrkC = .Range("A1").Resize(1, wrkA) という書式を必ずとること、です。
491:デフォルトの名無しさん
08/01/25 09:36:51
漁獲量・・・
492:デフォルトの名無しさん
08/01/25 23:56:11
すみません。vlookupのワークシート関数がうまく動きません。
普通のvlookupのようにvlookup(値、範囲、２、False)としましたが
エラーが出てしまいます。範囲がおかしそうですが
どう書き方が誤っているのかがよく判りません。
どなたか、御指摘願えませんでしょうか？
With Worksheets(2)
'Xは適当な自然数です。
For i = 1 To 100
Cells(i + 1, 2) = Application.VLookup(Cells(1, 1).Offset(i, 0).Value, .Range(Cells(2, 3), Cells(X, 4)).Address, 2, False)
Next i
493:デフォルトの名無しさん
08/01/26 01:11:11
すみません。色々試行錯誤していたら解決しました。有難うございました
494:デフォルトの名無しさん
08/01/26 17:35:21
かなり高度な質問です。
Me.Controls.Add("Forms.textbox.1","品名",True)
のFormsって一体何なのですか？
495:デフォルトの名無しさん
08/01/26 17:48:24
余りに低レベルなので泣けてきました。
496:デフォルトの名無しさん
08/01/26 17:52:19
OLEコントロールの名称でないの。
Microsoft Forms 2.0 TextboxのPROGID
497:デフォルトの名無しさん
08/01/27 13:51:07
VBAの中でソルバ関数を実行しようとしてます。
その目的セルの評価値を計算する際に、さらにソルバを実行したいです。
（つまりソルバの2重ループになる感じ）
が、これを実現できなくて困っています。
考えてたのは、内側のループのソルバ部分を関数にして
ワークシートから呼び出せるようにして、
それを外側ループのソルバの目的セルの数式に放り込んでやればいい、
という方法なんですけど、
VBAのFunctionの中でソルバをまわそうとすると
シート上の値を書き換えなければならないのでエラーになってしまいます。
かといってそれをサブプロシージャにしても
ワークシート上の数式として表せないので、
結局外側のループで使えません。
何とかこれを達成する妙案はないですかね…
達成したとしても重くて不安定にはなると思うんですが、
それは承知の上です。
環境はWinXP SP2＋Excel2000です
498:デフォルトの名無しさん
08/01/27 13:57:52
↑根本的に何かを勘違いしてないか？
499:デフォルトの名無しさん
08/01/27 14:03:45
勘違い・・・っすか
どのへんがおかしいんでしょう？
それすらわからんです
500:デフォルトの名無しさん
08/01/27 18:11:32
ソルバ？
URLﾘﾝｸ(www.joy.hi-ho.ne.jp)
501:デフォルトの名無しさん
08/01/27 23:00:39
Excel2003です。
OnErrorでエラーメッセージの出力を指定しても、
エラーだとそのエラーで無事処理は終わるのですが、
本来エラーにならない場合でも、エラーメッセージ出力→正常処理 となるんですけど。
何か原因は考えられますか？
（プログラム持ち出せないのでここに書けないのです）
502:デフォルトの名無しさん
08/01/27 23:16:08
ﾃﾞﾊﾞｯｸﾞﾄﾚｰｽｼﾃｸﾀﾞｻｰｲ
503:デフォルトの名無しさん
08/01/28 00:09:18
>>501
On Error で飛ぶタグの前に Exit Function を書いてなかった、とか言ったら頃すぞ？
504:デフォルトの名無しさん
08/01/28 00:49:26
Exit Function を書いてなかった位で殺されるんじゃタマッタもんじゃない。
505:デフォルトの名無しさん
08/01/28 01:15:06
ﾏｼﾞﾚｽのハズもないのに、
ネタや回答の一つも返さず、つまらんマジツッコミを入れるとは一体どういう了見か？
506:デフォルトの名無しさん
08/01/28 01:16:04
>>504
金払って許してもらおうぜ
507:デフォルトの名無しさん
08/01/28 10:02:19
うんこ出た
超きもちいい
508:501
08/01/28 12:59:32
マクロの最初に
On Error Msgbox
On Error exit Sub
で、以下正常時の処理を記述しているのだが。
Exit Function書くとエラーが出る。
509:デフォルトの名無しさん
08/01/28 13:09:09
>>508
そもそもそれコンパイル通るの？
↓なら問題ないと思うけど。
Privete Sub 処理()
On Error GoTo ラベル
(通常処理)
Exit Sub
ラベル：
(エラー処理)
End Sub
510:デフォルトの名無しさん
08/01/28 16:54:46
Sub abc
Dim rng As Range
Set rng = Selection
test rng
End Sub
Function test(r As Range)
Dim c As Range
For Each c Iin r
'cの処理
Next
End Sub
と選択範囲を引数にしてtestを呼び出しますが、testの引数rはByValにした方がいいんでしょうか？
きちんと動くには動くのですが、ちょっと不安になったもので教えてください。
511:デフォルトの名無しさん
08/01/28 17:48:36
>>510
その程度のものを分ける必要があるか知らんが、ByValは無意味。
そこはそのまんま参照渡しが正解。
それよりFunctionは気持ち悪くないかい？
Private Sub test(r As Range)
とするのが普通だろ？
Functionって戻り値を得るものに限定した方がいいと思うが。
512:デフォルトの名無しさん
08/01/28 17:52:07
なんだ、下はEnd Subになってるじゃん
513:510
08/01/28 19:47:40
>>511-512
すみません、実際は最後はEnd Functionとなってます。
Functionはおかしいんですかねぇ。
それはさておき、実は某所で引数が参照型の場合、ByValが速いとかByRefは気持ち悪いとかいう方がいるんですがどうなんでしょうか？
ご存知でしたらお願いします。
514:デフォルトの名無しさん
08/01/28 20:22:33
>>513
byrefだと参照の参照が渡されるから
確かに気持ち悪くて遅いわな。
大差ないけど。
515:デフォルトの名無しさん
08/01/28 20:32:01
ByRef の方が遅いのか・・・。 知らなかった。
値渡し＝全引数を別アドレスにコピー ⇒ 少し余分に時間が掛かる と思ってた。
516:デフォルトの名無しさん
08/01/28 20:40:11
そのsubなりfunctionなりの内部で変更する場合のみbyrefで、
それ以外はbyvalでという方針にしておくのが良い。
（自分で定義したサイズが大きな型は別）
517:デフォルトの名無しさん
08/01/28 20:41:15
>>514
なんか勘違いしてない？
実際にやってみたらどうよ。
ByValが速いはずねーだろ？
>>510のおかしなコードじゃ分からないだろうが、なんか戻り値のあるFunctionで試したら？
518:デフォルトの名無しさん
08/01/28 20:42:00
>>515
やってみりゃわかるけど、byrefの方が速いよ
519:デフォルトの名無しさん
08/01/28 20:43:16
>>514
「参照の参照」という表記が、参照がわかってない証拠。
520:デフォルトの名無しさん
08/01/28 20:51:52
ポインタのポインタかよ
521:デフォルトの名無しさん
08/01/28 20:53:43
&*p ← キモチワルイ
522:デフォルトの名無しさん
08/01/28 21:06:45
俺もやってみたが何度やってもByRefが少し速いな。
Range型の引数でByValが速いケースってどういうケースだ？
523:デフォルトの名無しさん
08/01/28 21:27:27
測定誤差
524:デフォルトの名無しさん
08/01/28 21:33:15
うちではRangeの場合、ByRefの方がByValの2倍早かった＠Excel 2007
525:デフォルトの名無しさん
08/01/28 22:28:34
試してみたけど全然違った(Excel 2003)
もちろん、Byrefの方がかなり速い
526:デフォルトの名無しさん
08/01/28 22:38:42
エロい方timeGetTimeで測定オナがいしますorz
527:デフォルトの名無しさん
08/01/28 22:41:48
軽くぐぐったら、ocamlには「参照の参照」という概念があるらしい。
528:デフォルトの名無しさん
08/01/28 22:53:34
>>526
timeGetTimeで計ったが参照私が速かった。
言っとくがtimeGetTimeだって1/1000秒の精度はないからな。
529:デフォルトの名無しさん
08/01/28 22:56:30
渡すのは参照の方が早い。実質ポインタ(4byte)だから。
ただその分使用時に一段間接参照のコストがかかるだけ。
530:デフォルトの名無しさん
08/01/28 22:57:51
えええ？
531:デフォルトの名無しさん
08/01/28 23:06:12
そう言えばExcel総合相談所だったか、それともここだったか忘れたが、Worksheet型の引数をByValにしろなんて
意味不明なこと言ってたやつが前にいたな。彼は勘違いしてるんだろうね。
532:デフォルトの名無しさん
08/01/28 23:06:27
基本的にオブジェクト型は参照渡しでいいんです
JAVAと一緒
533:デフォルトの名無しさん
08/01/28 23:07:39
なんか思いっきり勘違いしてる人がいない？
534:デフォルトの名無しさん
08/01/28 23:08:44
>>533
ちゃんとポイントして指摘しろ
535:デフォルトの名無しさん
08/01/28 23:10:19
いや彼にはそのままでいて欲しいからやめとく
536:デフォルトの名無しさん
08/01/28 23:25:40
なら最初から黙っとけよ
537:デフォルトの名無しさん
08/01/28 23:28:20
センセー、何で一段間接参照が入るのに速くなるんでつか？
538:デフォルトの名無しさん
08/01/28 23:32:10
ここVBAのスレだよなぁ？
539:デフォルトの名無しさん
08/01/28 23:37:01
ByValでRangeが渡されると、内部で「Set 仮引数 = 実引数（か、それと同等の処理）」
されてるんじゃないの？
だから、使用時に間接参照のコストなんかかからないんじゃ？
540:デフォルトの名無しさん
08/01/28 23:45:18
>>539
試せばわかる
541:デフォルトの名無しさん
08/01/28 23:47:58
ところで514とか516とか529は試したんだろうか？
542:デフォルトの名無しさん
08/01/28 23:54:37
ん、俺516だけど、今回は計測してないよ。
俺のは、多少遅くとも516のポリシーが良いという主張。
VB.NETも、デフォルトByValになったことだし。
543:デフォルトの名無しさん
08/01/28 23:59:10
>>542
そっか遅いのは認めるわけね。
ByRefが遅いと書いた514はどうだろう？
544:デフォルトの名無しさん
08/01/29 00:00:11
ここまで実計測データ無し。
Excelってベンチマークデータの公表禁止だったっけ？
545:デフォルトの名無しさん
08/01/29 00:05:23
>>544
別に禁止じゃねーだろ？
ただみんな自分で計測して分かってると思うけどな
計測してないやつが思い込みでおかしなこと言ってるだけ
546:デフォルトの名無しさん
08/01/29 00:08:17
>>518でFAなのに、いつまでやるつもりなんだろう・・・
547:デフォルトの名無しさん
08/01/29 00:10:57
>>546
だよな。それ以前に>>511で終わってるわな
548:デフォルトの名無しさん
08/01/29 01:56:18
VARIANTをC++から見ての想像。
オブジェクトをByValで渡すと、539の言う通り。オブジェクトへの参照（ポインタ）が渡される。
ByRefだとオブジェクトの変数への参照（ポインタ）が渡される。
いずれにせよ、渡されるのはポインタ値の4バイトだが、
ByValだと参照カウントの処理が要る分、コストがかかるように見える。
一方、ByRefでは2重に間接参照をしなければならないコストがあるはずなので、
測定条件によってどっちが速いかは変わってくるはず。
549:デフォルトの名無しさん
08/01/29 02:14:31
>>548
で、どんな時に変わるのよ？ 変わる”かもしれん”から一概には言えないってか？
550:デフォルトの名無しさん
08/01/29 08:23:45
なんや、盛り上がってたんですねぇ。
乗り遅れたけど、実測データ書いとくね。
>>529が考えにより、ByValが有利になるように５回、引数のcにアクセスしてのr計測だからな。
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub foo()
Dim t(2) As Long, i&, j&
Dim rng As Range
Dim c As Range
Set rng = Range("A:C")
t(0) = timeGetTime
For i = 1 To rng.Count
Set c = rng(i)
j = TEST1(c)
Next
t(1) = timeGetTime
For i = 1 To rng.Count
Set c = rng(i)
j = TEST2(c)
Next
t(2) = timeGetTime
Debug.Print "TEST1", t(1) - t(0); "ミリ秒"
Debug.Print "TEST2", t(2) - t(1); "ミリ秒"
End Sub
551:デフォルトの名無しさん
08/01/29 08:24:50
一般的に、ByRefの間接参照はメモリ読み込み1回が余計に掛かる。
しかし、ByValの内部コピーはメモリ読み書きがそれぞれサイズ(/4)回余計に掛かることになる。
従って、どちらが早いかは自明。
552:デフォルトの名無しさん
08/01/29 08:25:03
上の続き
Private Function TEST1(c As Range) As Long
Dim i&, j&
For i = 1 To 5
j = c.Row
Next
TEST1 = j
End Function
Private Function TEST2(ByVal c As Range) As Long
Dim i&, j&
For i = 1 To 5
j = c.Row
Next
TEST2 = j
End Function
実測値
TEST1 2448 ミリ秒
TEST2 2528 ミリ秒
５回のループじゃなくて25回くらいならほぼ同じになった。もっと回したらやっと逆転した。
だから>>529の言うことがまったくウソということではないが、通常このように何度もアクセスすることはないから参照渡しで問題なし。
ましてや1回のアクセスに値渡しは無駄もいいとこ。１回なら割合としては上の計測よりもっと差がつく。
553:デフォルトの名無しさん
08/01/29 08:27:03
モタモタしてるうちに>>551が間に入ったな。
554:デフォルトの名無しさん
08/01/29 10:10:38
Mougからきました。
勉強になりました。
555:デフォルトの名無しさん
08/01/29 10:51:23
URLﾘﾝｸ(www2.moug.net)
私もここからきますた。
ビヒネスソフト板以外にExcelのスレがあるとは知らんかった。
556:デフォルトの名無しさん
08/01/29 11:41:14
どうみても>>514はあの人だよなぁ。
他のオタクの人たちも既にいると見たがどうよ。
557:デフォルトの名無しさん
08/01/29 12:42:38
あまり詮索しないように
どうやら思い違いには気がついたらしいからよかったじゃないか
558:デフォルトの名無しさん
08/01/29 12:58:04
なんか気持ち悪い流れとコードだったので、自分で試してみた。（Excel 2000）
*ByRefとByValの違い
それぞれ1000万回呼び出すのを5回繰り返した場合の平均：
ByRef: 1654.8ms (A)
ByVal: 3558.2ms (B)
*「一段の間接参照」があるかどうか
呼び出した関数内で、次のコードを実行する。
dim s as string
s = arg.address (C)
時間がかかるので、100万回の呼び出しに変更し、それを5回繰り返した場合の平均：
ByRef: 4488ms
ByVal: 4660ms
100万回分の関数呼び出しのコスト（A,Bをそれぞれ10で割ったもの）を引くと、
(C)のコストが算出される。
ByRef: 4488-165.48 = 4322.52ms (D)
ByVal: 4660-355.82 = 4304.18ms (E)
結論：
・ByRefの方がByValの2倍以上速い
・「一段の間接参照」なるものの存在は確認できない（D,Eより）
559:550
08/01/29 13:07:28
気持ち悪いコードって俺の？
だったらすまんね。
560:558
08/01/29 13:11:53
オブジェクトをByValとByRefで渡したときの違いは何か？
プロパティNameを持った空のクラスClass1を作成し、次のコードを実行してみる。
[結果]
Initialized
abc
def
[考察]
ByValでもオブジェクトのコピーが発生するわけではない。
(barから戻ったときにbarで設定したNameが表示されているので）
--Class1
Public Name as String
Private Sub Class_Initialize()
Debug.Print "Initialized"
Name = "abc"
End Sub
--Module1
Sub foo()
Dim o As Class1
Set o = New Class1
bar o
Debug.Print o.Name
End Sub
Sub bar(ByVal o As Class1)
Debug.Print o.Name
Set o = Nothing
End Sub
561:558
08/01/29 13:15:54
続き。
ByValをByRefに変えて実行してみる。
[結果]
Initialized
abc
（ここで実行時エラーが発生する）
[考察]
実行時エラーが発生した行は、barから戻ってo.Nameを参照する行。
このことは、bar内でオブジェクトが破棄された、すなわちByRefは参照カウントを増やしていない
ことを意味する。
>>560の結果とあわせると、結論は、
オブジェクトをByRefで渡すと、それ自身が渡され、参照カウントも増えない。
オブジェクトをByValで渡すと、オブジェクトがコピーされるのではなく、参照カウントが増えるだけ。
562:デフォルトの名無しさん
08/01/29 13:16:06
>ByValでもオブジェクトのコピーが発生するわけではない。
これはみんな常識として知ってるだろうね。
もちろん考察には感謝する。
563:558
08/01/29 13:19:10
>>562のコードの訂正
Sub bar(ByVal o As Class1)
Debug.Print o.Name
o.Name = "def"
Set o = Nothing
End Sub
564:558
08/01/29 13:26:55
さて、それでは実際にオブジェクトのコピーを関数に渡したいときにはどうすればいいのだろう？
とふと思った。
Class1に次の関数を実装すれば良い。
が、VBAの機能だけで実現する方法があるかもしれない・・・。
Public Function Clone() As Class1
Set Clone = New Class1
Clone.Name = Me.Name
End Function
Sub foo()
Dim o As Class1
Set o = New Class1
bar o.Clone
Debug.Print o.Name
End Sub
Sub bar(ByRef o As Class1)
Debug.Print o.Name
o.Name = "def"
Set o = Nothing
End Sub
[一連の書き込み終了]
565:558
08/01/29 13:30:33
蛇足。
オブジェクトをByValで渡す場合は、前述のようにリファレンスカウントが増えるだけであり、
仮引数のconst性（不変性）を保障するものではまったくない。
その意味で、>>516のポリシーは間違っている。
566:デフォルトの名無しさん
08/01/29 13:42:59
しかし試しもしないで遅いとか気持ち悪いとか書くやつも相当だよな。
速度の計測なんてすぐできることだろうに。
567:デフォルトの名無しさん
08/01/29 13:49:29
>>565
組み込みオブジェクト（というのか？）だと、ByRefで渡したときは自作クラスのインスタンスとは
ちょっと違う挙動をする。
Sub foo()
Dim r As Range
Set r = Range("A1")
bar r
Debug.Print r.Address
End Sub
Sub bar(ByRef r As Range)
Set r = Range("A2")
End Sub
ByValだと$A$1と表示され、ByRefだと$A$2と表示される。
つまり、ByValは「参照のコピー」が渡ってると言える。（ここ、怪しい表現だが）
そういう意味では>>516は正しい。
あーややこしい。
568:デフォルトの名無しさん
08/01/29 13:51:25
いいかげんに許してやりなよ。
勘違いは誰でもあるし、反省してると思うよ。
569:デフォルトの名無しさん
08/01/29 13:53:00
あー、それが「参照の参照」という奴なのか・・・
570:デフォルトの名無しさん
08/01/29 14:00:29
>>555のリンク先ちらっと見たけど、とてもじゃないが読む気になれん
571:デフォルトの名無しさん
08/01/29 14:06:08
禿げ胴
572:デフォルトの名無しさん
08/01/29 14:18:49
なんだか混乱してきた。
ただ、byrefの方がbyvalより速いというのが事実だということは確かだよな。
573:デフォルトの名無しさん
08/01/29 14:23:25
誰かガンダムで表現してくれ
574:デフォルトの名無しさん
08/01/29 14:49:38
オブジェクト型はアドレス渡されるだけで
基本はLong型と同じ
byvalでも渡されるのが参照情報だからbyrefみたいに
感じちゃうってこと
575:デフォルトの名無しさん
08/01/29 15:02:19
>>567
それbarの中で新しいRangeオブジェクトを作り出してるから、根本的に565が書いたコードと違う
576:デフォルトの名無しさん
08/01/29 15:07:53
>>568
反省してるかねぇ。
すっとぼけてるけど、なんとかByValが遅いのは認めたらしい。
ただお行儀がどうのこうのとまだ言ってるよ。
別に参照渡しは行儀悪くねーだろ？
577:デフォルトの名無しさん
08/01/29 16:25:15
>>576
そもそも、VBAのデフォルトがbyrefなんだから、神経質ではない普通の人が
function foo(r as range)
と書くと、それはByRefになる。
これがお行儀が悪いということは、
function foo(byval r as range)
と書くのが「お行儀が良い」ということになる。
こんな書き方がデフォルトの奴は診たこと無いぞ。
578:デフォルトの名無しさん
08/01/29 16:54:08
右上の×（閉じるボタン）を無効にできますか？
579:デフォルトの名無しさん
08/01/29 17:09:17
ところで、516のいう「自分で定義したサイズが大きな型」というのが
Typeで定義した型のことなら、それに関しては同意と言おうと思ったら、
そもそもTypeのユーザ定義型は、値渡しできなかった。
580:550
08/01/29 17:26:39
>５回のループじゃなくて25回くらいならほぼ同じになった。もっと回したらやっと逆転した。
仕事から帰って再度試したら、もっと回しても逆転まはしてなかった。スマン
測定誤差だったみたいだな。
誰かが書いてたと思うが、結局ByValが速くなるケースってなさそうだな。
581:デフォルトの名無しさん
08/01/29 17:43:20
ChangeイベントやSelectio_ChangeイベントがByVal Target As Rangeとなってるのは何故？
エロイ人教えて
582:デフォルトの名無しさん
08/01/29 17:57:41
差を比べるならこうする
わかるのは差は大きいが全体でみると微々たる差ということ
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub foo()
Dim t(2) As Long, i&, j&
Dim rng As Range
Dim c As Range
Set rng = Range("A:Q")
t(0) = timeGetTime
For i = 1 To rng.Count
TEST1 c
Next
t(1) = timeGetTime
For i = 1 To rng.Count
TEST2 c
Next
t(2) = timeGetTime
Debug.Print "TEST1", t(1) - t(0); "ミリ秒"
Debug.Print "TEST2", t(2) - t(1); "ミリ秒"
End Sub
Private Sub TEST1(ByRef c As Range)
End Sub
Private Sub TEST2(ByVal c As Range)
End Sub
583:510
08/01/29 18:00:36
みなさん、大変参考になりました。
どうやら参照渡しで問題ないということがわかり一安心です。
ありがとうございました。
584:550
08/01/29 18:15:46
>>582
俺はcへのアクセス速度も調べたかったんだよ。
>>529が気になったものでね。
>>583
よかったな、まぁがんがれ
585:デフォルトの名無しさん
08/01/29 19:40:38
この流れを見て「Byrefなら速いんだ！」となんでもかんでもByrefの迷惑コーダーが量産されそうな
586:デフォルトの名無しさん
08/01/29 19:41:25
デフォルトbyrefなんでそ？
587:デフォルトの名無しさん
08/01/29 19:46:43
>>585
デフォルトがそうだし、仮に全部ByRef にしたトコで悪影響があるんだろうか？
要するに、関数にオブジェクト変数を渡せば、ByValにしたとこで内容の保護はできんわけだし。
588:デフォルトの名無しさん
08/01/29 20:56:04
>>585
それは言えるかも知らんね。ByValが速いケースもあるんだけどな。
オブジェクト型はないかも知らんが、他のケースでは確実にある。
589:デフォルトの名無しさん
08/01/29 21:32:15
>>588
だから、そのケースを示せっての。議論のネタにもならんわ。 自分がそう信じたいだけか？
590:デフォルトの名無しさん
08/01/29 21:37:50
>>589
おめー死ねよ。
自分で探すことも出来んのか？
591:デフォルトの名無しさん
08/01/29 21:54:54
おまえは間違ってる（でも正解を示さない）
↑ググってみて一番上ね
592:デフォルト知らず
08/01/29 21:59:20
折れ、今まで、全てにおいてByRefにせず、ByValできている。反省w
戻り値を親に返す必要がないから、ByValを当然に使うと考えていた。
戻り値を親に戻す必要があればByRefと、ただ単にプログラムテクニックぐらい。
で、スピードは全く気にしていなかった。
ベンチマークでなく、実用・実践のレベルでのものでも、書き換えた方が早いのだろうか？ ex 与件を渡すinteger型変数５つぐらい
593:デフォルトの名無しさん
08/01/29 22:14:57
いいから>>589は死ね。
おれはここで散々>>510のケースはByRefが速いって書いてきたからな。
勘違いするなよ。
594:デフォルトの名無しさん
08/01/29 23:53:02
すみません
Cells(hoge, fuga).Value
で値を取り出したときに
元のセルが3だったとすると
値がそのまま3である場合と
3.0になっている場合があるようなんです
常に3であるように取り出すにはどうするのがよいでしょうか？
595:デフォルトの名無しさん
08/01/30 03:58:58
>>593
お前が死ね。
二度と来るな。
迷惑だ。
596:デフォルトの名無しさん
08/01/30 05:05:50
>>555
モーグは、大村なんとかが嫌いだったので見てなかったんだが、久しぶりに見に行ったら
井川はるきという気持ち悪い奴がのさばってた。
ぐぐったら、こいつ何冊も本出してるな。
掲示板で初心者相手に回答もしてるみたいだし、ほんときもちわりー
597:デフォルトの名無しさん
08/01/30 07:37:28
オラもモーグから来ますた。
ByRefとByValの話はもう終わり？
何かあるのかと思ったら、既出ネタの応酬とグダグダの展開に正直がっかりです。
598:デフォルトの名無しさん
08/01/30 09:35:53
もともと既出ネタなのに、何を期待してたんだ？
599:デフォルトの名無しさん
08/01/30 11:02:26
>>596
お前よりは役にたってるよ。
今回の引数の渡し方については、嘘をどうどうと書いたので叩かれてもしょうがないけどな。
600:デフォルトの名無しさん
08/01/30 11:13:05
しかし彼の本にオブジェクト型はByValで渡すべしなんて書かれてたりしたら、本を買った人がかわいそうだな。
601:デフォルトの名無しさん
08/01/30 11:19:17
>>594
そんなのありえないだろ？
元のセルが3.0という文字列なら別だが、もともと数値の3なら3だ。
どこかのセルにその値を代入すれば、表示形式によっては3だったり3.0だったりすることはあるがね。
602:デフォルトの名無しさん
08/01/30 12:31:31
>>599
役にたってるかなんかどうでもいい。
気持ち悪いかどうかって話だ。
603:デフォルトの名無しさん
08/01/30 12:49:20
確かにモーグは、今一番キモいコミュニティだな
604:デフォルトの名無しさん
08/01/30 13:05:20
漏れが一番Mougでウザイのは、あのしょっちゅうハンドル変えてるやつだな。
EFCを追放された名無しだろうけど。
605:デフォルトの名無しさん
08/01/30 13:38:13
>>514
参照の参照が渡されるから気持ち悪いというのを、もっと説明してください。
606:デフォルトの名無しさん
08/01/30 14:01:26
>>605
Mougが下がってるから、あそこで聞けば？
もう>>514はここ見てないかもよ。
607:デフォルトの名無しさん
08/01/30 14:48:27
「下がってる」の意味が良くわからないのですが、Mougは巡回対象ではないので、
ここで回答がなければあきらめます。
608:デフォルトの名無しさん
08/01/30 15:48:05
もともと組み込み屋なのに転職したら最初にVBAやる羽目になってます。
VBはある程度使ってましたが忘れかけ。
質問は
ユーザ定義クラスのインスタンス（の参照？）を渡して関数の先で値を入れてもらいたいのですが、
「型が一致しません」となります。何が原因でしょうか？
【Sheet1のpublicプロシージャ】
Public Sub GetData(idx As Long, ByRef item As clsUserA)
item.Id = Me.Cells(idx + 1, 1)
item.Name = Me.Cells(idx + 1, 2)
item.Remark = Me.Cells(idx + 1, 3)
item.Visible = Me.Cells(idx + 1, 4)
End Sub
【それを呼び出すModule1のプロシージャ】
Sub Test()
Dim tmpClass As clsUserA
Dim i As Long
Set tmpClass = new clsUserA
For i = 0 to 10
Call sheetClassList.GetData(i, tmpClass) '★ここでエラー発生
Next
End Sub
よろしくお願いします・・・。
609:608
08/01/30 15:52:10
簡単な名前にしようと思って書き換え忘れorz
Call Sheet1.GetData(i, tmpClass) '★ここでエラー発生
610:デフォルトの名無しさん
08/01/30 16:36:51
>>608
clsUserAのプロパティでInstancingをPublicNotCreatebleに設定しろ
611:デフォルトの名無しさん
08/01/30 16:56:42
>>610
それは違うエラーが出たので昨日の時点で直しました。
クラスをやめて構造体にしてみたら
パブリックオブジェクトモジュールで定義されてないと云々・・・
何この中途半端な言語・・・。
612:デフォルトの名無しさん
08/01/30 17:35:20
本当に解決してほしいのなら、エラーが発生する、検証可能な最低限のコードを「全て」書け
613:デフォルトの名無しさん
08/01/30 17:54:48
>>608
ところで、Sheet1クラスに定義したGetData( ) を
Worksheet型で宣言したオブジェクトから呼ぼうとしてるのだとしたら大笑いなんだが、
そこは大丈夫？ （要するに sheetClassList の変数の型が分からないんだが）
614:608
08/01/30 17:55:22
そのものをうｐしてみた。
URLﾘﾝｸ(up01.ayame.jp)
PASSは prog
開いたときの真ん前にあるCommand1を押すと問題のポイントでエラーになります。
成功すると正面の表が変化するはず。
615:608
08/01/30 17:57:44
>>613
シートにプロシージャを定義してあって、
標準モジュールから呼んでます。
もしかして大笑いコース？？
616:608
08/01/30 18:02:44
さっき配置変更して別のシートから呼んでました。
紛らわしくてすみません。
どっちにしても動きは同じですが。
617:デフォルトの名無しさん
08/01/30 19:12:07
>>614
再現手順を書け、アホ
とりあえず
Public Sub GetData(idx As Long, item As clsGantClass)
にしたら、コンパイルエラー（呼び出せない）のは無くなった
618:デフォルトの名無しさん
08/01/30 19:13:35
>>608
ちょ、お前な。 ステップ実行で確認するくらいしろよ！
自分の意図してる場所のセルのデータが、ちゃんと取れてるかどうかと、
代入しようとしている構造体のメンバの変数型が合ってるかどうか。話はそれからだ。
ソース見る限りでは、Variantじゃなくて、クラスを指定しても動くと思うよ。
⇒ Public Sub GetData(idx As Long, item As clsGantClass)
619:617
08/01/30 19:15:01
すまん、再現手順は書いてあったな。
ただ、ボタンをクリックしてもエラーは発生しないぞ？
620:デフォルトの名無しさん
08/01/30 19:16:21
>>610が原因だったが、あれこれやってるうちに、何がなんだかわからなくなったと見た。
621:608
08/01/30 19:35:28
エラー出ないですか・・・。
sheetClassListはどこか書き換えたんでしょうか？
いまだ動きません。
ほかのマシンで動かしてみようかなぁ
622:デフォルトの名無しさん
08/01/30 19:42:38
Me.Cells(idx + 1, 1)がLongじゃない。
以上。
623:618
08/01/30 19:44:43
>>621
え？ ちょっと待て。何が分からないの？ うｐしてくれた .xls でいいんだよな？
直さなきゃいけないトコ、普通に分かるだろ。
あと、気になるのは、１度動かすと、sheetClassList.Count の値がぶっ飛ぶ。（ゼロになる）
624:608
08/01/30 20:04:14
わかりました○|￣|＿
CellはRaw:2から読まないとだめでしたね・・・（0+1=1 "id"読んでました）
GetDataの内部の行ではなく、呼び出しの行がエラーになったために、その部分ばかりこだわってました。
ありがとうございました。精進します。
625:618
08/01/30 20:18:34
>>624
精進してください。 ちなみに、さっきザッと眺めた限りでは、あと変数型さえ直せば動くと思うよ。
626:デフォルトの名無しさん
08/01/30 20:21:01
おまいら釣られすぎ。
流れ変えようと>>514が質問を始めたな。
何が組み込み屋だよｗｗｗ
627:デフォルトの名無しさん
08/01/30 20:24:29
それならそれで乗ってやりゃ済む話だろ。 どんだけ粘着なんだよ。キモイやつだな。
628:デフォルトの名無しさん
08/01/30 20:37:18
>>626
流れをぶった切って申し訳ないが無関係なんで・・・。
組み込み屋馬鹿にスンナヽ(`Д´)ﾉ
629:デフォルトの名無しさん
08/01/30 21:51:38
それよりｚｚって相当生意気な香具師だな
630:デフォルトの名無しさん
08/01/30 22:44:34
質問です。
配列を一気にboolean型のtrueで初期化する方法はありますか？
Dim hairetu As booleanです
631:デフォルトの名無しさん
08/01/30 23:06:31
OSはWindows XP、Excelは2002です。
エクセルに関しては、授業で習った程度の事しか出来ません。
エクセルのVBAでゲーム作成の課題が出て、マインスイーパを作ってみようと思ったんですが。
全てのボタンをトグルボタンで作ろうとすると、凄く重くなります。
更に一個一個のボタンにコードをいちいち打たなければならないので、
もし出来たとしてもやはり使い物にならなくなると思います。
コードをすっきりさせるやり方で、何か良い方法はありませんか？
お願いします。
632:デフォルトの名無しさん
08/01/30 23:45:53
>>630
APIでメモリ操作
>>631
セルをボタンにみたてたら？
633:デフォルトの名無しさん
08/01/31 00:11:47
632さん
ネットで調べたのがよくわかりませんでした。
どーいうことなのですか？
634:デフォルトの名無しさん
08/01/31 09:15:10
>>632
それも最初考えてみたんですが…。
マインスイーパでいう、ボタンをクリックすると文字が表示されるという動作と、
ボタンに爆弾の印を付けるという動作をさせるやり方が見つからなくて…。
セルの中の値を非表示にして、クリックなどの動作で其れを表示させるというやり方が
可能なのでしょうか？
635:デフォルトの名無しさん
08/01/31 09:50:20
>>634
workbookのsheetchangeでいちいち全セルのvalueを見回るようにするとか
どっちにしろ重くなるけど
636:デフォルトの名無しさん
08/01/31 10:03:14
コントロール配列とかでイベントプロシージャ共有じゃだめなん？
サブクラス化して変数持たせないと呼び出し元識別できないっけ？
637:デフォルトの名無しさん
08/01/31 14:24:13
>>635
>>636
コントロール配列が出来るなら…何とか出来るかもしれません。
どちらも自分には難しそうですが、またちょっと調べて作ってきます。
すいません、有難う御座います。
638:デフォルトの名無しさん
08/01/31 21:27:29
ワークシートにファイルからオブジェクトを挿入し
同時に同じファイルにハイパーリンクを設定するマクロを作っています。
ひとまずマクロの記録をして、それを元に作成しようと考えたのですが、
記録したものを実行すると2行目、3行目でエラーが出てしまいます。
（改変したものでもエラーが出ます）
2行目はオブジェクトを挿入すると"=EMBED("○○","")"という数式？が追加されるので
それを削除する工程です。
明日までには処理完了させねばならないのですが、何が問題なのか御教示下さい。
Sub Macro()
ActiveSheet.OLEObjects.Add(Filename:="C:\test.pdf", Link:=False, DisplayAsIcon:=False).Select
Selection.Formula = ""
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="C:\test.pdf"
End Sub
639:デフォルトの名無しさん
08/02/01 11:16:45
複数あるフォームのひとつを変数扱いで表示することは可能でしょうか。
下のサンプルのようなことをやりたいのですが
「オブジェクトはこのメソッドをサポートしてません」と出てしまいしまいます。
(UserForm1は勿論つくってあります）
myForm+ピリオドでShowメソッドが出てこないので、ダメなのは解っているのですが。。
Sub sump()
Dim myForm As UserForm
Set myForm = New UserForm1
myForm.Show
End Sub
640:デフォルトの名無しさん
08/02/01 11:48:31
>>639
UserForm と UserForm1 はベツモノのクラスだよ。Control と Textbox みたいな親子関係。
変数の型を UserForm1 にしてやればおｋ。
641:デフォルトの名無しさん
08/02/01 12:07:20
>>640 できました
UserForm1型があるなんて知りませんでした。
親(userform)に子(userform1)を代入、みたいに考えてました・・
ありがとうございます。
642:デフォルトの名無しさん
08/02/01 12:26:35
>>641
フォーム型のクラスを継承するイメージかな。
当然、フォームの（オブジェクト名）を変更すると、クラス名（変数型）も変わるよ。
一旦、オブジェクトを作成してから、userform型に userform1を代入するのは間違いじゃない。
userform1、userform2・・・と型が増えたときに、userform に代入すれば、どれでも操作できる。
Control と Textbox、Label、Combobox・・・ の関係と似たようなもんだよね。
643:デフォルトの名無しさん
08/02/01 12:51:24
>>642
639=641です
userform1型を使うのはできましたが、これだと
myform変数にuserform2を代入できないことがわかりました。（型が違うため）
このような場合どうしたらよいでしょうか。
＞userform1、userform2・・・と型が増えたときに、userform に代入すれば、どれでも操作できる。
このやり方を知りたいのですが。（繰り返しですみません）
644:デフォルトの名無しさん
08/02/01 13:00:34
643です
たびたびすみません、object型を使ったらできました！
これで合ってるでしょうか。
645:デフォルトの名無しさん
08/02/01 14:25:37
>>644
↓こういう作りになってれば、少なくともエラーにはならないと思うんだけど・・・？（Excel2000）
Dim a As UserForm1, Dim b As UserForm2, Dim c As UserForm
Set a = New UserForm1
Set b = New UserForm2
Set c = a
Set c = b
Object型は、なるべく使わないに越した事はないよ。ダメだという意味じゃないけど。
646:デフォルトの名無しさん
08/02/01 15:32:34
>>645
やってみましたが、c.Showでエラーになってしまいます。
（メソッドをサポートしません）
647:デフォルトの名無しさん
08/02/01 16:08:12
>>646
あー、そういう意味か。
申し訳ない、代入した後は、代入した先の変数型の持ってるメンバしか使えないよ。
Control 型に、ラベルやチェックボックスを入れても.Caption を設定できないのと同じこと。
＞myForm+ピリオドでShowメソッドが出てこないので、ダメなのは解っているのですが。。
仰るとおり、Userform 型は、.Show() をサポートしていない。
異なるクラスで、共通のメソッドを呼びたいなら、Objectを使うしかないです。
あるいは、インターフェイス用のクラスを作って Implements する方法があるけど、
フォームに使うのは怖いので、特に事情が無い限りはやめた方がいいと思います。
648:デフォルトの名無しさん
08/02/01 16:43:27
>>647
了解です、今回はobjct変数でやることにします。
（やりたいことはメッセージ代わりのフォームを打ち分けたいだけなので）
何度もお手数をとらせ申し訳ありませんでした。
649:デフォルトの名無しさん
08/02/01 23:54:14
ＶＢってオブジェクトと初期インスタンスの名称が同じだって所が半端な感じだよね
650:デフォルトの名無しさん
08/02/03 16:39:17
os:xp
excel:2003
VBAで指定列からＡを検索し、発見したら隣のセルに0を入れるマクロを組みたいのですが、組み方がVBA初心者の為わかりません。
（例）
L列に、A、B、C、D、E、Fとランダムに文字が入っていて、
文字Aを検索し、発見したら隣のI列に値0を入れるというマクロです。
Sub Search()
Dim A As String
Set A = Worksheets("Sheet1").Cells.Find("A")
If A Is Nothing Then
ActiveCell.Offset(0, 1).Value = 0
End If
End Sub
と自分で考えてみたのですが、Aがあった時、、、、
とコードが書けないです。
大変困っているので、ご教授頂けないでしょうか？
長文失礼しました！
651:デフォルトの名無しさん
08/02/03 18:19:53
突っ込みどころが多すぎ
全部に突っ込むの面倒なので正解書いておく
Sub Search()
Dim A As Range
Set A = Worksheets("Sheet1").Columns("L").Find("A")
If Not A Is Nothing Then
A.Offset(0, 1).Value = 0
End If
End Sub
うわ､プロシージャ宣言やEnd Ifなど､間違いようのない部分以外､全部間違ってるじゃんw
652:デフォルトの名無しさん
08/02/03 18:35:44
notつけろの一言だけで済む話を教えたがりはこうやるわけだ
653:デフォルトの名無しさん
08/02/03 20:53:17
>>652
not付けました
実行結果は以下の通りです┐(´ー｀)┌
---------------------------
Microsoft Visual Basic
---------------------------
コンパイル エラー:
オブジェクトが必要です。
---------------------------
OK ヘルプ
---------------------------
654:デフォルトの名無しさん
08/02/04 00:44:54
For n = 1 to 3 step 1
msgbox ("n
ｎを表示したい場合はmsgbox ("n
このあと何するのか分かる人いたら教えて下さい
655:デフォルトの名無しさん
08/02/04 00:57:25
msgbox ("n")
656:デフォルトの名無しさん
08/02/04 02:52:03
msgbox n
657:デフォルトの名無しさん
08/02/04 03:34:18
("n")ﾊﾞｰｶ
658:デフォルトの名無しさん
08/02/04 13:38:43
>>657
ｽﾚﾘﾝｸ(tech板:276番)
659:デフォルトの名無しさん
08/02/05 10:49:33
標準モジュールから、ユーザーフォームのテキストボックスに、
文字を表示させるにはどうすればいいでしょうか
以下では、ダメでした。
Sub test()
If Range("A1").Value = 1 Then TextBox1.Value = "ぼぼぼぼぼぼ"
End Sub
660:デフォルトの名無しさん
08/02/05 11:22:30
だから、どうダメだったか位書こうぜ。
つーか、エラーメッセージくらい自力で理解しろよ。
661:659
08/02/05 11:39:17
それが分かったら来ませんがな・・（´・ω・）
モジュール間で値渡し？しなければならないというのは
何となく分かるのですが、textbox1の「change」とか「enter」とか
どこに記述すればいいのかも分からず、現在に至っております。
662:デフォルトの名無しさん
08/02/05 11:49:56
>>661
エラーメッセージは出ませんでしたか?
恐らく、>653のようなダイアログが出たと思うのですが。
それを見ても何も理解できないようなら人間やめた方が宜しいかと。
663:659
08/02/05 11:55:57
>>662
textbox1 の変数が定義されていません と出ますね。
いちおう、フォームでtextbox1は作っているんですよ。
664:デフォルトの名無しさん
08/02/05 12:41:37
>>663
標準モジュールに記述してるんだったら、
Range("A1").Value にしろ TextBox1.Value にしろ、未定義扱いになると思うが？
（どこに属するオブジェクトか判断できない。明示的に指定されていない。）
665:デフォルトの名無しさん
08/02/05 12:48:53
シートから実行してしまうと、Rangeの方は未定義にならない罠。
666:664
08/02/05 12:55:45
>>665
うを、ホントだ。素で知らんかった。Activesheetを拾うっぽいね。 どうもありが㌧。
667:デフォルトの名無しさん
08/02/05 13:56:32
>>664
その定義方法がですね、textboxから、プロシージャをcallする場合は
分かるのですが、この逆になると、textboxのchangeなのかenterなのか
keydownなのかどこで定義したらいいのか・・・そもそも不可能なのか・・
668:デフォルトの名無しさん
08/02/05 14:10:50
>>667
イベントプロシージャを使うつもりなら、どのイベントで処理するか決めるだけじゃないの？
つか、どういう動きをさせたいの？
669:デフォルトの名無しさん
08/02/05 14:11:31
>>667
もしかして、フォームのプロシージャから標準モジュールをサブルーチンとして使いたいのか?
だとしたら、フォーム自身なりテキストボックス自身をそのtest()に渡してやればいい。
やりたいこととやっていることの説明くらいできないようじゃ、先が思いやられるけどね。
670:デフォルトの名無しさん
08/02/05 15:14:50
お付き合い頂き感謝します。
標準モジュールから、ユーザーフォームのテキストボックスを呼び出して、
なおかつそのテキストボックスに任意の文字列を表示させたいです。
テキストボックスのプロシージャから、標準モジュールを呼び出すのは
何とかできるのですが、逆がどうしても出来ません・・
671:デフォルトの名無しさん
08/02/05 15:18:49
面倒だから、全ての自作オブジェクトの一覧と全てのプロシージャの一覧出しちゃえよ。
状況説明できない馬鹿にいくら聞いても説明しても無駄だって判ったからさ。
672:デフォルトの名無しさん
08/02/05 15:21:08
>>670
いや、だから・・・
何かしらの処理が実現できない、っていう相談じゃなくて、コードの書き方が分からんってこと？
標準モジュールに記述したプロシージャは、どこかから呼ばれるまでは処理が走らない。
その前提の上で、特定のフォームの部品を扱いたいなら、○○（Userform名）.Textbox1
例えば、デフォルトのオブジェクト名であれば、Userform1.Textbox1.Value でアクセスできる。
TextBox1.Value だけでは対象が分からんからエラーになる。 単にValue とだけ書くようなもん。
673:デフォルトの名無しさん
08/02/05 15:24:36
うぜーーーー
Sub foo()
UserForm1.TextBox1.Text = "abc"
UserForm1.Show
End Sub
674:672
08/02/05 15:29:26
>>670
あー、ごめん、よく考えたら 672の書き方じゃ絶対に分からんな。
まずはフォームの実体を取得しなきゃならんので、どこかから呼び出されるのを前提で、
”基本的には”標準モジュールのプロシージャに引数として処理対象のオブジェクトを渡すか、
フォームのインスタンスを作るトコから全て標準モジュールの処理で書かないといけない。
675:デフォルトの名無しさん
08/02/05 15:39:12
>>972-974
でけた＾＾
コードの書き方の問題なのかも分かりませんでした・・orz
ありがとうございました！
676:デフォルトの名無しさん
08/02/05 15:40:29
感謝まで明後日の方向向いているよ。どうしようもねぇな。
677:672
08/02/05 15:42:12
ﾜﾛﾀw
678:デフォルトの名無しさん
08/02/05 15:44:13
>>674
なんか勘違いしてない？
インスタンス化はアクセスされると自動的に行われるよ？
679:672
08/02/05 15:55:59
>>678
勘違い、つか、VBが特殊な使い方ができるだけで、
インスタンスを作ってから使うのが基本だと俺は思ってるから、自然とそういう書き方になった。
複数のインスタンスが持てないわけでもなし、何故突っ込まれるのかが分からんが。
680:672
08/02/05 16:00:40
>>678
あ、スマン、書き込んでから言いたい事が分かった・・・。確かに、勘違いしてるように見える。
申し訳ない。
681:デフォルトの名無しさん
08/02/05 16:04:15
少なくとも、VBA/VB6では、規定のインスタンス（暗黙のインスタンス化）を使うのが、
まぁデフォですので・・・。
682:デフォルトの名無しさん
08/02/05 16:16:38
Windows XP + Excel 2000SP3です。
MouseWheel Fixをアドインマネージャに起動時/ロードで設定すると、VBEを開こうとすると
「インストールの準備中」のダイアログが出て先に進みません。
ただ、なぜだかその状態で一度Excelを終了させてすぐに起動すると、そのダイアログが
終了してVBEが立ち上がるようになります。
「起動時/ロード」を設定せずに、Excel起動後にロードしようとしても、やはり最初の一回は
「インストールの準備中」から先に進みません。
何か、解決法はあるでしょうか？
683:デフォルトの名無しさん
08/02/05 16:40:58
自作のDLLをDeclareで参照して使うと、Excelを終了させないとDLLがアンロードされないみたいなんですが、
強制的にDLLをアンロードするにはどうすればいいですか？
684:デフォルトの名無しさん
08/02/05 16:57:04
>>683
日本語訳はヘンテコなんでこっちで。
PRB: Loading and Unloading DLLs in the Design Environment
URLﾘﾝｸ(support.microsoft.com)
685:≠683
08/02/05 17:17:18
つまり、Declare宣言を編集しようと試みると強制的にアンロードされるってことでいいのかな?
686:デフォルトの名無しさん
08/02/05 17:36:25
>>685
Declareの"r"を削除して行を離れると、強制コンパイルされてDLLがアンロードされるから、
その行に戻って"r"をタイプして元通りにしろってことね。
687:デフォルトの名無しさん
08/02/05 23:14:50
i = 3
Do While Cells(i, 1) = "東京"
If Range(i, 10) = 1 Then
Range("i" & Columns.Count).End(xlUp).Value = st4 & st5
st1 = Range(i, 8)
st2 = Range(i, 9)
With ws2.Range("A" & Rows.Count).End(xlUp)
.Offset(0.1) = st1
.Offset(0.2) = st2
End With
i = i + 1
Loop
恐れ入ります。
Ａ列３行目から”東京”となっている間ずっと、
もしその行の１０列目が”１”であるなら”１”の一つ右の行を確認、
空白だったらST4とST5の文字列を貼り付ける。空欄でなかったらさらに一つ右の行を確認・・・（ループ）
さらにST1、ST2の文字列を貼り付け・・・
というのをループさせたいのですが、
”１”の一つ右の行を確認、空白だったらST4とST5の文字列を貼り付ける。空欄でなかったらさらに一つ右の行を確認・・・（ループ）
の部分がよく分かりません。また、実行してみてもLOOPに対するDOが無いとのエラーになってしまいます。
おばかな質問で恐縮ですが、よろしくお願いします。
688:デフォルトの名無しさん
08/02/05 23:33:09
i=i+1の前に end ifがいる。
689:デフォルトの名無しさん
08/02/06 06:52:49
>>682
そんな現象なったことないが、原因分かんないならVectorとかで同種のソフト拾ってきて使えば？
もしくはExcelを再インストールして様子見るとか
690:デフォルトの名無しさん
08/02/06 09:48:27
>>682
他のアドイン機能はちゃんと動作するのか確認して、異常がないようなら
MouseWheel Fix を一旦登録解除（クラスライブラリ）してから、再登録してみたら？
691:682
08/02/06 10:50:25
>>689,690
コメントありがとうございます。
他のアドインは正しく動きました。また、MouseWheel Fixをregsvr32 /uして再登録してみたんですが
状況が改善しませんでした。
いろいろと検索していると、同種のアドインが見つかりましたので、それを試してみたらうまく
動作しているようなので、とりあえずはこちらを使うことにします。
AddAutoScroll for VB6/VBE6
URLﾘﾝｸ(homepage1.nifty.com)
692:デフォルトの名無しさん
08/02/06 11:30:49
OS vista
excel 2007
Dim i As Integer
Dim x(10), y(10) As Single
For i = 1 To 10
x(i) = i
y(i) = i
Next
Cells(1, 1).Value = Application.WorksheetFunction.LinEst(y, x)
linest関数を使いたいのですが、試しに上記のようなプログラムを作成したところ
肝心のlinest関数のところで「linestプロパティが取得できません」とエラーがでます
基礎的な間違いをしてる気がするのですが、どうかアドバイスをお願いします
693:デフォルトの名無しさん
08/02/06 11:53:18
'テキストファイルを開きます。
Workbooks.OpenText Filename:=strFileName, _
Origin:=xlWindows, _
StartRow:=2, _
DataType:=xlDelimited, _
TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Space:=False, Other:=False, _
Comma:=True, _
FieldInfo:=Array( _
Array(1, 2), Array(2, 1), Array(3, 2), Array(4, 2), Array(5, 2), _
Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), _
Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 1), Array(15, 1), _
Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 2), Array(20, 2), _
Array(21, 2), Array(22, 2), Array(23, 2), Array(24, 2), Array(25, 2), _
Array(26, 1), Array(27, 2), Array(28, 2), Array(29, 2), Array(30, 2), _
Array(31, 2), Array(32, 2), Array(33, 2), Array(34, 2), Array(35, 2), _
Array(36, 2), Array(37, 2), Array(38, 2), Array(39, 2), Array(40, 2) _
)
上記処理にてWinXP SP2 Office2003 SP3環境では問題なくシート表示するのですが、
WinXP SP2 OfficeXP (SP状態は不明です)の環境では文字化けして表示されます。
化けるフィールドとしては2バイト文字のところで、
テキストファイルとしては半角カナも全角漢字も混在のCSVで
改行コード、文字コードはCRLFのSjisです。
原因と対策がよくわからなくて困っております。
何かご存知でしたら教えていただければ、と思います。
よろしく頼みます。