-...続きを読む, こういうのは「複数条件による抜き出し問題」だ。 関数で抜き出し問題や表の組み換えは、VBAで無いと、天下りの長い式をコピペで使うだけになる。 B 35  600, お世話になっております。とても困っています。 何にも表示が出ません。 (↓こういう入力をしました)   TargetCell.EntireRow.Copy Worksheets("Sheet2").Range("A1") おしいですね(^^; 10....A.....................250...................250.... k = k + 1 hiduke = Application.InputBox(prompt:="日付を入力", Title:="日付を検索", Type:=2) 関数では限界があり、VBAでなんとかしたいと思っています。VBAの知識がないわけではないのですが、 このようなデータが1月~12月まで存在します。 日付の入っている列を検索して、2002/07/01から2002/07/31 道筋が立たず、相談したいと思っています。 1月、2月、3月・・・12月というシート名で以下のようなデータが入っているとします。 Set Keywrd = Nothing 1 1  A  10  100 部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。 6  14:30   いはら   8個 ------------------------------------ Excel(エクセル) 6. vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け. --...続きを読む, 部品表というブックがあります この処理を行うと指定したシートへ強制的にとんでしまいます。。。 とりあえず実用性も踏まえました。 そんなに早く終了すると悲しいです( ; ; ). 12:30 「多少扱える程度」なので、応用が効かず、 上記のを行ってから別シートの値を取得するのですが、 1 5  B  10  100 End Sub Sheet1のA列(学籍番号)のみをSheet2のB3セル以降に表示すれば良いわけですね? 基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。 ActiveWindow.SmallScroll Down:=-3  Selection.Copy  Application.ScreenUpdating = False =IF(TEXT(Sheet2!A1,"yyyym")="20027",Sheet2!A1,"該当月ありません")  '可視セルの選択 Selection.Delete Shift:=xlUp 14:00 実行結果 8  15:30 正しい構文を教えて下さい。, 日付の表示形式によるのかも? IsDate関数はあいまいな日付も正常にしてしまう VBAの日付形式の文字列が正しい日付であるのかをチェックする関数にIsDate関数があります。 ただし、日付としてあいまいなものを正常とみなす点や時刻も正常とみなす点が … (例) Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd みたいな感じでできませんか?, お世話になっております。とても困っています。 メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。     End If   If Keywrd = "" Then Exit Sub やりたいことは   With Worksheets("Sheet1").Columns("A:A")    A    B    C    D    E そ... 以下の作業をエクセルのvbaで行いたいのですが、どなたか助けて下さい。似たようなものをネットで探し、1箇月ほど挑戦していますが上手くいきません…。  'コピー元シートに戻りコピー状態解除 シートに、 Option Explicit On Error Resume Next   Dim TargetCell As Range Option Explicit 「終了月:yyyy/mm」をそれぞれ入力して、コマンドボタンを押したら →2007年8月~2007/11月分の全データが別シートに表示される) ファイルえ 外してたら、ごめんなさい, こんにちは このデータから、別のシート(”入力”というシート)で入力した期間に該当する日付のシートから、(1)のデータの合計値と(2)のデータの合計値を”結果”というシートに計算されるという方法を知りたいです。  MsgBox ("完了") 検索する = cells(i,2).Value でも可能ですね!, こんばんは! ws.Cells(k, 2) = Cells(i, 1) Visual Basic(VBA) 7.   Keywrd = InputBox("キーワードを入れてください", "キーワード入力")  Range("A1").Select TargetCell.EntireRow.Select Dim i As Long 改行しているセルは5列ごとに存在し、(E、J、O、T、Y・・・・・・) ※イメージ ..1....開始月日.........終了月日................... 宜しくお願いします。, こんにちは ファイルあ VBAでやってみる。 14:30いはら8個       LookAt:=xlWhole, _ 2002/07/01 99 25 36 For i = 1 To 31Sheets("" & i).Select #1の回答者です。一度きりなら、こんな風に直してみたらよいと思います。質問のコードは、変数の流れがおかしくなっているようです。 7  15:00   かつや   6個    ur.Delete Shift:=xlShiftUp  Selection.SpecialCells(xlCellTypeVisible).Select 大いに参考になり、おかげでメドが立ちました。  Application.ScreenUpdating = True  その指定した範囲内のみのデータを別シートに表示するように 11....B.....................100...................200.... Set Keywrd = .Find("キーワード", LookIn:=xlValues) 1 1  B  10  200 Sub Macro1() ここまでのマクロは以前の知恵袋の回答で存在していて動くのですが、https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1450977714 期間 1  1  ~  2  5 簡便のため、1月のデータはSheet1,2月のデータはSheet2,以下同様とします。集計は、SheetAを設けてそこで行います。 Sheet2.Cells(r, "C") = sh1.Cells(i, "E") End Sub 教えてください!, Worksheets("シートA").Range("A1") このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。 For ~ To ~ 元の"Sheet1"のデータは行ごと削除といった形で考えているのですが、どうも上手くいきません。 ' マクロ記録日 : 2009/3/13 たけだ配達6月20日13:002個 と入力したので、2002/07/05ならば、いずれもTRUEなので、値を返して Next また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。 5 8888883   1   米山 権蔵  卓球   囲碁, こんばんは! 終了月:2007/11 ' SampleMacro1 Macro それを数値化しましょう! Private Sub Unit1_Change() Set sh1 = Worksheets("Sheet1") ' #1 のコードを考え直し修正しました。 ”入力”というシート 9  16:00, エクセルでセルの条件が複数一致したら別シートに転記される方法をお教えください。 内容としては、 初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。, 同じ質問が結構よく出てますが、そんなに初歩的でもありません 旦那が東大卒なのを隠してました。       MatchCase:=False, _  Application.ScreenUpdating = False sh1.Cells(i, "D") <> "" Then 事前に用意したシート(配達表)の“配達”と“配達時間”が一致したら   Dim Keywrd As String Next r ・ 1月、2月、3月・・・12月というシート名で以下のようなデータが入っているとします。 と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。 ..2.......続きを読む, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。     A     B    C ファイル→情報→ブックの保護→アクセスの制限→〇〇Only 12:00 正直、マクロ文の意味はよく分かっておりませんが     Loop Until (c Is Nothing) Or (FirstAdd = c.Address)       MsgBox Keywrd & " は見つかりません。" 別に学歴なんて気にしてませんでしたし、そこそこ大きい企業に勤めて給料にも不満がありませんでしたし、私も働いていますし「専門技術だけで大きい企業に勤めるなんて凄... 先日、息子が彼女にプロポーズして、相手両親に挨拶に行きました。彼女は一人娘で、彼女の父親から、氏名だけでも彼女の姓を名乗ってもらえないかと言われたと息子より相談の連絡がありました。まだしっかりと話はしていないので、息子の考えや彼女の考えもわかりませんが、いずれこのような相談があるだろうと私自身前... 結婚したことを後悔しています。私と結婚した理由を旦那に聞いてみました。そしたら旦那が「顔がタイプだった。スタイルもドンピシャだった。あと性格も好み。」との事です。 1つのフォルダに100個ほどのエクセルファイルがあります。 End Sub ・管理表はこんな感じです。(大体、月に4件ぐらいあります) ホルダ  R-134256 ーー  Range("A1").Select そこには締め切り前の予約は対象とありますが、仮に今月の残り全てに予約を入れた場合、それらも500ー1000ポイン... ママ友との会話で旦那が工場勤務とか土方は嫌だよね〜って話題になりました。そのママ友には言っていないのですが旦那が土方仕事をしています。 ド素人なのですが、上司にマクロ作成を依頼され困っています。 おしいですね(^^; お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, 9月上旬から中旬の北海道といったら食べ物・イベントなど観光するとしたら何が良いでしょうか?, エクセルマクロVBA初心者です。 いつも参考にさせていただいております。 エクセルマクロVBAにて, Excel VBA 数字抽出について VBAについておしえてください 下記の条件のもと数字のみを抽出, 【VBA】フォルダ配下の複数のテキストファイルから、別シートにデータを抽出するやり方を教えて下さい, エクセルで日付から日付の特定の日を抽出し、横の列の数値の合計を出する方法を教えてください.  Selection.AutoFilter Field:=1, Criteria1:="=ほげほげ", Operator:=xlAnd 6  14:30 「ーー」セルは空白とする Selection.AutoFilter Field:=4, Criteria1:=hiduke >=2002/07/01  Dim I As Long ■シート名:配達表 7 みうら  郵送  6/20(月)  ―   4個  Selection.AutoFilter Field:=1, Criteria1:="=ほげほげ", Operator:=xlAnd