回答数
気になる
-
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
勤務先で、Excelで作成した住所一覧から封筒あて名印刷ができるようにVBAを設定をしました。 分からないことがあり、「教えて!goo」で質問をします。 以下をご参照の上、アドバイスを頂けると大変助かります。 VBAは初心者です。 この封筒あて名印刷のExcelファイルは、当方史上の大作で完成させたいの一心です。 どうぞ、よろしくお願いいたします。 【困っていること】 料金別納表示の下半分を広告に使えると聞き、Excelの図形を組み合わせて作成しました。 コマンドボタンで表示することはできるのですが、削除の設定が出来ずに困っています。 料金別納表示をコマンドボタンで削除するコードに知識がないため、ネット検索してはコピペを繰り返すもエラー。 料金別納表示は図形なのか、画像なのかでコードが変わってくるのかも分からず、お手上げ状態です。 【Excelで作成したのは、以下の通りです】 ①「sheetあ」の「A1セル」に、図形を組み合わせて料金別納表示を作り、グループ化しました。 ②「sheetい」の「A1:D4セル」を結合して、中央揃えで結合しました。 ③「sheetい」にコマンドボタンを作り、①の料金別納表示を②に表示させました。 【要望】 『「料金別納表示削除コマンドボタン」をクリックしたら、削除できた』を、したいのです。 料金別納表示をコマンドボタンで削除するコードに知識がないため、ネット検索してはコピペを繰り返すもエラー。 料金別納表示は図形なのか、画像なのかでコードが変わってくるのかも分からず、お手上げ状態です。 【参考までに】 ①料金別納表示をコマンドボタンで表示させてるコードです。 Private Sub CommandButton14_Click() '料金別納表示広告 Sheets(あ).Range("A1").CopyPicture Appearance:=xlScreen, Format:=xlPicture 'シート「あ」の「A1セル」の画像を Sheets(い).Paste Sheets(い).Range("A1") 'シート「い」の「A1セル」に貼り付けて 【添付ファイルの説明】 文章だけでは分かりにくいと思い、Excelの画面をコピペしました。 【その他】 料金別納表示が楕円になっていますが、あえて楕円にしてますので、そこを突っ込まれてもスルーします。
質問日時: 2023/11/16 01:27 質問者: 元珈琲好き
解決済
5
0
-
エクセルのcountifのワイルドカードについて
エクセルのcountifについて悩んでおります。 添付画像の式なのですがB3が「ゼロ」となる意味がわかりません。 おそらく【-0060039296[72_10]_0】は文字列で【-900206224】は数値扱いだと思うのですが 多分、数値に対してワイルドカードは使えない??ってことだと思うのですが、 であれば、どういう式を立てればB3に1が出るようになるのか? 教えて頂けないでしょうか? どうぞよろしくお願いいたします。
質問日時: 2023/11/15 15:27 質問者: abc123abc123abcd
ベストアンサー
4
0
-
Excel、Wordで入力をしていたら このように[漢数字]と出てきて入力中の文字が見えず、入力しに
Excel、Wordで入力をしていたら このように[漢数字]と出てきて入力中の文字が見えず、入力しにくいです。 先日までは出てなかったはずなんですが、消し方教えてください。
質問日時: 2023/11/14 12:12 質問者: いりこ魚
解決済
2
0
-
DBCS関数とは何ぞやッ!
添付図上段において、式 =JIS(A1) を入力したセル B1 を選択して、 赤太矢印が示す文字 fx をツンすると、中段に示す[JIS関数の引数]メニューを表示されるのはご承知のとおりです。 しかしながら、そのメニューの下端にある[この関数のヘルプ]をクリックすると、JIS関数のヘルプが出ると思いきや[DBCS関数]という聞いたこともないようなヘンテコリン関数のヘルプが出るのです。(私の Excel 2019) オマケに当該ヘルプメニューの下端には「関数をMicrosoft Excel」という、下手な短歌の下の句じゃあるまいに、17文字があります。 一体全体、[DBCS関数]とは何でしょうか?
質問日時: 2023/11/13 21:14 質問者: mike_g
解決済
5
1
-
エクセル条件付き 色付け
エクセルで条件付き書式を利用して 【有・有0.5】の文字が入力された場合 文字を赤色にする条件にしましたが 反映しません 別のファイルで同じ条件で作成したものは、 反映しております。 何が違うのか分からないので 教えてください 解決方法ありますか? よろしくお願いいたします。
質問日時: 2023/11/13 10:13 質問者: みるゆ
解決済
3
0
-
差し込み印刷について教えてください。 エクセルでデータは作成済みです。 左のように印刷をしたいのです
差し込み印刷について教えてください。 エクセルでデータは作成済みです。 左のように印刷をしたいのですが やり方をご教示いただけないでしょうか。 お手数をおかけしますが 何卒よろしくお願いいたします。
質問日時: 2023/11/13 10:13 質問者: 駄菓子屋のおばちゃん
解決済
2
0
-
excl2013 縦の表を横にVBAでする方法
お忙しいところすいませんがよろしくお願いいたします。 シート1 の A1から 以上が入っているセルの前まで をシート2の A1から空白を除く値が入っているまでをコピーをしたい。 ”以上”を入れて最後としてその前までをコピーする。 空白は除いてコピーする。 シート1 シート2 A1 1 A1 B1 C1 D1 E1 A2 2 1 2 3 A3 空白 A4 3 A5 以上
質問日時: 2023/11/12 12:27 質問者: yama3575
解決済
1
0
-
Excelで【1-11】と入力すると【1月11日】になってしまう
よろしくお願いします。 Excelのバージョンはビジネスプレミアムです。 セルに【1-11】(1から11,の意味で書いています)と入力すると表示形式が【ユーザー定義】になってしまい、【1月11日】になってしまいます。 表示形式を【標準】にすると【44937】となってしまいます。シリアル値?というやつでしょうか。 仕方がないので【'1-11】と入力し、【1-11】を表示させていますが、Excelの仕様でしょうか。 【数字-数字】を入れると日付にならないように入力する方法はありますでしょうか。 教えていただければと思います。
質問日時: 2023/11/11 21:47 質問者: nazo0719
ベストアンサー
4
0
-
エラー表示になってしまいます。
こちらで、とても親切に教えていただきマクロ組んでいただいたのですがコピーして貼り付けてもエラー表示70の表記になってしまって困っています。 作ってもらったものなので、こちらにUPしていいものか分かりません… エラー70になる主な原因等がありましたら教えて頂きたいです。 よろしくお願いいたします。
質問日時: 2023/11/11 08:47 質問者: yuki005
解決済
13
0
-
Excelで列全体をコピーしたいのですが、一部抜けてずれてしまいます。原因はなんでしょうか。
Excelで列全体をコピーしたいのですが、一部抜けてずれてしまいます。原因はなんでしょうか。
質問日時: 2023/11/10 13:46 質問者: あたなや。
解決済
3
0
-
IFS関数について教えてほしいです!
IFS関数についてです。 F17~F31まで、業者名(購入したところの名前)が入っています。 AD17~AD31、までは購入したものの税込金額を入れています。 下記にはF17~F31に入る業者名のリストをAZ列に入力していて、 AZ18=成約特典JCB AZ19=※肉 となっています。 F17が成約特典JCBだったときは、AD17に入力したそのままの金額を入力して、 F17が※肉だったときは、AD17÷1.08した金額を入力して、 F17が成約特典JCBと※肉以外だったら、AD17÷1.10とする という数式を入れたいのですが、可能でしょうか!? 何度かやってみたけど分からなくて教えてほしいです。 宜しくお願いいたします。
質問日時: 2023/11/10 12:58 質問者: tomoyang
解決済
2
0
-
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ シート2は集計データ 元データの D4セルは東京 k4セルの数量は1 l4セルの数量は6 D5セルは東京 k5セルの数量は10 I5セルの数量は3 D6セルは千葉 k6セルの数量は5 l6セルの数量は1 D7セルは埼玉 k7セルの数量は9 l7セルの数量は9 D8セルは東京 k8セルの数量は5 l8セルの数量は4 D9セルは埼玉 k9セルの数量は6 l9セルの数量は50 最終行まで 集計データの D7セルは東京 k7セルの数量は16 l7セルの数量は13 D8セルは千葉 k8セルの数量は5 l8セルの数量は1 D9セルは埼玉 k9セルの数量は15 l9セルの数量は59 最終行まで
質問日時: 2023/11/09 21:17 質問者: ekgk
ベストアンサー
3
0
-
コマンドボタンがデザインモードになったまま
Excelでマクロを組み込んだファイルを作っています。 コバンドボタンがデザインモード(クリックできずに選択になってしまう)のようになっており、クリックできません。 もちろんデザインモードは解除しています。 ファイル拡張子は.xlsmです。 心当たりは、一度作業中にエラーが出てセーフモードで起動をすすめられた後、何か修正メッセージが出てました。その後このようになってしまいました。 元の状態に戻したいのですが、どうすればよいか教えてください。 いろいろ試してみた結果、実行すればマクロの実行はできます。 コードは消えたり、書き換えられたりしていません。 コマンドボタンは、フォームコントロールではなくActiveXコントロールで作成しているようです。 (自分で作ったのですが昔過ぎて覚えていません。今回ネットで調べていて、多分そうだと思います。) マクロ実行のためのシート内のアイコンのみが、クリックできずにデザインモードのような状態になっているだけみたいです(T_T)
質問日時: 2023/11/09 13:18 質問者: yunako0517
ベストアンサー
1
0
-
Excelの同じ数値に記号をつけたい
B列にある数値の中でNo.0+10など同じ数値が2つある場合、同じ数値の2番目に ' を付けて表現したいのですが数式で何かよい方法はないでしょうか?ちなみにD列みたいな感じに表現できれば解決となります。よろしくお願いします。
質問日時: 2023/11/09 12:08 質問者: ブラックムーミン
解決済
1
0
-
【マクロ】book1からbook2への適切な転記が出来ない件
以下のマクロのコードや内容・条件をご覧ください。動きます。 次に図をご覧ください book1の【A1からI1】までを、book2の【B6からJ6】に転記をしたいです しかし、book2の【B13からJ13】に転記されてしまいます 理由は、マクロが最終行をA列の13行目と判断している為です 番号のデータがある為です これを、赤矢印の場所へ転記できるようにしたいです ご存じの方、よろしくお願いします 【利用条件】 ・転記先ファイルは共有 ・複数人にて利用 【マクロ内容】 ・データを転記する ・book1のA1からI1までを、book2の【最終行】に転記 ・最終行は、データが歯抜けであっても、1番最後の行に あるデータを最終行と判断する 【コード】 Sub 転記() Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow2 As Long Dim row2 As Long Dim i As Integer Set ws1 = Worksheets("転記元") For i = 1 To Workbooks.Count If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。 Set wb2 = Workbooks(i) End If Next Set ws2 = wb2.Worksheets("転記先") '転記先シート maxrow2 = ws2.AutoFilter.Range(ws2.AutoFilter.Range.Count).Row '転記先のブックB列 row2 = maxrow2 + 1 ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から7セル分。天気先。1列目から。 ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1) wb2.Save '転記先のブックを上書き End Sub
質問日時: 2023/11/08 17:23 質問者: aoyama-reiko
解決済
2
0
-
エクセルの数式で教えてください。
セルP16に下記の条件の数式を設定出来る方法を教えてください。 セルM16に「=M11+M14」を設定しており 各それぞれM11とM14に数字が表示された場合にその合計がM16に表示されます。 M16の合計数字が表示された場合にP16に「■」が表示される方法を教えてください。 よろしくお願いします。
質問日時: 2023/11/08 08:56 質問者: エクセル小僧
ベストアンサー
5
0
-
エクセルのハイパーリンクで質問です。
添付画像のようにA1にはハイパーリンクが付いているのですが、 A2以降は付いていないです。 これを一括で全てハイパーリンクをオンにする操作方法は有りますでしょうか?
質問日時: 2023/11/06 14:07 質問者: asdfxz
ベストアンサー
1
1
-
エクセルの行を巾を変えずに増やす方法
エクセル初心者です。 添付の画像の黄色の部分を巾を変えずに6行から7行に増やしたいのですが、セルの挿入をすると 枠外に出てしまい、セルの設定も消えてしまいます。 セルの設定をそのまま、黄色の部分に収まるように6行から7行に増やす方法を教えてください。 よろしくお願いします。
質問日時: 2023/11/06 13:31 質問者: tomomon0803
ベストアンサー
9
0
-
Googleシート「A1」でなくて「A001」にしたいのですが
=A1&B1 だと「A1」になります。 「A001」にするには?
質問日時: 2023/11/04 23:16 質問者: 49951185325241650
ベストアンサー
1
0
-
[条件付き書式]について、
特定の条件(例:縦型カレンダー内左端の日付列が土・日曜の場合)のもとで、 指定範囲内の該当行のセルの編集を不可とする[条件付き書式]を設定 する方法を思い付かないのですが、どのようにすればよろしいでしょうか? マクロ音痴の私のために、マクロを使わない方法でお願いします。
質問日時: 2023/11/04 14:21 質問者: mike_g
解決済
4
0
-
エクセル 大量のシートから、指定したセルをコピーして、別のシートにまとめて貼り付ける
エクセルで、1ブックの中に、100枚のシートがあります。 この100シートの『セルB12』だけをそれぞれ切り取って、 新しい『sheet1のA1』に、100セル分貼り付けたいのですが、 VBAでやるしかないでしょうか? VBAでやるしかないとしたら、コードを記載して頂けたら助かります。 宜しくお願いいたします。
質問日時: 2023/11/04 12:49 質問者: ボアヒロ
解決済
8
0
-
エクセルのハイパーリンクを複写で設定したい。
A列のセル(A社・B社・・・)にB列にあるURLをハイパーリンクさせたいのですが、 複写で設定する方法を教えてください。 A列 B列 A社 https://www.A.co.jp/ B社 https://www.B.co.jp/ C社 https://www.C.co.jp/ D社 https://www.D.co.jp/ E社 https://www.E.co.jp/ F社 https://www.F.co.jp/ G社 https://www.G.co.jp/
質問日時: 2023/11/03 16:02 質問者: Ninjya2436
解決済
2
0
-
【Excel(エクセル)】複数シートで名簿管理したいです(数式?マクロ?)
複数チームのメンバーリスト(一部重複するメンバーあり)をExcel表で効率よく管理したいと考えています。 A、B、C、D、・・・等の複数のチームがあり、AとBのみに加入している者、BとCのみに加入している者などがいます。 Excelで「統合」シート、「A」シート、「B」シート、「C」シート…を作成して、誰がどのチームに加入しているかは「統合」シートの星取り表で一覧できるようにしつつ、チームごとにも別シートで一覧できるようにしたいです。 各シートの情報は共通で、左端列から順に、 A所属 B役職 C氏名 D電話 Eメール Fチームにおける権限の情報(●×形式) G(Aチームの)加入日 ※Aに加入していない場合は「統合」シートでは空欄 H(Bチームの)加入日 ※Bに加入していない場合は「統合」シートでは空欄 I(Cチームの)加入日 ※Cに加入していない場合は「統合」シートでは空欄 J… です。 各チームのメンバーの入れ替えや新規加入等は「統合」シートで主に操作して、統合シートにて更新があるとなるべく自動で各チームのシート(「A」シート、「B」シート、「C」シート…)にも反映されるようにしたいのですが、 最適な方法(計算式?マクロ?)など、アドバイスいただけますでしょうか。 自分で作成している現状として、Vlookup関数を使って、既に「統合」シートに記入されているセル内の情報が変更されたら(電話やメールなど)、他のシートにも反映されるところまではやってみたのですが、メンバーの加入や変更等も自動で反映したいとすると、Vlookup関数でだけでは厳しいかと思っています。 例えば、メンバーの追加があった場合、「統合」シートに列を挿入して新メンバーの各種情報を入力すると、G列以降の「加入日」に日付が入力されたチームのシートにも自動でメンバーが追加されるようにすることは可能でしょうか。列の挿入や削除などは「統合」シートと各チームのシート両方で手作業で行うのが現実的でしょうか。 多少の手作業はかまわないのですが、自分だけではなくほかの人も同じファイルを使って更新作業を行うため、なるべくミスなく簡潔に効率よく管理したいと考えています。お知恵を拝借できますと幸いです。
質問日時: 2023/11/03 08:01 質問者: フェーレー
ベストアンサー
3
0
-
Excelで同じセルに2つの関数を入れたいです。 ifとVLOOKUP ifとX VLOOK UP
Excelで同じセルに2つの関数を入れたいです。 ifとVLOOKUP ifとX VLOOK UP どうすれば入れられますか?
質問日時: 2023/11/02 22:14 質問者: あたなや。
解決済
3
0
-
エクセル 単位
画像のような表をエクセルで作成したいのですが、 期末現在高の項目の百万 千 円とするにはどうしたらできますか?
質問日時: 2023/11/02 18:37 質問者: まんじゅうさんこ
解決済
2
0
-
関数を教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 sh
関数を教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 sheet」「対応表 sheet」があります。 商品名があ行、か行、さ行のものをそれぞれ日付ごとに合計し、「集計 sheet」で集計したいです。 「対応表 sheet」には、A列に大分類(あ行、か行、さ行)、B列に商品名が入っています。 「集計 sheet」 のB6には、あ行で2023/09/01の合計を出したいです。
質問日時: 2023/11/02 17:11 質問者: おーいんゆ
ベストアンサー
3
0
-
エクセルで文字を入力するとき
エクセルで文字を入力すると添付画像のようにD列以降のセルに文字が延びずに、C列内で収まってしまう時があります。こうなってしまうとセルを結合して、D列以降に文字が延びるようにしているのですが、通常はD列以降に文字が延びるのに、どのような原因でC列内で文字が収まってしまうのでしょうか?また解消方法を教えて下さい。
質問日時: 2023/11/02 17:11 質問者: yasumitsuyo
ベストアンサー
1
0
-
重複や複数条件でのカウント教えて下さい。
A B C 1 無料 埼玉 田中 2 有料 埼玉 田中 3 半額 埼玉 田中 4 無料 埼玉 空欄 5 無料 埼玉 鈴木 6 有料 埼玉 鈴木 7 無料 東京 田中 8 無料 東京 鈴木 9 半額 東京 空欄 10 割増 東京 田中 わかりずらくて申し訳ありません。A列が無料などの項目、B列が都道府県、C列が名前です。 カウントしたいのは、A列が無料若しくは有料の各都道府県の実人数(C列)です。 埼玉の有料若しくは無料なのが5個あって、田中2回、鈴木で2回、空欄1ですが、同一人物の場合は何回でも1とカウントしたいのと、C列が空欄の場合はカウントしない。 なので、埼玉の場合重複は1、空欄は0で考えると2になるようにしたいです。 A列B列は決まった文字が入るのですが、C列はどんな名前が入るかはわかっていません。 こういった質問をするのが初めてなのとあまり知識がないので申し訳ごさいませんが、アドバイス頂けると助かります。 古いエクセルなのでUNIQUEは使えないです。
質問日時: 2023/11/02 03:30 質問者: 香織-
解決済
3
1
-
エクセルで有効桁数を確認する方法
こんちは。 エクセルに数字 例えば1.080と入力すると、1.08と表示されます。 これを1.080と表示させるにはセルの書式設定で数字、下2桁、と設定すれば1.080と表示されますが、元の数字が1.08と入力されたのか1.080と入力されたのか分からなくなってしまうのですが、何か元の数字の入力桁数(有効桁数)が確認できる方法ってあるのでしょうか?
質問日時: 2023/11/01 13:14 質問者: 教えてOK知恵袋
ベストアンサー
5
0
-
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel2021で書式のクリアや値貼付けをしても文字色やフォントが変わらないケースがあるのですが、どうすれば変えられますか? いったんメモ帳に貼り付けてからコピーしなおせば変えられるのですが、いちいち面倒なのでエクセルの中だけで完結したいのです。 ちなみに特定のセルのみです。 新規エクセルファイルに値貼付けしても、もとの文字色が残ります。
質問日時: 2023/11/01 10:57 質問者: bari_saku
解決済
5
1
-
エクセルでセルの右下にカーソルを合わせてセルに記載されている内容をドラッグしてコピペすることが出来な
エクセルでセルの右下にカーソルを合わせてセルに記載されている内容をドラッグしてコピペすることが出来なくなりました。 解決方法を教えてくださいませ。
質問日時: 2023/10/31 22:16 質問者: dela
ベストアンサー
3
0
-
エクセルで条件書式と数式の組み合わせはできる?
エクセル2021です 条件書式でN1にある文字が入った場合Q1はセルに色がつくようにしてあります。 同じ条件でさらにQ1に、E1に記入した数値の40%を表示したいのですが 全Q列にifなどの数式を入れることなく 一つの条件でセルに色を付け、別セルを元に計算した結果の数値も表示するということはできるでしょうか?
質問日時: 2023/10/31 15:59 質問者: hurry5me
ベストアンサー
3
0
-
エクセル条件付き 設定・コピペ
教えてください! エクセルで条件付き書式を使い 1列目の日付が、祝日に該当する場合 → 塗りつぶし したい (祝日の条件は別シートで作成済) 1つのセルで条件を =COUNTIF(祝日一覧!$A$1:$A$25,$P1)=1 で、設定するとできるのですが 条件を満たす範囲を指定したり、コピペしようとすると 機能しません。 ひとつずつ設定するには、時間がかかるので コピペでなんとか設定させたいのですが、どのようにすると 設定できるでしょうか?
質問日時: 2023/10/31 14:15 質問者: みるゆ
ベストアンサー
4
0
-
一覧表から判定結果の表示する方法
基本的に I列にそれぞれコードを入力し 一覧表からの判定を表示したいのです ただし、入力シートの科目コードが 一覧表の除外コードと同じであれば 無条件に『対象外』を表示したいのです J列に入れるべき算式を お教え願えないでしょうか? どうかよろしくお願いいたします。
質問日時: 2023/10/31 14:15 質問者: momo0052
解決済
1
0
-
excel VBA文字化け
中国語を英語に置き換えたいですが、中国語を貼り付けたら、?になりました。 どうやって設定すればいいですかね?
質問日時: 2023/10/31 12:19 質問者: ケンケン123
解決済
1
0
-
図面上に, ① ② ③………を入れたい
地図などいい例ですが,地図上の地点を、地図上ではなく、ヨコにでも説明したい この「関連付け」に,地図上に ① ② ③ ………を上書きしたい 地図は、便宜上 EXCEL や Word に表示してあります 便法はありますか?
質問日時: 2023/10/30 17:31 質問者: つよしちゃん
解決済
1
0
-
データから単位文字を除去して計算する方法は?
エクセル2002、osはwindows10を使っています。 とあるデータを計算したいのですが、データ数値の後にMB(メガバイト)の単位が付記されています。 よってこのMBの文字を除去しないと計算はできません。 Len関数とleft関数を使って、「対象セルの先頭からMBの手前まで取り出せ」と命じて 数値部分だけを抜き出すことは成功しました。 ところがこれで求めた数値が計算できません。 おそらく文字列扱いされているのでは? と思い セルの書式を数値セルに変更してみましたが、ダメでした。 エクセルに詳しい方、お願いします。
質問日時: 2023/10/30 08:22 質問者: s_end
ベストアンサー
6
0
-
【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい
下記のマクロをご覧ください。動きます 質問は、添付画像、右下のようにオートフィルターがかかっている状態にて マクロを実行すると 5行目の何もないところにデータが転記されて欲しいですが、されません 図左下の4行目のデータを、上書きしてよいかの質問もなしにて 図の右下の4行目に転記元のデータに【書き換えてしまいます】 やりたいことは、オートフィルターが入っていても 【5行目に転記をしてほしいです=最終行】 最悪、できなければ、上書きしてよいか【質問をして欲しいです】 ご存じの方いましたら、教えて下さい ~マクロについて~ ・転記先ファイルは共有 ・複数人にて利用 【マクロ内容】 ・データを転記する ・book1のA1からI1までを、book2のB2からJ2の【最終行】に転記 ・転記先の行に既に、データが他メンバーより、入力されていれば、自分のデータか、相手のデータか ⇒どっちをいかすか、質問が出る。エクセル標準機能。 ・例:添付画像にて実行しようとした時にエクセル5行目にデータ転記されるが、もし、先に ⇒他メンバーがデータを入力済みであれば、どっちのデータを、いかすか質問が出る 【コード】 Sub 本1() Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow2 As Long Dim row2 As Long Dim i As Integer Set ws1 = Worksheets("転記元") For i = 1 To Workbooks.Count If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。 Set wb2 = Workbooks(i) End If Next Set ws2 = wb2.Worksheets("転記先") '転記先シート maxrow2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '転記先のブックB列 row2 = maxrow2 + 1 ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から7セル分。天気先。1列目から。 ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1) wb2.Save '転記先のブックを上書き End Sub
質問日時: 2023/10/29 22:52 質問者: aoyama-reiko
ベストアンサー
2
0
-
【Excel】こんな表の整形をするには?
列のピボットの解除でやったらいいのか、参照式など工夫してできるのか迷っています。 ちょっとややこしくて申し訳ないのですが、 こんな形式の表を 氏名,区分,店舗名1,店舗名2,店舗名3 A氏,入店,店舗1の入店時間,店舗2の入店時間,店舗3の入店時間 A氏,退店,店舗1の退店時間,店舗2の退店時間,店舗3の退店時間 A氏,休憩,店舗1の休憩時間,店舗2の休憩時間,店舗3の休憩時間 B氏,入店,店舗1の入店時間,店舗2の入店時間,店舗3の入店時間 B氏,退店,店舗1の退店時間,店舗2の退店時間,店舗3の退店時間 B氏,休憩,店舗1の休憩時間,店舗2の休憩時間,店舗3の休憩時間 C氏,入店,店舗1の入店時間,店舗2の入店時間,店舗3の入店時間 C氏,退店,店舗1の退店時間,店舗2の退店時間,店舗3の退店時間 C氏,休憩,店舗1の休憩時間,店舗2の休憩時間,店舗3の休憩時間 ①こんな形に加工する効率良い方法はないでしょうか? 氏名,店舗名1,入店時間,退店時間,休憩時間,店舗名2,入店時間,退店時間,休憩時間,店舗名3,入店時間,退店時間,休憩時間 A氏,店舗名1,店舗1の入店時間,店舗1の退店時間,店舗1の休憩時間,店舗名2,店舗2の入店時間,店舗2の退店時間,店舗2の休憩時間,店舗名3,店舗3の入店時間,店舗3の退店時間,店舗3の休憩時間 B氏,店舗名1,店舗1の入店時間,店舗1の退店時間,店舗1の休憩時間,店舗名2,店舗2の入店時間,店舗2の退店時間,店舗2の休憩時間,店舗名3,店舗3の入店時間,店舗3の退店時間,店舗3の休憩時間 C氏,店舗名1,店舗1の入店時間,店舗1の退店時間,店舗1の休憩時間,店舗名2,店舗2の入店時間,店舗2の退店時間,店舗2の休憩時間,店舗名3,店舗3の入店時間,店舗3の退店時間,店舗3の休憩時間 ②さらには以下の形にできるでしょうか? 氏名,店舗名,入店時間,退店時間,休憩時間 A氏,店舗名1,店舗1の入店時間,店舗1の退店時間,店舗1の休憩時間 A氏,店舗名2,店舗2の入店時間,店舗2の退店時間,店舗2の休憩時間 A氏,店舗名3,店舗3の入店時間,店舗3の退店時間,店舗3の休憩時間 B氏,店舗名1,店舗1の入店時間,店舗1の退店時間,店舗1の休憩時間 B氏,店舗名2,店舗2の入店時間,店舗2の退店時間,店舗2の休憩時間 B氏,店舗名3,店舗3の入店時間,店舗3の退店時間,店舗3の休憩時間 C氏,店舗名1,店舗1の入店時間,店舗1の退店時間,店舗1の休憩時間 C氏,店舗名2,店舗2の入店時間,店舗2の退店時間,店舗2の休憩時間 C氏,店舗名3,店舗3の入店時間,店舗3の退店時間,店舗3の休憩時間 最終的には②の形にしたいのですが、①の方法も知りたいです。 いきなり②ができるのか、①を経て②になるのか混乱しちゃってます。 ①と②が両方可能であるなら、両方ともご教授頂きたいです。
質問日時: 2023/10/26 18:35 質問者: tanapyondai
ベストアンサー
4
0
-
別シートに成約をボタン1つで転記したい
反響管理しているExcelシートがあります。 1.反響管理シート 2.売上管理シート 3.長期追客シート 1.の反響管理シートが常に入力をしているシートで、W列に、 成約 失注 長期追客 と状況を入れています。 それをもとに成約であれば2.の売上管理シートに、長期追客であれば3.長期追客シートへ転記させたいと考えています。 ボタンひとつで転記できればなぁと思っているのですが、マクロ?を使えば出来るのでしょうか!? 教えてください。 宜しくお願いいたします。 元データにはA列~AB列まで記載してあるのですが、下記14項目だけを転記(A列は空けてB列から左詰めで)したいです。 B、C、D、E、F、G、I、J、W、X、Y、Z、AA、AB このようなマクロの設定は可能でしょうか? 教えてください。 宜しくお願いいたします。
質問日時: 2023/10/26 16:38 質問者: tomoyang
ベストアンサー
4
0
-
ある値に対して3番目に大きな値を、なければ2番目に大きな値、それもなければ1番大きな値を表示させたい
表示させたい値は日付なのですが、タイトルの通り、 ★指定の文字(A列の値)に対して日付(B列の値)をとってきたいのですが、 まず3番目に大きな値(直近の日付)を なければ2番目に大きな値を それもなければ1番大きな値を表示させたいです。 【例】 指定の文字:E1セルの値【1AA】 に対して、 とってきたい値(F1セル★に表示):3番目に大きな値(セルA10)の【10/3】 A B C D E F 1 1AA 10/31 1AA ★ 2 2AB 10/31 3 4DD 10/30 4 3RY 10/27 5 1AA 10/25 6 3EO 10/20 7 445 10/15 8 4DD 10/15 9 2AQ 10/3 10 1AA 10/3 もし指定の値が【4DD】であれば取ってきたい値は【10/15】になり 【3RY】であれば【10/27】しかないのでそれをとってきたいです。 検索や過去の質問から、下記数式をいれることで 2番目に大きな値をもってくるまではなんとかできたのですが ★=IFERROR(AGGREGATE(14,6,1/(1/((MAX(FILTER(B:B,A:A=E1))<>FILTER(B:B,A:A=E1))*(FILTER(B:B,A:A=E1)))),1),MAX(FILTER(B:B,A:A=E1))) 3番目をもってくる関数を含めることができませんでした。 よく理解できていないせいで混乱してしまっております・・ 知識のある方、どのような数式にすればよいか、ご教授いただければ幸いです。 よろしくお願いいたします。
質問日時: 2023/10/26 15:24 質問者: カルピコ
ベストアンサー
3
0
-
成約を別シートに反映させる方法
反響管理しているExcelシートがあります。 1.反響管理シート 2.売上管理シート 3.長期追客シート 1.の反響管理シートが常に入力をしているシートで、W列に、 成約 失注 長期追客 と状況を入れています。 それをもとに成約であれば2.の売上管理シートに、長期追客であれば3.長期追客シートへ 反映させたいと考えています。 色々と調べてみたら、フィルターオプション?を使えば別シートに反映できるとあったのですが上手くいかなくて困っています。 教えてください。 宜しくお願いいたします。
質問日時: 2023/10/26 10:45 質問者: tomoyang
ベストアンサー
3
0
-
Excelセルの参照先の取得
参照されている関係性は「参照先のトレース」等で知ることができますが、 文字列として取得することは可能でしょうか。 添付画像だと、A1セルを参照しているセルである A5(同じシート) Sheet2!B2 Sheet3!C5 という情報をテキストで抜き出せないかなと。 ChatGPTで雑に指示して作らせたら、同一シートのセルは取得できたけど、別シートまでたどれませんでした。
質問日時: 2023/10/25 22:10 質問者: zongai
解決済
3
0
-
エクセルで、小数点以下がないときに小数点を表示させない方法 +語尾に「(半角スペース)%」
エクセルで、小数点以下がないときに小数点を表示させない方法 +語尾に「(半角スペース)%」を表示させる方法を教えてください。 ↓このようにしたいです。 入力 表示 50 50 % 50.5 50.5 % セルの書式設定 → ユーザー定義 で ##.#" %" とすると 50 → 50. % となってしまいます。 よろしくお願いします。
質問日時: 2023/10/24 11:27 質問者: 1973kanda
ベストアンサー
5
0
-
マクロのコードについて解説をお願いします
以前回答者の方からこのコードを教えてもらったのですが 申込番号の最終行を取得のRから-1する場合はConst END_COLUMN = 17 も-1だけではだめなのですか? すみませんが全体のコードを解説をお聞きしたいです Const START_COLUMN = 1 '上の行を申込番号を基準にコピーする Const END_COLUMN = 17 Dim ws As Worksheet Set ws = Worksheets("リスト") Dim lastRow As Long lastRow = ws.Cells(Rows.Count, "R").End(xlUp).Row '申込番号の最終行を取得 Dim i As Long For i = 1 To lastRow If ws.Cells(i, START_COLUMN) = "" Then ws.Range(ws.Cells(i, START_COLUMN), ws.Cells(i, END_COLUMN)).Value = ws.Range(ws.Cells(i, START_COLUMN).Offset(-1, 0), ws.Cells(i, END_COLUMN).Offset(-1, 0)).Value End If Next
質問日時: 2023/10/23 15:23 質問者: すこやん
ベストアンサー
4
0
-
エクセル 印刷範囲
初歩的な内容ですませんが教えてください。 エクセルの表を印刷する際 1行目項目 2行目内容を入れてます。 1行目の項目を先頭に、15行目から20行目の範囲を指定して印刷する方法を教えてください。
質問日時: 2023/10/23 15:18 質問者: muchi0
解決済
5
0
-
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
すみません。どなたか教えてください。 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。 このセルのひとつ下のセルの上罫線を引いても変わりません。 こういう場合に罫線を印刷する方法がありましたら、教えていただきたいです。 よろしくお願いいたします。
質問日時: 2023/10/21 16:09 質問者: mayamaga43
解決済
3
1
-
マクロについて
画像の通りにマクロでO列を基準にして上の行をコピーするコードを 教えてもらいましたがこれを別シート(入力シート)から実行したいんですけれども どのようにしたらいいでしょうか Sub 空白の行の上をコピーする() Const START_COLUMN = 1 'A列 Const END_COLUMN = 14 Dim lastRow As Long lastRow = Cells(Rows.Count, "O").End(xlUp).Row 'O列の最終行を取得 Dim i As Long For i = 1 To lastRow If Cells(i, START_COLUMN) = "" Then Range(Cells(i, START_COLUMN), Cells(i, END_COLUMN)).Value = Range(Cells(i, START_COLUMN).Offset(-1, 0), Cells(i, END_COLUMN).Offset(-1, 0)).Value End If Next End Sub
質問日時: 2023/10/20 14:29 質問者: すこやん
ベストアンサー
2
0
-
エクセル 数値の10を10月と認識するにはどうすればいいですが?
エクセルで A1に10と入力すれば、B1のセルに10/1と認識させたい。 B1のセルに=date(year(today()),month(A1),1)と設定すると A1に2を入れても10を入れても 2023年1月1日になってしまいます。 よろしくお願いします。
質問日時: 2023/10/20 11:16 質問者: mikanneco
解決済
4
0
-
Excelの行をコピーして貼り付けても、 ドロップダウンが反映されません。 なぜでしょうか? シート
Excelの行をコピーして貼り付けても、 ドロップダウンが反映されません。 なぜでしょうか? シートの保護やブックの保護、 データの入力規則が薄くなって、クリック出来ません。 オプションか何かで設定しているからでしょうか? 関数はコピー出来るんですが、ドロップダウンが 張り付かないんです。 よろしくお願いします。
質問日時: 2023/10/19 20:25 質問者: ボアヒロ
ベストアンサー
1
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
日本古来の伝統工芸「金継ぎ」で修復した食器は前と同じように使えるの?
大切にしている食器が割れてしまったら、きっと誰もが「元に戻したい」と願うだろう。「教えて!goo」にも「割ってしまったお気に入りの食器を復活できる?」という質問があり、最適な方法について様々な意見が寄せら...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
-1234 を (1234) と表記する由来は?
-
エクセルで現場ごとに機材の移動状...
-
他部署からもらう データで、 何か...
-
Excel 1の位の数字で処理を分岐させ...
-
Excelのセルの色を変えた行(すべて...
-
エクセルの数式について教えてくだ...
-
Excelでの記号と特殊文字について ...
-
とびとびの大量セルを選択したいの...
-
MACにおけるエクセルの入力トラブル...
-
ある表にフィルターをかけて出てき...
-
Lookup関数
-
エクセルの数式バーのフォントが急...
-
再質問です。マクロの修正箇所を教...
-
エクセルで「ページレイアウト」→「...
-
EXCELの散布図で日付が1900年になっ...
-
【マクロ】VLOOKUPにて参照元にデー...
-
exselの質問です
-
エクセルでファイルの最終更新日を...
-
Excel 大小比較演算子による「文字...
-
エクセルの問題です。絶対値の最大...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ字に...
-
(マクロ)vlookupの元データを同じブ...
-
エクセルで上位バイトのセルと下位...
-
exselの質問です
-
Excel 大小比較演算子による「文字...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の最大...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こんな...
-
Excel関数-文字列で自動作成された...
-
Excelデータをコピペして、ペースト...
-
ユーザー定義関数をアドイン登録し...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元にデー...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がうまく...
-
エクセルで表
-
エクセルの表で1年間の曜日を自動...
-
西暦和暦
おすすめ情報