Excel VBA質問スレ Part6

Excel VBA質問スレ Part6 at TECH

[前50を表示]
600:デフォルトの名無しさん
08/05/03 12:30:22
>>562
せっかくVBAで仕事が早く終わるようになったのなら
仕事してるふりしてネットでも見てなさい

601:デフォルトの名無しさん
08/05/03 13:07:55
ちょっと時間がかかっていいなら・・・
1. Sheet1, Sheet2をExcelの機能でソートする
2. Sheet1の10,000行目のソートキーを区切りにして、そこより上をSheet3に、下をSheet4にコピー
3. 2で使ったソートキーの場所を見つけ、そこより上をSheet3, 下をSheet4にコピーする
4. Sheet3, Sheet4をそれぞれExcelの機能でソートする

Sheet1を10,000行と25,000行にまず分割するので、Sheet2の内容がまるごとどちらかに追加
されてもSheetの行あふれは起こらないというのがミソ。

602:デフォルトの名無しさん
08/05/03 13:08:46
あ、3は「Sheet2の中で」というのが抜けてた。

603:デフォルトの名無しさん
08/05/03 14:03:50
ArrayList使え。

604:デフォルトの名無しさん
08/05/03 17:25:16
ご助言をいただきたいのですが、下記のようなマクロを作成しております。
1.幾つかボタンがあり、ボタンを押すとボタン名のシートが追加されます
　作成されたシートに任意の数字を入力しそのシート内でそれが合計されます
2.次に集計用のシートに1で集計した数を貼り付けます。
3.これを追加されたシート分繰り返す。
という処理をするマクロを作成中なのですが、
・追加されたシート分だけコピーするという条件（左から2番目のシートから処理をはじめ
シートの右から2番目まで繰り返すというのを考えています
と
・集計しコピーしたものを集計用シートの前回貼り付けたセルの横に貼りつけ
をどのうように組めばいいのか思いつきません…。

ボタンの数は全部で7つで最高増えるのが7シートなので、
最初から7つのシートを作成しその集計を集計用のシートに貼りつけするのは
できるのですが、そうすると使わないシートまで作成することとなるので出来ればそういう
ムダを省きたいと思い上記のような事を考えました。
なにか改善策やヒント等ございましたらご教示の程お願い致します。

605:デフォルトの名無しさん
08/05/03 17:36:12
Dim i as integer

For i = 2 to Worksheets.Count -1

　　Worksheets(i) に対して処理

Next

こんな感じでどうでしょう

606:デフォルトの名無しさん
08/05/03 18:09:23
VBAとセル間リンクを駆使したExcellentなExcelの使い方をしたければ
LANカード抜いたPCでやったほうがいい。USBメモリで外部データとの
やりとりをする。
ネットやLANに繋がってる環境でVBAを使うとDLLアクセスとか
出来るんで、ネットにデータ流出してるとかしてないとかDB屋が騒ぎ
だす。今やネットやLANに繋がってるPCでExcelやAccessでVBA使う時
は管理者許可がデフォになってるね。
ソートで騒いでいるようだが、DBもExcelもソートは実は余り得意じゃない。
ソートしないで済むようにデータを入れていくのがキホン

607:デフォルトの名無しさん
08/05/03 18:38:12
自分の職場環境がデフォだと思うなよ

608:デフォルトの名無しさん
08/05/03 18:44:21
>>606
VBAかLANかと言われたらLANを選ぶ。
あとそれからエクセルとアクセスはソートが得意。これ豆知識な。

609:デフォルトの名無しさん
08/05/03 18:53:42
本当に豆な知識だ

610:デフォルトの名無しさん
08/05/03 19:23:11
>>606
たかが成績表の並べ替えに面倒なやつだな。

611:デフォルトの名無しさん
08/05/03 20:34:47
>>606
>ソートで騒いでいるようだが、DBもExcelもソートは実は余り得意じゃない。
>ソートしないで済むようにデータを入れていくのがキホン

ちよ、ちょっと。そんな馬鹿な。DBやExcelはツールであって得意じゃないのは使う側の能力がかなり影響するでしょ？
ソートしなくいで澄むようにデータ入力って・・・そんな馬鹿な・・・

612:デフォルトの名無しさん
08/05/03 20:44:20
>>611
>>606は>>443だろう。
こいつは何かおかしい。病的だ。きっと優先順位の並べ替えが苦手なんだろうな。

613:デフォルトの名無しさん
08/05/03 21:17:13
>>606
ソートしなくて済むようにするにはデータをどうやっていれるんでつか？

614:デフォルトの名無しさん
08/05/03 21:23:33
入力前にあらかじめデータをソートしておけばいいだろ

615:デフォルトの名無しさん
08/05/03 21:33:35
>>614
手作業でか？

616:デフォルトの名無しさん
08/05/03 21:42:41
なんか香ばしいやつがいるなぁ

617:デフォルトの名無しさん
08/05/03 21:58:41
>>606
お願いがあります、

頼むからコテつけて下さい

618:デフォルトの名無しさん
08/05/03 22:11:36
ヒント：NGワード DB屋

619:デフォルトの名無しさん
08/05/03 22:16:25
なんか微妙に、最近のExcel総合相談所と、雰囲気が
似てるな。あっちは、707だが

620:デフォルトの名無しさん
08/05/03 22:41:14
Excel総合相談所で「ソートを自作するやつ」という笑い話を聞いたことがある。
あくまでもVBAでバカなことやろうとするやつへの戒めであって、本気でそんなことするやつはいないからこそ成立するギャグだった。

621:デフォルトの名無しさん
08/05/03 22:45:59
>>620
モンティパイソンだろそれは

622:デフォルトの名無しさん
08/05/03 23:14:31
>>604
本当にやりたいことはなんだろう。シートを出したり引っ込めたりすることなの？

623:デフォルトの名無しさん
08/05/03 23:31:36
優先順位が簡単にわかる世界って

お子ちゃまの世界のこと？

624:デフォルトの名無しさん
08/05/03 23:48:18
>>623
優先度が簡単にわかることとお子ちゃまとにどんな関係があるのやら。
やっぱり病気だな。

625:デフォルトの名無しさん
08/05/04 00:47:13
>>623
お子ちゃまの世界や極端な大人の世界では、優先順位は
簡単にわからないぞ。
２つのものを比較できるかどうかすら怪しいからね。
２つのものが比較出来るのが自明というそんじょそこらの
大人の世界は、もしかすると非常に幼稚な世界かもしれないぜ
その幼稚園の主役がExcelやAccessだったりするから悲
しいものがあるが。

626:デフォルトの名無しさん
08/05/04 10:12:24
愛こそが最優先

627:604
08/05/04 13:22:19
＞605
ありがとうございます！
データを会社においているので、試すのは明日しようと思いますがそれで上手く
いけそうな気がします！
セルのコピーについてはかなり強引ですが、
集計した１セルごと行数分（57行あるのですが･･･）コピーして貼り付け
だと次のシートの集計をしたとき貼り付けも隣の行（セル）に上手く貼りついてくれたので
とりあえず結果オーライです。
まだまだ覚え始めなのですが、このスレを見ながら少しずつ色んな考えを持てるようにしたいと思います。
ありがとうございます。

628:デフォルトの名無しさん
08/05/04 13:26:44
複素数ですら大小比較できないってのに。
比較できるのが自明なものなんて限られてるわ。

629:デフォルトの名無しさん
08/05/04 14:54:28
>>628
ベクトルは大小比較できないと思ってる？

630:デフォルトの名無しさん
08/05/04 15:56:14
>>629
グローバルには標準化できないだけで、恣意的に決めればローカルには定義できるだろ？

大小関係の比較が難しいというのは、次のようなソート問題

大人ｎ人子供ｍ人のＭ個の家族がある。（当然家族ごとにn,mは異なる）
それぞれ別のM個のホテルに泊まるとする。
それらのホテルは、一般的に大人、子供の宿泊料金が別（常に半額というわけでもない）

シート１の各行にはホテル毎の料金表（大人・子供）
シート２の各行には家族の大人・子供人数があるとする。
シート１の１行に記載されてるホテルにシート２の１行の家族が泊まるとする。

シート２の行を並べ替えて、宿泊料金の総和が最も安くなるようにソートしろ

というような問題

これはエクセルだろうがＤＢだろうが難しい。ソートの専門家向けの問題。

「車輪の再発明」なんて、小馬鹿にした慣用表現は忘れろ

631:デフォルトの名無しさん
08/05/04 17:12:51
恣意の意味が分かってない件

632:デフォルトの名無しさん
08/05/04 17:18:45
普通それを「ｿｰﾄ」とは言わない件

633:デフォルトの名無しさん
08/05/04 17:19:36
反恣意的に決めてほしいものですな

634:デフォルトの名無しさん
08/05/04 17:36:34
>>630のソートって難しいの？
超簡単に見えるけど？

635:デフォルトの名無しさん
08/05/04 17:44:43
>>443 >>455 >>549 >>606 >>630

636:デフォルトの名無しさん
08/05/04 19:02:30
>>634
だよなあ。VBAなんぞまったく使わずに集計＆ソート可能。
ソートの専門家向けの問題だって。おもしろすぎる。車輪の再発明の現場を目撃したよ。

637:デフォルトの名無しさん
08/05/04 19:26:54
>>630
ベクトルをグローバルに標準化はできないけど、恣意的に決めればローカルには定義できる。

つまり大小比較できるの？できないの？もっと詳しく説明してほしいな。

638:デフォルトの名無しさん
08/05/04 19:29:24
おまいらもう許してやれよ

639:デフォルトの名無しさん
08/05/04 19:33:43
車輪の再発明と聞いて、すっとんできますた。

640:デフォルトの名無しさん
08/05/04 20:46:50
負け惜しみも沸いてきたみたいんだな（ﾜｸﾜｸ

641:デフォルトの名無しさん
08/05/04 21:01:56
ローカル　＝　丹沢周辺

642:デフォルトの名無しさん
08/05/04 22:12:30
>>628
複素数の並べ替えすらできないバカがVBAでどんなことやってんだよ。笑わせんな。

643:デフォルトの名無しさん
08/05/04 22:44:25
思いっきり馬鹿にされそうだが>>630をＶＢＡなしでやる方法が分からない・・・
集計はともかく、順列組み合わせをシートに吐き出す部分だけはＶＢＡ使わないと苦しくないか？
試しに6家族でやってみたが７２０通り（６の階乗）の組み合わせをＶＢＡで実際に書かせないと
俺の腕では最小値が見つけられない＿|￣|〇
９家族以上になったら１シートにおさまらないし
ＶＢＡばっかり使っててＥｘｃｅｌの基本機能に無知なせいかもしれんが
誰か答えプリーズ！

644:デフォルトの名無しさん
08/05/04 22:55:32
総和がなんでソートで安くなるんだ

645:デフォルトの名無しさん
08/05/05 00:00:06
>>643
VBAばかり使っていると壁にぶつかるよ。一度離れて基礎的な勉強をしてほしいな。
組み合わせ最適化問題は難問で昔からいろいろ研究されています。ソルバー機能について調べてみて。

646:デフォルトの名無しさん
08/05/05 00:04:35
>>644
組み合わせ最適化問題は地獄の１丁目でつ.入門は慎重に.

647:デフォルトの名無しさん
08/05/05 00:19:05
（　´_ゝ｀）ふーん・・・そうかい

648:デフォルトの名無しさん
08/05/05 00:58:07
>>644
例えば大人が１０人子供が１人の家族Xと
大人が１人、子供が１０人の家族Yが居たとする。
Aホテルでは大人料金は１００００円、子供料金は２０００円
Bホテルでは大人料金は５０００円、子供料金は３０００円とする。

XがAに泊まりYがBに泊まる場合→102000+35000=137000円
XがBに泊まりYがAに泊まる場合→53000+30000=83000円

泊まらせ方によって結構差が出るだろ？

649:デフォルトの名無しさん
08/05/05 01:02:25
あー・・・
という事は、それぞれの家族がどのホテルに泊まれば
一番安いかってことかね。

650:デフォルトの名無しさん
08/05/05 01:20:27
ソルバーかなーとおもったけど、親子の数がセットで移動させないと
いけない、という制約をどう実装すればいいのか思いつかない

651:デフォルトの名無しさん
08/05/05 01:35:24
答えは複数ある可能性あり。Mが大きいと、答えが異常に多かったりする。念のため。

652:デフォルトの名無しさん
08/05/05 02:17:12
てか、勝手に家族離散させるな

653:デフォルトの名無しさん
08/05/05 13:29:12
組み合わせ最適化はおもしろい問題だけど、Excel使ってる人が現実に解かなければならない場面はほとんどないだろう。
ホテル選びの例題だって実際にはあり得ない人工的な状況設定だし。

654:デフォルトの名無しさん
08/05/05 13:37:51
そしていざ解かなければならないとしても規模が小さければソルバーで解けてしまう。
それじゃソルバーで解けない場合はどうするのか？
VBAで組むのだろうか？
>>630はどうするつもり？

655:デフォルトの名無しさん
08/05/05 15:05:10
>>652
ふいた

656:デフォルトの名無しさん
08/05/05 15:59:27
>>653
>Excel使ってる人が現実に解かなければならない場面はほとんどないだろう。
その考え方は殆どExcelをExcelとして使っていないから出てくる考え方だな
まぁいい。本来Excelなどをまともに使いこなせるのは２００年以上の人生経験（☆比喩）
が必要な世界だからな。
Excelは RDBというリアルタイム志向でアブソリュートな情報の作成ツール
を補佐するツールとして使えばいい。
>>630の問題で言えば、
最小コストと最大コストの推測、コストの分布の概略を掴む。（これを完全にやるのは
まぁ無理だろう）
これにより価格体系や家族構成に問題があるかないかを推測し、交渉する材料とかに
するわけだ。
価格体系や家族構成の分布が悪いと、家族間や家族対ホテルで殺し合いが発生して
双方共に絶滅する可能性すらあるからな。
双方を双方の価値観を厳格に固執する態度じゃリアルタイムには問題は解決しないという
前提に立つのが賢い。

657:デフォルトの名無しさん
08/05/05 16:21:20
>>656
例えば客の家族構成に問題がある場合はどのような解決手段がある？

658:デフォルトの名無しさん
08/05/05 16:34:31
>>656
君が組み合わせ最適化問題に興味を持っているのはわかった。
そして今の今までそれを専門家向けのソートと呼んでいたこともわかった。

659:デフォルトの名無しさん
08/05/05 16:37:43
パソコンなんだから全通り計算させたらしまいだろ

660:デフォルトの名無しさん
08/05/05 16:43:37
>>439 >>443 >>455 >>549 >>606 >>630 >>656

661:デフォルトの名無しさん
08/05/05 17:22:14
>>656
>最小コストと最大コストの推測、コストの分布の概略を掴む。

最適化手法からそのような結果は出てこない。

662:デフォルトの名無しさん
08/05/05 17:24:43
>>659
基本的にはその通りなんだが、けっこう大変なんだぞ。

663:デフォルトの名無しさん
08/05/05 17:43:23
>>658
組み合わせ最適化問題はどこにでも付きまとう問題で
>>630のような問題は、その一つの例
興味を持たないで済ませられる人は余り居ない。

抽象化したら同じになるけど、問題が余りに広範なんで、
問題毎に使える手法に制限に色々とバリエーションが
出てくるので、問題毎に専門分野を作ってる
抽象化すれば>>630に類する問題をまともに扱っている
人はその道の専門家でいいんじゃないの？
そもそも一般人と専門家って両立する概念なんだから。

664:デフォルトの名無しさん
08/05/05 17:51:15
>>630と似たような感じの問題で、数理計画とか線形計画、GAの専門家なら聞いたことあるが、
ソートの専門家ってのは聞いたことないな。

665:デフォルトの名無しさん
08/05/05 17:52:19
>>663
組み合わせ最適化問題を解くことは非常に有益だし、興味ももっています。
しかし考えてみてください。>>630書いてるやつは>>443なんですよ。

666:側近中の側近 ◆0351148456
08/05/05 18:08:01
(っ´▽｀)っ
テーブルを作って、その直積(デカルト積)を求めて、
ソートすればいいのでは？

とレスをあまり読まずに言ってみましたが何か？

667:デフォルトの名無しさん
08/05/05 18:10:05
>>666
もう少しじっくり読んでくれ。
とりあえず>>443から順番に。

668:デフォルトの名無しさん
08/05/05 18:17:55

>>439 >>443 >>455 >>549 >>606 >>630 >>656とか

なんか全部>>443が書いたみたいに思ってる奴がいるみたいだが
ここじゃ皆「デフォールトの名無しさん」だろ？
>>439!=455とか
書いたところで無意味だし...

ねぇ>>667 =? >>439

669:デフォルトの名無しさん
08/05/05 18:23:38
>>668
>>667だが>>439ではないよ。

>>439 >>443 >>455 >>549 >>606 >>630 >>656
この中で>>439だけは違うやつだと思う。
>>443 >>455 >>549 >>606 >>630 >>656
こいつらは同じやつだと思う。

670:側近中の側近 ◆0351148456
08/05/05 18:29:13
|▽｀)っ
全て(っ´▽｀)っの自作自演だったらどうする？
ID無しの板っていいよね☆自作自演し放題で。
|彡☆

671:デフォルトの名無しさん
08/05/05 19:15:32
そんなセンスねーだろよ。

672:側近中の側近 ◆0351148456
08/05/05 19:41:29
>>671
(っ´▽｀)っ
ある！
(っ´▽｀)っは最高20人同時演出可能。
たまに自分のレスだと忘れて、そのレスにマジレスしてしまうことがある。
自分でも勘違いするぐらい、騙されるぐらい自演が美味い。。

673:デフォルトの名無しさん
08/05/05 19:50:21
頭の壊れた奴が住み着いてすっかりスレが腐ってしまった

674:デフォルトの名無しさん
08/05/05 20:14:23
>>673
貴方をはじめ>All except >>443etc の腐ってない新鮮な
頭脳が残っただけが救いだと思おうよ

675:デフォルトの名無しさん
08/05/05 20:21:53
>>674
めでたいやつだな。
複素数の並べ替えはできたのか？

676:デフォルトの名無しさん
08/05/05 20:25:30
ソートの専門家の検索結果約 111,000 件中 1 - 10 件目 (0.14 秒)

677:デフォルトの名無しさん
08/05/05 20:32:45
>>674
>>630
ベクトルをグローバルに標準化はできないけど、恣意的に決めればローカルには定義できる。

つまり大小比較できるの？できないの？もっと詳しく説明してほしいな。

678:デフォルトの名無しさん
08/05/05 20:56:58
674と630をどうしても結びつけたい頭の腐った人が居るようでつね

679:デフォルトの名無しさん
08/05/05 21:40:38
>>646 = >>678

680:デフォルトの名無しさん
08/05/05 22:46:09
教えてください。
ブックAに「計1-A」、「計1-B」、「計2-A」、「計2-B」、というシートがあって、

VBAで
「計1」と名をつけた新しいブックを作り、「計1-A」、「計1-B」をそこにコピーする、更に「計2」も同様に・・・

というのを一連の操作で行いたいのですが、
新しいブックの名前をどうつけてやったら良いのか分かりません。
sheets(Array("計1-A", "計1-B", ).CopyではただのBook1に保存されてしまいます。ぜひ名前をつけたいんですが、どうすればよいのでしょう
ご教示願います

681:デフォルトの名無しさん
08/05/05 22:55:02
ファイル名とブック名を別にするのにはどうすればいいでしょうか？

682:デフォルトの名無しさん
08/05/05 23:02:02
>>676
"ソートの専門家"の検索結果 2 件中 1 - 2 件目

両方とも、このスレｗｗｗ

683:デフォルトの名無しさん
08/05/05 23:12:27
saveas

684:デフォルトの名無しさん
08/05/05 23:17:39
>>682
ソートの専門家は種類が多過ぎてもはや専門家とはみなされてないだけだろ。
昔４８種に大分類されたらしいが、その後もでるわでるわバリエーションの山。
分類プロジェクトは頓挫中。
ソートくらい奥深い世界は無いみたいだ。たかがソート、されどソート。

685:デフォルトの名無しさん
08/05/05 23:21:26
NSPを解くのも、ソートの専門家なのか？

686:デフォルトの名無しさん
08/05/05 23:22:05
ソートなんてクイックソート＋選択ソートで実装すればまず困る事は無いわ。

687:デフォルトの名無しさん
08/05/05 23:22:56
しっー
そーとしておけ

688:デフォルトの名無しさん
08/05/05 23:23:38
場合によってはバケツソートを使えないようでは
ソートの専門家とは言えない。

689:デフォルトの名無しさん
08/05/05 23:24:52
>>684
もはや何を言いたいのかよくわからんが、今や専門家と看做されてないなら、
「ソートの専門家」じゃないだろ。

690:デフォルトの名無しさん
08/05/05 23:26:10
>>688
え？アルゴリズムが違うと、結果も違うのか？

691:デフォルトの名無しさん
08/05/05 23:28:15
「専門家」なら、バケットソートって言うだろ、JK

692:デフォルトの名無しさん
08/05/05 23:31:28
>>690
これはひどい

693:デフォルトの名無しさん
08/05/05 23:31:52
>>691
専門家はそんなくだらない事より本質を重要視する。

694:デフォルトの名無しさん
08/05/05 23:33:33
いいかげんにしとけよ

695:デフォルトの名無しさん
08/05/05 23:51:17
頭の中をソートしてくれ

696:デフォルトの名無しさん
08/05/05 23:57:40
それはやめといたほうがいい
てか、上げるなよ

697:デフォルトの名無しさん
08/05/06 00:14:14
専門家以前に人としてバルブソートだろ。

698:デフォルトの名無しさん
08/05/06 00:24:42
このスレのレスを、くだらない順にソートせよ

699:デフォルトの名無しさん
08/05/06 00:31:46
専門家がいるのなら本の一冊や二冊出してるだろ

700:デフォルトの名無しさん
08/05/06 01:18:08
ソートの味方くらいでいいんじゃね

701:デフォルトの名無しさん
08/05/06 01:34:47
ソートに味方も敵もあるかよ
番号が付いてる限りソートされていると感じる
脳みそにとってはな

702:デフォルトの名無しさん
08/05/06 11:43:51
グランドシティ大宮イーストタワー　グランドシティ大宮イーストタワー　グランドシティ大宮イーストタワー
グランドシティ大宮イーストタワー　グランドシティ大宮イーストタワー　グランドシティ大宮イーストタワー
グランドシティ大宮イーストタワー　グランドシティ大宮イーストタワー　グランドシティ大宮イーストタワー

703:デフォルトの名無しさん
08/05/06 13:31:48
>>698
>>443 >>455 >>549 >>606 >>630 >>656

704:デフォルトの名無しさん
08/05/06 14:30:12
近未来と近過去
熱い場所だ
担当者ご苦労さん

705:デフォルトの名無しさん
08/05/06 19:16:16
ここはなんのスレ？

706:デフォルトの名無しさん
08/05/06 20:39:34
ソートの専門家専用スレです。

707:デフォルトの名無しさん
08/05/06 21:37:06
その名はExceler

708:デフォルトの名無しさん
08/05/07 02:11:55
なんで自演とかを気にするんだおまいら？

709:デフォルトの名無しさん
08/05/07 08:26:19
ところで>>630よ。うまくソートできたか？
わしはできたぞ。
正確に言うとソートじゃない。最適な組み合わせを求めたということ。

710:708
08/05/07 09:20:21
>>708
こういうことが起こりうるから

711:デフォルトの名無しさん
08/05/07 11:08:37
M=1000の時でホテル代の価格の組が全部異なり
家族構成も全部異なる場合で実例が出てくるまで
誰も信じないと思う。本当にソートされてるのか
も示せないとな。

712:デフォルトの名無しさん
08/05/07 11:55:25
>>711
M=14まででお願いします。ソルバーの制限で200変数までしか扱えないから。
ただしM=14の時に現実的な時間で解けるかどうかわからないけど。
それからソートと呼ぶのはやめないか？

713:デフォルトの名無しさん
08/05/07 12:40:47
最適組み合わせの問題って、ノーベル賞クラスじゃなかったか？

714:デフォルトの名無しさん
08/05/07 12:49:53
>>713
このスレからノーベル賞受賞者が（・∀・）ﾜｸﾜｸ

715:デフォルトの名無しさん
08/05/07 13:13:03
>>709がウソつき扱いされているみたいだな。不思議な話だ。こんなのできて当たり前なのにね。
前から思ってたんだかこのスレに出入りしてるやつら中学生が多いだろ。
レベル低すぎて話にならん。せめて高校出てからデビューしろ。

716:デフォルトの名無しさん
08/05/07 15:16:37
中学生が高校生に、受験の答え教えてくれって頼む、そんな主旨のスレだからだと思う

717:デフォルトの名無しさん
08/05/07 15:22:28
'''八島良太'''（やしまりょうた、[[1975年]][[11月8日]] - ）は[[埼玉県]][[さいたま市]]出身の[[ウィキペディアン]]。
[[ウィキペディア]]でのアカウント名は[[User:Yassie]]、[[2ちゃんねる]]では◆sMt4YbtR06という[[トリップ]]を使用。
Nanassieというコテハンを使っていた時期もある。身長171cm、体重75kg。さいたま市[[大宮区]]在住。独身。
好きな歌手は[[サラ・マクラクラン]]、好きな女優は[[メグ・ライアン]]。

[[User:Aphaia]]（本名・木津尚子）や[[User:Mikihisa]]や[[User:ＮｉＫｅ]]や[[User:掃除屋ケンちゃん]]との死闘で知られており、
現在は[[User:Haruno Akiha]]や[[User:WhiteWing]]をウィキペディアから追放すべく策動を続けている。

==経歴==
[[埼玉県立浦和高等学校]]を経て、[[国際基督教大学]][[教養学部]]社会科学科に入学。学部時代は
[[オハイオ州立大学]]に交換留学し、[[経営学]]を専攻。オハイオ州立大学への編入を望み、願書はほぼ完成していたが
アジア経済危機の煽りを受けて学費を工面できなくなり、相思相愛の恋人をアメリカに残したまま、[[1999年]]、日本に帰国。
のちに当時のことを振り返って「精神面は相当荒れてたね」と語った。[[2000年]]に国際基督教大学を卒業して
外資系企業に入社し、[[英語]]を使用した事務的な職務を担当。[[2004年]]、Excel2002VBAスタンダードに合格。
[[2005年]][[12月27日]]から[[ウィキペディア日本語版]]で北米の地理に関する記事を翻訳・投稿。今日に至る。

私生活では、失恋の傷を忘れるため、[[1999年]]から[[ダンスダンスレボリューション|DDR]]に熱中し、
新宿チルコポルトや大宮タイトーインに出没していたが、自惚れの強さと事大主義ゆえに諸方の反感を買い、
2000年頃には撤退を余儀なくされた。

{{people-stub}}

{{DEFAULTSORT:やしまりようた}}
[[Category:インターネットの人物]]
[[Category:埼玉県出身の人物]]
[[Category:デブ]]
[[Category:日本のダンサー]]
[[Category:1975年生]]

718:デフォルトの名無しさん
08/05/07 16:16:48
14*14=196
15*15=225 >200
つまりLPですね。よくできました。

719:麻雀を作りたい
08/05/07 17:48:28
OS：winXP
excel2000

VBA実行中に、ユーザにいったん制御をもどして、シート上の特定範囲のセルをクリック。
そのクリックをトリガーに処理再開。

というような事をしたいのですが、どうすれば実現できるかわかりません。
良い案やヒントないでしょうか・・？

720:デフォルトの名無しさん
08/05/07 18:02:20
セルに対しては通常のクリックは検出できないと思うので、右クリックかダブルクリックのイベントを検出する
どうしてもクリックがよい場合はクリックイベントを検出できるもの(ボタンやシェイプ)を追加する

721:麻雀を作りたい
08/05/07 18:18:07
>>720
コメントありがとうございます。

BeforeDoubleClick
SelectionChange
とかを使えば良いのかなあとは思ってました。

引っかかってるのは、「VBA実行中に、ユーザにいったん制御をもどして」のところなんです。
中断前の変数の状態を保持したまま、いちどユーザに制御を戻して、シート上のセルを（ダブルor右）クリックでVBA再開。

つまり
①自分の番になったら一枚ツモってきて
②いらいない牌を手牌の中から一枚選択して（シート上のセルをクリックして）、
③すてる。
ってことをしたいんですね。

①まではVBAで処理して、②の動作はシート上のセルをクリックすることで選択して、
③からはVBAにまた処理を戻す。

･･･自分の実力じゃ無理かな･･･orz

722:デフォルトの名無しさん
08/05/07 18:40:04
>>721
セルを使わずに、全部ボタンをはっつけてしまったほうが楽なんで内科医?

723:デフォルトの名無しさん
08/05/07 18:51:17
フォームとボタン使えば？

724:麻雀を作りたい
08/05/07 19:20:52
そーですね・・。
cell_雀みたいなの作りたかったですが、あきらめようかな。

725:デフォルトの名無しさん
08/05/07 20:39:11
フォームを作成してデバッグ作業をすると、エラーが出たときにコードが表示されずに
フォーム画面が出るため、どこの行でエラーが起きてるのかわかりません。
解決方法ご教授願います

726:デフォルトの名無しさん
08/05/07 21:32:21
ところで>>630はホテル料金の計算できたのか？
>>656
>その考え方は殆どExcelをExcelとして使っていないから出てくる考え方だな
なんていうくらいだから当然できたんだろうな。

727:デフォルトの名無しさん
08/05/07 22:04:47
>>719
こんなのじゃだめ？

Do While Len(ActiveCell.Value) = 0

DoEvents

Loop

728:デフォルトの名無しさん
08/05/07 23:44:06
Excelツールのテストを自動化したいと考えています。
別Bookのフォーム上のテキストボックスの値を取得する
ことはできますか？
ツール側に関数を作ればできることはわかったのですが、
できればツール側に修正を入れたくないです。
ヒントお願いします。

729:デフォルトの名無しさん
08/05/07 23:56:17
エクセルツールのテストって一般的な言葉？

730:デフォルトの名無しさん
08/05/08 00:09:24
「Excelで作成したツールのテストを自動化したい」だから俺は別に違和感ないけど・・・
んなことより、>>728は無理じゃないのかなぁ？
フォームをキャプチャ→画像解析→テキスト取得とか？ごめん、嘘・・・

731:デフォルトの名無しさん
08/05/08 00:29:24
>>728
>>729
エスパー＆エクセル素人

732:デフォルトの名無しさん
08/05/08 00:32:01
728です。レスありがとうございます。
やっぱり無理なんですかね。
そもそも、MsgBoxとかもやっているので、どうやってＯＫ押すかとか前途多難です。
みんな手でテストやってるのかな・・・。

733:デフォルトの名無しさん
08/05/08 03:08:30
>>732
Win32APIを使えば、OKボタンもAPIでクリックできるけど、より良い方法は、
テスト対象のメソッドでダイアログ入力待ちなどが起きないような設計にする。
とはいえ、どこかでMsgBoxを出さざるを得ないだろうから、そこはマニュアルテストとかかな。

734:デフォルトの名無しさん
08/05/08 07:57:19
>>728の説明で回答できる人ってスゴイね
俺にはどっちがツールなのかすら分からないよ

735:デフォルトの名無しさん
08/05/08 08:30:10
そんなに誉めるなよ

736:デフォルトの名無しさん
08/05/08 16:11:05
いや実際、配列とか定数とか何に使うの？とか思ってる俺からしたら紙だ。

737:デフォルトの名無しさん
08/05/09 13:03:03
モジュールの自動削除って出来るもの？

738:デフォルトの名無しさん
08/05/09 14:48:45
自分は今セルをクリックしたら別のエリアに多行表示できるようにしたいと考えて。
例にすると

セルをクリックしたら、そのセルについたコメント（７~８行ぐらい）の内容を
A15に22R X 7C以上の範囲にそのコメント内容を載せる　という物を作ろうとしてるのですが
全く、できず困ってます。

こういうのは可能でしょうか？

739:デフォルトの名無しさん
08/05/09 17:20:23
セルに表示されないデータを埋めこむってこと？ソートとかかかったらどうなるんだろ？ってかできるの？

740:デフォルトの名無しさん
08/05/09 18:57:46
>>737
出来る

>>738
可能

>>739
「セルのコメント」だろ

741:デフォルトの名無しさん
08/05/09 22:52:31
ごめん、俺が今やりたいことを言ってしまった。で、できるの？3文字でいいからヒントください。

742:デフォルトの名無しさん
08/05/09 23:37:18
>>741
でき

れ

743:デフォルトの名無しさん
08/05/09 23:39:06
どっちだよ？
>>737 URLﾘﾝｸ(www.cpearson.com)
>>738 range.comment, range.notetext

744:デフォルトの名無しさん
08/05/09 23:58:10
並べ替えた後、セルを特定することは普通可能
それはソート前にセル探すのとどう違うんだ
と言うか、出来るように設定しておけばいいだけでわ

745:デフォルトの名無しさん
08/05/10 08:30:40
マクロにパスワードつけて触れないようにしたい。
どうしたらいい？

746:デフォルトの名無しさん
08/05/10 09:43:16
Function IsCommentCell(sAddress As String) As Boolean
IsCommentCell = Len(Range(sAddress).NoteText) > 0

End Function

Function GetFullCommentText(sRange As String) As String
Dim sComment As String
Dim iPos As Integer

iPos = 1
While Range(sRange).NoteText(, iPos) <> ""
sComment = sComment & Range(sRange).NoteText(, iPos)
iPos = iPos + 255
Wend

GetFullCommentText = sComment

End Function

'コメント取得方法は分かったが
'それをA15に表示する方法がググレナイ…
'例えば A1にあるコメントをクリックしたら（７行）A15以降にそのコメントが表示されて
'その後、B5にあるコメントをクリックしたら、A15に表示されたA1のコメントが消えてB5のコメントが表示できるようにしたい。

'どうしたら良いでしょうか？

747:デフォルトの名無しさん
08/05/10 10:07:09
連レス失礼
A1から12R X 11Cのどのセルをクリックしても
そのセルについてるコメントを
A15に表示させるようにしたいです。

748:デフォルトの名無しさん
08/05/10 10:55:14
>>745
VBEditorで
ツール→VBAProject-プロジェクトプロパティ
→保護タブ
→パスワードを入れる

749:デフォルトの名無しさん
08/05/10 11:23:54
>747
12R　X　11C？

Private　Sub　Worksheet_SelectionChange(ByVal　Target　As　Range)
　　　　If　Not　Target.Comment　Is　Nothing　Then
　　　　　　　　Range("A15").Value　=　Target.Comment.Text
　　　　End　If
End　Sub

？

750:デフォルトの名無しさん
08/05/10 11:44:56
>>749　できました！　ありがとうございます

751:デフォルトの名無しさん
08/05/10 11:50:35
あとは
A15の縦の長さを　常時コメントと同じ高さにあわせるように応用するだけか・・・

752:デフォルトの名無しさん
08/05/10 12:04:27
A15の高さ＝コメントの行数x18ピクセルになるマクロを組み込むには…どうすればええやろ。

753:デフォルトの名無しさん
08/05/10 18:48:39
いい加減、マクロの記録に気づけよ

754:デフォルトの名無しさん
08/05/10 23:53:59
ボタンのテキストをマクロで書き換える方法についての質問です。
フォームのボタンの場合は、
Dim s As Shape
Set s = ActiveSheet.Shapes("Button 5")
s.TextFrame.Characters.Text = "ほげほげ"
のようにすれば書き換えられます。

では、コントロールのボタンはどのようにして書き換えればいいのでしょうか？
同じように書くと、s.TextFrame.Characters.Textの行を実行するときに、
　オブジェクトは、このプロパティまたはメソッドをサポートしていません
と叱られます。

755:デフォルトの名無しさん
08/05/11 01:33:18
EXCEL2003のVBAで、シートの再計算を強制的に実行するにはどうすれば良いでしょうか？

756:デフォルトの名無しさん
08/05/11 04:35:17

・資金ゼロでも優秀な開発者は一千万円の特別賞あり、デモトレードなのに優勝したら三百万円の賞金

●6月にマネージャパン、月刊アスキー、週刊アスキーの3誌が賞金総額2000万円の「シストレFXグランプリ」を開催
URLﾘﾝｸ(system-trading.jp)
[シストレFXグランプリとは]
クリック証券が提供するFXのデモ取引環境を利用して、システムトレードにチャレンジできるFX取引のグランプリです。
お客様ご自身で作成したシステムトレードの機能を評価する「シストレソフト部門」とトレード収益を競う「トレード部門」の2部門構成となっております。

●5月22日より登録受付開始、6月2日よりグランプリ開始の予定。賞金総額2000万円。
　　デモトレードの優勝者には賞金三百万円がプレゼントされます。

▼トレード部門
初期資産500万円で、デモ取引のトレード収益を競っていただきます。
●URLﾘﾝｸ(www.fx-gp.com)

▼賞金総額
■社長特別賞（シストレソフト買取価格） 10,000,000円
●シストレソフト部門賞　1位300万円　2位100万円　3位50万円
●トレード部門賞　1位300万円　2位100万円　3位50万円
●前期MVP賞　50万円
●後期MVP賞　50万円

757:側近中の側近 ◆0351148456
08/05/11 11:02:55
>>754
(っ´▽｀)っ
ActiveSheet.CommandButton1.Caption = "ddddd"

758:側近中の側近 ◆0351148456
08/05/11 11:04:56
>>755
(っ´▽｀)っ
Calculate メソッド

計算対象　　　　　　　　指定例
すべてのブック　　　　Application.Calculate または Calculate
特定のワークシート　Worksheets(1).Calculate
指定されたセル範囲　Worksheets(1).Rows(2).Calculate

759:デフォルトの名無しさん
08/05/11 12:11:02
>757
ありがとうございました。できました。

以下、俺様メモ。
VBAのオブジェクトブラウザを使って
クラスSheetXのメンバをオブジェクト名（たとえばCommandButton1）で探すこと。
ボタンのクラスはCommandButton

760:デフォルトの名無しさん
08/05/11 19:04:23
>748
>→パスワードを入れる

でけた。ありがと。

761:デフォルトの名無しさん
08/05/12 14:27:05
Dim StrData(1 To 13, 1 To 2) As Variant
これってどういう意味ですか？

762:デフォルトの名無しさん
08/05/12 14:50:23
>>761
イメージ的にはA1:B13みたいな縦13*横2の二次元配列。
変数名からしてString型にした方がいいと思うが。

763:デフォルトの名無しさん
08/05/12 15:59:00
>>762
ありがとう、把握しました。

後、マクロを無効にしないとエディターで編集が出来ないんですが、これはどうすればいいんでしょう。
csvを読み込んで配置するマクロを編集してるのですが、無効にするとデバッグ出来ません。

764:デフォルトの名無しさん
08/05/12 19:29:24
一週間以上たったが>>630はできなかったみたいだな。ＤＱＮが消えてこのスレも健全化するだろう。

765:デフォルトの名無しさん
08/05/12 20:10:15
VBAで測定器の制御(GPIB)を行っています。
あるデータを取得する関数の戻り値がString限定なのですが、中身がバイナリ直のDoubleで
どう変換するべきかつまっています。

全体のデータは
#XXX{Data double 8byte}{Data double 8byte}{Data double 8byte}.....
の様な形で {data}の部分は8byte double形式で書かれています。
最初に"#"
その後にデータの数の桁数
その後ろがデータの数
その後は8byte Doubleの数が並んでいます。
例：
#212{data}...({data}が12個)
　＾個数を表す数字が2桁の意味
　　＾{data}が12個あると言う意味

関数はCall ibrd( ID as Int , buf as String , count as long ) にてメモリからデータを
countのByte数だけbufに取り込める仕様です。
ibrd( id , buf , 1) '#の部分取得
ibrd( id , buf , 1) '桁数取得
ibrd( id , buf , N) '上記の桁数分だけ取得
for i = 1 to Num step 1 '上記の数分だけ{Data}を取得
　ibrd( id , buf , 8) '8Byteづつ取得する
next
この時、8byteづつ取得すると
変数 buf には String 形式で本来Doubleのバイナリ値がそのままつっこまれてしまいます。(ウォッチウィンドウで見ると空白など）
数字の1などが入っていればCdbl(buf)でいけるのでしょうが、
型がStringで中身のバイナリがDoubleになってる状況で、これをDoubleに直して数字を取得したいのですが
何か助言もらえないでしょうか？

766:デフォルトの名無しさん
08/05/12 21:00:48
RtlMoveMemoryとか使えばいいでね？

767:デフォルトの名無しさん
08/05/12 22:04:34
後はいちいち蒸し返すDQNが居るだけだな

768:デフォルトの名無しさん
08/05/13 01:36:36
>>764
甘いな

769:デフォルトの名無しさん
08/05/13 08:28:32
不正アクセスから、マクロ及びデータを守りたいのですが
パスワードの不正解析されても、データ等を守る方法はない？

770:デフォルトの名無しさん
08/05/13 12:27:06
不正解析というか、バイナリエディタで、パスワード上書きされたら終わりだしな。

771:デフォルトの名無しさん
08/05/13 12:34:14
本体から読み込む形にして、不正処理があったらOSから終了させれ
不正アクセスと断定できるなら、偽装データを渡したり

どこまで相手にするかにもよるけど、ある程度以上のｸﾗｯｶには対策立てられぬ
そもそもマクロ無効で覗かれたらエクセルじゃどうしようもないし、エクセルのパスは飛ばせる裏技あったような

772:765
08/05/13 18:42:38
>>766
遅くなりました。
情報ありがとうございます。
試してみます。

773:デフォルトの名無しさん
08/05/13 22:45:12
>>771
URLﾘﾝｸ(www.google.com)

774:デフォルトの名無しさん
08/05/14 02:04:38
>>769
できるよ。
以上。
↓次どうぞ

775:デフォルトの名無しさん
08/05/14 11:51:19
XP、EXCEL2003です。
シート上の図（Shape）を、すべて削除する方法を教えて下さい。
よろしくお願いします。

776:デフォルトの名無しさん
08/05/14 13:26:15
モジュールのインポートを一つずつやるのがめんどくさいんだけど、
これって、フォームとかと一緒にまとめられないの？

777:番組の途中ですが名無しです
08/05/14 15:48:05
>>775
forループで↓をActiveSheet.Shapes.Count分回せばいいかも
ActiveSheet.Shapes(i).Select
Selection.Delete
※iはループカウンタ

778:デフォルトの名無しさん
08/05/14 15:53:29
ループの必要はないよ
ActiveSheet.Shapes.Delete

779:775
08/05/14 18:14:41
>>777,778
レスありがとうございます。

780:デフォルトの名無しさん
08/05/14 19:09:02
>>778
ふーん、いろいろあんだねぇ

781:デフォルトの名無しさん
08/05/14 22:20:07
ＶＢＡを学ぶのにオススメの書籍などはありますか？
目的は、ある外部のデーターベースから、
ブックを開いたときに、選択した情報を効率的に
集めてくるみたいなものをつくりたいのですが。
因みにプログラムの経験はＶＢＡが2週間で、他の言語は知りません。

782:デフォルトの名無しさん
08/05/14 22:47:08
>>781
ごめん。まったく何を言ってるのかわからない。
みんなはわかるの？

783:デフォルトの名無しさん
08/05/14 22:48:32
データベースとの連携を中心にしたものなら、例えば

仕事に役立つ　Excel & Access データベース連携テクニック Softbank

といったものがあるけど、
これはある程度VBAを知っている事が前提なんで、やはり最初に入門を中心に勉強してからの方が良いんじゃね？

784:デフォルトの名無しさん
08/05/14 22:52:55
>>781
ExcelのVBAなんか覚えるよりデータベースの方が役に立つだろう？

785:781
08/05/14 22:57:39
ソフトバンクからでてる初めてのＶＢＡという本の内容は一応マスターしました。
>>783さんの挙げてくださった書籍の姉妹本だと思います。
しかし、Ｄｉｍが出てこなかったりして、結局出来るようになったことは
セルに色をつけたり足し算したりシートの名前を変えたりといったレベルです。
もっとレベルの高いＶＢＡを勉強したいです。
わかりにくくて申し訳ございません。

786:デフォルトの名無しさん
08/05/14 23:01:30
>>784
仕事で大量のデーターを扱うので、データーベースはきちんと扱えるようになりたいです。
ＳＱＬとかを勉強したほうがいいのでしょうか？
仕事とは別にＶＢＡを打てるようになって、ゲームとか作りたいです。
現時点のレベルは低すぎるわけなのですが・・・

787:デフォルトの名無しさん
08/05/14 23:09:09
>>786
仕事はデータベース
VBAは趣味のゲームで

788:781
08/05/14 23:12:13
>>787
すいません、ド素人なのでよくわからないのですが
データーベースという、ＶＢＡみたいなジャンルがあるのでしょうか？

周りにパソコンに詳しい人がいなくて困っています。
セクハラ酷いし。あぁ会社行きたくない・・・

789:デフォルトの名無しさん
08/05/14 23:14:35
>>788
自分でデーターベースからブックを開くと言ってたじゃないか。

790:デフォルトの名無しさん
08/05/14 23:25:06
visual basic6ぐらいのデータベース連携の本買って
vbaに関してはエクセルのヘルプよく読め

791:デフォルトの名無しさん
08/05/14 23:26:11
無料のRDBが沢山有る現在でも、周囲に詳しい人間が居ない状況でデータベース勉強するのはしんどいぞーーーー

792:デフォルトの名無しさん
08/05/14 23:44:05
VBAでゲーム作る奴は変態

793:781
08/05/14 23:45:46
なるほど、自分がやるべきことがわかってきました。
親切に答えてくれた方々、ほんとうにありがとうございました。

794:デフォルトの名無しさん
08/05/14 23:48:05
>>792
しかしVBAの正しい利用方法だ。

795:デフォルトの名無しさん
08/05/15 07:44:28
>>789
お前、馬鹿

796:デフォルトの名無しさん
08/05/15 07:55:47
>>788
年上のお姉さんに当てられたり、美少女の後輩にまさぐられたりする職場なんですね、俺と変わってくれ

次ページ