Excel VBA質問スレ Part5

1 名前：デフォルトの名無しさん [2007/12/12(水) 17:27:44 ] ExcelのVBAに関する質問スレです 質問前に　【 >>2-3 】　あたりを良く読むこと 前スレ pc11.2ch.net/test/read.cgi/tech/1189814602/ 382 名前：379 [2008/01/15(火) 20:52:47 ] >>380 は偽者です。 383 名前：379 mailto:sage [2008/01/15(火) 21:08:38 ] >>382 お前も偽物だろうがw 384 名前：379 mailto:sage [2008/01/15(火) 21:32:44 ] 俺は偽物ですよ でも>>380は本物ですよ 385 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 01:17:42 ] >>379 ＞>>334=377 いいえ、等しくありません。 386 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 10:06:13 ] >>373 どうでもいいが、RGB()関数って256を指定してもエラーにならないのか、知らなかった。 387 名前：デフォルトの名無しさん mailto:age [2008/01/16(水) 13:00:24 ] 項目とデータを含んだ2次元配列変数A,B　たとえばA(30×2),B(100×2)があり、 Bの100個の項目のなかからAの項目30に該当するものをそのままAのデータに代入したい ということを考えています。ワークシート上で行う場合はlookup関数を使えばよいのですが マクロのままで高速に行う方法はないものでしょうか？ ワークシート関数を使ったとしても一度ワークシートにデータを書き出さなければ つかえないのでしょうか？色々調べても分からなかったので どなたか御教示頂けると嬉しいです。 388 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 13:26:11 ] >>387 ん？　というか、既に処理を書いてるんだったら、 VBAで処理してからワークシートに吐いた方が、そりゃ若干早いはずだと思うが。 389 名前：デフォルトの名無しさん mailto:age [2008/01/16(水) 13:46:00 ] あ、すみません。Bの項目、データは揃っていますが、Aは項目だけで B100個の項目の一部でAの30個の項目と重複しているものを検索、抽出して Aの該当する項目のデータとして代入しようとしています。 ワークシートの上でやるのなら、lookup関数をつかえば良いのでしょうが ワークシートを一切いじらずに配列の内部処理だけで同様な操作を高速に できないかと悩んでいる次第です。 390 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん [2008/01/16(水) 17:41:03 ] 質問。 セル[A2:C2]に英語・数学・国語の得点が入っている。合計点を計算し、 セル[D2]に入れるマクロを作成しなさい。 また、合計点が270点以上の時には「大変よくできました」、 180〜269点のときには「よくできました」、 180点未満のときには「がんばろう」というメッセージをセル[E2]に表示しなさい。 英語の得点は90点 数学の得点は85点 国語の得点は100点　とする。 よろちくね。 392 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 19:17:08 ] デフォルトプロパティの省略はやめましょう 少なくとも他人にコードを渡すときは 394 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 21:49:52 ] 2007で作ったマクロは何であんなに重くなるんだ。 一旦５．０で保存したら軽くなったんだけどまともに動かなくなるし。 これから2007が標準になっていくのかと思うと憂鬱だ。 395 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 21:59:19 ] うちの会社、未だに2000使ってて、GJ!!! 自宅の自前PCも、2000のまま。サポートし続けろよ＞MS 396 名前：デフォルトの名無しさん mailto:sage [2008/01/16(水) 22:02:13 ] Office 2000 メインストリーム サポート : 2004 年 6 月 30 日終了 延長サポート 期間 : 2004 年 7 月 1 日から 2009 年 7 月 14 日まで (修正プログラム サポートには最新のサービス パックがインストールされている必要があります) 397 名前：デフォルトの名無しさん [2008/01/17(木) 10:00:49 ] >>390　ありがとうございます。 やりたいことはそういうことなのですが、 その書き方だと要素が膨大になった時は明らかに遅くなると思います。 VBA上で高速に行う書き方などご存知ありませんでしょうか？ 398 名前：デフォルトの名無しさん mailto:sage [2008/01/17(木) 10:22:24 ] >>397 アルゴリズム的な話なら､手法はいろいろあるが､｢VBA上で高速に行う書き方｣ではなく ｢VB言語で高速に行う書き方｣になるので､例えExcelでやるとしてもスレ違いだよ >>2★3★4 399 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/17(木) 11:51:13 ] 各都道府県に分けられているデータをdataという名前のシートに集計するプログラムを作成したいです。 簡単に言いますと１つのシートに４７個のシートを入れたいです。 よろしくお願いします 401 名前：デフォルトの名無しさん [2008/01/17(木) 12:51:36 ] >>392 さん ありがとうございます。 402 名前：デフォルトの名無しさん mailto:sage [2008/01/17(木) 20:37:20 ] >>400 >１つのシートに４７個のシートを入れたいです。 意味不明 １つのブックに47個の県別シートを作りたいという意味なのか？ 逆に県別に47個あるシートから1つのdataって言う名前のシートに集計したいってことなのか？ どのセルに何をどういう条件で集計するのかも書いていない。 403 名前：デフォルトの名無しさん [2008/01/17(木) 22:54:26 ] 質問です、VBA構造体配列を初期化したいのですがどうすればいいですか？ 調べたのですがよくわかりませんでした。 404 名前：デフォルトの名無しさん mailto:sage [2008/01/17(木) 23:16:07 ] 初期化用の構造体を作って代入 405 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 00:46:52 ] 初期化用関数作る 406 名前：デフォルトの名無しさん [2008/01/18(金) 01:31:22 ] 403です。 404.405さん以外のやり方を探しているのですがEarseの使い方やZreoMemoryの使い方がわからないです 407 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 02:43:12 ] ＞Earseの使い方やZreoMemoryの使い方がわからないです そりゃそうでしょう、そんなものありませんから。 408 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 08:27:07 ] >>403 その辺の仕様はVB6と一緒です つまり>>2★3★4 409 名前：デフォルトの名無しさん [2008/01/18(金) 11:59:04 ] VBAを実行する前に、このブックが共有されているかどうか 調べて、結果を返す方法は無いでしょうか。 410 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 12:20:06 ] >>409 Workbook.MultiUserEditing で調べられるけど、これはVBAだからダメってこと？ 411 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 12:25:45 ] VBA実行してからまたきてね♪ 412 名前：デフォルトの名無しさん [2008/01/18(金) 12:31:44 ] ありがとうございます！ いえ、multiuserediting の存在を知りませんでした・・ 413 名前：397 mailto:sage [2008/01/18(金) 14:55:18 ] >>398,>>399さん、判りました。自分でもまた試してみます。 ありがとうございました。 414 名前：デフォルトの名無しさん [2008/01/18(金) 18:11:23 ] 使えねーな 415 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 22:25:58 ] 初歩的ですみません。 VBAで、あるセル範囲にある数式の答えを出力するにはどうすればいいんでしょうか？ Range("A1:A5")="b2/2＋b5"みたいにすると数式がそのまま出力されるし・・・ 418 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 22:31:50 ] >>417 それが初歩的だとわかるぐらいならじゅうぶん中級車さ 419 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/18(金) 23:11:24 ] >>415 DoEvents ステートメントは、ウィンドウズメッセージとイベントプロシージャの処理が終わるまで 戻ってこないから、多分、AのDeactivate⇒即座にBのActivateが走ってる状態。 ちょっと構造を見直した方がいいかもね。 421 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 17:14:35 ] OS XP、Excel2003 普段は、VBエディタから 挿入 → 標準モジュール で Module** といったファイルを作成してコードを書いています。 このModule** というファイルを自分の好きな名前にするのにはどうしたら良いのでしょうか？ 422 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 17:25:27 ] 右クリックの名前を変更かF2でできたと思う。 423 名前：421 [2008/01/19(土) 19:16:55 ] >>422 ご解答ありがとう御座います。 しかし、右クリックしても「名前を変更」が見つかりません。 また、F2ではオブジェクトブラウザという表示になるのですが 名前を変更する方法がわかりません。 分かる方みえましたらお願いします。 424 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 19:22:37 ] >>423 プロパティウィンドウ→オブジェクト名を変える 425 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 19:23:18 ] >>423 プロパティウィンドウの、（オブジェクト名）を変更すると変わる。 426 名前：416 mailto:sage [2008/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 [2008/01/19(土) 21:29:38 ] >>424 >>425 教えて頂いた方法で出来ました。 大変ありがとう御座いました。お二人に幸あれ。 428 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 21:56:53 ] >>426 そのコードをそのままこちらで実行してみたけど、問題なく動いたよ。 何か別の場所でミスしてるんでは？ 例えば、 値を表示させたいリストボックスのオブジェクト名が ListBox2 ではなく ListBox1 だった、とか 代入元のセル A1:A5 の値がマクロ起動時には空白だった、とか。 今一度、確認すべし。 429 名前：質問 mailto:sage [2008/01/19(土) 22:40:54 ] Visual Basic Editerの画面で何かの拍子に下記のように 操作パネルが統合されなくなってしまいました。 どうすれば元通りにできるでしょうか？よろしくお願いします！ members.at.infoseek.co.jp/skypp/AAAAA.jpg 430 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 23:08:09 ] >>428　Private Sub UserForm1_initialize() だとgeneralになっていたので Private Sub UserForm_initialize() に直すとUserFormになって動きました。 作ってるのはUserForm1なのに不思議ですね。 ともかく有難うございました。 431 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 23:51:21 ] >>430 画面のコントロール以外（フォーム、クラス等）のイベントプロシージャ名は、 オブジェクト名に影響されないハズなんだけどね。何でだろ？ でも、言われてみれば違和感あるよな。今気づいたｗ 432 名前：429 mailto:sage [2008/01/19(土) 23:52:15 ] 自己解決しました。 プロジェクトエクスプローラで「ドッキング可能」にしたら直りました。 下記にも載ってました（＾＾） www2.moug.net/bbs/exvba/20071226000034.htm 433 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 23:52:47 ] >>429 メニューの、ツール ⇒ オプション ⇒ [ドッキング] タブ を確認してみて。 434 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/20(日) 00:28:12 ] >>427 祈われるまでもなく幸ねぇよｗ >>400 もうちょい詳しく書かないと失礼だぞぅ 436 名前：デフォルトの名無しさん mailto:sage [2008/01/20(日) 00:30:46 ] range変数で格納できる範囲はRange(Cells(1, 1), Cells(5, 4)) のような一枚のワークシート上の範囲だけでなのでしょうか？ 1枚目のRange(Cells(1, 1), Cells(5, 4))と2枚目のなんたらのように 別のsheetにわたった範囲の格納などしたい場合はどうすればいいのでしょう 437 名前：デフォルトの名無しさん mailto:sage [2008/01/20(日) 00:57:59 ] >>436 それは無理。　クラスの概念を知らないと分からないかもしれないけど。 別々の変数に持たせるしかないと思う。もちろん、配列やコレクションは使えるはず。 438 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん [2008/01/20(日) 21:03:23 ] Application.ScreenUpdating = False Application.ScreenUpdating = True ↓ Application.EnableCalculation = False Application.EnableCalculation = True 442 名前：デフォルトの名無しさん mailto:sage [2008/01/20(日) 21:22:32 ] >>441 再計算しない場合はそんなのあるのか、ありがとう。 でも、変えてみたけど実行時エラーでてだめだった、 ワークシートで再計算してるから使えないのか ワークシートの再計算はそのままで画面の更新だけ止めるのはできないのかな 443 名前：441 [2008/01/20(日) 22:05:30 ] 折れには、試す気もないのでわからない。 続けての回答を待っているといけないから、折れには以後書くことはないと伝えておくよ。 あと、折れが使うのは Application.EnableEvents = False　（と True） Application.Visible = False　（と True） 444 名前：デフォルトの名無しさん mailto:sage [2008/01/20(日) 22:17:22 ] >>443 いろいろありがと 新しいこと少し覚えられてよかったｗ まあ、うまくいかなかったけど趣味で使ってるだけだから そのうちできるようになると思うのでゆっくりやります 445 名前：デフォルトの名無しさん mailto:sage [2008/01/20(日) 23:58:30 ] >>442 全くためしてないんだが Application.ScreenUpdating = 画面の更新をするか Application.EnableCalculation = 再計算してるか を考えれば幸せになるんじゃね？ 俺的には全部コードでやっちゃうがｗ 446 名前：441 [2008/01/21(月) 01:01:55 ] >>442での「実行時エラー」ってのが、気になった・・・ application.run関係ぐらいしか実行時エラーが出うる箇所はないように見えた。 もしかしたらだけど、ここが参考になるかも  ttp://www.geocities.jp/happy_ngi/YNxv9cz56.html おやすみ 447 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 01:59:57 ] >>445 >>446 ありがとうございます。 441さんの指摘のようにapplication.runが原因みたいです Excelの分析ツール使うと画面更新されてしまうみたいです ワークシート上だけで乱数関数使って同じようなコードで実行したら、 画面は更新されないでうまくいきました。 鋭い指摘ありがとう！ 448 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 15:58:59 ] あのさ、 いちいちこのスレで聞くよりもさ、 自分でググるなり本を買うなりして調べた方が圧倒的に早いと思うんだけど。 450 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 16:10:15 ] >>448 つか、目的がよくわかんねーよ。　あと、その例文、.Offset に .Select付いてたらエラーになるぞ。 そもそも、Offset って、基本的にRangeのプロパティなんだが。Rangeを使わずにどうしろと？ 452 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 16:57:48 ] If 気に入らない or わからない Then 　　スルーしろ End If 453 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 17:01:03 ] 意味が分かれば協力する気持ちがあるから訊いてるんだよ。全否定すんな。 それとも、どこが分からないか、こちらが分かりやすく優しく丁寧に質問しないとダメなのかよ？ 454 名前：448 mailto:sage [2008/01/21(月) 17:19:29 ] すまん！ Sub hoge() Range("A1").Select Range(ActiveCell.Offset(2, 2), ActiveCell.Offset(10, 10)).Select End Sub selectとったらいけました。 逝ってくる 455 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 17:56:47 ] >>453 やりたいことの「イメージ」って書いてるだろ。 これで意図がわからんというのがわからん。 456 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 20:42:56 ] >>453はかわいそうな子 457 名前：451 mailto:sage [2008/01/21(月) 21:10:50 ] >>455 レスの流れぐらい見ろよ。レスから読み取れる範囲で回答はしてる。 それとも、IDがないと同一人物かどうかも判断できんか？ 458 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 23:47:53 ] 構造体の2次元配列の参照って Kouzoutai(1,2).Member = 1 という形であってます？ オブジェクトが必要ですとかいうエラーが返ってくるんですが… 459 名前：デフォルトの名無しさん mailto:sage [2008/01/21(月) 23:59:26 ] すごいな。 もう思いついたことをとりあえず質問するスレになってるな。 >>458なんてはなっから自分で調べる気ないもんな。 460 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 00:30:46 ] >>458 オブジェクトがないんだよ。 Dim Kouzoutai( 5, 5 ) as HOGE って形になってるか？ どうせ Type Kouzoutai Member as integer End Type とかになってんだろ。 「VBA 構造体」でググればびっくりするくらいヒットするじゃないか。 461 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 13:31:48 ] >>463 日本語でやりたいことを書け 465 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 13:38:05 ] >>463 観光客の人数をExcelで作成したのですが、Ｅ６からＥ２６とＮ６からＮ２６ に観光客の人数を入力したのですが、これを小さい順に書き換えるにはどうし たらいいのですか？ 466 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 13:46:13 ] つ【並べ替え(S)】 467 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 18:25:19 ] 「セルが特定の値以外のとき、自分の行を削除」したい。 IFでセル内容を指定してから Range.deleteでどうやって削除条件にすべきでしょうか。 468 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 20:22:56 ] な、何なんだこのスレは・・・ 469 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 22:05:12 ] このスレは池沼のフリして教えたがりのうざいヲタを釣るスレですが、なにか？ 470 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 22:13:25 ] ってことはこれは釣れたってことでFA? 471 名前：デフォルトの名無しさん [2008/01/22(火) 22:49:21 ] >>470 お前がなｗ 472 名前：デフォルトの名無しさん mailto:sage [2008/01/22(火) 23:03:33 ] やたー☆ 473 名前：デフォルトの名無しさん mailto:sage [2008/01/23(水) 11:53:11 ] やったー　+1 474 名前：デフォルトの名無しさん [2008/01/23(水) 18:41:55 ] ここで良いかどうか分かりませんが・・・ ビデオカードの現在の解像度（できればモニタのインチ数も）によって、 ActiveWindow.Zoomの値を変更するプログラムを考えているのですが、 vbaでビデオカードの現在の解像度を調べるのは不可能でしょうか？ 475 名前：デフォルトの名無しさん [2008/01/23(水) 21:16:04 ] >>474 vba api 解像度 でぐぐれば、2番目にあなたの望む回答が 476 名前：デフォルトの名無しさん [2008/01/24(木) 08:57:54 ] 良回答認定 477 名前：デフォルトの名無しさん [2008/01/24(木) 09:11:24 ] >>475 ありがとうございます！ 下調べはしてたつもりだったのですが、 甘かったです・・・orz 478 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん [2008/01/24(木) 10:06:39 ] >>478です。 申し訳ありません、スレ違いでした。 失礼致しました。 480 名前：デフォルトの名無しさん [2008/01/24(木) 10:33:36 ] アクセスのVBAのスレが見付からないのでここで質問します。 アクセスのVBAで、フォーム１ ユーザ登録画面 ユーザ名[ ] パスワード[ ] 登録 があり、2つを入力し、登録を押したら登録できるのを教えてください 481 名前：デフォルトの名無しさん [2008/01/24(木) 10:37:07 ] >>478です。 何度もすみません。もうこのスレに書いてしまったので、 ほかのスレに書いたら、マルチポストとか云うのに なってしまいますので、もしよろしければこのスレで 教えて頂けないでしょうか？ 482 名前：デフォルトの名無しさん mailto:sage [2008/01/24(木) 11:04:47 ] >>481 誤爆はマルチにはならないと思うよ。 マルチポストだって言うヤツは居るかもしれんが、普通に教えて貰えると思う。 俺も多少は分かるけど、このスレで回答したくない。回答が違ってても突っ込みがなさそうだから。

---

---

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

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