hallo-2007 の回答履歴

こんばんは。 今エクセルであることを試みていますが、 知識が足らず皆さまの力を借りたいと思ってのご相談です。 今エクセルの内容は入力フォームシート、 １月、２月、３月、４月…のシート 最後に１月～１２月までの集計をするシート という風に用意してあります。 やりたいことは入力フォームシートで 他シートからのデータの参照をしながら、追記させたいということです。 現在、１月～のシートでは商品の管理をしています。 A～D列までがID、番号、商品名、カナでデータの格納を各々でしており、 E～Fまでは空欄になっています。 空欄には入力シートで入力の都度、その納品があったかどうかを示す文字列を E列から順に書き込むという風に考えています。 (入力シートで先に入力した値があり、E列に既に値が入っていたら、 次のF列に書きこみ、更にあればG…という風に反映させたいです) 入力フォームでID(A列になります)を入れると、 それに該当する商品名などのデータ(B～D列までの値)を １月などのシートから自動で引っ張って来るようにし、 E列に用意したプルダウンで引っ張って来るシート名(１月などの)を確定。 （できれば…なんですが、ID入れた時点でD列までのカナは習得できたら尚いいです…） そして更に入力フォームの最後の列、F列に新しく入れた値を プルダウンで選んだシートのE列に入れる(上記に説明した感じにです) という風に反映できないかと思っています。 ※集計シートは１月～のシートの総計なので、今のところなんとか出来てます。 なので、シート名などは変数になるのでは…と思っています。 こういう場合、どういう記述をしたら良いのでしょうか？ また、こういうことを実現するのは可能でしょうか？ マクロ(触ったことないです)を使わないと実現できないことでしょうか？ 今扱いきれないので、なんとか普通の関数などで実現したいと思っています。 皆さまの知恵を借りたいです。回答よろしくお願いします。

エクセル2007を使用しています。 まずエクセルで作られたデータベースがあります。データベースには、管理番号、顧客名、商品の管理番号、商品名、価格が入っています。 このデータベースとは別に、検索（抽出）用のエクセルを用意しています。 そこで、管理番号を入れたら、顧客名、商品名、価格のみが1行（横）に表示されるようにしたいです。 クエリを利用してやると一つずつ顧客名、商品名、価格を選んで…という風に時間がかかります。 例えば、管理番号の列（縦）に番号を入れて、ボタンを押すとか、実行（F9）すれば、管理番号を入れたすべての行に、データベースから検索した顧客名、商品名、価格が入力されるようにしたいのです。（管理番号の重複はありません） クエリで一個ずつ選んでいくのをマクロ登録するしかないのでしょうか？

VBAで検索をして内容コピーをするやり方を考えているのですが、 初心者でどうもうまくいきません。 処理の内容としては、 シート１のＡ列、Ｂ列とシート２のＡ列と一致したときに シート２のＢ列にある内容を シート１のＣ列にコピーするもの。（空白時は、とばして次の処理へ行く）

VBAで検索をして内容コピーをするやり方を考えているのですが、 初心者でどうもうまくいきません。 処理の内容としては、 シート１のＡ列、Ｂ列とシート２のＡ列と一致したときに シート２のＢ列にある内容を シート１のＣ列にコピーするもの。（空白時は、とばして次の処理へ行く）

東側に道路がきて玄関もきます。 北・南・西には他の家がたちます。 子供が２人いるのですが家相など見ると 子供部屋が２つとも道路側にきてしまいそうです。 （ベランダも東側なので洋室Ｂの方にあります。 洋室Ａからベランダへはいけません） 子供部屋２つともが道路側に来るのは防犯上など 余り良くないでしょうか？ ご意見お願いします。

いつも参考にさせていただいております。 当方会社でVB2010を使い、何人かに配布をして使ってもらうのが目的です。 しかし、データベース構築は考えておらず、それぞれでデータは完結するものです。 そこでCSVファイルが一番良いと判断しましたが、書き込み方法がわかりません。 EXCELファイルに書き込むことはできるのですが、同じように配列を指定できるのでしょうか？ 持っている本では詳しく載っていなかった為、サンプルコード等を教えていただけないでしょうか？ 調べてみましたが2010のサイトが少ない為、投稿させていただきました。ご教授願います

Excel2007VBAについての質問です。 結構膨大な量のデーターを検証しないといけないので、 お粗末ながらのマクロorVBAを作りたいのですが、 付け焼刃で参考書開いてもよくわからない感じになっています。 やりたいことを簡単に言うと、 Sheet1とSheet2を準備して、Sheet1のA1に値を入れるとB1に計算値が出るようなシートを作りました。 (1)Sheet1のA1B1をコピーして、Sheet2のA1B1にペーストしました。 (2)Sheet1のA1に別の値を入れB1の値も変化しました。 (3)A1B1をコピーして、Sheet2のA2B2にペーストしました。 というようにどんどんコピペで Sheet2に表を作りたいのですがうまくいきません。 どなたか、お力かしてください。。

こんにちは B列に疾患名が入力されています。このとき、下のようにC列に疾患数を患者ごとに出したいのですが、そのような関数はありますか？宜しくお願い致します。 cellA1　　　　　cellB1　　　　　　　　cellC1 患者１　　　　　骨粗鬆症　　　　　　３ 　　　　　　　　　脂質異常症 　　　　　　　　　糖尿病 cellA2　　　　　cellB2　　　　　　　　cellC2　　　　　　　 患者２　　　　　疾患名　　　　　　　疾患数 ・ ・ ・

すでに入力されている日本の日付と時刻を、欧州の日付と時刻に変換する というようなマクロを組みたいです。 もう少し具体的にいうと、 日本の日付と時刻が 2011/06/12 07:15:20　というような形式で入力されているセルA1があり、 そのセルA1を選択している状態でマクロを実行すると、 セルに入力されている日付と時刻を欧州の日付と時刻に変更する というマクロです。 セルA1の日付を例にすると、マクロを実行したら時差である9時間を減算して、 2011/06/11 22:15:20 という値が返ってくるようにしたいです。 DateAdd関数を使用して時刻を-9時間することはできたのですが、 時刻のみが-9時間されるだけで日付は変更できませんでした。 もしよろしければ、時間を減算しただけで日付も減算してくれるような マクロの組み方を教えていただけないでしょうか。

エクセル2007を使っています。 睡眠時間のグラフを作っています。 作りたいグラフに対してどのように必要データを配したらいいかよくわかりません。 条件としては [十分]8時間以上 [やや不足]6時間以上8時間未満 [不足]6時間未満 として、積みあげ？面グラフで元をつくり、睡眠時間の折れ線グラフを更につくりたいと 考えています。 わからないなりに添付の画像のようにやってみたところです。 面グラフが理想とするようになりません。 データ入力の項目である、十分、やや不足上限、やや不足下限、不足上限自体設定が間違っている可能性が大いにあると思います。 どのようにすれば私が条件としているような複合グラフができるか、教えていただけたらうれしいです。

４ケタの数が、１，００１から１，４９９の場合、１，０００にして、１，５００から１，９９９の場合は、２，０００にする計算式を何方かご存じの方おりましたら教えていただけないでしょうか。よろしくお願いいたします。

VBScript（ASP）で画面上には値がばれずに、 POSTする方法はありませんか。 サンプルソースなど、教えて頂けるとうれしいです。

エクセル2003を使用しています。 様々なデータを作成するにあたり、どのようにしたらいいのか だれかに相談したく質問致します。。 カテ違いでしたらご指摘ください。 作成するのはＡＢＣＤＥFの6種類の帳票です。 それぞれ少しずつ重なる数値を使用します。 今までは全部それぞれ入力していたのですが、 あまりに同じ数字をあっちにもこっちにも使うので 間違えやすいし、もっとなんとかならないかな～と思ってきました。 帳票の内容は Ａ・・40社（４０枚）分あります。これは一番基礎になる数値をだしています B・・↑の数値をもとに各数値を計算　40社をまとめて一覧にしています（５枚位） C・・社内用に数値だけを一覧表にしています（1枚） D・・Bで計算した数値を40社分に振り分けます（請求書のようなものです）40枚 D・・領収書のようなものです　40枚あります E・・名簿のようなものです　40社の一覧　5枚位 本を見ながらどうかな～と思ったのは、 テンプレートウィザードを使いAを作成→マスターファイルに転記 マスターのうしろにBを作りコピペでリンクを貼って・・ 出来上がったところでCを作成するためにデータを加工し index関数でC・Dを作る Eも加工して・・ （一応数値・住所等全部を記載したマスターファイルを作成しました） と・・・ でも、少しやってみたのですが、データ加工した後に新規で会社が追加になると 全部に訂正をかけないといけなく・・ なんか使いにくいのです。。 この５種類の帳票をうまく管理・作成する方法はないものでしょうか・・ これを、Aを作ったら全部出来上がったりとか マスターを変更すると他の帳票も変更になったらいいな・・と・・・ エクセルはまだ使いこなせていなく、各関数なども本をみながらです。。 帳票の説明も不十分かもしれませんが、 何かよい方法を教えて頂けないでしょうか。。 アクセスはないので使えません（技術もありませんが＞＜） 宜しくお願いします。。

これまでは、Access2007のテーブル(accdb)を共有PCに置いて、 クライアント側のAccess(accdb)で帳票を印刷していました。 保守の方法は、変更のあったオブジェクト(クエリ、レポート等)を 差し替え(削除→インポート)していました。 しかし、クライアントの数が増えてきたため、SQLserverの導入と Accessa(ccdb)のADP化を検討しています。 実際に使っていないのでわからないことばかりなので、質問させて頂きます。 Q1.SQLserverはサーバーでなくても共有ＰＣでも問題はないでしょうか？ Q2.保守の方法としては、サーバー側のクエリとクライアント側のレポート等を 　差し替えるようなこれまでの方法でいいのでしょうか？ 他に方法があれば教えてください。 Q3.現在の100個以上のクエリのうち半数以上は構成を変えるつもりですが、この場合 ウィザードでクエリをストアドプロシージャへ移行してから編集した方がよいか、 １つ１つデザインしなおした方がよいでしょうか？ Q4.SQLserverの導入についての支援サイトなどあれば教えてください。 他にも聞きたい事がありますが、とりあえず回答いただきたいと思います。 よろしくお願いします。

作業中は常に読み取り専用状態にしておき、保存の時にだけ読み取り専用の属性を解除して 上書き保存し、上書き保存が終了次第、即座に読み取り専用状態に戻す運用を考えております。 (1)ＴｈｉｓＷｏｒｋｂｏｏｋのＯｐｅｎプロシージャでファイルを読み取り専用状態に設定 (2)ＴｈｉｓＷｏｒｋｂｏｏｋのＢｅｆｏｒｅＳａｖｅプロシージャで 　　　読み取り専用を解除→上書き保存→読み取り専用状態に再設定 　　　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 　　　　　'上書き保存モードを解除 　　　　　Cancel = True 　　　　　'上書きしますか？のコメントを非表示に設定 　　　　　ActiveWorkbook.Saved = True 　　　　　'ファイルが読み取り専用であった場合は以下の処理を実行 　　　　　If ActiveWorkbook.ReadOnly Then 　　　　　　　'ブックの読み取り専用設定を解除 　　　　　　　ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=True 　　　　　　　'上書き保存を実行 　　　　　　　Application.DisplayAlerts = False 　　　　　　　Application.EnableEvents = False 　　　　　　　ActiveWorkbook.Save 　　　　　　　Application.EnableEvents = True 　　　　　　　Application.DisplayAlerts = True 　　　　　　　'ブックを読み取り専用に設定 　　　　　　　ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly 　　　　　'ファイルが読み取り専用でなかった場合は以下の処理を実行 　　　　　Else 　　　　　　　'上書き保存を実行 　　　　　　　Application.DisplayAlerts = False 　　　　　　　Application.EnableEvents = False 　　　　　　　ActiveWorkbook.Save 　　　　　　　Application.EnableEvents = True 　　　　　　　Application.DisplayAlerts = True 　　　　　End If 　　　End Sub 上記のマクロで上手くいきそうなのですが、下記2点が解決できずに困っております。 (1)上書き保存ボタンをクリックすると下記のメッセージが毎回表示されてしまいます。 　　『読み取り専用です。コピーを保存するには名前を付けて保存して下さい。』 　　ＯＫボタンをクリックしたりＥｓｃやＥｎｔｅｒキーを押下さえすればこの警告メッセージを回避でき 　　以後は思った通りの処理を行えるのですが、できればこのメッセージを表示したくない。 (2)上書き保存のために読み取り専用を解除した際、他のオペレーターがエクセル起動中、 　　または上書き保存中であった場合、エラーが発生してしまうことと思われます。 　　この問題の解決策をご存知の方、是非教えて下さいますよう宜しくお願いします。 当初は共有ブックとしての運用の方向で進めていたのですが、既に2人のオペレーターが ファイルにアクセスしている状態で、3人目のオペレーターがファイルを開くと読み取り専用と なってしまったり、保存時に時間がかかり過ぎたり、保存時のエラーが頻繁に発生したりといった 状況でしたので共有ブックとしての運用は諦めました。（シート50枚、ファイルサイズ3.5ＭＢ程度） 使用ＰＣはＸＰでＥｘｃｅｌ2003です。以上、宜しくお願いします。

お世話になってます。 開発環境 Windows XP Pro VB2005 Pro canon 5035F http://cweb.canon.jp/office-mfp/lineup/a3color/iradvc5035/index.html VB2005から、複合機(5035F)のFAX機能を使い自動FAXしたいのですが。 　VB2005から印刷イメージを複合機（5035F）を利用して 相手先FAX番号を指定して、FAX送信したいのですが。 アドバイス・サンプルプログラムなどご助言いただけると幸いです。

ＡＣＣＥＳＳのテーブルデータで、 １つの項目（列）に、 ●●県　●●●市　南２－３－１２ という住所項目があるとします（市のところは村、郡となっているケースもあり）。 これをクエリーで抽出する際に、 ●●県　●●●市 までしか抽出しないようにすることは可能でしょうか？ 市以降の南２－３－１２は抽出しない。 （県、市、南の間は半角スペースがそれぞれある） またそれとは別途で、 それぞれにセルを分けることはできるでしょうか？ →　●●県　●●●市　南２－３－１２ 　の上記それぞれを別々の項目/セルに分割する もしアクセスで難しいようであればエクセルでもＯＫ。 また上記とは別途で、半角スペースがない（文字が連続している）場合にも 出来る方法はあるのでしょうか。 ※会社のデータ保存がいけてなく、県、市区郡、以降～と すべて住所内容が１つのセルにおさまっており、細かい地域分析ができない為。

ソーラーパネル、京セラ、サムライで見積もりを取ったのですが システム出力　6.5755Kwで4196000円 オール電化　エコキュート、IHクッキングヒーターで 値引きを含めて1074855円の見積もりでした。 ネットで調べてみると１kwあたり50～55万位なら買いという情報がありました この値段だとかなり高くなります。 まだまだ、他の所を探した方がよいのでしょうか？ ちなみにシャープの製品はうちの屋根には取り付けられないとのことでした。 よろしくお願いします。

作業中は常に読み取り専用状態にしておき、保存の時にだけ読み取り専用の属性を解除して 上書き保存し、上書き保存が終了次第、即座に読み取り専用状態に戻す運用を考えております。 (1)ＴｈｉｓＷｏｒｋｂｏｏｋのＯｐｅｎプロシージャでファイルを読み取り専用状態に設定 (2)ＴｈｉｓＷｏｒｋｂｏｏｋのＢｅｆｏｒｅＳａｖｅプロシージャで 　　　読み取り専用を解除→上書き保存→読み取り専用状態に再設定 　　　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 　　　　　'上書き保存モードを解除 　　　　　Cancel = True 　　　　　'上書きしますか？のコメントを非表示に設定 　　　　　ActiveWorkbook.Saved = True 　　　　　'ファイルが読み取り専用であった場合は以下の処理を実行 　　　　　If ActiveWorkbook.ReadOnly Then 　　　　　　　'ブックの読み取り専用設定を解除 　　　　　　　ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=True 　　　　　　　'上書き保存を実行 　　　　　　　Application.DisplayAlerts = False 　　　　　　　Application.EnableEvents = False 　　　　　　　ActiveWorkbook.Save 　　　　　　　Application.EnableEvents = True 　　　　　　　Application.DisplayAlerts = True 　　　　　　　'ブックを読み取り専用に設定 　　　　　　　ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly 　　　　　'ファイルが読み取り専用でなかった場合は以下の処理を実行 　　　　　Else 　　　　　　　'上書き保存を実行 　　　　　　　Application.DisplayAlerts = False 　　　　　　　Application.EnableEvents = False 　　　　　　　ActiveWorkbook.Save 　　　　　　　Application.EnableEvents = True 　　　　　　　Application.DisplayAlerts = True 　　　　　End If 　　　End Sub 上記のマクロで上手くいきそうなのですが、下記2点が解決できずに困っております。 (1)上書き保存ボタンをクリックすると下記のメッセージが毎回表示されてしまいます。 　　『読み取り専用です。コピーを保存するには名前を付けて保存して下さい。』 　　ＯＫボタンをクリックしたりＥｓｃやＥｎｔｅｒキーを押下さえすればこの警告メッセージを回避でき 　　以後は思った通りの処理を行えるのですが、できればこのメッセージを表示したくない。 (2)上書き保存のために読み取り専用を解除した際、他のオペレーターがエクセル起動中、 　　または上書き保存中であった場合、エラーが発生してしまうことと思われます。 　　この問題の解決策をご存知の方、是非教えて下さいますよう宜しくお願いします。 当初は共有ブックとしての運用の方向で進めていたのですが、既に2人のオペレーターが ファイルにアクセスしている状態で、3人目のオペレーターがファイルを開くと読み取り専用と なってしまったり、保存時に時間がかかり過ぎたり、保存時のエラーが頻繁に発生したりといった 状況でしたので共有ブックとしての運用は諦めました。（シート50枚、ファイルサイズ3.5ＭＢ程度） 使用ＰＣはＸＰでＥｘｃｅｌ2003です。以上、宜しくお願いします。

ソーラーパネル、京セラ、サムライで見積もりを取ったのですが システム出力　6.5755Kwで4196000円 オール電化　エコキュート、IHクッキングヒーターで 値引きを含めて1074855円の見積もりでした。 ネットで調べてみると１kwあたり50～55万位なら買いという情報がありました この値段だとかなり高くなります。 まだまだ、他の所を探した方がよいのでしょうか？ ちなみにシャープの製品はうちの屋根には取り付けられないとのことでした。 よろしくお願いします。