TAGS: Excel

Excel 画像が結果シートしかなく大変申し訳ないのです。9列までありますとヒットしたところの行を全てコピー8列目までありますが違うようだけれど、結果に関係ないようなので、指示通りにしています。画像が結果シートしかなく大変申し訳ないのですが、マクロを作りたいです

1つのブックの中に「結果」「情報」「追記」の3つのシートがあります

「結果」シートの「B2」に4桁もし くは8桁の数字を入力します

検索ボタンを押します (ボタンにマクロ登録させます)

「結果」シートの 7行目 と 10行目から記載のある最終行まで一旦クリア(削除)します
(9列まであります)

①入力した4もしくは8桁のコードを「情報」シートのA列から検索(完全一致)

ヒットしなければ「登録されていません」とメッセージボックスを出す

ヒットしたところの行を全てコピー(5列まであります)

「結果」シートのA7行目に5項目ペースト

*こちらは同じコードが書いてる行はないので繰り返しはしなくて良い

②入力した4もしくは8桁のコードを「追加」シートのA列から検索(完全一致)

ヒットしなければ「検索結果 0件です」とメッセージボックスを出す

ヒットしたところの行を全てコピー(8列目まであります)

「結果」シートのA10の行にペースト
*②はA列が同じコードでもその他が違う内容が入っているので②は繰り返す
繰り返した場合1つずつ下の行にペーストしていく

「結果」シートにペーストされたそれぞれの行をD列10行目以降に記載されている日付を上から古い順に並べる
(日付は1111/11/11形式で記載しています)

おしまい

という内容なんですが、マクロの大部分を教えていただけるとうれしいです
特に②の部分が全然出来ません
宜しくお願い致します 『画像とファイル名を取込と編集後の移行』狭山。変更』シートでマクロを実行し『画像処理前』の画像を シートに前半部分
は。「画像をシートに挿入するマクロ」などと検索してみてください。大変
申し訳ないのですが自宅のが1台しかなく家族が使用するため

Excel。次のように。シートを指定すれば。アクティブシートではない表示されていない
シートに画像を挿入することもできます。もし。挿入している画像が枚しか
ないのでしたら。次のようにインデックスで指定した方が簡単です。ちなみに
。やの実体は。やと同じですから。を指定して
も同じ結果になります。ただ。いきなり従来のオブジェクトを使えなく
したら。それまでのマクロが動作しなくなりますから。下位互換性を保つために
。疑問?質問?マクロの要望。回答が遅くなりまして申し訳ありません。 ご要望の動作はマクロを使用しなくて
も と で可能です。 には差し込み印刷という機能がありますExcel2010でマクロ搭載ファイルを開くと32809のエラーが発生。はじめに。私はの大沢さんではないです。 山口と申します。初めまして
。 ちゃんと名前を明記せず混乱させてしまい申し訳ありません。 さて。『
は動作を停止しました』が発生してシートが削除

9列までありますとヒットしたところの行を全てコピー8列目までありますが違うようだけれど、結果に関係ないようなので、指示通りにしています。' 検索ボタンを押します。ボタンにマクロ登録させますSub sample'「結果」シートの 7行目 と 10行目から記載のある最終行まで一旦クリア削除します。'9列までありますDim rWs As WorksheetSet rWs = Sheets結果rWs.RangeA7:E7.ClearContentsrWs.RangeA10:ARows.Count.Resize, 9.Delete' ①入力した4もしくは8桁のコードを「情報」シートのA列から検索完全一致Dim iWs As WorksheetSet iWs = Sheets情報Dim rng As RangeSet rng = iWs.RangeA:A.FindrWs.RangeB2.Value, LookAt:=xlWhole'ヒットしなければ「登録されていません」とメッセージボックスを出すIf rng Is Nothing ThenMsgBox 登録されていませんrWs.RangeB2.SelectElse'ヒットしたところの行を全てコピー5列まであります'「結果」シートのA7行目に5項目ペーストrng.Resize1, 5.Copy rWs.RangeA7'*こちらは同じコードが書いてる行はないので繰り返しはしなくて良い。End If'②入力した4もしくは8桁のコードを「追加」シートのA列から検索完全一致Dim aWs As WorksheetSet aWs = Sheets追加Set rng = aWs.RangeA:A.FindrWs.RangeB2.Value, LookAt:=xlWhole'ヒットしなければ「検索結果 0件です」とメッセージボックスを出すIf rng Is Nothing ThenMsgBox 検索結果 0件ですrWs.RangeB2.SelectElse'ヒットしたところの行を全てコピー8列目まであります'↓'「結果」シートのA10の行にペースト'*②はA列が同じコードでもその他が違う内容が入っているので②は繰り返す'繰り返した場合1つずつ下の行にペーストしていくDim adr As Stringadr = rng.AddressDim r As Longr = 10Dorng.EntireRow.Copy rWs.RangeArr = r + 1Set rng = aWs.RangeA:A.FindNextrngLoop Until rng.Address = adr'「結果」シートにペーストされたそれぞれの行をD列10行目以降に記載されている日付を上から古い順に並べる'日付は1111/11/11形式で記載していますWith rWs.Sort.SortFields.Clear.SortFields.Add Key:=rWs.RangeD10, Order:=xlAscending.SetRange rWs.RangeA10:ARows.Count.Resize, 8.Header = xlNo.ApplyEnd WithEnd If'おしまいEnd Sub見えないプログラムを直せってって、無茶苦茶言っていること自覚できてないですか?もし、私が何らかの回答をしたとして、「いや、そういう作りじゃないんですよ。」「そう作っていません。」って返答された場合、まったくの無駄ですよね?それともどのようなプログラムを作ったか迄、推測して、というか判り切った状態で回答しろという事なんでしょうか?

Author

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です