ushi2015 の回答履歴

こちらの識者の方々にはいつもお世話になっています。 VBAの質問です。 環境は下記になります。 OS=windows7 pro 64bit Office=Excel2010(14.0.7128.5000) ・やりたいこと 題名に大いに不足があり申し訳ないです（文字制限の中で適切に表現できませんでした）。 添付ファイルのようなリストがあり、マクロを実行するたびに"CRT","CRN","MRT","MRN"を一つ↓にずらしてループさせたいのですが、 "CRT","CRN"についてはB列の値0の範囲内で、"MRT","MRN"についてはB列の値1の範囲内でそれを行いたいのです。 つまり、"CRN"が16行目にあるときに実行したら、"CRN"を2行目に持ってくる（"CRT"も同様）、 "MRN"が31行目にあるときに実行したら"MRN"を17行目に持ってくる、という感じです。 Cat0,1ともに15個ですので下段の通り現在はMOD関数でカウンター変数の余りを求めて処理していますが、 あまりいい処理とは思えません。 （Cat0,1共に同一数でなければならないという制約が付くので） Option Explicit Option Base 1 Sub hoge2() 　Dim Wb As Workbook, Ws As Worksheet 　Dim i As Long, iNA As Long, EndRow As Long 　Dim mtxNI As Variant, mtxNA As Variant 　 　Set Wb = ThisWorkbook 　Set Ws = Wb.Sheets(3) 　EndRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row 　mtxNI = Ws.Range("A1:J" & EndRow).Value 　 　mtxNA = Array("CRT", "CRN", "MRT", "MRN") 　For iNA = 1 To UBound(mtxNA) 　　For i = 2 To EndRow 　　　If mtxNI(i, 10) = mtxNA(iNA) Then 　　　　mtxNI(i, 10) = "" 　　　　If i Mod 15 = 1 Then 　　　　　mtxNI(i - 14, 10) = mtxNA(iNA) 　　　　Else 　　　　　mtxNI(i + 1, 10) = mtxNA(iNA) 　　　　　Exit For 　　　　End If 　　　End If 　　Next i 　Next iNA 　Ws.Range("A1:AO" & EndRow).Value = mtxNI 　 End Sub この場合どのようなコードが適していますでしょうか。 まだまったく理解できていませんが、クラスモジュールのほうが適しているのでしょうか？ 質問に不備不足等ございましたらご指摘ください。 ご面倒お掛けしますがよろしくお願いします。

愛猫♂５歳が８日の夜までは普段と変わらず元気に過ごしていました。夜ご飯も食べて。我が家では他に４匹猫がいて、誰かが食べてすぐ吐いたものが廊下にあったのですが全員元気そうだったので食べ過ぎで誰か吐いたんだと軽く思っていました。夜の１０時過ぎくらいに一匹がカリカリ食べたいとねだるのでいつもなら一匹食べにきたら全員集まってくるのですが その子だけ近くにはいるけど食べに来なかったので あれ？いつもと違うな？もしかして吐いたのこの子？それから夜寝る時になってから様子みていたら やっぱりその子がまた吐いたんです。茶色の液体を。次の日の朝に病院連れていくまで夜中にも吐いて、８時頃も水飲んで吐いて。病院でエコー検査などしたら腎臓に白い何かあるみたい。点滴と胃腸？の注射を打ってもらい次の日もきてください。と言われて帰宅。夕方頃毛玉の入ったものを吐いて、それで良くなるのかな？と思ったらその後しばらくしてから黄色の液体を吐いたので病院へ連絡してまた病院へ行って 水分の点滴と胃腸？の注射をしてまた明日様子見せにきてくださいと言われて帰宅。帰宅後初めて自分から水飲んでトイレに行ってオシッコして うんこもしようと踏ん張っていたのですがうんこはでませんでした。腎臓に石があるかもってことで後何回か病院に通えばすぐ良くなって元気になるとばかり思ってました、その時までは。呼び掛けると返事もしてその日の夜ご飯も食べにきて少しだけ口にしたけど 今日昨日吐いて病院で注射もしたし食欲もすぐにでないよねと思っていました。しかしその日の夜からまた朝までに５回くらい吐いて。朝に病院へ連れて行ってその様子を先生に話したらそんなに何回も吐くのは…と血液検査とレントゲンなど詳しく調べさせてくださいと夕方お迎えにきてくださいと言われて帰宅。一体なんなの？不安なまま夕方迎えに。先生にレントゲン写真と血液検査の結果を聞いて…正直思ってもいなかった。ＢＵＮ１４０ ＣＲＥ１２.９異常な値で腎不全宣告。しかも腎臓が一つしか見えないって…生まれつき一つしかなかったみたいだねと。その一つしかない腎臓が大きくなっていて…その説明を先生が分かりやすくしてくれているけど頭が状況についていけてない。２日前まで元気だったのに？なんの予兆もわからなかった。多飲多尿になるとかよく本など書いてあるけど そんなに気にするほどではなくて健康そのものって感じだったので先生があまりよくならない…長くないみたいなことを話されてもうショックで。ずっと帰ってきてからも寝てばかりになって目に見えて悪くなっている。絶対大丈夫だから頑張って!!って話かけて涙がでて。苦しいの頑張ってるんだよこの子は！辛いのはこの子なのにって。まだ生きてる！長くないかもって思ったりして苦しいけど最善を尽くしたいです。一つしかない腎臓の腎不全でしてあげられることはなんでしょうか？本当にダメになってしまうのでしょうか？今日も病院へ連れて行って点滴お願いしてきました。オシッコが作れてない。沢山点滴しても作れてないって腎臓が働いてくれてないみたいです。２日前まではオシッコもうんこも普通にしてたのにって。腎臓のこと最初からわかってたら…フードも考えて与えたのにって。なんでも後からなんですが猫ちゃんに申し訳ない。一昨年も生後８か月の子がその日の朝まで元気だったのに突然死してしまいショックで。生きていれば必ずその時がくるってわかっている。嫌だけど想像もしたくないあんな悲しみは二度と嫌だ。支離滅裂な文章すみません。

ExcelのVBAのコードでB列の１カ所の「zz2300」を取得したいのですが、 どういう記述をすればよろしいのでしょうか。 ※その列には同じ文字は存在しません。 test＝Range("b65535").End(xlUp).Rowの定義があるのですが使えますか？

138フィールドあるデータを取り込んで クエリからデータ抽出後にテキストエクスポートする際に フィールド'フィールド130'の開始位置'32907'が有効ではありません。 開始位置は32767以内で指定してくださいと表示され テキストエクスポートできません。 このエラーの対処方法をご存知の方いましたら アドバイスよろしくお願いいたします。

請求書毎に集計した表をマクロで作りたいと思っています。 例えば、 取引先　　請求書No　　商品　　　売上 山田　　　　0001　　　りんご　　100　　 山田　　　　0001　　　なし　　　200　　 山田　　　　0001　　　みかん　　300　　 鈴木　　　　0002　　　りんご　　100 鈴木　　　　0002　　　バナナ　　200 山田　　　　0003　　　みかん　　100　　 というデータがあるとします。 その場合 取引先　　請求書No　　売上 山田　　　　0001　　　600 鈴木　　　　0002　　　300 山田　　　　0003　　　100 というように、請求書毎に、売上の合計と取引先名などが分かるように集計した表を作成したいと思っています。 請求書番号は、基本的には連番ですが、すこし飛ぶ可能性がありますし、 毎月、どのくらいの番号まで付番するのかははっきりしません。 また、請求書毎に、どれだけの種類の製品を出荷するのか（請求書毎に、何行になるのか）も不確定です。 ピポットですと、取引先名が表示されません。 また、所定の表を作って自動集計するというよりは、マクロで請求書毎に集計したほうが良いかと思っています。 基本的なコードや考え方を教えて頂けないでしょうか。 宜しくお願い致します。

エクセル関数について質問です。 以下のような長い住所を２つのセルに分ける作業をしています。 神奈川県逗子市逗子5－2－16マンション名４６６７号棟 東京都葛飾区東北沢南元８－９９０９マンション名８９０ 埼玉県入間郡毛呂山町毛呂本郷38－５－６ 住所の区または市または郡の後の住所を隣のセルに移動する関数はありますか？ よろしくお願いいたします。

A1 大阪府泉南市信達童子畑20 埼玉県吉川市中野338 東京都足立区鹿浜6-26-10 B１　　　　　　　　C1　　　　　　D1　 大阪府　　　　　　　泉南市　　　　信達童子畑20 埼玉県　　　　　　　吉川市　　　　中野338 東京都　　　　　　　足立区　　　　鹿浜6-26-10 都道府県／市区郡／町名・番地 と三つに分けたいです。 どうやったらできますか。

シートに配置したボタンが小さくなる理由として、どんなことが考えられますでしょうか？ ネットで調べると印刷プレビューをしてシートに戻ると小さくなるというのは見つけました。 あとはオブジェクトのプロパティで、サイズや移動を変更するにチェックをいれるぐらいでしょうか。 考えられる原因を教えてください

sheet1に下記のような（例）データベースがありＡ～ＢＳ列までデータが入力されています。 Ａ　 Ｂ　Ｃ　　Ｄ　　Ｅ　　 Ｆ　　Ｇ　　Ｈ　Ｉ　Ｊ　 ＢＳ 1　○○様　○○　 2名 　車　 　可 埼玉 *** *** *** 2015/7/1 2　○○様　××　 3名　 車　 不可 東京 2015/8/1 3　○○様　■■　 2名　 電車　不可　愛知 2015/8/12 4　○○様　□□　 4名　 バス　 可　 新潟 2015/7/13 5　○○様　○×　 3名　 バス　 可　 宮城 2015/6/1 6　○○様　■□　 4名　 車　 不可　東京 2015/8/21 7　○○様　□○　 2名　 バス　 可　 山梨 2015/8/7 「sheet1」のデータでBS列の期間（YYYY/MM/DD～YYYY/MM/DD）とG列の地域名（例：東京）を抽出条件とし、 抽出された結果のsheet1のA列～G列、BS列のみ（H列～BT列は不要）をSheet2のA11以下へ表示するマクロを組みたいと考えています。 Ａ　 Ｂ　 Ｃ　　Ｄ　 Ｅ 　 Ｆ　 Ｇ　　　ＢＳ 2　○○様　××　 3名　 車　 不可 東京 2015/8/1 6　○○様　■□　 4名　 車　 不可　東京 2015/8/21 複数条件下の抽出の場合、どのようなVBAのコードを使用すれば良いでしょうか。 宜しくお願いします。

エクセルで全シートから複数項目で検索をかけ、条件に合う項目の行ごと 新しいシートに抽出結果として表示することは可能なのでしょうか。 初心者なりに考え、無様なコードではありますが、 検索条件が１つであれば、条件にあう行をすべて抽出することはできました。 ですが複数、または列ごと条件として指定することができず、難儀しております。 たとえば Sheet1 　　　A　　　　B　　　　C　　　　D 1　　　　　 田中太郎　　 男　　　穏やか　 2　　　　　 鈴木次郎　　 女　　　うっかり 3　　　　　 山田三郎　　 女　　　怒りっぽい 4　　　　　 佐藤四郎　　 男　　　せっかち Sheet2 　　　A　　　　B　　　　C　　　　D 1　　　　　 伊藤五郎　　 女　　　用心深い 2　　　　　 加藤六郎　　 男　　　ずぼら 3　　　　　 斎藤七郎　　 女　　　臆病 4　　　　　 後藤八郎　　 男　　　陽気 Sheet3 　　　A　　　　B　　　　C　　　　D 1 　　　　　【条件】 2　　　　　 加藤六郎 3　　　　　 鈴木次郎 4　　　　　 山田三郎 5　　　　　 後藤八郎 マクロ実行後↓ 新しいシート 　　　A　　　　B　　　　C　　　　D 1　　　　　 加藤六郎　　 男　　　ずぼら 2　　　　　 鈴木次郎　　 女　　　うっかり 3　　　　　 山田三郎　　 女　　　怒りっぽい 4　　　　　 後藤八郎　　 男　　　陽気 といった具合にしたいと考えております。 この場合ですと、B列全体を条件としたり、 Sheet3の条件が入力されているセルすべてを検索条件として 渡すことはできるのでしょうか。 実際のシートでは、条件が１０個～１００個ほどあり、 シートごとに数はばらばらになっております。 どうかわかる方、お力をお貸しください。

　現在、私は情報系の専門学校に通っていますが Java演習に苦戦しており、自宅で復習もかねて やってみようと思いました。 　学校で使用しているコンパイラがTeraPadなの でサイトからダウンロードして、学校で習ったプ ログラムを書いてコマンドプロントに、学校と同 じ手順で「cd java」と打ったところ、「指定され たパスが見つかりません。」と表示されました。 　どうすればできるようになるのでしょうか？

　現在、私は情報系の専門学校に通っていますが Java演習に苦戦しており、自宅で復習もかねて やってみようと思いました。 　学校で使用しているコンパイラがTeraPadなの でサイトからダウンロードして、学校で習ったプ ログラムを書いてコマンドプロントに、学校と同 じ手順で「cd java」と打ったところ、「指定され たパスが見つかりません。」と表示されました。 　どうすればできるようになるのでしょうか？

　現在、私は情報系の専門学校に通っていますが Java演習に苦戦しており、自宅で復習もかねて やってみようと思いました。 　学校で使用しているコンパイラがTeraPadなの でサイトからダウンロードして、学校で習ったプ ログラムを書いてコマンドプロントに、学校と同 じ手順で「cd java」と打ったところ、「指定され たパスが見つかりません。」と表示されました。 　どうすればできるようになるのでしょうか？

こちらの識者の方々にはいつもお世話になっています。 VBAの質問です。 環境は下記になります。 OS=windows7 pro 64bit Office=Excel2010(14.0.7128.5000) ・やりたいこと 指定範囲から、指定の文字列の範囲のrangeオブジェクトを取得する。 ColumnDifferencesが比較的やりたいことに近い（というか今まではこれを使っていた）のですが、 具体的には、A列に"FALSE"か"TRUE"の値が入っている状態で、A列を昇順で並び替え、FALSEの列を削除するというコードで、 Dim rng As Range 　rng = Range("A1:A100") 　rng.ColumnDifferences(rng(2)).EntireRow.Delete というような感じでやっていました。 しかし、A列に"TRUE"か"FALSE"どちらか一方しかない場合にエラーになってしまうことがわかり、その回避をしたいのです。 Dim rng As Range 　rng = Range("A1:A100") 　rng.ColumnDifferences(”TRUE”).EntireRow.Delete のような使い方ができればと思うのですが、通りません。 ColumnDifferencesメソッドの引数ComparisonはVariant型のようですが、文字列を指定することはできないのでしょうか？ また、この場合どのようなコードが適していますでしょうか。 ColumnDifferencesメソッドを使うことには頓着していませんが、for~next文などで一行ずつ削除する方法を使わずに実現したいです。 質問に不備不足等ございましたらご指摘ください。 ご面倒お掛けしますがよろしくお願いします。

2010以降のExcelVBAです ユーザー定義関数として使うfunction 此の引数として 幾つかの項に配列数式、又は定数配列を与えたいのです が、 此の際の 引数の受け方と処理の仕方 此が判りません 例を交え お教え願えないでしょうか？ 宜しくお願い致します。

OpenOffice Calc で消し線を使いたいのですが、どこを探しても見つかりません。 消し線を使えるようにするにはどうしたら良いでしょうか？ どなたか教えてください。 OpenOfficeのバージョンは4.1.1です

2010以降のExcelVBAです ユーザー定義関数として使うfunction 此の引数として 幾つかの項に配列数式、又は定数配列を与えたいのです が、 此の際の 引数の受け方と処理の仕方 此が判りません 例を交え お教え願えないでしょうか？ 宜しくお願い致します。

2010以降のExcelVBAです ユーザー定義関数として使うfunction 此の引数として 幾つかの項に配列数式、又は定数配列を与えたいのです が、 此の際の 引数の受け方と処理の仕方 此が判りません 例を交え お教え願えないでしょうか？ 宜しくお願い致します。

会社のデータ作りで困っています。　アクセスを用いて行う作業だとは思うのですが、あまり知識がなくて困っています。 添付の左の図（資料１）　に番号と果物が入力されています。（数字が入力されていない２．１２は　なし　としてカウント） 　 また、右の図に範囲コードとその資料１の番号から参照する範囲を示しています。 （範囲コード１は１~５の間　範囲コード２は１~３　５~７　９．１０　範囲コード３は１~７　範囲コード４は１~１０といったかたちです。） そして、範囲コードの区間コードの番号の範囲では　範囲コード１では　 ぶどうが２個　みかんが１個　りんごが０個　なしが１個　範囲 コード２では…）などとと出力されるようにしたいです。 乱文で申し訳ないのですがよろしくお願いいたします。

立て続けにお力をお借りします！＞＜ リスト内において A列：名前 B列：担当社名 C列：担当社種類（A,B,C,D） の場合において たとえばD１に名前を入れると、 D２にその人がAを何件、Bを何件もっているかが出るような表を作りたいです。 数字の合計はDSUMやSUMIFでいいかと思いますが VLOOKUPとCOUNTIFの合算みたいな集計になるので詰まってます： よろしくお願いいたします；