x0000x の回答履歴

エクセルでシート１に１０×１０位の表があります。 どこのシートでもこの表を参考にすることがあるので、この表をポップアップウィンドウ？にして常に見れる状態にしたいのですが・・・。 なにかいい方法がありましたら、教えてください。 よろしくお願いいたします。

いつもお世話になっています。 A1　B1　C1共に空白なら「空白」 A1+B1+C1が空白以外（数字）であれば「その値」を返すという関数にしたいのですが、今=IF(A1+B1+C1=0,"　")にしましたが、数字の時にその値を返す式にできません。（FALSEになります） もしできましたら、解説付きで教えていただけませんでしょうか。 よろしくお願いします。

始めまして、マクロ初心者ですが、何とぞ宜しくお願いします。 エクセルAのシートA A* 学校名 B* クラス数 C*生徒数 D*男子 E*女子 A?　　　　B?　　　　　C?　　　 D?　　 E? A* の 「*」には行番号が入りますが、可変行数が入る感じです。 エクセルBシートB A1 学校名 B1 クラス数 C1 男子 D1 女子 E1 生徒数 A2 A中学　B2 ４クラス C2 60人 D2 60人 E2 120人 A3 B中学　B3 ５クラス C3 70人 D3 80人 E3 150人 A4 C中学　B4 １クラス C4 10人 D4 20人 E4 30人 現状A1、B1、C1 がタイトルとしていますが、この部分の行数も可変となってます。 エクセルのシートAで実行した場合、エクセルシートAとエクセルシートBで同じ項目がある場合、 エクセルシートBの内容をエクセルシートAにコピーします。 コピー例： エクセルシートBとAで同じ「学校名」という項目があった場合、 エクセルシートBの「学校名」の下「A2」からしたの文字列全部を エクセルシートAの「学校名」の下「A?」にコピーします。 またエクセルシートAの検索内容をエクセルシートCで指定できれば 幸いです。 エクセルシートCの指定例： エクセルシートAが下記の場合 A6 学校名 B6 クラス数 C6生徒数 D6男子 E6女子 エクセルシートBが下記の場合 A1 学校名 B1 クラス数 C1 男子 D1 女子 E1 生徒数 エクセルシートCに下記の内容を指定したら其の範囲をコピー A1 A6 ←シートAの検索開始箇所 A2 E6 ←シートAの検索終了箇所 A3 A1 ←シートBの検索開始箇所 A4 E1 ←シートBの検索終了箇所 説明が判り難い箇所が有りますが、何とぞ宜しくお願い致します。

始めまして、マクロ初心者ですが、何とぞ宜しくお願いします。 エクセルAのシートA A* 学校名 B* クラス数 C*生徒数 D*男子 E*女子 A?　　　　B?　　　　　C?　　　 D?　　 E? A* の 「*」には行番号が入りますが、可変行数が入る感じです。 エクセルBシートB A1 学校名 B1 クラス数 C1 男子 D1 女子 E1 生徒数 A2 A中学　B2 ４クラス C2 60人 D2 60人 E2 120人 A3 B中学　B3 ５クラス C3 70人 D3 80人 E3 150人 A4 C中学　B4 １クラス C4 10人 D4 20人 E4 30人 現状A1、B1、C1 がタイトルとしていますが、この部分の行数も可変となってます。 エクセルのシートAで実行した場合、エクセルシートAとエクセルシートBで同じ項目がある場合、 エクセルシートBの内容をエクセルシートAにコピーします。 コピー例： エクセルシートBとAで同じ「学校名」という項目があった場合、 エクセルシートBの「学校名」の下「A2」からしたの文字列全部を エクセルシートAの「学校名」の下「A?」にコピーします。 またエクセルシートAの検索内容をエクセルシートCで指定できれば 幸いです。 エクセルシートCの指定例： エクセルシートAが下記の場合 A6 学校名 B6 クラス数 C6生徒数 D6男子 E6女子 エクセルシートBが下記の場合 A1 学校名 B1 クラス数 C1 男子 D1 女子 E1 生徒数 エクセルシートCに下記の内容を指定したら其の範囲をコピー A1 A6 ←シートAの検索開始箇所 A2 E6 ←シートAの検索終了箇所 A3 A1 ←シートBの検索開始箇所 A4 E1 ←シートBの検索終了箇所 説明が判り難い箇所が有りますが、何とぞ宜しくお願い致します。

始めまして、マクロ初心者ですが、何とぞ宜しくお願いします。 エクセルAのシートA A* 学校名 B* クラス数 C*生徒数 D*男子 E*女子 A?　　　　B?　　　　　C?　　　 D?　　 E? A* の 「*」には行番号が入りますが、可変行数が入る感じです。 エクセルBシートB A1 学校名 B1 クラス数 C1 男子 D1 女子 E1 生徒数 A2 A中学　B2 ４クラス C2 60人 D2 60人 E2 120人 A3 B中学　B3 ５クラス C3 70人 D3 80人 E3 150人 A4 C中学　B4 １クラス C4 10人 D4 20人 E4 30人 現状A1、B1、C1 がタイトルとしていますが、この部分の行数も可変となってます。 エクセルのシートAで実行した場合、エクセルシートAとエクセルシートBで同じ項目がある場合、 エクセルシートBの内容をエクセルシートAにコピーします。 コピー例： エクセルシートBとAで同じ「学校名」という項目があった場合、 エクセルシートBの「学校名」の下「A2」からしたの文字列全部を エクセルシートAの「学校名」の下「A?」にコピーします。 またエクセルシートAの検索内容をエクセルシートCで指定できれば 幸いです。 エクセルシートCの指定例： エクセルシートAが下記の場合 A6 学校名 B6 クラス数 C6生徒数 D6男子 E6女子 エクセルシートBが下記の場合 A1 学校名 B1 クラス数 C1 男子 D1 女子 E1 生徒数 エクセルシートCに下記の内容を指定したら其の範囲をコピー A1 A6 ←シートAの検索開始箇所 A2 E6 ←シートAの検索終了箇所 A3 A1 ←シートBの検索開始箇所 A4 E1 ←シートBの検索終了箇所 説明が判り難い箇所が有りますが、何とぞ宜しくお願い致します。

よろしくお願いします シート１に売り上げ一覧 C, D, E, F, G 顧客番号、顧客の名前、、金額、売上日、 シート２に振込一覧 C,D,E,F,G 請求番号、顧客番号、顧客の名前、金額、入金日 とはいってます。請求番号が一致するものを それゾれ、シート１の H. I ,J, K シート２の金額、シート２顧客名前、顧客番号、請求番号 と反映させ、 シート１に反映されたシート２のデーターに印をつけたい。 色分けでもよいのですが、関数ならわかるのですが、 マクロとかは、まったくわからずなので、関数でできならば、 教えてください！

以前ここで質問させていただきました。 http://okwave.jp/qa3029622.html 上の内容のとおり教えていただきました。 マクロにさらにタイトルを追加したいのですが可能でしょうか？ ファイルAのタイトルは5行目から始まり8行目まであります。 ファイルBのタイトルは2行目から始まり6行目まであります。 ★ファイルAのタイトルにファイルBのタイトルをつけ加えたい！ 以下のソースに付け加えるとしたら、どこにどのように追加すればよいですか？ 以上ですがよろしくお願いいたします。 Sub findJoin() On Error GoTo err Dim st1 As Worksheet Dim st2 As Worksheet Set st1 = ActiveSheet Workbooks.Open ("870xtd.xls") Set st2 = Workbooks("870xtd.xls").Sheets(1) Dim st1MaxRow As Long Dim st2Maxrow As Long st1MaxRow = st1.Cells(st1.Rows.Count, "A").End(xlUp).Row st2Maxrow = st2.Cells(st2.Rows.Count, "AB").End(xlUp).Row Dim R As Long For R = 2 To st1MaxRow Dim nmRng As Range Set nmRng = st2.Range("AB2:AP" & st2Maxrow).Find(st1.Cells(R, "A").Value, LookIn:=xlValues) If Not nmRng Is Nothing Then '発見した。 st2.Range("A" & nmRng.Row & ":AP" & nmRng.Row).Copy Destination:=st1.Range("DQ" & R) End If Next st1.Activate Set st1 = Nothing Set st2 = Nothing Exit Sub err: MsgBox Error End Sub

とあるcsvファイルがあるのですが、 文字コードがEUCのためか、普通にExcelで開くと文字化けします。 仕方なく、Terapadで開いていますが、 ソートもできないしたいへん不便です・・・ 試しに、いちどExcelで開いて文字化けしたままソートをかけてから、 再度Terapadで開いてみたら、 最初からTerapadで開いた時には無かった文字化けが 新たに大量に発生してしまい、 全然意味がありませんでした(--;) Excelで文字コードを指定して開く方法はあるのでしょうか。 または、Excelと同じような表計算ソフトで、 文字化けせずにソートも出来るソフトは無いでしょうか。 素人質問でわかりにくかったら申し訳ありません。 よろしくお願いします。

以前ここで質問させていただきました。 http://okwave.jp/qa3029622.html 上の内容のとおり教えていただきました。 マクロにさらにタイトルを追加したいのですが可能でしょうか？ ファイルAのタイトルは5行目から始まり8行目まであります。 ファイルBのタイトルは2行目から始まり6行目まであります。 ★ファイルAのタイトルにファイルBのタイトルをつけ加えたい！ 以下のソースに付け加えるとしたら、どこにどのように追加すればよいですか？ 以上ですがよろしくお願いいたします。 Sub findJoin() On Error GoTo err Dim st1 As Worksheet Dim st2 As Worksheet Set st1 = ActiveSheet Workbooks.Open ("870xtd.xls") Set st2 = Workbooks("870xtd.xls").Sheets(1) Dim st1MaxRow As Long Dim st2Maxrow As Long st1MaxRow = st1.Cells(st1.Rows.Count, "A").End(xlUp).Row st2Maxrow = st2.Cells(st2.Rows.Count, "AB").End(xlUp).Row Dim R As Long For R = 2 To st1MaxRow Dim nmRng As Range Set nmRng = st2.Range("AB2:AP" & st2Maxrow).Find(st1.Cells(R, "A").Value, LookIn:=xlValues) If Not nmRng Is Nothing Then '発見した。 st2.Range("A" & nmRng.Row & ":AP" & nmRng.Row).Copy Destination:=st1.Range("DQ" & R) End If Next st1.Activate Set st1 = Nothing Set st2 = Nothing Exit Sub err: MsgBox Error End Sub

EXCELの初心者です。(OK Waveの利用も初めてです。) 列(縦のライン)をコピーして、ペーストする時に下記のように反転させたいのですが、可能でしょうか？ 教えてください。よろしくお願いします。 1　　　　　　　6 2　　　　　　　5 3　　　→　　 4 4　　　　　　　3 5　　　　　　　2 6　　　　　　　1

エクセルで2つのファイルを自動的にひとつにしたいのですが、できますでしょうか？ ファイルA、ファイルBに【名前が同じ】データがあるとします。 　※ファイルAはA列に名前があります。 　※ファイルBはAB列～AP列までのどこかにファイルAと同じ名前があります。 ファイルAの【名前】を参照して、ファイルBの【名前】がある行のデータを丸ごと、ファイルAの【名前】が一致する行へ自動でコピーできますか？ ちなみにファイルAにはA～DP列までデータが入っていますので、それ以降にファイルBのデータの行を自動コピーされるようにしたいです。 データが１０００件以上あり、地道にコピペするのは少し大変なので自動でできる簡単なやり方があったら、ぜひ教えてください。 アクセスを使うと簡単にできると、聞きましたが良くわかりませんでした。 エクセル。アクセスどちらでも良いので二つのファイルをひとつにする方法を教えてください。 ちなみに私はエクセルはあまり使いませんし、アクセスはまったくの初心者です。 本日は5時以降パソコンの前にいられないので、明日にお返事致します。 以上よろしくお願いします。

いつもお世話になっています。 下記のような仕入記録テーブルがあったとします。 仕入年月日　｜　商品名　｜　数量　｜　単価　｜ 2006/04/05　　　ＡＡＡ　　　　10　　　　　100 2006/07/12　　　ＢＢＢ　　　　5　　　　　　280 2006/11/03　　　ＡＡＡ　　　　15　　　　　120 2007/02/19　　　ＢＢＢ　　　　5　　　　　　230 2007/04/02　　　ＡＡＡ　　　　10　　　　　150 2007/05/10　　　ＢＢＢ　　　　15　　　　　250 この時、年度毎の最終仕入額を商品別に出したいのですがクエリはどのように作ればいいのでしょうか？ 以前質問させていただいて商品別の最終仕入日を出すこと(Max関数使用)はできたのですが、これを年度別に分ける方法がわかりません。 年度自体はDatePart("yyyy",DateAdd("m",-3,[仕入年月日]))で出したらいいんですよね？ クエリをいくつかの段階に分けて作らないとダメなんでしょうか？ ご指導よろしくお願いします。

エクセル２０００を使用しています。 誕生日の一覧表があります。 S.50.5.24　のような形式です。 その人たちの年齢を算出したいのです。 ある団体の来期の予定を立てているのですが、期間の始まりが今年の７月からで 終わりが来年の６月末までとなっています。 その期間中にそれぞれの月に誕生日を迎える方の年齢を出したいのです。 もちろんそれを見越した上で今の時点で予め出したいのです。 例えば平成２年６月７日生まれの方ならば実際に今日現在では１６才ですが 平成２０年６月の時点では「１８才」ですから答えは１８と導きたいのです。 あくまでも来期の期間中に無事に誕生日を迎えるという前提での計算です。 どのようにすればよいのでしょう？

要件：Aのセルに値が入ればその行全てセルの書式を網掛けにする まず1の行全てに 条件付き書式にて =NOT(ISBLANK($A$1))の場合、網掛けに書式 を設定しました。 こうするとA1に値が入ると1の行全てが網掛けになります。 これを2の行、3の行・・・と全ての行に適用させたいので、 他の行にペーストしたのですが、$A$1がそのままコピーされてしまいます。 つまりA1に値が入ると全ての行が網掛けになるという結果です。 ペーストされた各行は =NOT(ISBLANK($A$2))、=NOT(ISBLANK($A$3))、=NOT(ISBLANK($A$4))... といった形で行毎にしたいのですがどうしたらよいのでしょうか？ (対応方法としては要件を満たせれば何でもOKです)

A列とB列に文字が入力されていて、C列に数字が入っています。 A列もしくはB列に「電話」という文字が含まれている場合、D列に「通信費」と表示させるにはどのようにすればよいでしょうか。 それと同時にA,B列に「業務委託」という文字が含まれている場合はD列に「手数料」と表示させたいです。 ちなみにA列B列には、「電話」や「業務委託」以外の文字も入力されています。 また、最終的には「通信費」の合計、「手数料」の合計を出したいと思っています。 何段階か踏む必要があるかもしれないのですが、どのようにすればよいでしょうか。よろしくお願いします。

とても初歩的なことですが教えて下さい。 文字の表示と日付の表示をさせたいのですが、 *文字列の表示 IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE-01. * ENVIRONMENT DIVISION. * DATA DIVISION. * PROCEDURE DIVISION. MAIN. DISPLAY "ここに文字" STOP RUN. *日付を表示する IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE-07. * ENVIRONMENT DIVISION. * DATA DIVISION. WORKING-STORAGE SECTION. 01 DATE-REC. 02 D-Y PIC 99. 02 D-M PIC 99. 02 D-D PIC 99. * PROCEDURE DIVISION. MAIN. ACCEPT DATE-REC FROM DATE DISPLAY D-Y "年" D-M "月" D-D "日" STOP RUN. こうして合成すると表示できません。 文字と日付を同時に表示するにはどうすればいいのでしょうか？ よろしくお願いいたします。

マクロ初心者です。 以下のようなことをしたいときにマクロの方法を教えて頂けると助かります。 1)セルＡ１に、数値を入力。 2)セルＢ１に、Ａ１の数値を使った複雑な計算を行う。 3)セルＣ１にある別の既定の数値とＢ１が同じなるまで、Ａ１の数値を入力し直す。 　(例えばＡ１は、0.1間隔で数値を入力していく） このようなものをマクロで設定したいです。 今はひたすらＡ１の数値を入力し直して対応しています。 なにとぞよろしくお願いいたします。

お世話になります。アクセスの超初心者です。 数値型であれば同じ列の合計できますが、テキスト型で以下のように 連結できる方法がございませんでしょうか？ ＜元テーブル＞ レコード番号　　列:キーワード(テキスト型)　　列:抽出条件 　　１　　　　　　"山,川"　　　　　　　　　　　　　　　　AAA 　　２　　　　　　"海外,国内"　　　　　　　　　　　　　AAA 　　３　　　　　　"熊,馬"　　　　　　　　　　　　　　　　BBB 　　↓このテーブルを元にクエリをかける ＜クエリ出力結果＞　列:抽出条件にAAAを指定 　　列:キーワードの合計（連結） 　　"山,川、海外,国内" 　　　　　　^^ 　　　　　↑連結の境目には"、"などの区切りを入れたい。 宜しくお願い致します。

以下のような表があります。 (sheet1) Ａ列 不規則な数列（←一行目にタイトルが書き込まれています） １３　　　（←二行目から数字がランダムに書き込まれています）　　　 １８ ４４ ３６ ２２ １４ ２７ ２１ ３２ ３５ ４４ １２ （以下続く） Case1[i行の値よりi+1行の値が大きく、i+1行の値よりi+2行目の値が大きい件数] Case2[i行の値よりi+1行の値が大きく、i+1行の値よりi+2行目の値が大きく、i+2行の値よりi+3行目の値が大きい件数] などの件数を、新たなシートに書き出したいのです。 上の例からすると、 (sheet2) Ａ列　　Ｂ列（←Ｂ列に件数を書き込む） Case1　　３ Case2　　１ のような感じです。 if文で作ってみたのですが、うまく処理してくれません。 どのようなVBAを書けばいいのでしょうか。 分かる方、よろしくお願いします。

エクセルのメニューバーに塗りつぶしボタン（斜めになったバケツの絵）があり、最後に使った色になっています。 この色の値を知るにはどのようにしたらよいでしょうか？ 尚、現在セレクトしているセルの色は関係ありません。 それから、カラーパレットなどを表示して簡単に色を選択する方法はないでしょうか。 よろしくお願い申し上げます。