- ベストアンサー
Excel２０００マクロ記述について
k-familyの回答
- k-family
- ベストアンサー率34% (180/523)
Ｂ列(B6)に =IF(MID(A6,8,1)="B","L221",IF(MID(A6,8,1)="A","L222",IF(MID(A6,8,1)="M","L222",IF(MID(A6,8,1)="P","L222","")))) を入れ下方向へコピーします。 ＞ｃ列の５行目から はａ列ですよね？
関連するQ&A
- excel2000マクロ記述
シート名JISEKIの中のＦ列には２行目から４桁のコードが入っています。 Ｘ列の２行目から数値データが入っています。 条件としてＦ列のコードがA310又はA505で、Ｘ列の数値がマイナスの場合は、 Ｒ列からＷ列の数値データを非表示にしたい。 これをマクロ化したいのですが、記述の仕方を教えてください。
- ベストアンサー
- Visual Basic
- excel2000マクロ記述方法
抽出条件方法のマクロ記述 1つのファイルのシートの中にデータがあります。 例ファイル名a.xlsシート名マスター Ｂ列 Ｃ列 Ｄ列 Ｅ列 項目名 倉庫 翻訳 ソート 非表示項目 A057 レオナ工場 1 A870 セ新港 2 Y A887 セ日向 3 もう1つのファイル 例ファイル名B.xlsシート名WORK A列 Ｂ列 ｃ列 d列 E列 連結コード 品名 倉庫 出荷１ 加工１ AA 0G120 0G120 A870 0 0 0 AA 0H120 0H120 A057 0 0 0 AA 0S0100 0S010 A887 0 0 0 抽出条件方法 シート名WORKのデータの中のＣ列と、シート名マスターのＢ列の倉庫を参照して 非表示項目のＹが入っていない、倉庫と同じデータをシート名WORKのデータを抽出したい 場合のマクロ記述の方法を教えてください。よろしくお願いします。 （抽出表示方法） AA 0H120 0H120 A057 0 0 0 AA 0S0100 0S010 A887 0 0 0
- ベストアンサー
- オフィス系ソフト
- エクセル２０００マクロ記述について
Ｂ列の２行目から下記のようなデータがあります。（例４件の18桁） AD120000110000000P AD120000110000000P AD120000110000000P AD120000110000000P 頭から７桁目と8桁目の間、12桁目と13桁目の間に半角のスペースを空けたいのですが マクロでの記述はどうすればよいか教えてください。 データの件数はその都度変わります。
- ベストアンサー
- オフィス系ソフト
- Excel２０００マクロ記述の変更について
下記のマクロを記述しています。 条件が変わったので変更したいのですが、変更の記述の仕方を 教えてください。 現在の条件 If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) <= 1000 変更の条件 倉庫マスタ（シート名）のＢ列の５行目以降とＡＣＴ（シート名）のＤ列の６行目以降を参照して同じデータで、倉庫マスタのＧ列の５行目に記号が入っている場合は、ＡＣＴ（シート名）の６行目からに 下記の条件を設定したい。 .Cells(i, "M").ClearContents .Cells(i, "O").Resize(1, 15).ClearContents Sub 再表示1() Dim SheetName As String Dim i As Integer Dim LastRow As Integer Dim rng As Range SheetName = "ＡＣＴ" 'シート名 LastRow = 3000 '最終行の番号 With Sheets(SheetName) Sheets("ＡＣＴ").Select For i = 6 To LastRow If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) <= 1000 Then .Cells(i, "M").ClearContents '原料平均データ消去 .Cells(i, "O").Resize(1, 15).ClearContents '前月末在庫～発注後在庫欄までデータを消去 End If Next End With End Sub
- ベストアンサー
- オフィス系ソフト
- excel2000マクロ抽出方法
2つのファイルがあります。ブック名A.XLS シート名 WORK ブック名b.XLS シート名 SORT ブック名A.XLS シート名 WORKに下記のデータが入っています。 AD 1300G A227550 000PA505（Ｃ列2行目） 200112(Ｆ列)200201(Ｇ列)200202(Ｈ列）200203(Ｉ列)200204(J列)200205(Ｋ列)→1行目固定データ AD 1300G A227550 000PA533（Ｃ列3行目） ブック名b.XLS シート名 SORTに下記のデータが入っています。 AD 1300G A227550 000PA505(A列2行目）200112(E列)200201(F列)200202(G列）200203(H列)200204(I列)200205(J列) →1行目Ｅ列～Ｊ列のデータは都度変わっている AD 1300G A227550 000PA533(A列3行目） データ抽出条件 ブック名A.XLS シート名 WORKの Ｆ列～Ｋ列の1行目の列データとブック名b.XLS シート名 SORTの Ｅ列～Ｊ列の1行目の列データが同じで、ブック名A.XLS シート名 WORKのＣ列の2行目以降のコードと ブック名b.XLS シート名 SORTのＡ列の2行目以降のコードが同じだったら ブック名b.XLS シート名 WORKの Ｅ列～Ｊ列の同じ行にデータを入れる。違うときは、 ブック名b.XLS シート名 WORKのデータはそのままにする。 上記の条件を満たしたマクロの記述の仕方を教えてください。 以上よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- シート間の行相違検証マクロ
シート１のB列(B5:B38)に数10名の氏名を入力します。C列からM列までには数字を何個か入力します。例えば A氏、C5には4、F5には2、M5には3、 B氏、E6には3、G6には4、 C氏、F7には4、H7には8、等です。 シート２の(A3:A36)にはシート1の氏名を入力します。B列からL列までにはシート1で入力した数字に対応した数字を入力します。例えば シート1、A氏、C5の4ではシート２、A氏の行のB列に２０００、F5の2ではシート2のA氏の行のE列に1000、M5の3ではシート2のA氏の行のL列に1500、と入力します。ここで、シート2で入力した行が違っていないか。他の人の行に入力していないかの検証マクロの記述方を教えてください。尚、シート1とシート2の氏名の並びが同一の場合と、そうでないときの二通りを教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic
- マクロ【シート間での文字列比較及び指定セルに置換】
いつも大変御世話になります。 【D:\test】フォルダ内に、１つのエクセルファイル（Excel2003）があります。 ・エクセルファイル名は【test.xls】。 ・シート【起動シート】・【マスタ】・【中間マスタデータ】があります。 今回悩んでいるのはシート名【起動シート】内にあるマクロボタンに入れるマクロです。 ★シート【マスタ】には、日々、不定期に作成されるテキストファイルのデータ状態を記録したマスタシートです。 データ状態は記号で入力され、下記の４つになります。 ・サイズのある良いデータの行には【○】 ・サイズのある悪いデータの行には【×】 ・サイズのない０件データの行には【０件】 ・今回作成されなかったデータの行には【-】 シート【マスタ】には、以下のように入力されます。 A B C D Ｅ ←列 1 ２ テキスト名 1日 ２日 ３日 ４日 ５日 ３ L2001.txt ○ ○ ○ ○ ○ ４ L2002.txt ○ × ○ ○ ○ ５ L2015.txt ○ ○ ○ × ○ ６ L2101.txt ○ 0件 ○ ○ ○ ７ L2A05.txt ○ ○ ○ - ○ ↑行 B2から右横に日付がふられ、すでに来年分までふられています。 ★シート【中間マスタデータ】には、当日入力分のみのデータ振り分け結果が入力されています。 シート【中間マスタデータ】には、以下のように入力されます。 A B C D Ｅ ←列 1 ２ GOOD 0_FILE BAD ３ L2001_20081206.txt L2015_20081206.txt L2A05_20081206.txt ４ L2002_20081206.txt L2101_20081206.txt ↑行 ＧOODの列・・・サイズのある良いデータの記号【○】に該当 0_FILEの列・・・・サイズのある悪いデータの記号【×】に該当 BADの列・・・サイズのない０件データの記号【０件】に該当 この【_20081206】は12月6日は12月6日分のデータという意味で、日によって日付でリネイムされています。 上図のデータを使用すると、例えば、６日なら【中間マスタデータ】を参照し、【マスタ】に入力すると以下のようになります。 A B C D Ｅ ←列 1 ２ テキスト名 1日 ２日 ３日 ４日 ５日 ６日 ３ L2001.txt ○ ○ ○ ○ ○ ○ ４ L2002.txt ○ × ○ ○ ○ ○ ５ L2015.txt ○ ○ ○ × ○ × ６ L2101.txt ○ 0件 ○ ○ ○ × ７ L2A05.txt ○ ○ ○ - ○ 0件 ↑行 ３つの記号を一瞬で入力し、入力列は一番右端の空行の列、【今回作成されなかったデータの記号【-】】は残った空セルに入力。 これを一気に入力可能なマクロコードがどうしても書けません。 シート間の文字列比較をして、記号に変換する。 何かサンプルコードとかご提示いただけると助かります。 宜しくお願いいたします。
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルマクロ：空白行を除いてコピー
マクロで次の作業を処理したいのですが、どのようなコードを書けばよいのでしょうか？教えてください。よろしくお願いします。 ○sheet1 ☆左側 列B～Hをワンセットとしたものが、計51行ある。先頭はタイトル行で９行目である。 D列には固定の文字列が与えられており、E列はブランクで、D・Eともに非表示にしておきたい。 B10～B59には、固定で1～50の数字が順番に与えられている。 C10～C59、G10～G59、H10～H59には数値が、F10～F59には文字列が入力される。 空白の場合もあり、どの行に入力されるかは不明。 ☆右側 列J～Pをワンセットとしたものが、計51行ある。先頭はタイトル行で９行目である。 J10～J59には、固定で51～100の数字が順番に与えられている。 K10～K59、M10～M59、O10～O59、P10～P59には数値が、L10～L59、N10～N59には文字列が入力される。 空白の場合もあり、どの行に入力されるかは不明。 ○sheet2 sheet1のボタンをクリックし、sheet2を表示させ、 sheet1の値を次のようにsheet2に貼付けたい。 sheet2のB8～H107の範囲内で上から、sheet1の左側B10～H59と右側J10～P59の空白を含む行を除いた セット（列B～H、列J～P）のみをコピーし、左側と右側を連続して、値のみ貼付けたい。 ※C列とK列の空白を判定すれば良い ※並べ替えなどのために別シートを置きたくない ※非表示列の扱い方
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで転記
シート１とシート２があり、 シート１の20Aから39Lまでのセルの中に情報を書き込んでいます。 シート１の20Lから39LのL行で、数値が入っているセルがあれば、その行のA、B、I、L列と、J2、A7を取り出し、シート２の２行目から下に転記していくのですが、 シート２のA列にはシート１のJ2を、B列にはシート１のA7を、C列以降は、シート１のA、B、I、Lを入れるようにします。 また同じ条件がシート１で発生すれば、シート２の3行目以降に転記していく感じです。 どのようにすればいいでしょうか。
- ベストアンサー
- その他MS Office製品
- EXCEL2000VBAの記述について
e列～j列の５行目に 下記の項目が入っています。 e列 f列 g列 h列 i列 j列 5行目 4月 5月 6月 7月 8月 9月 別シートのＥ列の５行目に入っているデータと、上記の列（e列～j列）の５行目に入っているデータが 同じの場合は、別シートのＥ列の６行目から３８行目に入っているデータをコピーして、上記の 同じ項目の場所の６行目から３８行目にデータを貼り付けたい場合 ＶＢＡで記述の仕方を教えてください。
- ベストアンサー
- オフィス系ソフト