taka_s777 の回答履歴

４０問中、何問正解で合格なんですか？

補償業務管理士について！ ここ5年以内に取得された方いますか？ 私は今度受けようとおもうのですが、口述試験がとても不安です。 どんなこと聞かれるのでしょうか？ 私は土地調査部門で共通試験のみを受験します。 なかなか情報が得られず、困っています。 研修にも参加予定です。 いろいろ教えてください！！！

　普通、拡張子がついたデータをダブルクリックすると、その拡張子にあったソフトが起動すると思いますが、一度バージョンアップの為再インストールしたら、保存データをダブルクリックしても立ち上がらなくなってしまいました。 　JWWというフリーのCADソフトなんですがデータをデスクトップのショートカットに重ねると普通に立ち上がります。でもダブルクリックではエラーになります。他のソフトは問題ありませんが、JWWだけなってしまいます。 対処法をお教えください。

VLOOKUP関数は、 ”AがBXとCYの範囲内でその左端のどれかと一致すればその行のD列目のデータをコピーする”というような文法で使うと思います。 それの発展系として、 "AがBXとCYの範囲内でその３列目のどれかに一致し、かつ、その行の左端が”合計”ならばその行のD列目のデータをコピーする”というようにできないでしょうか。 すなわち検索する列番号を指定することと、それに検索する条件を１つ付加するということです。前者の問題は列を入れ替えれば良いのですが、もしあれば教えて頂きたいです。後者の問題の方が切実なのですが。よろしくお願いします。

3万行以上ある時系列データのデータ量を減らすため、マクロを使って3行目以降から5行毎に間引きたいのですが、 　　　どうすれば良いでしょうか？

オートフィルタがかかっている状態で、 ひとつ下の行のセルを選択したいです。 具体的には、エクセルシートで選択したセルの情報をフォームで編集するのですが、 そのフォームの中のスピンボタンで選択しているセルを上下に移動させたいのです。 以下のコードだと、当然ですがフィルタで抽出されたセル以外も選択されてしまいます。エクセルシート上での矢印キーやENTERキー（入力後にセルを移動する方向が下のとき）と同じ動きがしたいです。 どうかお助けください。。。 Private Sub SpinButton1_SpinUp() Cells(Selection.Row - 1, Selection.Column).Select Call UserForm_Initialize End Sub Private Sub SpinButton1_SpinDown() Cells(Selection.Row + 1, Selection.Column).Select Call UserForm_Initialize End Sub

3万行以上ある時系列データのデータ量を減らすため、マクロを使って3行目以降から5行毎に間引きたいのですが、 　　　どうすれば良いでしょうか？

Ａ列の一番下のデータの次の行から Ｆ列の一番下のデータの行まで削除したいのですが Rows(" & Range("A1").End(xlDown).row+1 & ":" & Range("F1").End(xlDown).Row & ").Delete Shift:=xlUp でうまくいきません どうすればいいのですか？

エクセルBOOKを開いているアプリケーションがエクセル2007以降かそうでないかを、その開かれているBOOKのVBAで取得するにはどのような記述をすればよろしいでしょうか？ 2007以降か、その前かでコードを分岐させたいのです。 よろしくお願いします。

初めまして。 鉄骨造りの工場内の間仕切壁についてわからないことがありました。 当方、建築には素人ですので質問に不備があるかもしれません。よろしくお願いいたします。 2棟続きの工場を間仕切壁で区切ってあります。鉄骨と鉄骨の間に、ブロックを5段積んで、その上は石膏ボードでふさいであります。鉄骨の間隔は約3800mm、壁の高さは4000mmです。 この間仕切壁のブロックは置いてあるだけで、基礎や鉄骨と結合していない様子で、先日フォークリフトをぶつけたところ倒れてしまいました。 こういった構造は建築基準法施工令上、問題はありませんでしょうか？あれば構造に問題があると主張できるかと思っているのですが。 なお、以下のページなどを調べましたが、よくわかりませんでした。 http://kozo.milkcafe.to/houki/soseki.html ここで、 ------------------- 令第５１条 ３　構造耐力上主要な部分でない間仕切壁で高さが２ｍ以下のものについては、この節の規定中第５２条及び第５５条第５項の規定に限り適用する。 ------------------- となっており、これが準用されると鉄筋も鉄骨との結合もいらないかとは思いますが。

初めまして。 鉄骨造りの工場内の間仕切壁についてわからないことがありました。 当方、建築には素人ですので質問に不備があるかもしれません。よろしくお願いいたします。 2棟続きの工場を間仕切壁で区切ってあります。鉄骨と鉄骨の間に、ブロックを5段積んで、その上は石膏ボードでふさいであります。鉄骨の間隔は約3800mm、壁の高さは4000mmです。 この間仕切壁のブロックは置いてあるだけで、基礎や鉄骨と結合していない様子で、先日フォークリフトをぶつけたところ倒れてしまいました。 こういった構造は建築基準法施工令上、問題はありませんでしょうか？あれば構造に問題があると主張できるかと思っているのですが。 なお、以下のページなどを調べましたが、よくわかりませんでした。 http://kozo.milkcafe.to/houki/soseki.html ここで、 ------------------- 令第５１条 ３　構造耐力上主要な部分でない間仕切壁で高さが２ｍ以下のものについては、この節の規定中第５２条及び第５５条第５項の規定に限り適用する。 ------------------- となっており、これが準用されると鉄筋も鉄骨との結合もいらないかとは思いますが。

エクセルで、セルの値がDeleteキーなどでクリアされた場合に、 自動的にセルの色がかわるようにしたいのですが、 何かよい方法はないでしょうか？ セルの内容が変更された場合のフォントの色を変えるために、 Private Sub Worksheet_Change(ByVal Target As Range) Target.Font.ColorIndex = 3 End Sub というマクロは設定しています。 これだとクリアされた場合、わからないので。。。 よろしくお願いします。

ブック中の複数シートの中の1シートをマイドキュメントなどに新しくフォルダーを作成しその中に保存するにはどうしたらいいでしょう？ フォルダーはその日の日付（2007.10.10）になるのが理想です。 シートの名前はシートの中のセルから参照するようにしたいです。 すみませんがご回答よろしくお願いします。

いくつかの数字を＋(プラス)で繋いだセルがあります。 ex)＝１００＋２００＋３００　”表示は計算結果の６００となります。 このセルに表示された数字６００の構成要素である１００、２００、３００に それぞれ１．０５パーセントを掛け（要するに、消費税を加算する）、その後 合算した結果を右のセルに表示させたいです。 ただし、ポイントは、合算前の円未満は切り捨てるところなのですが、可能 でしょうか？ 膨大なデータですので、数字を個別のセルに入れることはできません。 ご教授よろしくお願いいたします。 エクセル２０００です。

350MB位のファイルを圧縮し、280MB位に下げてメールに添付送信しようとしたのですが、重すぎて固まったので、プログラムを強制終了しました。 後に、Outlook Expressを起動すると、送信トレイにどうやら先程の送れなかったメールが残っているらしく、起動と同時に自動的に送信しようとしています。 結果は同じく、固まってしまいます。 起動するたび、固まり強制終了しなければいけないので困ってます。 送信しなくても結構ですので、復帰させる方法を教えてください。

お世話になります。 Excel2003にて sheet1(出力表) 　Ａ Ｂ Ｃ Ｄ Ｅ Ｆ　　1行目は項目 1 ○○○○○ 1←表示指定頁数入力 2 ＊＊＊＊＊ 　　 3 ＊＊＊＊＊ |印刷|←ボタン A2:E2以降（実際は21行)に、 sheet2(データ)に表の項目順に入力し、並べ替えをしたデータを (A2であれば…データ!B3に必要な項目があるとして…)=IF(OR($F$1=0,$F$1=""),"",IF(OFFSET(データ!B3,($F$1-1)*21,0,1,1)="","",OFFSET(データ!B3,($F$1-1)*21,0,1,1))) で、F1に必要頁を入力し反映させ、表を印刷していましたが、頁数が多くなると手間がかかるので、指定頁までを印刷するように Private Sub CommandButton1_Click() Dim msg, style, title, help, ctxt, response, mystring msg = "表を出力します。" style = vbOKCancel + vbinfomation + vbDefaultButton1 title = "Print Out" help= "demo.hlp" ctxt = 1000 response = MsgBox(msg, style, title, help, ctxt) If response = vbOK Then mystring = "ok" Worksheets("出力表").Activate Dim page As Integer Dim pageend As Integer pageend = Range("F1") For page = 1 To pageend Cells(1, 6) = page Sheet1.PrintOut Next page Else mystring = "cansel" MsgBox "cancel...bye" End If End Sub(見づらいですが行詰めました…） これは、1頁目からの印刷なので、例)3頁目から5頁目を印刷という機能も欲しいな、と思い…F3=開始頁　G3=終了頁を入力…「印刷」…ここまで考えましたがまだあまり応用が利かないため、先に進みません…。 ☆この状態でのページ指定印刷の方法 ☆もっと簡単な方法があるよ！など アドバイスをいただけたら助かります。説明不明瞭で申し訳ありません。

マンションの建替えでお伺いします。 内階段の幅（踏みしろではありません、横の広さです）は、法律的に定められていますか？ また、マンションの大きさなどによる、階段の設置数の基準を教えてください。 よろしくお願いします。

エクセルで３学年の生徒のパスワードとユーザ名の一覧表を作りました。一人一人に、クラス・氏名・パスワード・ユーザ名の項目の入った個人票を渡したいのです。 　ワードで差し込み印刷にすると紙の無駄が出るので、エクセルで作ったその一覧表の一行置きに、クラス・氏名・パスワード・ユーザ名の項目の入った行を挿入し、印刷して、はさみで切って渡そうと思います。 　そのやり方をご教示いただけませんでしょうか。 クラス　　氏名　パスワード　ユーザ名　←これを一行置きに入れる。 ３年１組　○○○　×××　　△△△