- ベストアンサー
エクセルのマクロについて教えて下さい。
imogasiの回答
- imogasi
- ベストアンサー率27% (4737/17068)
＞VLOOKUP関数から行を探す方法が分かりませんでした 参考までにＶＬＯＯＫＵＰ関数のＶＢＡでの使い方 を出しておきます。 Sub test01() Worksheets("Sheet5").Activate n = Val(InputBox("番号＝")) x = WorksheetFunction.VLookup(n, Range("a1:b5"), 2, False) MsgBox x End Sub Ａ１：Ｂ５にはたとえば Ａ列 Ｂ列 1 a 3 d 4 g 7 h 8 k プログラムを実行すると、数を聞いてくるので、７と入れればｈと表示されます。
関連するQ&A
- エクセルVBA初心者です。マクロを組んでください。
エクセルVBA初心者です。組んで欲しいマクロがあります。 Sheet 1に13桁を入力するセル sheet 2に検索したいデータ 手順としては、 Sheet 1のセルにデータを入力 →13桁以上でマクロが開始(されるように設定します) →Sheet 1のセルと同じ数列をSheet 2の列Aから検索 →該当のセルを含む行をSheet 3にコピー →Sheet 1の入力セルの少し下にもコピー (確認用) というのを一回一回ずつやりたいです。 できれば作業中マウスやキーボードを触りたくないので、そのために、マクロの終わわりには入力セル内の消去、マクロの始まりには確認用でコピーした行の削除もつけて下さい。 検索するSheet 2には同じデータが含まれているので、出来ればひとつずつSheet 3にコピーしたいので組み込んで頂けると幸いです。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- Excelのマクロを使ってのオートフィル
Excelのマクロを使ってのオートフィルについて教えて下さい。 類似の質問があったのですが、決まったセルからのものが多くわかりませんでした。 マクロはまだ始めたばかりです。 やりたいことはExcelの2つのシートに別のcsvファイルの数字を入れることです。 ExcelのSheet1のD１セルに日付を表す数字が入っています。 Sheet2と3には2行目に月の日付がずらりと並んでいます。 1列目には記録番号が入っています。 それぞれのシートにSheet1のD１セルと同じ日付の列を見つけて、 その下の行から1列目の記録番号を元に検索したcsvファイルのデータを引っ張ってきたいのです。 Sheets("Sheet1").Select Cells(3, (Sheets("Sheet2").Range("D1")).Select と最初に入れるセルを探しても違う列に飛んでしまったりします。 又、下のセルまで数式もコピーできずに止まったままです。 VBAまでは手が出せずに悩んでいます。どうか教えて下さい。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel 2007 マクロ 文字列の抽出について
Excel 2007 マクロ 文字列の抽出について 元データのB列（番号）に5桁、3桁、7桁の数字が入っています。 その番号をSheet2にコピーして貼り付けます。 貼り付ける際に、5桁、3桁、7桁をそれぞれの列に入れます。 Sheet2のB列（番号2）で400番台はF列（種別）に国産 同じくB列（番号2）で900番台はF列（種別）に外国産 を反映するようにしたいです。 どのようなマクロになりますでしょうか。 サンプルがございましたら、お教えください。
- ベストアンサー
- その他MS Office製品
- エクセル：マクロの起動条件
お世話になります。 以下の条件でのマクロを起動する方法、及びそのマクロを教えてください。 《条件》 ブックを開いた時、あるシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入って最下行の行番号の差が１００以下だった場合、マクロを実行する。 （なおＣ列の行番号の方が必ず大きいです） ちなみに実行したいマクロは１～６の手順です。 １．ブックを開いたとき ２．「入力用」という名前のシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入っている最下行の行番号の差が１００以下だった場合 ３．「入力用」というシートにかかっているシートの保護をはずし ４．データが入っているＣ列の最下行のＡ～Ｚ列を選択して、５０行分 下にコピーする。 （例えば、Ｃ列の最下行が３５０行の場合、Ａ３５０～Ｚ３５０まで を選択したあと４００行まで下にコピーする。） ５．再度シートの保護をかけ ６．Ａ列でデータが入っている最下行の１つ下のセルを選択する ちなみに、２の条件に当てはまらないときはマクロを実行しません。 またＣ列の最下行よりＡ列の最下行が大きい数字になることはないはずですが、もし同じかＡ列の方が大きい場合、「エラー：Ｃ列よりＡ列が大きくなっています」と画面に表示させたい。 なお、行番号の差：１００、選択するＡ～Ｚ行、５０行分下にコピー は変わる可能性があるので、修正する場合どの部分を修正すればよいかも教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelマクロで置換
Excelマクロで置換 セルA1に6桁・スペース・24桁の数字が入っています。 最初の6桁に130,397,430,440が含まれているシートを選択 そのシートの中に "ああああ"があったら"ああああい"に "いいいい"があったら"いいいいう"に "うううう"があったら"ううううえ"に と置換をするマクロを書きたいと思っています。 置換する対象の文字列は多いので別マクロで作成し呼び出したいと考えています。 シートは１ブックに30シート程。何シートあるかはブックによって変わります。 現在マクロの記録を使って試行錯誤しているのですが なにぶん初心者なのでなかなかうまくいきません。 どなたかご教授頂ければと思います。
- ベストアンサー
- オフィス系ソフト
- 【再】エクセル2013 マクロをご教示ください
Sheet1で選択しているセルの行をSheet2に転写したいです。 Sheet1とSheet2の4行目に見出し。 Shet1にはA～U列までデータがあります。(途中空白セルの場合もあり) Sheet1の5行目以降の、あるセルを選択してマクロを実行すると Sheet1のC～S列までをSheet2のA～Q列へコピペしたいです。 Sheet1は H列に必ずデータがあるので それらを最終行の判断基準とします。 Sheet1での選択セルは複数の場合もあります。 ただし、同じ行のセルを複数選択しても Sheet2への貼り付けは1行とします。 マクロを実行する度に、Sheet1での選択セルの該当行が Sheet2へ追加されるようにしたいです。 (Sheet2へコピペされたデータは残します) また、Sheet2への貼り付け内容が同じだった場合は 注意喚起のため メッセージで 「重複データが存在します」を表示したいです。 重複の判断基準はSheet2の B、D、F列とします。 宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- エクセルのセル内に順番をつけていくマクロ
はじめまして。 私は、マクロ初心者でほとんど分からなく困っています。 内容というのが、例えばセル番号のB列に不規則に文字が入っており、それを上から順にA列に順番を付けるマクロを作りたいと思っています。しかし、その番号を付ける条件が特殊で、 １、特定の文字内容が入っている場合は飛ばす。 ２、連続して文字が入っている場合は、上のセルに番号を付け、下のセルは番号を付けず飛ばす。 ３、空白セルも飛ばす。 EX： りんご みかん イチゴ となった場合、 １りんご □みかん ２イチゴ というようになるようなマクロを作りたいと思います。(EXの□は空白を意味します。) 何かいい案がないでしょうか？ 宜しくお願いします。
- 締切済み
- Visual Basic
- Excelマクロで・・・
ワークシート名が「AZ20020101」というような形で付いています。 このシート名から下8桁を日付型で（2002/1/1のような形で）セルに取り出すマクロを作りたいのですがどのようにしたらいいでしょうか。 お分かりの方いましたら大至急お願いします。
- ベストアンサー
- オフィス系ソフト
- excelでマクロを使用した連続印刷について
A2セルから通し番号、氏名、住所等のデータが入力されている「データ」シートがあり、 VLOOKUPを使用してB3セルに「データ」シートのA列にある「通し番号」を 入力すると氏名・住所等が反映される「印刷」シートがあります。 例えば「データ」シートのC列（住所）に「東京都」という文字列が 含まれている宛名のみを連続で印刷したい場合、 どのようなマクロになりますでしょうか？ （マクロ内に「東京都」と指定する方法と、 シート内の特定セルに入力した文字列で指定する方法が ありますでしょうか？） wordでの差し込み印刷や、宛名ソフト等の使用は考えておりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELのマクロがわかりません・・・
現在、A列にデータが並んでいるのですが、 これを７つ区切り（例：A1～A7、A15～A21）にして、 別シートに用意した表に行列を入れ替えて、 貼り付けるマクロを作っているのですが、 なにぶんVBは素人ですので、よくわかりません。 今作ろうとしているマクロは、 「元データ」セルのA1からA7までをコピーして、 「作成データ」セルのB2を起点として、 コピーした内容の行列入れ替えを行い貼り付け、 以後、「元データ」のコピー範囲を7つづつ 下にずらし、「作成データ」の貼り付け起点を １つづつ下にずらして、「元データ」のA列の 最後までくりかえすものです。 必ず「Range」文で引っかかってしまうのですが、 何か構文的におかしいでしょうか？ かなり急ぎですので、 わかる方、よろしくお願いしますっ！！ 下に、作成したマクロを貼り付けます。 Sub Macro3() ' ' Macro3 Macro ' マクロ記録日 : 2005/12/5 ユーザー名 : *** Worksheets("元データ").Activate 開始行 = -6 終了行 = 0 ペースト行 = 0 Do 開始行 = 開始行 + 7 終了行 = 終了行 + 7 ペースト行 = ペースト行 + 1 開始セル番号 = "A" & 開始行 終了セル番号 = "A" & 終了行 ペーストセル番号 = "B" & ペースト行 Range("開始セル番号:終了セル番号").Select Selection.Copy Sheets("作成データ").Select Range(ペーストセル番号).Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True Loop End Sub
- ベストアンサー
- オフィス系ソフト
お礼
ＶＬＯＯＫＵＰ関数の使い方を示していただき、ありがとうございます。 勉強のためＶＬＯＯＫＵＰ関数を使ってプログラムを書き変えてみます。