zap35 の回答履歴

皆さんこんにちは。 エクセルの使い方についての質問です。 添付画像の例のようにA列に 「XXYYYZZ(XとZは文字、Yは数値で3桁または4桁)」というフォーマットで 数値と文字が入っているセルがあります。 同様にB列には「WWZ(Wは数値)」というフォーマットで、 同様に数値と文字が入っているセルが並んでいます。 これらからDやE列にあるように数値のみを取り出すためには DやE列にどのような関数を入れてやればよいのでしょうか。 どなたか教えていただければ幸いです。 よろしくお願いします。

Excel VBAでCSVファイルを読込むと何故か文字列が日付に変換されて困っています。 すごく困っております。どなたか教えて下さい。 状況を申し上げますと、以下のようなCSVデータがあります。 "住所１","住所2" "東京都港区青山","1-24-11" このとき、別なCSVにデータを移すという単純なものです。 通常は、 WsCount.Cells(1, 1).Value =Cells(2,1).value WsCount.Cells(1, 2).Value =Cells(2,2).value で、セルにある文字をそのまま、新しいシートのセルに移すだけのことですが、 何故か、"1-24-11"が日付に変換され、"2011/1/24"に変わってしまいます。 デバックなどで、途中経過を見ても既に日付にかわっており、 どうにも対応ができません。 以前は""で囲んである文字は、文字のまま認識していたと思いますが、 何故か今回はうまくいきません。 ちなみに、Excel2007です。 どなたか、教えて下さい。 宜しくお願いします。

エクセルです。 下のような表があります。 　　　　　１期　　　　２期　　　　３期　　　　４期　　　　　合計 　　　　情電水ガ情電水ガ情電水ガ情電水ガ　　情電水ガ 　　　　報気道ス報気道ス報気道ス報気道ス　　報気道ス Aさん　 １３２１　　２４２１　　２３１２　　３２１１ Bさん　 ３２１２　　４２１２　　３１２３　　２１１３ Cさん　 ２１２４　　２１２３　　１２３２　　１１２１ 合計を求め、「９」「１０」「１１」「１２」の物には、黄色の色を塗ことです。 合計は、簡単に求められます。 しかし、「９」「１０」「１１」「１２」に色をつけることができません。 どのような命令文を入れればよいのでしょうか？？？ 教えてください。よろしくお願いします。

エクセル3/1、3/1、3/2、3/2、3/3、3/3と一日を２回くりかえしながら 1か月分のデータを入力したいのですが、オートフィル機能で うまくできません。 3/1、3/1、3/2、3/2、3/3、3/3と複数セルを選択した上で ドラックしてみるのですが、“3/1、3/1、3/2、3/2、3/3、3/3”と 繰り返すばかりで3/4、3/4、3/5、3/5・・・と先の日付へ進みません。 何か方法はあるのでしょうか？ よろしくお願いします。

A列のA2から2010/2/1/月～2010/3/2/火の日付が入っているとします。本日を2010/3/3/水とした時に、前日3日分(2010/3/2/火,2010/3/1/月,2010/2/28/日)のデータを抽出したいのですがどのようにしたらいいでしょうか。又同様に前日4日分,前日5日分,前日一週間分を抽出するにはどうたしたらいいでしょうか。

説明が下手でスイマセンがお付き合い下さい。 A列に日時(2010/2/1/ 00:00)が昇順に500行並んでいます。 A列の日時で7:00-19:00、19:00-7:00の間に2行空ける。 これを、マクロで行いたいのですが、宜しくお願いします。

エクセル２００７を使用してタイムに応じたポイント表を作成しています。 １位のタイムを入力すると１００Pでその後は１位のタイムから１０秒以内の遅れが９５P、２０秒以内の遅れは９０P、３０秒遅れは８５Pといった表を作成したいのですがどうしたらいいかご教授お願いします。 また、タイムを入力するセルはmm:SSと入力を行いたいです。

検索関数を使って検索窓を作成したいんですが・・・ 仕事でExcelを使っていて他の人に聞いても解決できなかったのでこちらでご質問させて頂きます。 質問内容は検索です。 データの範囲内にある数値、文字など、全てが対象になります。 条件は下記の通りです。 １．検索窓のようなセルに毎回関数など入力せず、文字や数字を入力するだけ。googleなどの検索窓と同じです。 ２．検索結果は検索窓の右側に自動的に表示。検索内容を変更した時に自動的に反映される。 ３．検索例 例1）　岡田 ←名前だけで検索 例2）　2010/01/20 ←日付で検索 例3）　岡田　A-102W ←名前と型番で検索 例4）　岡* ←ワイルドカードも使用可能 ４．データ範囲はシートをまたぐこともあり。 つまり、A1というセルに文字を入力すればその文字に関する情報が一覧表示されるということです。 上記の条件でやりたいんですが、マクロやVBAなどは全くわかりませんので、 エクセルの関数のみで何とかならないでしょうか。 よろしくお願いします。

配列2つからそれぞれ要素を取り出して組み合わせ、 新たな配列を作りたくて下記のコードを書きましたが どうしても★のところで「コンパイルエラー：SubまたはFunctionが定義されていません。」 というエラーになってしまいます。すごく基本的なミスのようでお恥ずかしいのですが、 どうか解決方法・アドバイスをお願いいたします。m(_ _)m なお、最終的に作りたい配列の中身は下記のような規則性を持ったものです。 （後からもっと増やす予定なのでループでの処理を希望しています。） 'RankFirstCell = Array("B10", "B26", "B42", "B58", "B74", "H10", "H26", "H42", "H58", "H74", "N10", "N26", "N42", "N58", "N74") --- 問題の部分はここから --- Dim RankCols, RankRows As Variant RankCols = Array("B", "H", "N") RankRows = Array(10, 26, 42, 58, 74) Dim x, y, z As Byte Dim RankFirstCell(14) As String 'ここの記述の仕方の問題でしょうか？ For x = 0 To 14 y = Application.WorksheetFunction.RoundDown(x / 5, 0) z = x Mod 5 RankFristCell(x) = RankCols(y) + RankRows(z) '★エラー行 Next x --- ここまで --- ちなみにx, y, zの値は下記のように希望通りループできているみたいです。（ウォッチウィンドウにて確認） x|y|z ------ 0|0|0 1|0|1 2|0|2 3|0|3 4|0|4 5|1|0 6|1|1 7|1|2 8|1|3 9|1|4 10|2|0 11|2|1 12|2|2 13|2|3 14|2|4 どうぞよろしくお願いいたします。

数字に強い人、教えてください。 ２分の１の確立で勝つギャンブルで、 ２連勝するのは４分の１の確立、 ３連勝する確立は８分の１ ４連勝する確立は１６分の１ ５連勝する確立は３２分の１ ６連勝する確立は６４分の１ ７連勝する確立は１２８分の１ ・ ・ ・ これであってますか？ 間違ってたら直してください。 それから、４分の１の確立の場合、 （例えば麻雀などで、実力を考慮せず） ５連勝（５回連続１位）する確立は幾つですか？ また、それは５連敗（５回連続４位）する確立と同じですか？ そして、逆に、１０回連続１位に“なれない”確立はどのくらいでしょうか？

毎回、おせわになります。 次の問題がわかりませんので、ご指導お願い申し上げます。 ■前提条件 以下の通り、A列には7個の数字があります。 A列 100 0 -20 -30 -50 -100 -120 ■自分のしたい内容。 １．-50を含む-50より小さい数字（-120など）の合計を求めたい。 ２．0以下、-49以上（-30など）の合計を求めたい。 このうち、1番の式は次のように作成しました。=SUMIF(A1:A6,"<=-50") これで正しい結果が表示されました。しかし2番目の式がつくれません。 どうか、この式の解決をご指導いただきたくお願い申し上げます。

エクセル　VBA　 Sheet上にコマンドボタンをクリックさせたら 電卓表示させるにはどのように記述をしたら良いですか？ (1)勿論、VBAで電卓作成したいのですが…何か良いサイトはありますか？それか 　作り方を教えて欲しいです。 (2)ツール⇒すべてのプログラム⇒アクセサリ⇒電卓 　で表示できますよね！それをコマンドボタンクリックで 　表示させるには、どのように記述したら良いですか？ 　 すいません教えてください！

毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、 別のブックにコピーして、セルの書式と値を貼付けし、 元ファイルのシート名と同じシート名を付けたいのですが、 どんなVBAを組めば良いでしょうか？ 下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、 自分のイメージした通りに動きません・・・。 ご教授の程、宜しくお願いいたします。 Sub データ書き出し() Dim ws As Worksheet Dim i As Long With ActiveWorkbook i = Worksheets.Count For j = 1 To i ThisWorkbook.Worksheets(j).Cells.Copy .Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next j Application.CutCopyMode = False .SaveAs "月別DATA_" End With End Sub

毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、 別のブックにコピーして、セルの書式と値を貼付けし、 元ファイルのシート名と同じシート名を付けたいのですが、 どんなVBAを組めば良いでしょうか？ 下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、 自分のイメージした通りに動きません・・・。 ご教授の程、宜しくお願いいたします。 Sub データ書き出し() Dim ws As Worksheet Dim i As Long With ActiveWorkbook i = Worksheets.Count For j = 1 To i ThisWorkbook.Worksheets(j).Cells.Copy .Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next j Application.CutCopyMode = False .SaveAs "月別DATA_" End With End Sub

こんにちは。万年筆をいつか買おうと思っている者ですm(__)m タイトルどおりなのですが、万年筆は、使う紙の種類を選びますか？ 万年筆は、ペン先が金属でとがっているので、普通のノートなどの紙などでは、用紙が薄すぎて対応できないのでは…？と思ってしまいました。 滲みなどは、インクの種類や紙の種類により、さまざまな表情を見せてくれるところが、逆に魅力的なのだと思いますが…、金属のペン先で紙を傷つけないかが、疑問ですm(__)m 私は、筆圧が強いほうなので、万年筆で、ノートの紙が、破れてしまうのでは…？と、思い、躊躇しています…(>_<) どなたか、教えていただけると嬉しいです<(_ _)>

乾坤という言葉はどういう意味なのでしょうか？ 乾徳（天の徳）の反対語が坤徳だから 天と大地みたいな意味なのでしょうか？

マクロでシートの自動作成するのに悩んでいます。 下記の二つを条件を入れるにはどうしたらいいですか？ １、コピーしたシートの日付を明日の設定する。 ２、過去のシートを開いても日付を変えたくない。 コピー元のシートを"原本"という名前にしてます。 アドバイスよろしくお願いします。

マクロでシートの自動作成するのに悩んでいます。 下記の二つを条件を入れるにはどうしたらいいですか？ １、コピーしたシートの日付を明日の設定する。 ２、過去のシートを開いても日付を変えたくない。 コピー元のシートを"原本"という名前にしてます。 アドバイスよろしくお願いします。

いつもお世話になります。 Excel　VBAの事で質問させて下さい。 あるデータ（リスト形式）からデータを抽出して 別のシートの最下端行に貼り付けたいと考えています。 貼り付ける際に、コピーしたデータを2行ずつに複製して 貼り付けていきたいのですが、良い方法はありませんでしょうか？ 何卒よろしくお願いします。

初心者なので、質問が適切かどうか分かりませんがおしえてください。 エクセルの列に入力するのに、「Ａ２～Ａ１０までは３０００１、Ａ１１～Ａ１９までは３０００２」という感じで、「９個ごとに１増えるように」設定したいのですが、どうしたらよいのでしょうか？ 　最終的に、この規則で３０３００まで入力したいのですが、手入力ではとてもとても時間がかかるので困っています。 よろしくお願いします！