ushi2015 の回答履歴

前に類似の質問しましたが、 フラグでなくカウントしたいそうです。 B列　　　X列　　　Y列　　　　Z列　　　AA列　　AB列　　　　 男性　　　　　　　火曜日　　水曜日　　木曜日　　　　　　　　 女性　　月曜日　　火曜日　　水曜日　　木曜日　　金曜日　　　 男性　　　　　　　　　 男性　　月曜日　　火曜日　　水曜日　　木曜日　　　　　　　　 女性　　　　　　　　　　　　水曜日　　木曜日　　　　　　　　　 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー C列　　　　　X列　　　　Y列　　　Z列　　　AA列　　　AB列　　　 19～22才　　　　　　　火曜日　　水曜日　　木曜日　　　　　　　　 51才以上　　月曜日　　火曜日　　水曜日　　木曜日　　金曜日　　　 41～50才　　　　　　　　　 19～22才　　月曜日　　火曜日　　水曜日　　木曜日　　　　　　　　 31～40才　　　　　　　　　　　　水曜日　　木曜日　　　　　　　　　 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー アンケート集計の表で男性で「X～AB列のどれかに文字が入っていればカウントX～AB列になにも入っていなければカウントしない」この場合だと２です。女性の場合は２です。 女性、年齢、都道府県など「」内を同じことをする項目が100近くあるので フィルターでは大変です。 下の表は19～22才で「X～AB列のどれかに文字が入っていればカウントX～AB列になにも入っていなければカウントしない」これも２になります。 51才以上は１、41～50才は0、31～40才は１です。 複数回答の項目全てなので。AF～BJ、BK～CLなど ピボット関数マクロ何でもいいので簡単な方法があれば教えてください。 宜しくお願いします。

ACCESSファイル(.accdb)をダブルクリックすると フォームが表示されます。 このACCESSファイル(.accdb)をデバッグしたい時 SHIFTキーを押しながらACCESSファイルをダブルクリックすると ACCESSアプリケーションが起動して ACCESSアプリケーションのウインドウ (左側にフォームやモジュールModule1などが表示されているウインドウ) が表示されます。 ALt+F11でVBEのウインドウを表示してブレークポイントを設定した後、 この後どのようにすれば ACCESSファイル(.accdb)が実行されてフォームが表示 されるのでしょうか。 おそらく、ダブルクリックで起動したときは、 Accessのオプションのカレントデータベースの フォームの表示で指定されているフォームが 表示されてVBAプログラムが実行されると思います。 (VBAの中にフォームを表示するコードはありません) SHIFTキーを押しながらダブルクリックで起動した時は、 ACCESSアプリケーションのウインドウ、または、 VBEのウインドウから、フォームを表示して実行 するにはどうすればよいのでしょうか。 よろしくお願いします。 (Windows7 ACCESS2010)

結構年をとった方にパソコンを教えています。身体が少し不自由な方なのですが、それもあって上手く教えきれません。全くの初心者ですが、タイピングは普通くらいにできます。ただダブルクリックやマウスを動かすことが苦手なのです。その人の要望としては、パソコンで小説を書きたいのですが、電源を落としたりすることが難しいです。電源を落とすショートカットキーなどないでしょうか?良い方はないでしょうか?Vista　32bit ホームプレミアム　ノートパソコンです

B列　　　X列　　　Y列　　　　Z列　　　AA列　　AB列　　　　列 男性　　　　　　　火曜日　　水曜日　　木曜日　　　　　　　　１ 女性　　月曜日　　火曜日　　水曜日　　木曜日　　金曜日　　　 男性　　　　　　　　　 男性　　月曜日　　火曜日　　水曜日　　木曜日　　　　　　　　１ 女性　　　　　　　　　　　　水曜日　　木曜日　　　　　　　　　 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー C列　　　　　X列　　　　Y列　　　Z列　　　AA列　　　AB列　　　列 19～22才　　　　　　　火曜日　　水曜日　　木曜日　　　　　　　　１ 51才以上　　月曜日　　火曜日　　水曜日　　木曜日　　金曜日　　　 41～50才　　　　　　　　　 19～22才　　月曜日　　火曜日　　水曜日　　木曜日　　　　　　　　１ 31～40才　　　　　　　　　　　　水曜日　　木曜日　　　　　　　　　 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー アンケート集計の表で男性で「X～AB列のどれかに文字が入っていれば新しい列に１、X～AB列になにも入っていなければ空白としたいです。」女性、年齢、都道府県など「」内を同じことをする項目が100近くあるのでフィルターでは大変です。 下の表は19～22才で「」内こと 複数回答全てなので。AF～BJ、BK～CLなど 作ってみましたが2つを合わせることができませんでした。 =IF(COUNTIF(B6:B6000,B6),1,"") =IF(COUNTA(X6:AB6),1,"") ピボット関数マクロ何でもいいので簡単な方法があれば教えてください。

質問No.9247365 で類似した質問をしました。 添付のようなテーブルがあり下記のSQLを実行するとクエリ1になるのですが、カウントに抽出条件を入れてクエリ3のように合計件数が1のものは集計しないようしたいと思います。 下記SQLをどのように直したらよいでしょうか。一つのクエリで行う方法を教えて下さい。 TRANSFORM Count([テーブル1].[くだもの]) AS くだもののカウント SELECT [テーブル1].[くだもの], Count([テーブル1].個数) AS 合計 FROM テーブル1 GROUP BY [テーブル1].[くだもの] PIVOT [テーブル1].月;

Sub 問10SUM() ' ' 問10SUM Macro ' Range("B1007").Select ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)" Range("B1007").Select Selection.AutoFill Destination:=Range("B1007:AW1007"), Type:=xlFillDefault Range("B1007:AW1007").Select Range("AW994").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-47]:RC[-1])" Range("AW994").Select Selection.AutoFill Destination:=Range("AW994:AW1007"), Type:=xlFillDefault Range("AW994:AW1007").Select ActiveWindow.ScrollColumn = 20 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("B1020").Select ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)" Range("B1020").Select Selection.AutoFill Destination:=Range("B1020:AW1020"), Type:=xlFillDefault Range("B1020:AW1020").Select Range("AW1011").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-47]:RC[-1])" Range("AW1011").Select Selection.AutoFill Destination:=Range("AW1011:AW1020"), Type:=xlFillDefault Range("AW1011:AW1020").Select ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 End Sub これはマクロの記録で作ったものです。AWにオートサムでBからAVを選択して右下の+を下に引っぱりました。。 ドラッグして選択せずにすむコード、もっと短くする方法を教えてください。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 　　　　　A　　　　　B　　　　中略　　　AV　　　　　AW 993行　　ラベル　　北海　　　～　　　　　沖　　　　　合計 994行　　魚　　　　２　　　　～　　　　　９　　　　　１１００ 中略　 1006行　　他　　　　６　　　　～　　　　　空欄　　　　２０００ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 簡単に載せると表はこうなっています。

Sub 問10SUM() ' ' 問10SUM Macro ' Range("B1007").Select ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)" Range("B1007").Select Selection.AutoFill Destination:=Range("B1007:AW1007"), Type:=xlFillDefault Range("B1007:AW1007").Select Range("AW994").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-47]:RC[-1])" Range("AW994").Select Selection.AutoFill Destination:=Range("AW994:AW1007"), Type:=xlFillDefault Range("AW994:AW1007").Select ActiveWindow.ScrollColumn = 20 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("B1020").Select ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)" Range("B1020").Select Selection.AutoFill Destination:=Range("B1020:AW1020"), Type:=xlFillDefault Range("B1020:AW1020").Select Range("AW1011").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-47]:RC[-1])" Range("AW1011").Select Selection.AutoFill Destination:=Range("AW1011:AW1020"), Type:=xlFillDefault Range("AW1011:AW1020").Select ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 End Sub これはマクロの記録で作ったものです。AWにオートサムでBからAVを選択して右下の+を下に引っぱりました。。 ドラッグして選択せずにすむコード、もっと短くする方法を教えてください。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 　　　　　A　　　　　B　　　　中略　　　AV　　　　　AW 993行　　ラベル　　北海　　　～　　　　　沖　　　　　合計 994行　　魚　　　　２　　　　～　　　　　９　　　　　１１００ 中略　 1006行　　他　　　　６　　　　～　　　　　空欄　　　　２０００ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 簡単に載せると表はこうなっています。

Set cnEx = CreateObject("ADODB.Connection") With cnEx .Provider = "Microsoft.ACE.OLEDB.12.0" .Properties("Extended Properties") = "Excel 12.0" .Properties("Data Source") = "C:\Users\\test.xlsm" .Open End With ＶＢＡでこのコードでエクセルファイルを開く時に パスワードがかかってる場合どのようにＶＢＡで指定すればいいでしょうか？

表題が何と記載すれば良いか分からなかったので曖昧な表題となってしまい 申し訳ございません。 今回は自分的には高度でどの様にしたら良いかが分からず質問させて頂きます。 シートAとシートBとシートC　及び　項目一覧シートがあると仮定します。 シートA（検索対象シート）　　　A~D列程度あり、行数は2000行程度を想定 シートB（ピックアップシート）　A~D列程度あり、行数は2000行程度を想定 項目一覧シート（シートAの項目）開発に関する文字列 　　　　（JavaとかPHPとかの一覧になります。なので、項目数は多く２００位でしょうか？） シートC（書き出しシート） （こんな感じかなと） １．シートAのC列セル内の文字（凡そ2000文字程度入力があります）内に 　　項目一覧シートに羅列している文字列が含まれているかを検索。 　　含まれている文字列を取得し（ヒットした文字列全て）ます。 　　この時、複数の文字列を取得する事を想定します。 ２．シートBのC列セル内の文字（こちらも2000文字程度が入力）内に 　　含まれている文字列から、先程取得した文字列があるかを検索。 　　２つ以上含まれていたら抽出する。 　　シートCに対象となった、シートAのA~D列の全ての行を転記、ヒットした 　　シートBのA~D列の全ての行を転記。 　　上記をシートBの入力がある全てのセルに行う。 上記を行いたいです。 ここからがデータの持ち方になるのですが、以下の感じで良いのか。。。 A2ｌB2ｌC2ｌD2　　←　シートAから抽出したデータ 　　A100ｌB100ｌC100ｌD100 　　A189ｌB189ｌC189ｌD189 　　A1351ｌB1351ｌC1351ｌD1351　←　シートBから抽出したデータ ↑一つセルを開けるイメージです。 上記をツリー型と言うのでしょうか？ぶら下型と言った方が良いのかな？として表記させて 頂きました。 但し、エクセルのつくり上とかなどで上記はやめた方が良い場合には、お手数ですが ご教授頂けると助かります。 シートAのC列には以下の様な内容が記載あります。（内容は適当に端折ってます） ------------------------------------------------------------------------------------------------------------ 【作業内容】 広告媒体を管理するツール（Webツール）の開発 ・広告効果測定ツールとのAPI繋ぎ込みによるデータ取得 ・広告媒体とのAPI繋ぎ込みによるデータ取得 【要件スキル】 ≪求めるスキル≫ ・PHP／Javascriptを用いたWEBアプリケーション ・MySQLを使用した開発経験 ≪ 歓迎するスキル ≫ ・広告業界での開発経験 ・PHPフレームワークやCSSフレームワークを使用した開発経験 ≪ 人物像 ≫ ・ゲームが好きな方 ---------------------------------------------------------------- シートBのC列には以下の様な内容があります。 ------------------------------------------------------------------------------------------------------------ ■氏名： ■所属： ■開発経験：20年 ■スキル： 【スキル面】 基本設計～製造 VB, Java, C, PHP, HTML, JavaScript IBM Notes, SQLServer, MySQL, SQL 【人物面】 コミュニケーション能力高めです。 ■補足：PHPは1ヶ月程度の製造経験。VBとJavaScriptが得意。 ------------------------------------------------------------------------------------------------------------ 上記の場合は、PHPとJavaScriptがヒットするので、シートCへの転記をする。 （シートAのA-D列を抽出し（仮にAとします）、シートCへ転記。 及びヒットしたシートBのA-D列を抽出し（仮にBとします）、Aの下部へ転記。 複数ヒットの場合は、順次Bの下部へ転記していく） 上記の様な事はエクセルで可能でしょうか？（何とかエクセルで作り上げたいのですが。。） 宜しくお願い致します。

エクセルVBAもしくは関数での回答希望です。 【条件】 A1～Aiには商品名、個数、単価、合計額が入っています。 A1～Aiに記載されてる各情報は半角スペースで区切られていたりいなかったりします。 D列にはA1～Aiで使われている商品名がランダムに全て入っています。 【行いたいこと】 A1~Aiに記載ある情報を、B１～Bi列には商品名をそれぞれ返す。C１～Ci列にはそれ以外を返すというようにしたいです。 つまり、二分割にするということです。 本当は商品、個数、単価、合計で4分割にしたいのですが複雑になりそうなので二分割でお願いします。 どうか方法を教えてください。 ※参考として画像を載せます。あくまで画像は参考程度で、条件としては上記のものでお願いします。

【環境】 Windows7 Office2013 【目的】 Excelで作ったcsvデータを、条件に合うものだけ抜き出して別ブックに自動で転記したい （1つの表を2つに分けたい） 【詳細】 ※オートフィルを使うという前提で説明しますが、目的の結果が得られるのであれば 　 オートフィル以外の方法でも構いません。 csvのデータがあります。 その中からオートフィルを使って「M列」で条件を選択（複数）し、その結果を 抜き出して（切り取って）別のブック（別シートではダメ）に自動転記したいです。 最終的に、元々の表Aから条件に合ったものだけを表Bとして保存。 表Aから表Bのデータを抜いたものは、そのまま表Aとして上書き保存。 ・・・したいです（添付画像参照） ネットで調べたところ、表の中に検索条件を入れる欄を作って・・・という方法 ならあったのですが、データ(ｃｓｖ）はそのままシステムに取り込むので 余計な欄を増やしたり等はできません。 そこで行き詰ってしまいました。 【表の詳細】 A～S列まであります。 項目名などの行は無く、1行目からデータが入っています。 ※行数は、都度変化します。 M列の中から「90」「95」の物だけを抜き出して、表Bとしたい。 【やってみたこと】 オートフィルでの操作を「マクロの記録」で記録しようとしたのですが、 オートフィルの結果だけを「切り取る」ことが出来ず、ダメでした。 どなたかお知恵をお貸しください。

エクセルVBAもしくは関数での回答希望です。 【条件】 A1～Aiには商品名、個数、単価、合計額が入っています。 A1～Aiに記載されてる各情報は半角スペースで区切られていたりいなかったりします。 D列にはA1～Aiで使われている商品名がランダムに全て入っています。 【行いたいこと】 A1~Aiに記載ある情報を、B１～Bi列には商品名をそれぞれ返す。C１～Ci列にはそれ以外を返すというようにしたいです。 つまり、二分割にするということです。 本当は商品、個数、単価、合計で4分割にしたいのですが複雑になりそうなので二分割でお願いします。 どうか方法を教えてください。 ※参考として画像を載せます。あくまで画像は参考程度で、条件としては上記のものでお願いします。

表題が何と記載すれば良いか分からなかったので曖昧な表題となってしまい 申し訳ございません。 今回は自分的には高度でどの様にしたら良いかが分からず質問させて頂きます。 シートAとシートBとシートC　及び　項目一覧シートがあると仮定します。 シートA（検索対象シート）　　　A~D列程度あり、行数は2000行程度を想定 シートB（ピックアップシート）　A~D列程度あり、行数は2000行程度を想定 項目一覧シート（シートAの項目）開発に関する文字列 　　　　（JavaとかPHPとかの一覧になります。なので、項目数は多く２００位でしょうか？） シートC（書き出しシート） （こんな感じかなと） １．シートAのC列セル内の文字（凡そ2000文字程度入力があります）内に 　　項目一覧シートに羅列している文字列が含まれているかを検索。 　　含まれている文字列を取得し（ヒットした文字列全て）ます。 　　この時、複数の文字列を取得する事を想定します。 ２．シートBのC列セル内の文字（こちらも2000文字程度が入力）内に 　　含まれている文字列から、先程取得した文字列があるかを検索。 　　２つ以上含まれていたら抽出する。 　　シートCに対象となった、シートAのA~D列の全ての行を転記、ヒットした 　　シートBのA~D列の全ての行を転記。 　　上記をシートBの入力がある全てのセルに行う。 上記を行いたいです。 ここからがデータの持ち方になるのですが、以下の感じで良いのか。。。 A2ｌB2ｌC2ｌD2　　←　シートAから抽出したデータ 　　A100ｌB100ｌC100ｌD100 　　A189ｌB189ｌC189ｌD189 　　A1351ｌB1351ｌC1351ｌD1351　←　シートBから抽出したデータ ↑一つセルを開けるイメージです。 上記をツリー型と言うのでしょうか？ぶら下型と言った方が良いのかな？として表記させて 頂きました。 但し、エクセルのつくり上とかなどで上記はやめた方が良い場合には、お手数ですが ご教授頂けると助かります。 シートAのC列には以下の様な内容が記載あります。（内容は適当に端折ってます） ------------------------------------------------------------------------------------------------------------ 【作業内容】 広告媒体を管理するツール（Webツール）の開発 ・広告効果測定ツールとのAPI繋ぎ込みによるデータ取得 ・広告媒体とのAPI繋ぎ込みによるデータ取得 【要件スキル】 ≪求めるスキル≫ ・PHP／Javascriptを用いたWEBアプリケーション ・MySQLを使用した開発経験 ≪ 歓迎するスキル ≫ ・広告業界での開発経験 ・PHPフレームワークやCSSフレームワークを使用した開発経験 ≪ 人物像 ≫ ・ゲームが好きな方 ---------------------------------------------------------------- シートBのC列には以下の様な内容があります。 ------------------------------------------------------------------------------------------------------------ ■氏名： ■所属： ■開発経験：20年 ■スキル： 【スキル面】 基本設計～製造 VB, Java, C, PHP, HTML, JavaScript IBM Notes, SQLServer, MySQL, SQL 【人物面】 コミュニケーション能力高めです。 ■補足：PHPは1ヶ月程度の製造経験。VBとJavaScriptが得意。 ------------------------------------------------------------------------------------------------------------ 上記の場合は、PHPとJavaScriptがヒットするので、シートCへの転記をする。 （シートAのA-D列を抽出し（仮にAとします）、シートCへ転記。 及びヒットしたシートBのA-D列を抽出し（仮にBとします）、Aの下部へ転記。 複数ヒットの場合は、順次Bの下部へ転記していく） 上記の様な事はエクセルで可能でしょうか？（何とかエクセルで作り上げたいのですが。。） 宜しくお願い致します。

エクセルVBAもしくは関数での回答希望です。 【条件】 A1～Aiには商品名、個数、単価、合計額が入っています。 A1～Aiに記載されてる各情報は半角スペースで区切られていたりいなかったりします。 D列にはA1～Aiで使われている商品名がランダムに全て入っています。 【行いたいこと】 A1~Aiに記載ある情報を、B１～Bi列には商品名をそれぞれ返す。C１～Ci列にはそれ以外を返すというようにしたいです。 つまり、二分割にするということです。 本当は商品、個数、単価、合計で4分割にしたいのですが複雑になりそうなので二分割でお願いします。 どうか方法を教えてください。 ※参考として画像を載せます。あくまで画像は参考程度で、条件としては上記のものでお願いします。

すいません。 http://qa.itmedia.co.jp/qa9245657.html で質問したのですがわかりにくいこのこの上ないと思うので、画像を添付させていただきました。 まるでかこった部分でできないものです。 関係するのは 点数　負割　入金　負担金　値引き　なのですが [点数]*[負割]＝負担金（四捨五入） が主な式で、これに負担金-入金＝値引き　という式はできています。 例外が負割が200の時で 200の時のみ、[点数]×3　という式にしたいのです これに出た数は　200以上の場合　　　例　600（点数）×3＝1800 答えは1800ですが、強制的に200にしたいんです。 200以下の場合　　45（点数）×3＝135（第一位四捨五入で140） としたいのです。 例外200の場合がうまくいかないので、お分かりになる方お知恵をお貸しください。お願いします。 私が考案して間違えている式は以下になります。 Private Sub 負担金_BeforeUpdate(Cancel As Integer) If [負割] = 200 Then 　　If [点数] * 3 > 200 = X Then 　　　　X = 200 　　Else 　　　　If ([点数] * 3 Mod 10) < 5 Then 　　　　　　X = [点数] * 3 - ([点数] * 3 Mod 10) 　　　　Else 　　　　　　X = [点数] * 3 - ([点数] * 3 Mod 10) + 10 　　　　End If 　　　　 If [負割] < 199 Then 　　If [点数] * [負割] Then 　　Else 　　　　If ([点数] * [負割] Mod 10) < 5 Then 　　　　　　X = [点数] * [負割] - ([点数] * [負割] Mod 10) 　　　　Else 　　　　　　X = [点数] * [負割] - ([点数] * [負割] Mod 10) + 10 　　　　End If Public Function Rounds(ByVal M As Currency, _ 　　　　　　　　　　　 ByVal A As Integer, _ 　　　　　　　　　　　 Optional D As Integer = 0) As Variant 　　Dim R As Currency 　 　　Select Case A 　　　　Case 0 ' 四捨五入 　　　　　　R = Fix(M * 10 ^ D + 0.5@) 　　　　Case 1 '切り捨て 　　　　　　R = Fix(M * 10 ^ D) 　　　　Case 2 ' 切り上げ 　　　　　　R = Rounds(M * 10 ^ D + 0.4@, 0) 　　End Select 　　Rounds = Sgn(M) * (R / 10 ^ D) End Function

こんにちは ワードで文字入力をしていると、 変換前の言葉が、用紙のところではなく右上に表示されて、確定したら用紙に飛んでくる状況になりました。 昨日までは、用紙の上で変換をできたのですが、どうしてでしょうか。 何か設定をいじってしまったと思うのですが、やり方をお教えいただければ幸いです。

会社からいただくシフト表を元にして、 excelのシフト表（印刷用ベースのため表示変更不可）にポスト番号を打ち込むと、 個人作成した日付別のポスト配属表のようなものに 名前が自動挿入されるようにしたいのですが？ ※その日のチーム編成を一目で把握したい。 例・・・ シフト表：D4に「１」と打ち込む → 　ポスト配属表：S4に氏名の「山田 太郎」が自動挿入される。 上記に見合った関数式があればご教授ください。 ※シフト表・ポスト配属表・・・日付欄には表示される書式は変えていますが 　　　　　　　　　　　　　共に「2016/10/11」のようにそれぞれ入力してあります。 何分、excel初心者で只今関数を学習中。VBA、マクロはさっぱりです。(ToT；)ゝ 説明不足があればご教授ください。

【環境】 Windows7 Office2013 【目的】 Excelで作ったcsvデータを、条件に合うものだけ抜き出して別ブックに自動で転記したい （1つの表を2つに分けたい） 【詳細】 ※オートフィルを使うという前提で説明しますが、目的の結果が得られるのであれば 　 オートフィル以外の方法でも構いません。 csvのデータがあります。 その中からオートフィルを使って「M列」で条件を選択（複数）し、その結果を 抜き出して（切り取って）別のブック（別シートではダメ）に自動転記したいです。 最終的に、元々の表Aから条件に合ったものだけを表Bとして保存。 表Aから表Bのデータを抜いたものは、そのまま表Aとして上書き保存。 ・・・したいです（添付画像参照） ネットで調べたところ、表の中に検索条件を入れる欄を作って・・・という方法 ならあったのですが、データ(ｃｓｖ）はそのままシステムに取り込むので 余計な欄を増やしたり等はできません。 そこで行き詰ってしまいました。 【表の詳細】 A～S列まであります。 項目名などの行は無く、1行目からデータが入っています。 ※行数は、都度変化します。 M列の中から「90」「95」の物だけを抜き出して、表Bとしたい。 【やってみたこと】 オートフィルでの操作を「マクロの記録」で記録しようとしたのですが、 オートフィルの結果だけを「切り取る」ことが出来ず、ダメでした。 どなたかお知恵をお貸しください。

エクセル2010VBAを使って仕事の効率化を勉強中です。 歳入日計表のシート３１日分を作り、歳入月計表として合計をまとめていますが 日々印刷範囲を決めて一日分のシート印刷するのをVBA処理したいのですが できません。 １日分はこんな感じでできるのですが・・・ ３１日分をどのように処理すれば日々印刷可能になるのでしょうか？ お願いいたします！ Sub 日計表印刷設定() With Worksheets("1") .PageSetup.PrintArea = "A2:G71" .PageSetup.LeftMargin = 55 .PageSetup.TopMargin = 40 .PageSetup.Zoom = 80 .PrintPreview End With End Sub

【環境】 Windows7 Office2013 【目的】 Excelで作ったcsvデータを、条件に合うものだけ抜き出して別ブックに自動で転記したい （1つの表を2つに分けたい） 【詳細】 ※オートフィルを使うという前提で説明しますが、目的の結果が得られるのであれば 　 オートフィル以外の方法でも構いません。 csvのデータがあります。 その中からオートフィルを使って「M列」で条件を選択（複数）し、その結果を 抜き出して（切り取って）別のブック（別シートではダメ）に自動転記したいです。 最終的に、元々の表Aから条件に合ったものだけを表Bとして保存。 表Aから表Bのデータを抜いたものは、そのまま表Aとして上書き保存。 ・・・したいです（添付画像参照） ネットで調べたところ、表の中に検索条件を入れる欄を作って・・・という方法 ならあったのですが、データ(ｃｓｖ）はそのままシステムに取り込むので 余計な欄を増やしたり等はできません。 そこで行き詰ってしまいました。 【表の詳細】 A～S列まであります。 項目名などの行は無く、1行目からデータが入っています。 ※行数は、都度変化します。 M列の中から「90」「95」の物だけを抜き出して、表Bとしたい。 【やってみたこと】 オートフィルでの操作を「マクロの記録」で記録しようとしたのですが、 オートフィルの結果だけを「切り取る」ことが出来ず、ダメでした。 どなたかお知恵をお貸しください。