Excel VBA質問スレ Pa ..
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
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4750日前に更新/253 KB
担当:undef