教えて下さい。vba初心者です。
A B C D E F G H
7 522 加藤 沖縄 みかん 縄 1 1/5 空欄
8 123 吉田 愛媛 りんご 水 3 2/10 空欄
1️⃣一番最後に入力した行をすぐ下にコピーしたい。(ここでは7行目…入力して行くと行は増えます。)
2️⃣指定回数はE列。
この列ではE列が3回になりますので、
コピーしたい範囲はA〜G列を、すぐ下の8行〜9行までの2回分コピーしたいです。
完成希望例
A B C D E F G H
7 522 加藤 沖縄 みかん 縄 1 1/5 空欄
8 123 吉田 愛媛 りんご 水 3 2/10 空欄
9 123 吉田 愛媛 りんご 水 3 2/10 空欄
10 123 吉田 愛媛 りんご 水 3 2/10 空欄
にしたいです。
No.24ベストアンサー
- 回答日時:
前の絵のリスト範囲の所、名前定義も使えますよ。
というか、数式を入れるところの右のボタンみたいのを
押すと、入力する代わりにマウスで別シートでも
ドラッグで範囲指定できるから、範囲指定とぴったり
合致すれば、勝手に名前に変換されるみたいだった。
名前で指定の時、先頭に=はつけないみたいです。
ボタンはどっちをお使いですか?
呼び出している subの名前で判ります。
Private Sub CommandButton1_Click()
と決まっているのがActiveXの方です。
ありがとうございました。
名前の定義を使ったオートフィルターの詳細設定がどうしてもわかりませんでした。
今日の質問①
データが増えるので名前の定義をしたんですが、
定義の設定する場所はオートフィルターをかける
リストの範囲の設定方法がわかりませんでした<m(__)m>
この場合の名前の定義の方法とフィルター詳細設定(名前の定義を使用した)の方法をご教授お願いします。
今日の質問②と③もお願いします。
起動ボタンについては
SUBの名前を調べてみたんですが・・・マクロを見ても
何が書いてあるのか理解できず・・・
取りあえず、作っているボタンの方法ですが、
開発リボン➡挿入➡コントロールフォームで選んでいます。
次に右クリックでマクロの登録をしていますm(__)m
画像を添付したいので新しい質問を立ち上げます。
題名は同じですので、見ていただけますか?
今後ともよろしくお願いします。
No.23
- 回答日時:
元のシートと表示シートが違うんだね。
フィルターの詳細設定にうってつけの
状態だから(使ったことあるかな?)
もしなかったら画像を一度試してみて。
こっちでやるのもアリかなという気もして。
オートフィルターの場合マクロは
(ActiveSheetはWorksheets("Sheet1”)に置き換えてもいいです)
If ActiveSheet.AutoFilterMode Then ’フィルターの▼が表示されているか
If ActiveSheet.AutoFilter.FilterMode Then
MsgBox "絞り込まれています"
Else
MsgBox "絞り込まれていません"
End If
End If
ってことらしいから、これを使えばオートフィルターで処理できると思うよ。
あとフィルタのマクロ記録は試した?
ボタンは貼り付けるところフォームとActiveXの
2種類あったはずなんだけど、どっち使ってるかな。
フォームは昔の形式で多分今はActivveXが
推奨されてると思うんだけど、ちょっと使い方が
異なるので。
ありがとうございました。オートフィルターにこんな使い方があったとは…!
教えてくださいっ<m(__)m>
リストの範囲ですが、添付資料の通りですと、参照が正しくありませんとなってしまいます。
試しにG列の範囲をG15までと設定したら、表示が可能でした。
これからもデータがたくさん増えると思われるのです。
名前の定義を使いたかったのですが、定義の設定が出来ない状態でした。
No.22
- 回答日時:
補則の追加見つけました。
どこにあるかわからなくて
>=VLOOKUP(K17&L171,回数,15,FALSE)
なんだろこれ?
回数ってのが何か判らないけど
17行目と171行目?
Lも17か、ふむふむ。
VLOOKUPは領域の左端列を探すから
そこの列に、この二つを接続した文字列があるならだけど・・・。
もひとつ意図がつかめないなあ。
VLOOKUPみたいなことを二つの列を
対象に両方合致したらみたいなことかな?
No.21
- 回答日時:
>①管理表のA1部分に検索をかけたいです。
A7以降に入力した番号をA1に入力すると(例 A1に123と入力後、A7に登録した123と合致するデータを全て呼び出したいです。フィルターとどう違うイメージでしょうか?
表内のセルを選択して
データ→フィルタ
A列の▼ですべてのチェックを外し
123だけチェック入れてOKした時と
どう違うイメージか教えてください。
②前回教授頂いた条件検索の横に番号A列とF列の2個の条件に一致するデータを取り出す関数も教えてください。(管理表F列でコピー回数指定の後、上書き直してます。)
こっち、ごめんなさい。何の話か判らないです。
前回って?この質問?
ここまで書きかけて用があって出てました。
新規に質問立ち上げていただいてもついていきますよ。
ありがとうございます。今後もご教授お願いします<m(__)m>
①はイメージはオートフィルターと同じです。
A1に番号を入力して、隣に検索ボタンを作りたいというイメージです。
私のレベルはマクロまでで(汗)ボタンも作れます(汗)
フィルターのチェックを外したりする手間を省略出来るものならしたいのです。(A列の番号検索は毎日多用することになるのです。)
②2か所条件に一致するデータを表示させたいです。
今からイメージをツールで補足に送ります(*^-^*)
ツールの使い方マスターしました(喜)
また知識が増えてうれしいです。ありがとうございました。
No.20
- 回答日時:
ごめんなさい。
貼り付けてからコメント打ったのでそこは注釈つけちゃいけない構文の途中でした。
アポストロフィ以降を消すか
上の行に移動願います。
ってか、貼りなおしますね。
ElseIf Target.Column = Columns("Q").Column Then
For Each cl In Me.UsedRange.Columns(1).Cells 'A列の個々のセルでTargetの行以外を見て
If cl.Row <> Target.Row And _
cl.Text = Target.Offset(0, -16).Text Then 'Targetの行と文字が一致したら
Application.EnableEvents = False 'イヴェント発生停止
cl.Offset(0, 16) = Target.Text 'その行のQ列のセルに
Application.EnableEvents = True
End If
Next
ありがとうございますm(__)m
出来ました。
vbaが出来ると、作業時間が大幅に削減出来ますね。私もvbaを使いこなしてみたいです。
次々に大変恐縮ですが、今日の補足の質問①と②のご教授お願いしますm(__)m
No.19
- 回答日時:
>今回回答頂いた、式をコピーしてみましたが、進めませんでした(涙)
プログラムないしはコードっていいます。
等号、不等号は条件判断や代入に使ってますから
部分的には式ともいえますが、全体では式とはいわないです。
で、そのコードが動かない場合、メッセージやエラー番号が出るなら
必ずもれなくお伝え願います。
色が変わったり、カーソルが止まったりしてコードのうちの
エラー発生個所が判るなら、モアベターです。
ありがとうございます。
わかりました。
早速ですが…
添付画面のand の後ろにコンパイルエラー:不正な文字です。とコメントが出てしまいました。
No.18
- 回答日時:
ElseIf Target.Column = Columns("Q").Column Then
For Each cl In Me.UsedRange.Columns(1).Cells
If cl.Row <> Target.Row And _ ’A列の個々のセルでTargetの行以外を見て
cl.Text = Target.Offset(0, -16).Text Then ’Targetの行と文字が一致したら
Application.EnableEvents = False 'イヴェント発生停止
cl.Offset(0, 16) = Target.Text ’その行のQ列のセルに
Application.EnableEvents = True
End If
Next
以上をNO7の下方にENDIFが2行ある間に
挿入してください。
※この掲示板はインデント(行頭の空白)が消されます。
僕の所では、行頭に添付の様に空白を入れてます。
これはとても大事なのでそちらでもTABキーで
インデントを挿入するように願います。
※おすすめの教科書はグーグル先生です。
昔は書籍を読みましたが、検索の利便の前には
ページをめくる作業が色褪せます。
よく目にするのはTANAKAさんのページかな。
網羅度がハンパないです。
それもあってヒット率が高い所為もあると思います。
※No15のSnippingToolの件
>色々試して見ましたが対応してないタイプで、
Windowsは何ですか?7以降ならあると思うのですが。
Windows+’R’でファイル名を指定して実行は出ませんか?
どこで進めないか教えてください。
いつも大変お世話になり、ありがとうございます。
昨日まで画面の旗とRをしたり、エクスプローラーから検索かけたり・・しながら探していました。過去のメールを再度読み直ししていたら、ウィンドウズマーク+Rでとあり、試してみました。こちらの方も何度もご教授下さり、ありがとうございます。
いつもご親切にご教授下さり、感謝の気持ちでいっぱいです。私一人ではここまで進めることができませんでした。
今回回答頂いた、式をコピーしてみましたが、進めませんでした(涙)
早速教えていただいたsnippingtoolを使って送信してみようと思います。
No.17
- 回答日時:
>A列の番号123の時(重複してる番号あります。
)R列に格納容器番号を1列分に入力した時に、同じコード123の入ったデータの行のR列に格納容器番号を自動でコピー出来る方法はありますでしょうか?基本、頭で、整然とルール化出来ることは、出来ないことはほぼないです。
逆に動作仕様が固まってないことはプログラムにしようがないけど。
ちょっとその前にエラーがどうだったのか、ご説明頂いても
いいですか?何かもやもやします。
>R列に格納容器番号を1列分に入力した時に、
で、ここんとこ意味が判らないです。
R列に1列分?上から下まで?なわけないですよね。
逆に1行分でもおかしい。
そしたら1セルだけしかないから
行分て表現ありえないと思うし・・・・。
それとこれは必ずオートマティックにやっていい話?
ボタンとかで起動が希望?
R列まであるんだ、G列で起動しちゃったけっどよかったのかな?
G列変更時の7が、G列の番号だから変更必要ならご随意に。
エラーの件の詳細から報告するべきでした。ご無礼をお許し下さい。
検索する枠が一つに対して、vlookup関数を使う場所が5個ありました。
名前の定義を一箇所にしか設定しておらず、関数を入れる部分の度に名前の定義をしてから関数を入力したら、エラーが消えました。
オフセット関数の初歩的な所で引っかかっていました。
ありがとうございました。
アクセサリーで画面を添付したかったのですが、色々試して見ましたが対応してないタイプで、写真画像でご不便お掛けして恐縮です。
前回教えて頂いたG列までのコピーで大丈夫です。ありがとうございました。受注日G列までオートマチックで、HからQまでは個別で入力が必要な箇所です。
ただ格納容器はA列の番号毎の容器になるので、毎回A列とRは同じにしたいのです。出来ればオートマチックを希望していますので、ご教授お願いします。
今後、もっとvbaを勉強して行きたいと思うのでが、おすすめの教科書などありましたら、こちらも教えた頂けますでしょうか?
No.16
- 回答日時:
>数式にfalseを足しましたが、やはりエラーになってしまいました(泣)
見てないのでそれだけじゃいくらなんでも判らないですよ。
具体的にエラーが出る時、出ない時何が違うんですか?
i16に該当する行は管理表の何行目ですか?
ちょっと気になるのが名前定義で
OFFSET(管理表!A7,0,0,COUNTA(A:A)-1,18)
はあなたの式をそのまま使っただけなんですが
領域の縦の数はCOUNTA(A:A)-1でA列で数えるとしているのに
A30が空欄なのはどういうことですか?
ありがとうございます。
計算式に一つづつ名前定義して、関数入れたら出来ました。
ここまで進められて、感謝の気持ちでいっぱいです。
別件でもう一つお願いしたいのです。
A列の番号123の時(重複してる番号あります。)R列に格納容器番号を1列分に入力した時に、同じコード123の入ったデータの行のR列に格納容器番号を自動でコピー出来る方法はありますでしょうか?
No.15
- 回答日時:
VLOOKUP(第4パラメータ要るのかな、多分)
=VLOOKUP(I16,管理表領域,2,FALSE)
でいけると思います。
SnippingTool
WINDOWSでスタートボタンからプログラムを選ぶ場所があって
(もしWindows8なら、ないです)そこにWindowsアクセサリっていう
フォルダみたいのがありその中って事ですが。
Win7以降なら、Windowsキー(旗みたいなやつ)+Rを押して
そこに下記を打てば出ると思います。
%windir%\system32\SnippingTool.exe
ありがとうございます。
ありがとうございます。
数式にfalseを足しましたが、やはりエラーになってしまいました(泣)
他に方法はありますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。特にものすごく怒られたときとか、とんでもない損害を与えてしまったときとか…。
-
Excel で行を指定回数だけコピーしたい
Excel(エクセル)
-
excelで任意のセルを指定回数コピーペーストする方法を教えてください
Excel(エクセル)
-
エクセルのVBAで指定した行数の追加と数式のコピー方法をご教示いただけますか?
Visual Basic(VBA)
-
-
4
エクセルVBA 指定範囲を指定回数繰り返しコピー(2)
Excel(エクセル)
-
5
エクセルVBA 指定範囲を指定回数繰り返しコピー
Excel(エクセル)
-
6
エクセルで表示された値だけ行数をコピーし挿入、挿入行の指定したセルに連続した値を表示できますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
桁数が混在する並び替えの方法
-
エクセル 指定した文字列を含...
-
EXCEL VBA 指定範囲内で特定の...
-
エクセル VLOOKUPが反映されない
-
エクセルで一部除外した数字を...
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
エクセル折れ線グラフについて...
-
Excelで行ごとコピー、同じ行を...
-
エクセルでグラフタイトルが折...
-
Excelの関数について、特定の文...
-
日付が1年以内になると他のセル...
-
エクセル
-
たくさん作った同じ設定のグラ...
-
パワーポイントに貼り付けたエ...
-
【エクセル】表の中の文字だけ...
-
EXCEL・複数ある円グラフの円の...
-
エクセルグラフの一括設定。
-
エクセル 入力中に表示されな...
-
塗りつぶしの色をコピーするには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
エクセルで同じ名前ごとの合計...
-
エクセルVBA Unionはなぜ遅い?
-
桁数が混在する並び替えの方法
-
エクセルの関数SUBSTITUTEを、...
-
EXCEL VBA 指定範囲内で特定の...
-
エクセルで一部除外した数字を...
-
エクセルで列内の同じIDの商品...
-
EXCELである列を上から順にチェ...
-
Excelで自動的に並べ替えなんて...
-
エクセルで2列を検索し2列とも...
-
エクセル VLOOKUPが反映されない
-
ExcelVBA:列方向の並び替え O...
-
エクセル マクロで列を連続し...
-
VBAでFormula関数を使ってVlook...
-
オートフィルについて(急ぎ!)
-
マクロの自動実行
-
ビンゴ用抽選番号を作りたいのです
-
エクセル 並び替え
-
指定するセルのRange書き込み変更
おすすめ情報
2️⃣の訂正です。
指定回数はF列です。
1番上のABCはエクセルの列番号
左端の7と8はエクセルの行番号です。
初めて質問した為、見にくくなってしまい、すみません。
11行目からも同様に異なる新たなデータを入力後、
F列の回数分コピーしたいです。
データをどんどん追加して行きたいのです。
画像を補足させて頂きました。
ご指導お願いします。
yokomaya様
画像です。
ymkomayaさま
ymkomayaさま
ymkomayaさま
こちらがエラーの画像です。
ymkomayaさま
先程のR列の画像です。
17列〜21列にしたいです。
ご不便お掛けしますが、ご教授お願いします。
出来ました!うれしいです(喜)
添付方法を勉強しておりました。
今回教えていただいたプログラムをコピーして、貼り付けてみました。
TABキーでインデントを何度か入れたりしながら、作動するように頑張ってるのですが、なかなか赤文字エラーが取れないです。
どこでTABを入れたらよいのか教えていただけますでしょうか?
あと2回で補足ができなくなってしまうと…yokomayaさまに繋がらなくなってしまうのが不安です。
こちらの他にあと2つお聞きしたい事が残っていまして…
①管理表のA1部分に検索をかけたいです。A7以降に入力した番号をA1に入力すると(例 A1に123と入力後、A7に登録した123と合致するデータを全て呼び出したいです。
②前回教授頂いた条件検索の横に番号A列とF列の2個の条件に一致するデータを取り出す関数も教えてください。(管理表F列でコピー回数指定の後、上書き直してます。)
最後の補足になってしまいました。
今まで本当にお世話になり、感謝申し上げます。
これからもよろしくお願いします<m(__)m>