hallo-2007 の回答履歴

どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、◎、○、△を付ける方法が知りたいです。 【例：抽選結果シート】　※621回を最新抽選回数とする。 抽選回　第1数字　第2数字　第3数字　第4数字　第5数字　第6数字　ボ数字 　　　　　　　　　　　　　　　　　　　　　　　： 611　　　　2　　　　　　12　　　　　18　　　　　24　　　　　　31　　　　　39　　　　　16 612　　　　7　　　　　　18　　　　　31　　　　　32　　　　　　39　　　　　40　　　　　35 613　　　　2　　　　　　6　　　　　　18　　　　　26　　　　　　32　　　　　37　　　　　5 614　　　　2　　　　　　18　　　　　22　　　　　25　　　　　　35　　　　　41　　　　　1 615　　　　6　　　　　　16　　　　　24　　　　　32　　　　　　35　　　　　43　　　　　28 616　　　　2　　　　　　7　　　　　　18　　　　　19　　　　　　24　　　　　35　　　　　17 617　　　　5　　　　　　7　　　　　　18　　　　　28　　　　　　31　　　　　35　　　　　10 618　　　　4　　　　　　15　　　　　18　　　　　31　　　　　　35　　　　　42　　　　　13 619　　　　2　　　　　　11　　　　　29　　　　　31　　　　　　33　　　　　38　　　　　14 620　　　　7　　　　　　10　　　　　18　　　　　19　　　　　　35　　　　　38　　　　　12 621　　　　2　　　　　　15　　　　　16　　　　　28　　　　　　35　　　　　40　　　　　20 【出現数カウント範囲】　11 【出現数シート】 1 2 3 4 5 6 7 8 9 10 11 …18 19 20 …　29 30 31… 35 36 37 38 39 40 41 42 43 　◎　　　　　△　　　　　　　　△　　　　　　　　　　　○　　○ 【注意事項】 　・抽選結果シートは第１回抽選から最新抽選回まで入力されています。 　・出現数カウント範囲に数字（1～99)迄を入力すると、最新抽選回数から遡った抽選結果迄を 　　範囲として出現数シートのカウント数字の対象とします。 　・出現シートの印（◎、○、△）は下記のルールでつきます。 　　　◎ ・・・ 出現数が6回。 　　　○ ・・・ 出現数が5回と7回。 　　　△ ・・・ 出現数が4回と8回。 　　※ボーナス数字は出現数にカウントしない。 　　※上記以外の出現数は、SPACEとする。 　・出現数シートの数字は１～43迄です。 　・エクセルは2007です。

当方　自営業を営んでおりまして 商品の管理のためにエクセルでフォームを制作したいのですが どうも上手に事が運びません フォームの動作としては　例で説明致しますと カメラ、テレビ、オーディオなどのジャンル分けがされており ドロップダウン式のリストから　カメラと選択すると その隣に元から設定されている「フォーカス形式」や「ズーム倍率」といったキーワードが表示され それぞれのキーワードの部分から更に　ドロップダウン式で　数値や性能の有無を選択 最後に検索を行い　それの情報に該当する　データをエクセルの製品データから抽出するといった フォームを制作したいです。 どのようなコードで作ればいいのでしょう 時間もあまりなく困っております。 どうぞよろしくお願い致します。

是非、よろしくお願いいたします。 以下の状況です。 sheet1には　A、B、C、Dという４列があります。データは１０００行くらいです。 sheet2には　A、B、C、Eという４列があります。データは２０００行くらいです。 この状況で、sheet1のD列の右に新しい列を作り、 「sheet1の（例えば）A1、B１、C１と合致する行のsheet2のE列データ」を、 sheet2のABC列範囲を検索して抽出したいのです。 項目が一つであればvlookup関数でできるものを「複数項目に合致」のため上手くいきません。 この３列のデータを結合して一つにしてみましたが、結合後のデータが１６桁以上のため末尾が「０」になってしまい、正確に検索できません。 何か上記を可能にする方法はないでしょうか？ よろしくお願いいたします。

VB2010を使用しています VBにてExcel上のセルの値をボタンを押すごとに『+1』していきたいのですが xlSheets.cells(2, 5) = xlSheets.cells(2, 5)　+ 1 では『Range型からIntegerに変換できません』的なエラーが出ます。 『CINT（）』や『.ToString』などを使って変換しようとしても何かしらのエラーが出てしまいます。 ご教授お願いします。

EXCEL初心者です。 マクロというものを最近知り、マクロ作成の練習をしているところです。 今こういったことで悩んでいます。 ■『「上書き保存しますか」というメッセージ』で「いいえ」が押された場合に、 『「保存する」という動作をしない（Exit sub）』というソースを 書きたいが、どのようにソースを作成すればいいのか。 ■現在こういった『VBA(マクロ)』を作成しています。 『（１）「B２」セルに文字を入力 （２）マクロ機能を登録した「ボタン」をクリック （３）「B2」セルに入力した名称で「新しいブックを作成」 （４）そのブック名称で指定先に「保存」する。』 今のところ、「マクロの記録」でそういうプログラムを作ること自体は勝手にできてくれました。 「B2」セルに「SampleSheet」と入力して、ボタンを押せば、 「SampleSheet」という「名称」で「新しいブックを作成」することはできています。 ■ですが、例えば「B2」セルに入れた名称が、『保存先にすでにあり』 「上書き保存しますか」というメッセージが出た場合、 上書き保存したくないので、「いいえ」ボタンを押すと 「エラーメッセージ」が出てしまいます。 そこで、 『「上書き保存しますか」というメッセージ』で「いいえ」が押された場合に、 『「保存する」という動作をしない、そのマクロ自体を終了する（Exit sub）』というソースを 書きたいんですが、どのようにソースを作成すればいいのかがわかりませんでした。 ■参考ソースをのせていただけると助かります。 ご回答、よろしくお願いします。

Excelの基本操作を覚えるにはPC教室に通ったほうが早いですか？ それとも仕事の中で聞きながらやるほうが早いですか。

２５歳の男ですが、３０までに最低500万は貯金できると見込んでいます。 それは、１００万しかない男性に比べて有利と考えられますか？ ちなみに私は男子校出身だからなのか社交的でない家庭に育ったからなのか、今まで付き合った試しがありません。 大学の頃がバイトもしていたので女子大生と話す機会もそう少なくありませんでしたが、現在会社では女子社員とは週に１回話すかどうかといったところです。 結婚するようなタイプではないと周りの人も思っていると思います。 実家は金持ちなので私にも将来かなりの額が回ってきますが、独りで使い切れないお金だけを抱えることになるのかなあ等という危機感を感じずにはいられません。 ご意見お待ちします。

宇宙の銀河の膨大な数からいえば、当然、地球に似た環境の星はあると思えます。 でも、地球のように文明が発達して、地球にやってくることができるような宇宙人はどう考えてもいないと思うのです。 なぜなら １）地球人が、どんなにロケットの開発をして、ハイパワーのエンジンを作ろうとも、火星に実際に人間を送り出すだけで何年もかかるような距離なのに、（太陽系内の移動さえこんなに時間がかかるのに）もっとさらに遠い場所にあるとされる、宇宙人のすむ惑星から地球までくるなら、それこそその宇宙人のほとんど一生をかけないと、往復できないと思うし、そこまでして一生のほとんどを宇宙間の移動だけに費やしていいとか思う宇宙人はいないと思えるからです ２）地球上の人たちは、ここまでのレベルの宇宙開発ができるまでの間に、同時に地球環境も破壊することになりました。 つまり、文明の発達は、環境の破壊なしにはありえないとおもうのです。 なので、もし宇宙人が地球に来れるほどの宇宙船を開発できるまでに至る頃には、その惑星そのものの寿命も、もうない（つまり、そこまで文明が発達するまえに、惑星の中に宇宙人が住める環境じゃなくなっている）と思うからです。 ※宇宙人がもしいるなら、それは地球人と同じような存在だと、BSプレミアムの「コズミックフロント」で言っていましたので、この矛盾点を感じたのです。 そもそも、ボイジャーを開発したうちの一人の方が 「ボイジャーにつんだレコードは、これからもずっと飛び続けて、いつか宇宙人が拾うかもしれないし、地球が滅亡したあともそのレコードは飛び続けて、地球があった証になるのです」と言っていたのですが コズミックフロントでは、そのレコードの寿命があと２０年くらいと言っていたので、ボイジャーを開発したひとでさえ、ある意味、ちょっと夢見がちというか、ロマンを描きすぎて現実的でないところがあるのではとすら感じてしまっています。 そもそも、宇宙人が地球にくる理由も、もうこれだけ環境が悪化して、住む価値もうすれているようなところへきて、何の用事が・・・？ともおもってしまします。 （征服する価値がないような） 天文学やその他、宇宙研究にたずさわる方のなかには、実際、宇宙生命体はともかく（ようは、バクテリアとかいうレベルの生命体など）ＳＦに出てくるような宇宙人（ＵＦＯに乗って地球にくる）を心から信じているひとはいるのでしょうか・・・？

いつもお世話になっております エクセル2003を使用しています 現在、D2-D7までに　終了、超過　余裕の3つのどれかが表示するようにしてあります。 D2には =IF(A2="","",IF(A2<Q$39,"終了",IF(B2="A",IF(Q$37>"12:00"*1,"終了",IF(P$36<=N$36,"余裕","超過")),IF(B2="B",IF(Q$37>"19:00"*1,"終了",IF(P$37<=N$37,"余裕","超過")),IF(B2="C",IF(Q$37>"21:00"*1,"終了",IF(P$38<=N$38,"余裕","超過"))))))) が入っていました。 この度、時間帯をABCではなくてABCDEまで増やすことにしました。それによって D2には現在 =IF(A2="","",IF(A2<G$12,"終了",IF(B2="A",IF(G$10>"11:30"*1,"終了",IF(F$9<=D$9,"余裕","超過")),IF(B2="B",IF(G$10>"15:00"*1,"終了",IF(F$10<=D$10,"余裕","超過")),IF(B2="C",IF(G$10>"17:30"*1,"終了",IF(F$11<=D$11,"余裕","超過")),IF(B2="D",IF(G$10>"19:00"*1,"終了",IF(F$11<=D$12,"余裕","超過")),IF(B2="E",IF(G$10>"21:00"*1,"終了",IF(F$11<=D$13,"余裕","超過")))))))) が入っています。しかしご覧のようにD5とD7は機能していません。 どこが悪いのか調べたのですがわかりませんでした。 D2にはどんな計算式が必要なのでしょうか？

いつもお世話になっております エクセル2003を使用しています 現在、D2-D7までに　終了、超過　余裕の3つのどれかが表示するようにしてあります。 D2には =IF(A2="","",IF(A2<Q$39,"終了",IF(B2="A",IF(Q$37>"12:00"*1,"終了",IF(P$36<=N$36,"余裕","超過")),IF(B2="B",IF(Q$37>"19:00"*1,"終了",IF(P$37<=N$37,"余裕","超過")),IF(B2="C",IF(Q$37>"21:00"*1,"終了",IF(P$38<=N$38,"余裕","超過"))))))) が入っていました。 この度、時間帯をABCではなくてABCDEまで増やすことにしました。それによって D2には現在 =IF(A2="","",IF(A2<G$12,"終了",IF(B2="A",IF(G$10>"11:30"*1,"終了",IF(F$9<=D$9,"余裕","超過")),IF(B2="B",IF(G$10>"15:00"*1,"終了",IF(F$10<=D$10,"余裕","超過")),IF(B2="C",IF(G$10>"17:30"*1,"終了",IF(F$11<=D$11,"余裕","超過")),IF(B2="D",IF(G$10>"19:00"*1,"終了",IF(F$11<=D$12,"余裕","超過")),IF(B2="E",IF(G$10>"21:00"*1,"終了",IF(F$11<=D$13,"余裕","超過")))))))) が入っています。しかしご覧のようにD5とD7は機能していません。 どこが悪いのか調べたのですがわかりませんでした。 D2にはどんな計算式が必要なのでしょうか？

たとえばエクセルで数字を求めたいときにＡ１のセルに１００の数字をいれてＢ1に10と入れたとしてこの１０という数字を％としてＡ1の100の10％たしたときに110に頭で計算するとなりますが、エクセルで100と10を利用して100に10％足した数字を求めたい場合の式はどうなるかわかるひとはいますか？あとその逆の100かたマイナス10％引いた数字のやりかたもおしえてもらえればいいのですが

シート２のA2には、H23年12月と日付データがあります。 ここはTODAY関数でしていますが、ときに、手動で過去の月を指定する時があります。 C5には"現金"と入力されています。 現金シートのN１からY１までは、1月、2月・・と共通になっています。 N２からY2までは金額が入っています。 B5以下に入れる関数を教えていただきたいのですが、 B5には、現金シートで、シート２のA2と同じ月をN1からY1まで探し出し、一致する月の2行目の金額を表示する関数を教えていただきたいのです。 また、現金シートのN2からY2まで入れる関数についても教えていただきたいのです。 現金シートのB列には日付データがあります。 G列H列には金額データがあります。 1月分すべてのG列の金額をたして、H列のすべての金額を足したものを引くという関数を教えていただきたいです。 お手数をかけますがよろしくご教授くださいませ。

独学でエクセルVBAの初心者です。 定尺の鋼材から一定の長さのものが何本切り出せるかを調べるプログラムを作りたいです。 ネットで調べたところカッティングストック問題というものすごい難しいサイトに当たりましたが、 そのような難しいものではなく単純に同じ長さのものを切っていき、必要本数が取れたら次の長さを 切っていくというものを作りたいと思います（最終的に定尺何本必要か知りたい）。 まだまだ始めたばかりなのですが、do while文でorを使ったのですが反映されません。 なぜなのでしょうか？　iが３になった時点で引くのを止めたいのですが止まりません教えてください。 Sub Test() Worksheets("Sheet1").Cells(1, 2).Value = 5500 Worksheets("Sheet1").Cells(2, 2).Value = 1000 Worksheets("Sheet1").Cells(3, 2).Value = Range("B1").Value Dim i i = 0 Do While Range("B3").Value > Range("B2").Value Or Range("B4").Value = 3 i = i + 1　　　　　　　　　　　　　　　　　　　　　　　　　　　↑この部分 Range("B3").Value = Range("B3").Value - Range("B2").Value Loop Worksheets("Sheet1").Cells(3, 2).Value = Range("B3").Value Worksheets("Sheet1").Cells(4, 2).Value = i End Sub

マンションの１階の角部屋で、部屋の壁に床から1ｍの高さまで、結露が出ます。自分で出来そうな対策として、壁の中では無く、生活空間側に、断熱材を張ろうと考えています。どんな材料が有るのか、はたして効果が有るのか教えて下さい。また自分で出来る簡単な結露対策が有れば教えて下さい。

予想時間が　残り時間よりオーバーしていたら赤く表示したい 昨晩からやっているのですが、条件付き書式を使おうと考えていて、どうしてもうまくいかないので教え下さい。 まず現在の時間は　9:35なので、時間帯はAです 7:00から12:00まではAとなります。 つまり12:00まで　残り時間は「D11」にあるように　2:24しかありません。 にも関わらず　片付け作業は　3時間で見積もっています（D9） D9は残り時間より見積もった時間が多かったので赤く表示したいです。 その式を作るには 本日の日付　＋　時間帯A＋　残り時間をオーバーしているかどうか の３つを見る必要があります。 D２からD9まではどんな式が必要でしょうか？ とりあえず　D2には何をいれたらいいのでしょうか？ ちなみにD２は　本日ではないので、赤く表示はされません。 赤くなるのは　本日＋A＋時間オーバー　の３つの条件に該当している　「D9」だけです。

T９には今の時間帯　Aを表す数式が入っています。 円グラフは　Aの円グラフが表示されています。 現在時刻が　11:31の時は T9が　Bと表示され Bの円グラフが表示したいのですが、これは可能な事ですか？ 可能なら、円グラフの範囲をどこに指定すればいいのでしょうか？

エクセルの関数を使用して下記のことを行いたいのですが やり方がわかりません。 (やりたいこと) セルＡに商品名・セルＢに単価・セルＣに個数をそれぞれ入力する。 セルＤの合計の関数は、=B3*C3 を入力して合計金額をだす。 このときに、セルＥに商品当選フラグを設ける、 セルＦの支払金額は、セルＤの合計金額とセルＥの商品当選フラグを見て 「なし」のときは、支払金額は全額表示する。 また、「あり」のときは、支払金額は０とする。 　　Ａ　　　　Ｂ　　　Ｃ　　　Ｄ　　　　　Ｅ　　　　　　Ｆ ２商品名　単価　個数　合計金額　商品当選　支払金額 ３　肉　　　200　 　2　　 400　　　 　なし　　　　　400 ４　魚　　　150　　 3　　 450　　　　 なし　　　　　450 ５　野菜　　100　　 5 500　　　　 なし　　　　　500 ６　雑貨　　300　　 1　　 300　　　　あり　　　　　　　0 (環境) エクセル2007を使用しています。 わからなくて大変困っております。 ご教授お願いします。

今xlsシート上に以下のセルがあります。 2011-11-11T10:00:00.000+0900　（xls.表示形式：yyyy-mm-dd"T"hh:mm:ss".000+0900"） 上記を数式を使ってそれぞれ以下（別セル）に分割することは可能でしょうか？ ↓ 11月11日(xls.表示形式　日付：●月●日） 10:00　　（xls.表示形式：　0":"00） ※一応、xls.のバージョンは2003以上です

今、書類を作成しており、その際に西暦でなく年号で作成をする必要があるのですが、 その際にとあるセルのデータを下に明治、大正、昭和、平成と分けることは出来るでしょうか？ 例としては 　2012→平成 　1980→昭和 　1910→大正 と言った具合です。 データは各年の数値が入り混じった状態で1900～2012までの数字が入っている状態です。

よろしくお願いします。初心者で勉強中です。以下のコードを作成してみましたがエラーが出ます。いろいろ調べてみましたが解決策がわからないので、教えて頂ければと思います。 ・シートは31シートあります（１番左のシート名は"初期設定"、２番目は 1日、３番目は２日と・・・、順に３０日まであります。) 。 ・やりたい事。 ・２番目シートの（A1からA10）までをコピーし、１番目シートのA2にはりつける。３番目シートの（A1からA10）までをコピーし、1番目シートの先ほど貼り付けたデータの１つ下の行にはりつける・・・順に３０日までのデータをすべて１番目シートに貼り付けたいと思っています。 ・"初期設定シート"の１行目には文字が入っているので、データの貼り付けは２行目からにする予定です ・作ったコード Sub 練習() Dim maxrow As Long Dim i As Long maxrow = Sheets(1).Range("a1").End(xlDown).Row For i = 2 To 31 Sheets(i).Select Sheets(i).Range("A1", "A10").Select Selection.Copy Worksheets(1).cells(maxrow＋1,1) Next i End Sub ・Ｆ８で１文ずつ確認すると、Selection.Copy Worksheets(1).cells(maxrow＋1,1) を実行したときに、「実行時エラーがでます」。 EXCEL2000を使用しています。 よろしくお願いします。