layy の回答履歴

Excel2003を使用しています。 同じ形式の表が入力されたシートが１～３１までと合計シートで３２シートあります。 （日々集計ごとのシートです） シート名も「１」～「３１」と「合計」にしています。 ランダムの日付指定で集計を求められるのですが 合計シートの表外に数字を入れて 指定されたシートの和を合計シートに出したいと思っていますが可能でしょうか？ 合計シートのA1に１を入力 合計シートのB1に3を入力 合計シートのA３にシート１～３のA３の和が出る といった感じです。 説明不足があればすいません。 教えてくれると嬉しいです。

はじめましてこんばんは。 Accessのレポートで特定の条件で改ページしたいため質問させてもらいます。 特定の条件とは ・地域名が変わる ・もしくは住所が変わる という２点です。 現在テーブルとレポートを作るところで止まっております。 サンプルデータベースで行くと北海道は札幌市、旭川市、小樽市、北見市の４ページに分けたいと言う意味です。 改ページのコントロールを設置したところまではよいのですが条件の入力がうまくいきません。 どなたかご伝授いただけないでしょうか？ http://hiyokokko.s78.xrea.com/img/test.zip 上記に作りかけのアクセスのファイルが置いてありますので見ていただけたら幸いです。 宜しくお願い致します。

アクセスの伝票ウィザード（連続紙）の幅と高さの指定方法を教えて下さい。 【環境】 ・WindowsXP ・アクセス2003 ・EPSON VP-1900 ESC/P アクセス2003で伝票（連続紙）の設定を行っています。 サイズを定規で測ると 幅22.2cm(約8.7inch) 高さ10.15cm(4inch) 伝票ウィザードのテンプレートに無いのでどうやって作成していいのか分からずに質問しました。 例えば、テンプレートを使って作成しても構わないのでしょうか？ 新規作成→伝票ウィザード→佐川急便 レポートのプロパティ 幅17.122cmを22.2cm(約8.7inch)に変更 セクションのプロパティ 高さ5.894cmを10.15cm(4inch)に変更 今まではエクセルで顧客管理していました。 伝票を印刷する時には、ワードの差込印刷で行っていました。 ワードのページ設定の用紙サイズは、 連続紙15×4inch 幅381mm 高さ101.6mm 申し訳ありませんが、教えて下さい。

はじめましてこんばんは。 Accessのレポートで特定の条件で改ページしたいため質問させてもらいます。 特定の条件とは ・地域名が変わる ・もしくは住所が変わる という２点です。 現在テーブルとレポートを作るところで止まっております。 サンプルデータベースで行くと北海道は札幌市、旭川市、小樽市、北見市の４ページに分けたいと言う意味です。 改ページのコントロールを設置したところまではよいのですが条件の入力がうまくいきません。 どなたかご伝授いただけないでしょうか？ http://hiyokokko.s78.xrea.com/img/test.zip 上記に作りかけのアクセスのファイルが置いてありますので見ていただけたら幸いです。 宜しくお願い致します。

営業の使う精算書を作成しています。 精算書には日付、科目、用途、金額などの項目があり、 空欄に記入できるようになっています。 科目と用途は別シートの科目一覧をリスト参照して選択できるようにしています。 18の科目の中から、精算書に記入された科目だけを集計して、 精算書と同じシートに表示したいです。（ソートは不要） 科目一覧表にsumif関数やdsum関数で 各項目を表示することはできるのですが 「精算書に記入されている科目だけを集計」というところがクリアできません。 初心者のため、おわかりになる方がいらっしゃいましたらご教授いただけないでしょうか。 よろしくお願いいたします。

Excel2003を使用しています。 同じ形式の表が入力されたシートが１～３１までと合計シートで３２シートあります。 （日々集計ごとのシートです） シート名も「１」～「３１」と「合計」にしています。 ランダムの日付指定で集計を求められるのですが 合計シートの表外に数字を入れて 指定されたシートの和を合計シートに出したいと思っていますが可能でしょうか？ 合計シートのA1に１を入力 合計シートのB1に3を入力 合計シートのA３にシート１～３のA３の和が出る といった感じです。 説明不足があればすいません。 教えてくれると嬉しいです。

大学の友人4人ほどで、東京から名古屋に小旅行に行こうと計画しているのですが、色々と現地のこと（宿泊施設や交通機関）を調べてみても、どれがベストという結果が出ません。 そこで質問なのですが、東京から名古屋に行く一番安い方法、そして現地でシャワーの浴びれる宿泊施設。 宿泊施設は、最悪シャワー付のネットカフェ、漫画喫茶でいいと考えています。ただ、現地にそのような店が確実にあるとは限らないので、お勧めの行き方、宿泊に関した情報を教えていただけ無いでしょうか？ できれば、同じような旅行を計画して実行した経験者の方などの意見を聞きたいです。 よろしくお願いします。 一応現在の計画では、現地まではバスか電車で行こうと思っています。 滞在期間は2日程度を予定しています。 予算は2~3万円です。

VBA初心者です。 途中まで作ってみたのですが、コンボボックスを表示するところで エラーが出てどうしても先に進むことができません。 ご指導お願い出来ますでしょうか。 ■元データtxtファイル A列　　　　B列 　C列　　D列　　E列　　F列　　G列 氏名　 　性別 評価1　評価2　評価3　評価4　評価5 ---------------------------------------------------- 山田太郎　男　　A　　　AB 木下花子　女　　B　　　BA 水野四郎　男　　B　　　BB 山瀬次郎　男　　C　　　CA 野山達子　女　　A　　　AA 出側三郎　男　　D　　　DB ・ ・ ■EXCELファイル（txtファイルのデータを反映させるEXCEL） シートは以下2つあります。 （1）「全体（sheet1）」：txtファイルのデータを反映させるシート 　　　※例えば、B2には評価1がAの数の合計。 （2）「評価ごとの雛型（sheet2）」:評価1の評価（A、B、C・・）ごとにデータを反映させるシート 　　　※例えば、評価1が「A」のデータを抽出し、雛型用のシートをコピーし、 　　　シートの末尾に挿入、シート名を「A」に変更し、 　　　B3には評価1がAの男の数の合計を入れる。 マクロの流れは、、 1.マクロが埋め込まれているEXCELを開き「ボタン」をクリック 2.テキストファイル（A)を「参照」で読込み、 3.続いてデータを反映させるEXCEL（B）を「参照」で読込み、 4."データを反映させますか？⇒はい"で「全体（sheet1）」に反映させ、 5.続いてコンボボックス（プルダウン）を表示し選択する。←★ココでエラーとなり先に進みません。 6.EXCEL（B）の「雛型」シートを末尾にコピーしデータを反映　←ここからは自力で頑張ります。 ★教えて頂きたい内容 作りかけのマクロです。http://cocolodiary.com/sample.zip Call eSelect　で呼び出したときに、 元データtxtファイルのC列をコンボボックス（プルダウン）で表示するところで エラーになってしまいます。 ソースの★印の箇所についてご指導頂けますでしょうか。 どうぞよろしくお願い致します。

WINDOWS XP EXCELL２００３です。 ご指導を仰ぎたいのは、 今月の〆に対して　　　　　　(　例　２０１１／１／３１　) 翌月の５日をもとめたいです。(　例　２０１１／２／５　　) ※５日が土日曜日又は祝祭日の時は前倒しにしたいです。 　例えば３月　５月のように黄色の部分のようになると嬉しいですが。 参照図で説明をさせていただきますと 例 A 発行日 　=DATE(D2,E2,F2) B 支払日１ =WORKDAY(DATE(YEAR(A2),MONTH(A2)+1,5),-1,祝休日表!A$1:A$34) C 支払日２　 =WORKDAY(DATE(YEAR(A2),MONTH(A2)+1,5),0,祝休日表!A$1:A$34) の数式でテストしているのですがB/C列の黄色の部分は実際のスケジュールとはあっています。 この数式をいろいろと試しましたが分からなくなり質問させていただきます。 どうすればいいでしようか。 ご指導を仰ぎたいです。 よろしく御願いします。

Excelでスタートボタン配置し、それを押すと指定したセルの配色を変更して ネオンやアニメーションのような動作をするVBAを組もうとしています。 そこで手始めにA1～AS1セルを1セルずつ順番にカラーリングされるVBAを 組んだのですが以下の問題点が発生したので良い対処法等ありましたら 是非ご教授ください。 【問題点】 　プログラム実行中、マウスの動きによってカラーリング(処理速度？)の 　挙動以下のように変わる。 　　・マウスを止めているとき　　　　→　1セル1セルのカラーリングが 　　　　　　　　　　　　　　　　　　　　もっさりした動作で遅い 　　・マウスを常に動かしているとき　→　スムーズなカラーリング 　　　　　　　　　　　　　　　　　　　　(マウスを止めている時とは段違いに早い) 【希望】 　マウスの挙動に依存せずにスムーズなカラーリングを行いたい 【動作環境】 　OS : Mac OS X (10.4.11) 　Excel : Excel 2004 for Mac (11.5.9) 【VBA】 '開始列定数 startColumn = 1 'A1～AS1までカラーリング While ActiveCell.Address <> "$AS$1" 'カラーリング位置設定 Cells(1, startColumn).Activate 'カラーリング With Cells(1, startColumn).Interior .colorIndex = 10 .Pattern = xlSolid End With '？？？(ここが問題な気がしますが正直、使い方を理解できていない・・・) 'これがないと１セルずつのカラーリングが行われない DoEvents 'カウント(カラーリング位置を移動) startColumn = startColumn + 1 Wend

営業の使う精算書を作成しています。 精算書には日付、科目、用途、金額などの項目があり、 空欄に記入できるようになっています。 科目と用途は別シートの科目一覧をリスト参照して選択できるようにしています。 18の科目の中から、精算書に記入された科目だけを集計して、 精算書と同じシートに表示したいです。（ソートは不要） 科目一覧表にsumif関数やdsum関数で 各項目を表示することはできるのですが 「精算書に記入されている科目だけを集計」というところがクリアできません。 初心者のため、おわかりになる方がいらっしゃいましたらご教授いただけないでしょうか。 よろしくお願いいたします。

１０年ほど前にＩＴ関係の資格をとりました。 それは 第二種情報処理技術者 Sun certified system administrator Java2 Oracle Silver(当時はDBA等なし） です。 英語の資格としてＴＯＥＩＣ７４０も一応持っています。 年齢的に３０後半で４０も間近いのですが、プログラマ、ＳＥで転職しようと考えIT系の資格をとろうと思っています。 狙っているのはOracle系、LPIC系、応用情報技術者、MCP系です。Ｃisco系はあまり考えていません。 転職に武器となる資格はどれだと皆さんは考えられますか？上に挙げた以外にも良いものが有れば教えて戴ければ嬉しいです。 もし上に挙げた資格を全部取るとしたら、どの順番でどのレベルまで取れば良いか知りたいです。 例えばＭＣＰなら２００８ＳｅｒｖｅｒとかＡｃｔｉｖｅ　Ｄｉｒｅｃｔｏｒｙとかまで細かく推薦していただければ助かります。 よろしくお願いいたします。

こんにちは。 ExcelはVBAまで使えるレベルですが、Accessはまったくの初心者です。 基本的なことだと思うのですが、Access2003の使い方で質問です。何をどう調べていいのかわからないので、お願いします。 Accessのテーブルで「名簿」、「成績」、「科目名」の３つのテーブルがあります。 それぞれのテーブルのレコードの内容は以下の通りです。 「名簿」--- 番号(５桁で１年１組１番は10101となっています)、氏名 「成績」--- 番号、氏名、成績(５段階です)、科目番号(1～100まで) 「科目名」 --- 科目番号、科目名 以上のテーブルを使って、エクセルの表で成績一覧表を作るようなことは可能なのでしょうか？エクセルだとＡ列に番号、Ｂ列に氏名、Ｃ列以下が科目名が入り、それぞれの生徒の成績が横並びになりますが、そのように表示させることは可能かどうかということです。 Accessのことはよくわからないので、補足が必要であれば指摘して下さい。 よろしくお願いします。

アクセスの伝票ウィザード（連続紙）の幅と高さの指定方法を教えて下さい。 【環境】 ・WindowsXP ・アクセス2003 ・EPSON VP-1900 ESC/P アクセス2003で伝票（連続紙）の設定を行っています。 サイズを定規で測ると 幅22.2cm(約8.7inch) 高さ10.15cm(4inch) 伝票ウィザードのテンプレートに無いのでどうやって作成していいのか分からずに質問しました。 例えば、テンプレートを使って作成しても構わないのでしょうか？ 新規作成→伝票ウィザード→佐川急便 レポートのプロパティ 幅17.122cmを22.2cm(約8.7inch)に変更 セクションのプロパティ 高さ5.894cmを10.15cm(4inch)に変更 今まではエクセルで顧客管理していました。 伝票を印刷する時には、ワードの差込印刷で行っていました。 ワードのページ設定の用紙サイズは、 連続紙15×4inch 幅381mm 高さ101.6mm 申し訳ありませんが、教えて下さい。

例えば １　A列の１行から５０行に「スカート」「シャツ」「靴」「靴下」「ダウン」「コート」などの品目を入力 ２　B列からF列にそれぞれの品目の最高値から最安値をランダムに入力 ３　すべての価格をまとめて「降順」あるいは「昇順」に並べ替える　 B列からF列を５０行まとめて簡単に並べ替えたいです。 以上の作業を簡単にできる方法はありますか 「データ」「並べ替え」「オプション」「行選択」しかないでしょうか 使用しているのは２００３になります。 よろしくお願いします。

アクセス初心者です。 現在、社員が取得した資格を管理するツールをアクセスで作成しようと考えています。 これまで、７つのテーブルを作成し、データ入力フォームを作成しました。 (1)資格取得日テーブル：いつ資格を取得したかを示す 　【フィールド】取得ID（主キー）、取得社員、取得時部署、取得日 (2)取得資格テーブル：(1)において取得した資格を示す 　【フィールド】取得ID、取得情報ID（主キー）、資格ID (3)資格マスタ 　【フィールド】資格ID（主キー）、部署、資格分類、資格レベル、資格内容 (4)取得時の部署情報マスタ (5)社員情報マスタ (6)資格分類マスタ (7)資格レベルマスタ これまで、(1)をメインフォームとして、(2)をサブフォームとするフォームを作成し、 (2)の資格IDに対応する情報をサブフォーム上に表示させています。 資格IDを入力すると、残りの情報がコンボボックス（資格内容以外）とテキストボックス（資格内容）に表示されます。 これまでのところ、サブフォームから入力する際に、IDから入力しないと(3)の資格マスタに情報が追加されてしまいます。（ロックすれば良いのかもしれないですが） できれば、(3)で部署と資格分類と資格レベルを選ぶと対応する(3)の資格マスタのIDと資格内容が入力されるようにしたいと思っています。 何か解決策がありましたら教えていただければと思います。よろしくお願いします。

パソコンインストラクターの資格をとるにはどうしたらいいのかは分かっているんですが 　軽度の知的障害者でも取ることは可能なんですか？　どうなんですか？ 　軽度の知的障害者を知らない人にパソコンインストラクターになりたくてと言ってしまったし 　でも頑張ってみたので　誰か教えて下さい。

現在情報系の大学に通っています。 今度春に行われる基本情報技術者試験を受けようかと思うのですが自分と同じような立場の人がいらっしゃいましたら勉強時間はどのくらいで合格しましたか？

1.InputBoxを3回表示させます。 2.ユーザーに入力してもらいます。 入力できるのは半角英数字のみでそれ以外は エラーメッセージを出したいです。 3.1回目は18桁か22桁以外の場合、 2回目と3回目は4桁以外の場合はMsgBoxを表示して 再入力を促します。 4.InputBoxに入力された値の3個を連結した値で Sheet2のA列を検索して 合致したらその行のG列の値を見ます。 5.G列に"済"とあったら MsgBoxを表示して 中止するか継続するか判断します。 6.継続した場合 その該当行の各列の値をSheet1にそれぞれ転記します。 Sheet2の該当行のB列→Sheet1のセルB3 Sheet2の該当行のC列→Sheet1のセルC3 Sheet2の該当行のD列→Sheet1のセルD3 Sheet2の該当行のE列→Sheet1のセルE3 Sheet2の該当行のF列→Sheet1のセルF3 7.かつSheet2の該当行のG列に　済　と転記します。 すでに済が記入されている場合は上書です。 以下のように作成しましたがエラーで動かなくて動作確認が出来ません。 どう直せばいいのか教えてください。 イレギュラー時の対応処理が必要だとも思うのですが動作しない為 思いつきません。 記述が滅茶苦茶なのですがこれが限界です。申し訳ありません。 Sub 表示板作成() Dim 検索値1 Dim 検索値2 Dim 検索値3 Dim 検索値4 Dim 判定値 Dim 判断 Dim 記録 Dim 確認 検索値4 = 検索値1&検索値2&検索値3 Do 検索値1 = Application.InputBox("型番を入力してください") If Len(検索値) < 18 Then MsgBox "18桁未満です。再入力しますか？" Loop Else Exit Do '検索値2と3も上記と同じ記述をここへ入れる '（現在省略） End If 判定値 = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 7, 0) If 判定値 = "済" Then 判断 = MsgBox("発行済みです。再度データ取得しますか？", vbYesNo) Else Select Case 判断 Case vbNo Exit Sub Case vbYes Range("B3").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 2, 0) Range("B4").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 3, 0) Range("B5").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 4, 0) Range("B6").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 5, 0) Range("B7").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 6, 0) End Select End If 記録 = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 7, 0) 記録.Value = "済" 確認 = MsgBox("これは●●用です。いいですか？", vbYesNo) Select Case 確認 Case vbNo Exit Sub Case vbYes Call 印刷 End Select End Sub

1.InputBoxを3回表示させます。 2.ユーザーに入力してもらいます。 入力できるのは半角英数字のみでそれ以外は エラーメッセージを出したいです。 3.1回目は18桁か22桁以外の場合、 2回目と3回目は4桁以外の場合はMsgBoxを表示して 再入力を促します。 4.InputBoxに入力された値の3個を連結した値で Sheet2のA列を検索して 合致したらその行のG列の値を見ます。 5.G列に"済"とあったら MsgBoxを表示して 中止するか継続するか判断します。 6.継続した場合 その該当行の各列の値をSheet1にそれぞれ転記します。 Sheet2の該当行のB列→Sheet1のセルB3 Sheet2の該当行のC列→Sheet1のセルC3 Sheet2の該当行のD列→Sheet1のセルD3 Sheet2の該当行のE列→Sheet1のセルE3 Sheet2の該当行のF列→Sheet1のセルF3 7.かつSheet2の該当行のG列に　済　と転記します。 すでに済が記入されている場合は上書です。 以下のように作成しましたがエラーで動かなくて動作確認が出来ません。 どう直せばいいのか教えてください。 イレギュラー時の対応処理が必要だとも思うのですが動作しない為 思いつきません。 記述が滅茶苦茶なのですがこれが限界です。申し訳ありません。 Sub 表示板作成() Dim 検索値1 Dim 検索値2 Dim 検索値3 Dim 検索値4 Dim 判定値 Dim 判断 Dim 記録 Dim 確認 検索値4 = 検索値1&検索値2&検索値3 Do 検索値1 = Application.InputBox("型番を入力してください") If Len(検索値) < 18 Then MsgBox "18桁未満です。再入力しますか？" Loop Else Exit Do '検索値2と3も上記と同じ記述をここへ入れる '（現在省略） End If 判定値 = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 7, 0) If 判定値 = "済" Then 判断 = MsgBox("発行済みです。再度データ取得しますか？", vbYesNo) Else Select Case 判断 Case vbNo Exit Sub Case vbYes Range("B3").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 2, 0) Range("B4").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 3, 0) Range("B5").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 4, 0) Range("B6").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 5, 0) Range("B7").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 6, 0) End Select End If 記録 = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 7, 0) 記録.Value = "済" 確認 = MsgBox("これは●●用です。いいですか？", vbYesNo) Select Case 確認 Case vbNo Exit Sub Case vbYes Call 印刷 End Select End Sub