keirika の回答履歴

ヘッダーフッダー部分をなくして、全部書き込めるようにしたい 言い方が分からなくてすみません。 つまりは、全画面にしたいのですがどうしたらいいか分かりません。 できるのでしょうか？

エクセルで担当授業の出席状況と出席率が分かる下のような表を作っています。 ここで出席=○、欠席=×、遅刻=△としています。 　　　　　列A　　　　 列B 行1　　　 　　　　　学生名 行2 　　 1日目　　　　○ 行3 　　 2日目　　　　× ・ 　　　 　　 ・　　　　　 ・ ・　　　　　　・　　　　　　・ 行19　　 18日目 　　 △ 行20 　　出席　 　　　16 行21 　　欠席 　　 　　 1 行22 　　遅刻 　　 　　 1 行23 　　出席率 　　 94.4 B20には「=COUNTIF(B2:B19,"○")」 B21には「=COUNTIF(B2:B19,"×")」 B22には「=COUNTIF(B2:B19,"△")」 B23には「=ROUND((B20+B22)/(B20+B21+B22)*100,1)」を入力してあり、その日の出席状況(○、×、△)を入力すれば常に現在の出席率が分かるようにしてあります。 しかし、厄介なことに「遅刻は3回で欠席1回分」というルールがあります。この表と数式ではこのルールが反映されず遅刻は全て出席になってしまいます。何とかこのルールも反映させて正確に出席率が自動計算される表を作りたいのですが、どのような方法があるでしょうか。 お知恵を拝借したいと思いますのでよろしくお願いします。

エクセルシートで下記のような校正・取り纏めを予定しております。 ◎校正者50名（列）による、日本語と翻訳テキスト約3000点（行）の校正 元原稿 　　　元原稿（翻訳） 　　　　　　校正者1　　　 校正者2　　　 校正者3　　　 校正者4 　　　校正者5 　　～校正者50 テキスト1 　　　テキスト1（翻訳） テキスト2 　　　テキスト2（翻訳）　　　 　　変更A 　　　変更B テキスト3 　　　テキスト3（翻訳） テキスト4 　　　テキスト4（翻訳） テキスト5 　　　テキスト5（翻訳） 　　　　　　　 　　　　　変更A 　　　　　変更B 　　　　　　　　　　　　　変更C テキスト6 　　　テキスト6（翻訳） テキスト7 　　　テキスト7（翻訳） テキスト8 　　　テキスト8（翻訳） テキスト9 　　　テキスト9（翻訳） テキスト10 　　　テキスト10（翻訳） ～　　　　　　　　　　　　　～ テキスト3000 　　　テキスト3000（翻訳） 各テキスト（行）ごとに校正者が入力しているセルのみを表示させたいのですが、何かよい方法はありますでしょうか？ （列）ごとであれば、オートフィルタ「空白以外～」で、入力されたセルのみ表示されられますが、 閲覧性の点から行列の入替はできません。 どなたかご教授頂ければ幸いです。宜しくお願い致します。

多人数のデータから個人のデータ１人分だけを抜き出すのにリストの作成を使いました。タイトルとデータを印刷するのに１人分だけにＡ４用紙を１枚使ってしまいます。それで、１枚の用紙にタイトルと個人データを４～５人分印刷して、カッターで切って、それぞれに渡したいと思っています。何かいい方法はありますか。 タイトル Ａさんの個人データ タイトル Ｂさんの個人データ タイトル Ｃさんの個人データ タイトル Ｄさんの個人データ というように用紙１枚に４～５人分を印刷したいです。

Excelでスクロールすると、横に移動します。 ウィンドウ枠の固定をしている、右側のみです。 ウィンドウ枠の固定をはずすと直りますが、 再度設定すると、スクロール時に横に移動します。 修復する方法はないでしょうか？ご教授ください。

何時も色々教えて頂き有難うございます。 タイトルにも書いたのですが、関数と乗算の関係を教えて頂きたいのですが？ ある関数を利用した結果が、Ａ１に出ていたとします。 このＡ１のセルを利用して他のセルの関数に利用できる時も有りますが？ 出来ない時には、Ａ１セルを形式を選択・値で貼り付け他のセルの関数に利用しています。 が、これもできない時には、他のセルに１を打ち・コピ－して・乗算で貼り付けて利用出来ると解かったのですが？ 何も利用しないで、関数に利用出来るときもあれば、値で貼り付けて利用、乗算を貼り付けて利用？ この違いは一体何なのでしょうか？

初心者の為、お願いします。 Office2000を使用しています。 あるエクセルファイルのシートのセルを参照して新たなエクセルファイルに反映させたいと思いました。（セル参照というのでしょうか。） しかしながら、どうしても反映させたいセルに元エクセルシートのパス（=\○○.xls\○○（sheet名）\セル番地、等）が入るのです。 セルの表示形式かとも思ったのですが、どう変えても同じ結果です。 違うようです。 このような現象の場合、どんな理由が考えられるでしょうか。 よろしくお願い致します。

請求書のデータ/SHEET(1)と検収のデータ/SHEET(2)(こちらが買った物のデータ)の違いをチェックしたい。 各シートには品名・金額・注文番号が入っているのですが品名はお互いの書き方が一致しない為、 注文番号をキーに請求金額と検収金額が違っていないかをチェックし、違っているものを抜き出したい。 また、月ズレしているもの(請求は今月だが検収は来月等)もあるのでそれも抜き出したい。 注文番号は「A1111」の様なアルファベット+4桁の数字です。 基本的に同じ注文番号は各シートに１つずつなのですが、 だぶりがあると問題になるのでそれもチェックしたいです。 このような処理をする場合どういった方法があるのでしょうか？ 以上、説明が事務的になってしまいましたが、 宜しくお願い致します。

よろしくお願いします。 以前に似た質問で教えてもらったのですが、、、、、 下記のようなデータで、下三けたは連番で、前は識別番号です この場合最後の連番の値を知りたいのですが簡単に出来る 方法を教えてください。 databaseの経験あります（10年以上前）しかし、今 書いてある（式）ものを見ても解読できません、help、ネットで 調べましたがよく解りません、一つでも出来ると少しずつ 解ると思います、どうぞよろしくお願いします。 A1-01-001 A1-01-002 A1-01-003・・・・ A2-01-001 A2-01-002 A2-01-003・・・・ B1-01-001 B1-01-002 B1-01-003・・・ C1-02-003

　　　　Ａ　　Ｂ　　Ｃ　　　Ｄ　　　Ｅ　　　　Ｆ　　　　Ｇ　　　 １　有給休暇 ２　　全日　　午前　午後　有給計　　欠勤　　休暇計　　控除時間 ３　　1.0　　　0.5　　　　　1.5　　　2　　　　3.5　　 定時勤務時間は7.75 午前は3 午後は4.75 控除時間を計算したいのです。午前有給を使用した場合は3.0時間、午後有給を使用した場合は4.75時間控除されるようにしたいのです。 どういう計算式を使ったらよろしいでしょうか？ お願いします。

エクセルは長年使っていたのですが、 マクロも使いたいと思いネットで色々調べています。 やりたいことは、 選択したセル範囲の中で空""のセルに'を入れる マクロを作りたいのですが、 どうしたら良いのでしょうか？ マクロ以外の方法もあれば教えて欲しいのですが、 この機会にマクロに挑戦しようと思いました。 宜しくお願いいたします。 今作成している途中のマクロはこんな感じですが 上手く動きません Sub NullCellAddDash () Dim cellrange As Range For Each cellrange In Selection.Cells If cellrange = "" Then cellrange = "'" End If Next End Sub

VBAを勉強して仕事に活かしたいと思っています。 ユーザーフォームを有効に使いたいと・・ TextboxにBook名を入力してBook（同一フォルダー内にある）を開けるようにしたいと思い次のコードを書きましたが全てのBookが開いてしまいました。 Dim MyP As String Dim MyF As String Dim NewBK As Workbook Dim flg As Boolean MyP = ThisWorkbook.Path & Application.PathSeparator MyF = Dir(MyP & "*.xls") Application.ScreenUpdating = False Do While MyF <> "" If MyF <> ThisWorkbook.Name Then On Error Resume Next Set NewBK = Workbooks(MyF) On Error GoTo 0 If NewBK Is Nothing Then flg = True Set NewBK = Workbooks.Open(MyP & MyF) End If 検索_1 NewBK If flg Then NewBK.Close False flg = False End If Set NewBK = Nothing End If MyF = Dir() Loop Application.ScreenUpdating = True ThisWorkbook.Activate End Sub '*** Form呼び出し時の処理 *** Private Sub 検索_1() Dim findText As String '探す文字列(Text1に入力) Dim rg As Object '探し出したブック findText = Text1.Text Set rg = Workbooks.Find(What:=findText, LookAt:=xlWhole) If Not rg Is Nothing Then Workbooks.Open End If End Sub このコードは本やネットの過去ログをみて参考にして書いたものです。 どなたかわかる方　アドバイスお願いします。

エクセル　マクロについて Sheet１にはボタンがあり そのボタンをクリックすると フォームが表示してそのテキストに記入して、記録ボタンを押すと Sheet１最終行のフォームからシートにコピーするボタン方法は出来るのですが・・それだと最終行が新しい記載になってしまいます。 Range("a65536").End(xlUp).Offset(1).Select Selection = Selection.Row - 1 例えば A１　タイトル A2　　小項目 A3　　挿入させたい！ A列の3行目から挿入して、その後も常にA３から挿入したいです。 新しい記載は常にA3にさせたいのですが、どうすれば良いのでしょうか？記述を教えて下さい。

次のように偏差値を求めるプログラムを書くと、アプリケーションの定義エラーと表示されます。誰か理由をお教えください。 Sub hensati() With Worksheets("C") For i = 2 To 43 x = Cells(G, 1) y = Cells(G, 2) Cells(i, 3) = (Cells(i, 2) - x) / y * 10 + 50 Next i End With End Sub

こんにちは。エクセルでの作業方法の質問です。 早速ですが、シート1のＡ列が縦に1日～月末まで月日表示されています。その1日分は2行を結合して1日分となっています。 また1日分の横（Ｂ列～Ｚ列）に数字のデータが並んでいます。 その中で1日分の行だけを隣のシート2に表示したいのです。 さらにその表示する1日分のデータ（Ｂ列～Ｚ列）は、いわゆる現在の 日付『=TODAY()』のようにエクセルを開いた時に当日のデータをシート1から持ってきて表示（参照？）したいのです。 例えば：シート1に下記のデータがあります。 A 　　B 　　C 　　 D 　　 E 7/1　　6 　　 3 　　 9 　　 11 7/2　　10 　 2 8 15 7/3 2 1 8 12 今日が7/2だとしたら上記シート1から 7/2　10 2 8 15の行だけをシート2の任意の 行に表示させたいわけです。 翌日になったら、7/3の行をシート2の同じ位置に 表示させたいのです。 前日（この場合7/2のデータは上書きされて7/3のデータ が表示されればよいです。） 以上ですが、質問の表現方法がうまくなくてすみません。 どうか、よろしくお願いします。

こんにちは。エクセルでの作業方法の質問です。 早速ですが、シート1のＡ列が縦に1日～月末まで月日表示されています。その1日分は2行を結合して1日分となっています。 また1日分の横（Ｂ列～Ｚ列）に数字のデータが並んでいます。 その中で1日分の行だけを隣のシート2に表示したいのです。 さらにその表示する1日分のデータ（Ｂ列～Ｚ列）は、いわゆる現在の 日付『=TODAY()』のようにエクセルを開いた時に当日のデータをシート1から持ってきて表示（参照？）したいのです。 例えば：シート1に下記のデータがあります。 A 　　B 　　C 　　 D 　　 E 7/1　　6 　　 3 　　 9 　　 11 7/2　　10 　 2 8 15 7/3 2 1 8 12 今日が7/2だとしたら上記シート1から 7/2　10 2 8 15の行だけをシート2の任意の 行に表示させたいわけです。 翌日になったら、7/3の行をシート2の同じ位置に 表示させたいのです。 前日（この場合7/2のデータは上書きされて7/3のデータ が表示されればよいです。） 以上ですが、質問の表現方法がうまくなくてすみません。 どうか、よろしくお願いします。

はじめまして、cartonと申します。 こちらのサイトには、大変お世話になっています。 期限が切れを知らせる関数を作りたいのですがうまくいきません。 『やりたいこと』 保守期限が満了になる3ヶ月前にシートに「契約満了間近」と表示させる。期限が過ぎると「契約満了」と表示させる。 sheet1の A1　2008年12月31日 B1　空白 A2　2008年8月31日　B2　契約満了間近 A3　2008年6月31日　B3　契約満了 =if(A1-now() <=1-90 ,"契約満了間近","")(A1-now() <=0 ,"契約満了","") よろしく、お願いします。

エクセルの使い方について教えてください。 エクセルの名簿から氏名の列だけを抜き出して、 それを一つの用紙に印刷する方法はあるのでしょうか？ 氏名の列だけを抜き出して印刷すると、普通は ┌－－－－－－┐ ｜Ａ子　　 ｜Ｂ子　　 ｜Ｃ子　　 ｜Ｄ子　 └－－－－－－┘ ┌－－－－－－┐ ｜Ｅ子　　 ｜Ｆ子　　 ｜Ｇ子　　 ｜Ｈ子　　 └－－－－－－┘ というようにひたすら下へ続いていて右側は空白で、 1ページめに入りきらなかったら２ページめに続きますよね。 ┌－－－－－－┐ ｜Ａ子　Ｅ子　Ｉ子　 ｜Ｂ子　Ｆ子　Ｊ子 ｜Ｃ子　Ｇ子　Ｋ子 ｜Ｄ子　Ｈ子　Ｌ子 └－－－－－－┘ ↑こういう風に自動的に1ページ内の空白が埋まってから 次のページへいくように印刷する方法というのはないのでしょうか？ ネット検索してみても短縮印刷の方法しか見つけられませんでした。 字の大きさはそのままがいいんです。 今は自分でコピペを繰り返して3列にしています。 データが膨大で大変なので、 もし、なにか簡単な方法があれば教えてください。

はじめまして。 テーブルA（勤務時間一覧）に 日付:Date 社員名：テキスト 当日勤務地：テキスト 勤務時間：数値 と言うテーブルがあります。 また、テーブルB(特別時間加算テーブル）に 社員名：テキスト 勤務地：テキスト 識別子：社員名＆勤務地 というテーブルがあります。 そこで、 社員は複数の勤務地があり、テーブルBの一覧の条件識別子と一致する場合には、テーブルBの一致レコードのみ0.5時間を加算する。 といったクエリを作成したいと思います。 クエリ「修正勤務時間一覧」で、 テーブルAとBを使用して、勤務時間を加算するレコード、加算されないレコードを含め、 テーブルAの修正一覧を作成したいのですが、 クエリに 日付:テーブルA 社員名：テーブルA 当日勤務地：テーブルA 勤務時間：テーブルA 修正勤務時間：IIf(([社員名]&[当日勤務地])=[テーブルB]![識別子]),[勤務時間]+0.5,[勤務時間]) としたのですが、一覧表を作成することができません。 なにとぞ、お助けいただきたく宜しくおねがいいたします。 SQLでの作成をした方が良いと思って進めておりますが、 クエリもSQLも知識が浅いため、ままなりません。 ご指導をお願い致します。

excelで売上集計表を作っているのですが、関数が分からなくて困っています。VLOOKUPやDSUMなどは知っているのですが、２つの条件から１個のデータ抽出する方法が分かりません。 （例）サイズ＋色　→　該当する値段　　など 【列】カラー　【行】サイズ　→　【交わるセル】値段　という表(1)が参照元として有ります。 その参照表とは別に表(2)として、【Ａ列】には購入者を【Ｂ列】カラー　【Ｃ列】サイズ　と入力していく管理表で【Ｄ列】に同じ行の「カラー」と「サイズ」を参照して、別表(1)の価格を自動表示できるような関数を入力したいのです。このようなケースの場合どのような関数を入力すればよいのでしょうか。