hallo-2007 の回答履歴

４月から各支店の会計をすべて担当することになり困っています。各支店ごと（５０ほど）、さらに予算ごと（３０ほど）に管理が必要です。入力シートをつくり入力すると、各支店のシートに予算ごとに振り分けることができたらずいぶん楽になると思うのですが・・・VBAの知識はまったくなくて困っています。どなたか助けてもらえないでしょうか？ （入力シート） 　　　A　　　　B　　　　　　　C　　　　　D　　　　　E　　　　　　F　　　　　　G １　事項 　　節 　　　　日付 　　　内容 　　予算 　　支出額　　　　備考 ２　A支店　給料 　　　　H23.4.1 　○○ 　100,000 　　　　　　　４月分 ３　D支店　通勤交通費　H23.4.5 　○○ 　20,000 　　　　　　　４月分 ４ G支店　消耗品 　　　　H23.4.5 　○○ 　50,000 　　　　　　　前期分 ５　M支店　備品 　　　　H23.4.6 　○○ 　30,000 　　　　　　　前期分 ６　A支店　消耗品 　　　　H23.4.6 　○○ 　　　　40,000 ７　G支店　消耗品 　　　　H23.5.1 　○○ 　　　　2500 ８　A支店　消耗品 　　　　H23.5.1 　○○ 10000 ９　M支店　備品 　　　　H23.5.16 　○○ 　　　　25000 10　A支店　給料 　　　　H23.5.25　　○○ 　　　　80000 （支店シート）シートは支店の数だけ作ります。 　　A　　　　B　　　　　C　　　　　　　D 　　　　E　　　　　F 　　　　G　　　　　H　　　　I　　　　　J 　給料 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　手当 １　日付 　　内容 　予算令達　　支出金額 残額 備考 　　　　　　　　日付　　内容　　予算令達 ２　H23.4.1　　○○ 　100,000 　　　 　　　　　　４月分 　　　 ３　H23.5.25　○○ 　　　　　　　80000 　20000 ４ ５ ※　A～Fは給料Gは空白でHからMは手当・・・・というように予算の数だけ右に続きます。 本当に困っててどなたか教えてください。 うまく見えるかわかりませんがイメージとして画像も添付します。

こんにちは。 現在VBAの操作を学習中ですが、思ったように進まず困っています。 次のことを行うには、どのように記述したら良いでしょうか？ ＜やりたいこと＞ 　・Book1にデータ表があり、ヘッダーから“hoge”という列を見つける 　・“hoge”列を先頭にして、Book2の指定範囲へコピーする できれば、サンプルコードをご記入いただけると助かります！ よろしくお願いします。

エクセル初心者です。 日付の勉強をしているのですが 今、下の画像のようなデータを作成しました。 一番左の列が、別のデータベースから転記した日付を シリアル値に変換したものです。 それを真ん中の列にコピーして、日付に変換しました。 そのデータの中から、ＹＥＡＲ関数とＭＯＮTH関数を使って 年と月のみの日付にしたものが、3列目です。 ここで、疑問なのですが、3列目を昇順に並び替えたときに きちんと昇順に並び替えができませんでした。 9月、10月、11月ときれいに順番に並べるには何か 複雑なセル設定が必要なのでしょうか。 教えてください。

EXCEL2003です。セルをダブルクリックで「あ」の文字の入力、さらにダブルクリックで「い」の文字が入力することは可能でしょうか。可能でしたら教えていただけますでしょうか。よろしくお願いします。

こんにちは 現在ワークシートで下記マクロにて、日付・時間の履歴を自動入力しています。 3行目以降のC列のセルに何か入力すると、そのとなりのD列のセルに日付と時間が返されるものです。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Integer, c As Integer r = Target.Row c = Target.Column If c < 3 Or c > 3 Or r < 3 Then End If Cells(r, c) <> "" Then Cells(r, c + 1) = Format(Now, "yyyy/m/d h:mm") Else Cells(r, c + 1) = "" End If End Sub この同一シートに、下記マクロの指示を加えたいのですが、うまくいきません。 3行目以降のE列のセルに "chcl" とすると、B列のセルに "機能回復" と自動入力されるものです。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Integer, c As Integer r = Target.Row c = Target.Column If c < 5 Or c > 5 Or r < 3 Then End If Cells(r, c) = "chcl" Then Cells(r, c - 3) = Format("機能回復") Else Cells(r, c - 3) = "" End If End Sub まとめると・・・・・・ 3行目以降のC列のセルに何か入力すると、そのとなりのD列のセルに日付と時間が返され、 且つ、 3行目以降のE列のセルに "chcl" とすると、B列のセルに "機能回復" と自動入力される、 というシートが欲しいのです。 上記マクロ、それぞれ単発だと機能するのですが、一緒に出来ません。 どなたか、解決方法をご教授下さい。 よろしくお願いします。

エクセルマクロVBAについて、こんなこと出来ますか？ ■A列からAS列の1行目にヘッダー情報をもつデータベース ■A列に担当者名 ■A列にオートフィルタをかけて各担当ごとにデータを抽出したものを別シートに貼り付けて自動印刷したい ■担当者は都度変わるので、Criteria1:="ｘｘｘ"というようには直接書けない（担当名を自動で抽出したい） ■担当者の数も都度変わる ■補足 一行のデータを特定の雛形に転記する必要があるので別シートに出したいです ちなみに、アナログで記録したコードは以下です。 Sub test1() Sheets("データ抽出シート").Select ActiveSheet.Range("$A$1:$AS$300").AutoFilter Field:=1, Criteria1:="山田" Range("$A$1:$AS$300").Select Selection.Copy Sheets("抽出データ貼付シート").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("データ抽出シート").Select ActiveSheet.Range("$A$1:$AS$300").AutoFilter Field:=1, Criteria1:="斉藤" Range("$A$1:$AS$300").Select Selection.Copy Sheets("抽出データ貼付シート").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("データ抽出シート").Select ActiveSheet.Range("$A$1:$AS$300").AutoFilter Field:=1, Criteria1:="田中" Range("$A$1:$AS$300").Select Selection.Copy Sheets("抽出データ貼付シート").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub これ、担当者の抽出を自動でなんとかなりませんか？

いつもお世話になっています。わかりにくい内容かと思いますがよろしくお願いします。 (1)入庫した情報を設備から適時まとまった形でcsvファイルをACCESSのテーブルにするため取り込んでいます。 日付,箱番号,製品名 20110303,A001,PPP 20110303,A001,PPP 20110303,A001,QQQ 20110303,A001,GGG 20110303,A002,PPP 20110304,A001,PPP のようなcsvです 条件として箱は１日１回しか使わない事いません。箱の中に色々な製品が入っていると思ってください。 (2)出庫するときは、箱番号と出庫日しか情報がない場合 出庫した実績をテーブルに反映させ 日付,箱番号,製品名,出荷日 20110303,A001,PPP,20110304 の様な感じにしてデータベースとしたいのですが、日付も箱番号も重複するためうまく考えられません わかりにくい質問とは思いますがよろしくお願いします。　

お世話になっています。 今回は、次の事を実現するコードを教えて頂きたいと思います。 ＜データ入力ブック＞ A1=Book1 <----- 転記先のブック名（Excel文書名） A2="AAA" この＜データ入力ブック＞に入力されたデータを手掛かりにしてサブディレクトリにあるBook1のSheet2!A2に"AAA"を転記し保存。 ※2004年頃を最後にAccessのVBAにも触れていません。Excelは、一度も操作したこともなく同VBAは初めてです。 ※バージョンは、Excel2007。文書は、2003等との互換モード。 厚かましいお願いとは承知していますが、教えてもらえるととっても助かります。 非常に複雑な円の配置が自動化されたので私の仕事は明日で終わります。 月曜日からは、２００文書へのデータ入力。 一々、２００もある文書を検索して開いて当該のセルを探して入力していたのでは手間。 そこで、＜データ入力ブック＞に１０項目程度の入力欄を設けて入力。 ＜データ入力ブック＞でデータの入力・訂正も管理し、そして一括更新。 そういう仕組みを日曜日の夜の３、４時間で完成したいと思っています。 そういう事情ですので、教えてもらえるととっても助かります。

プログラミング言語を始めるなら最初は 何の言語からやるのがいいでしょうか？ 理由もよろしくお願いします

お世話になります。 ウィンドウズＸＰ　エクセル２００７を使用しています。７枚シ－ト構成で１枚目に出席簿とシ－ト名を付け２枚目以降は１年生から６年生とシ－ト名を付しています。 ブック名は出席簿としてありますが、このブックを開いた回数をシ－ト１枚目セルＢ５に表示する方法を教えてください。 エクセル２００３でのマクロ使用時にファイル・プロパティ・ユ－ザ－設定に表示する形は、こちらのブログで拝見させていただきましたが、エクセル２００７使用時に特定のシ－トの特定セルにブックを開いた回数を表示する方法を教えてください。 お手数を掛けて申し訳ありませんが宜しくお願いいたします。

こんにちは　いつもお世話になっています。 エクセル2003です。 成績処理のマクロを教えてください。 以下の表があります。 NO.　　　名前　　　国　　　算　　　理　　　国語クラス　　算数クラス　　理科クラス 1　　　　　A　　　100　　　75　　　80　　　　1　　　　　　　2　　 2 2　　　　　B　　　70　　　 85　　　90　　　　2　　　　　　　3　 　1 3　　　　　C　　　100　　　75　　　95　　　　1　　　　　　　1　 　1 4　　　　　D　　　85　　　 95　　　85　　　　3　　　　　　　2　 　3 5　　　　　E　　　75　　　 80　　　75　　　　2　　　　　　　1　 　2 6　　　　　F　　　85　　　 70　　　90　　　　3　　　　　　　2　　 1 7　　　　　G　　　100　　　90　　　80　　　　1　　　　　　　1　 　3 8　　　　　H　　　95　　 　85　　　90　　　　2　　　　　　　3　　 2 9　　　　　I　　　100　　　85　　　70　　　　1　　　　　　　3　　 3 数字がずれてすみません。 Ａ列に連番、Ｂ列に名前、Ｃ-Ｅ列に教科ごとの点数、Ｆ-Ｈ列に教科ごとの所属クラス 実際は150名分のデータでクラスも多いですが。 この表から各教科の点数の上位３位までのクラス別順位表を作りたいのです。 その際に、順位も名前の左側につけたいです。（同セル内でも、名前セルの左でもかまいません） 同順位であれば連番の昇順で。 つまり 国語１クラス 1 A 2 C 3 G 4 I 国語２クラス 1 H 2 E 3 B という具合に、できれば、別シートにマクロで出すコードを教えてください。 勝手ながら、人数が増えても応用しやすいものだと助かります。 現在はオートフィルでの手作業をしています。

ローンの期日管理(元本や利息の支払日、利率更改日、支払履歴)は、アクセスとエクセルのどちらで管理する方が良いでしょうか。 会社の都合上、現在使っているデータベースを閉鎖することになり、既存のローンの管理方法に困っています。 今までのデータは、アクセスで頂くことになっています。 システムの設計等には携わったこともなく、大変困っています。 中学生に教えるぐらいの言葉で教えて頂けると助かります。 * エクセルは下の上レベル(sumifやvlookup、ピボット等は通常業務で利用) * アクセスは初心者レベル * 現在はしっているローン（=償還日をむかえていないローン）の数(契約本数)は100件未満 * 過去のローンの数(契約本数)は、不明ですが最大でも10,000件程度 * 償還日や利払日、利率の更改日を忘れない機能があるとなお嬉しいです。 * ローンの件数(契約本数)は、今から増える場合でも最大で50件程度です。 * 支払の実績は増えて行きます。 * 過去のデータと同じファイル(?)で管理できたら嬉しいですが、全く動いていないローンと現在動いているローンを別管理することも可能。 漠然としているかもしれませんが、教えて頂けますととても助かります。 どうぞよろしくお願いいたします。

pc購入予定で検討しているんですが、officeが入っていないと書いてあったのですが、何の事か分かりません。何の役目をするのですか、詳しく教えてください。必要ないもでしょうか?

先日、会社の業務命令でゴミ拾いのボランティアを企画して行いました。 ちなみにボランティアは休日に行われました。 一応休日出勤扱いとなります。 社長からは「全員参加だ」というふうに聞いていたのですが、一部年配の職人気質の強い技術士の方数名が来られませんでした。 「自分たちは業務外で業務命令に従う必要はない」「この仕事に長年力を注いでいるのに関係ないことをしている時間はない」とのことで、社長命令でも来ませんでした。 社長も「あいつらは昔からそうなんだ、来ないやつのことなんてほっとけ」とあきらめていました。 若い技術士やデスクワーク、事務の女性などは全員来ていました。 結局その人たちは企画したイベントや旅行などにはまったく参加せず、黙々と自分たちのスキルを高めて仕事に勤しんでいました。 ただ私からすると正直信じられません。 仕事に直接関係ないからとはいえ、社長から言われたことに対して集団で嫌だとボイコットするのはどうかと思いました。 何か都合があるならまだしも、特に予定もないのにボイコットをしています。 年配で技術士としても優秀で発言権も強いのでたちがわるいです。 労働組合を利用して上と衝突した過去もあるそうです。 他の会社でも特定の業務命令をボイコットしていたりする場合はありますか？ 年配の技術士ってこんな「物を作るのが仕事だ」と言って他のことはやらない人間が多いのですか？こんなボイコットをして平気でいられるのが不思議でなりません。 今後もほっとくしかないのでしょうか？ 私はまだここで数年しか働いていないのですが、今後が不安で仕方がないです。

よろしくお願いいたします。今、相続税額を計算する表を作っていたのですが計算式で行き詰ってしまいました。 例えばA1に相続金額を入れます。A1の金額は可変でその大きさによってB1に課税率が入り、そしてC1にはA1とB1の計算から得られた税額が出るようにしたいのです。 条件としては A1 ≦ 1000　の時　B1は10％　　　・A1 ≦ 3000の時　B1は15％　　　・A1 ≦ 5000　の時　B1は20％ この条件でB1あるいはC１に入れる計算式をなるべく簡単にご指導ください。

初めてご質問させていただきます。よろしくお願いいたします。 EXCELで以下のIF関数を使用しています。 U1セルには=NOW()関数で時間が表示されています。 要するに、９時１５分から１１時までの間で、１５分間隔で大小関係を比較するセルを変更して、その結果に応じてA判定、またはB判定、または空欄のいずれかが選択されるIF関数になっています。 お伺いしたいことは以下の２点です。 (1)　各条件式で共通部分が必ず３つあります。最初のA判定とB判定の条件式を見ていただきたいのですが、HOUR($U$1)=9,MINUTE($U$1)>=15,MINUTE($U$1)<30が共通です。この共通している部分を くくり出して一つにまとめる事はできないのでしょうか？ (2)　以下のIF関数をもっと短くエレガントに記述することはできなのでしょうか？ 以上２点、ご回答よろしくお願いいたします。 =IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=15,MINUTE($U$1)<30,C3>B3),"A",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=15,MINUTE($U$1)<30,C4<B4),"B",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=30,MINUTE($U$1)<45,D3>C3),"A",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=30,MINUTE($U$1)<45,D4<C4),"B",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=45,MINUTE($U$1)<=59,E3>D3),"A",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=45,MINUTE($U$1)<=59,E4<D4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=0,MINUTE($U$1)<15,F3>E3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=0,MINUTE($U$1)<15,F4<E4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=15,MINUTE($U$1)<30,G3>F3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=15,MINUTE($U$1)<30,G4<F4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=30,MINUTE($U$1)<45,H3>G3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=30,MINUTE($U$1)<45,H4<G4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=45,MINUTE($U$1)<=59,I3>H3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=45,MINUTE($U$1)<=59,I4<H4),"B",""))・・・括弧省略

VBでIEオブジェクトを使用、yahooのとあるページを表示し、 その中の 「ダウンロード」ボタンを押すとcsvファイルをDLするプログラムを作っています。（vista、IE8） For Each objLINK In objIE.Document.Links If objLINK.InnerTEXT = "ダウンロード" Then objLINK2.Click Exit For End If Next ここで、「ファイルのダウンロード」メッセージ 　　開く（O）　保存（S）　キャンセル が表示されるのですが、表示されたとたんにVBAから制御できなくなります。 どうすればボタンを押せるのでしょうか？ なお、普通にIEオブジェクトを作ると、ダウンロードのボタンすら押せなかったので、 こちらの三流君様のページを参考にして、ユーザーフォームの中でIEオブジェクトを作っています。http://www.ken3.org/cgi-bin/group/vba_ie7.asp よろしくお願いいたします。

エクセルで、任意の「日数前」の簡単な入力方法、又は特定の関数はありますか？ 例えば、昨日だったら「1」を入力、100日前だったら100を入力すると、セルにはその日付が表示されるようにする方法です。 判っていることは、シリアル値から希望の日数分減算し、セルを希望の表示形式を設定すればよいとは思うのですが、具体的作業が不明です。 なお、その日付は入力日以降、固定の日付になるように考えています。

色々な情報を入力したSheetが50枚あり、 あまり手間のかからない方法で、 この50枚の中で、ある特定のセルの情報だけを参照させて一覧にした表を作成したいと思っています。 具体的には、Sheet名が”一覧表”というシートを作成し、 この”一覧表”シートの B1 セルには Sheet1 の A1 セルの値を表示させ、 次いで、同”一覧表”シートの B2 セルには Sheet2 の A1 セルの値を、 次いで、同”一覧表”シートの B3 セルには Sheet3 の A1 セルの値を、 　　　　　　　　　　　　　　　　　　　　　　・ 　　　　　　　　　　　　　　　　　　　　　　・ 　　　　　　　　　　　　　　　　　　　　　　・ 最後に、同”一覧表”シートの B50 セルには Sheet50 の A1 セルの値を、 といった形で、一覧表を作成したいです。 ご教示いただけますでしょうか。 よろしくお願いいたします。

ＶＢＡの初心者です。 今下の画像のような、エクセルのシートを 練習用に作りました。 列が4列あり、Ｃ列の店舗の 値が切り替わるごとに 下に太い罫線を引きたいのです。 手で作成できますが、参考に ＶＢＡで自動に入力できるコード等は あるのでしょうか。 列数は不変で4列とします。 よろしくお願いします。