mar00 の回答履歴

エクセルVBA「型が一致しません」 これまで作成してきたVBAを明日から使用します。 最後に一つ、ご回答頂きたいのですが、 Dim a As Long a = Me.LabelCompany.Caption If a = 0 Then MsgBox "このベルマークは失効しています。失効していない場合は「ベルマーク番号シート」を編集してください。なお、失効後半年以内のベルマークは有効です。" End If このようなコードを書いたのですが、タイトルのエラーを吐いてしまいます。 「LabelCompany」に何も入力されていなければメッセージボックスを表示するという動作に持って行きたいです。御指南お願いします。

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

マクロ初心者です 同じSheet内で範囲印刷を設定してある場合で、 A1に1のデータが入力されている場合範囲印刷（セル）の1ページだけ印刷し、 A2に1が入力されている場合２ページ目を印刷するように、 Ａ列のデータ入力状況で範囲印刷のページを操作するマクロを教えてください。

エクセルのif関数で8つ以上ある場合について教えて下さい。 バージョン：エクセル2002 以下のような場合 　　　　　　1,000未満　→ Ａ 1,000以上　1,500未満　→　Ｂ 1,500以上　2,000未満　→　Ｃ 2,000以上　2,500未満　→　Ｄ 2,500以上　3,000未満　→　Ｅ 3,000以上　3,500未満　→　Ｆ 3,500以上　4,000未満　→　Ｇ 4,000以上　4,500未満　→　Ｈ 4,500以上　5,000未満　→　Ｉ 5,000以上　　　　　　　→　Ｊ 現在のエクセルバージョンでは、 if関数の7レベルを超えてしまい、Lookup関数では一致した値しか拾ってくれません。 このような場合、以上、未満などの比較演算子を使用した範囲内の数値の分岐結果を取得するには どのようにすればよいのでしょうか？ 現在は、次のように表を作成して行っております。 　　　　Ａ　　　　　Ｂ　　　Ｃ　　←セル列 　1　　　　　　　　1,000　　Ａ 　2　　1,000　　　1,500　　Ｂ 　3　　1,500　　　2,000　　Ｃ 　4　　2,000　　　2,500　　Ｄ 　5　　2,500　　　3,000　　Ｅ 　6　　3,000　　　3,500　　Ｆ 　7　　3,500　　　4,000　　Ｇ 　8　　4,000　　　4,500　　Ｈ 　9　　4,500　　　5,000　　Ｉ 　10　 5,000　　　　　　　　Ｊ 　↑ セル行 別の関数などを使用してできる場合(VBA不可)などでも構いませんので、 どなたかご教授願います。 宜しくお願いします。

エクセルのif関数で8つ以上ある場合について教えて下さい。 バージョン：エクセル2002 以下のような場合 　　　　　　1,000未満　→ Ａ 1,000以上　1,500未満　→　Ｂ 1,500以上　2,000未満　→　Ｃ 2,000以上　2,500未満　→　Ｄ 2,500以上　3,000未満　→　Ｅ 3,000以上　3,500未満　→　Ｆ 3,500以上　4,000未満　→　Ｇ 4,000以上　4,500未満　→　Ｈ 4,500以上　5,000未満　→　Ｉ 5,000以上　　　　　　　→　Ｊ 現在のエクセルバージョンでは、 if関数の7レベルを超えてしまい、Lookup関数では一致した値しか拾ってくれません。 このような場合、以上、未満などの比較演算子を使用した範囲内の数値の分岐結果を取得するには どのようにすればよいのでしょうか？ 現在は、次のように表を作成して行っております。 　　　　Ａ　　　　　Ｂ　　　Ｃ　　←セル列 　1　　　　　　　　1,000　　Ａ 　2　　1,000　　　1,500　　Ｂ 　3　　1,500　　　2,000　　Ｃ 　4　　2,000　　　2,500　　Ｄ 　5　　2,500　　　3,000　　Ｅ 　6　　3,000　　　3,500　　Ｆ 　7　　3,500　　　4,000　　Ｇ 　8　　4,000　　　4,500　　Ｈ 　9　　4,500　　　5,000　　Ｉ 　10　 5,000　　　　　　　　Ｊ 　↑ セル行 別の関数などを使用してできる場合(VBA不可)などでも構いませんので、 どなたかご教授願います。 宜しくお願いします。

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

彼氏がいるのに好きな人ができました。 現在、二十代前半で付き合って一年弱になる彼氏がいます。 初めは私がアプローチして交際に発展しました。 遠距離恋愛でしたが、彼が私のいる県に来てからは大分近くなりました。 彼がお金を貯め、していたバイトを辞めて来てくれたときはうれしかったのですが、今は重荷になっています。 お互いに社会人ですが、現在は２人とも正式には働いていません。 彼はとても優しく、趣味も合うしマメなのですし、将来の(結婚など)話もしました。 しかし、年金を払っていないなど、思わず引いてしまう面もあります。 また、私の両親が認めてくれないということもネックになっています。 彼は私にもっと泊まりに来てほしいと言います。 会うだけでは寂しいというのです。 夜の話ですが、私も彼もしたいからしているはずなのですが、段々とそれが彼の目的のようにも感じられてきました。 付き合うときは、恋愛経験の少ない自分は、こんなに悩むことになるとは思っていませんでした。 付き合い初めは、(私が)仕事を始めたばかりで不安定なこともあり、彼に頼っていました。 その上、わざわざ来てくれた彼に、別れたいと思うなんて、申し訳ないという気持ちでいっぱいです。 そんな思いの中、別に気になる人ができてしまいました。 その彼は学生で、決して今の彼と比べて秀でているわけではありませんが、話しているとドキドキするし、尊敬できるところもあります。 そのことを恋人に伝え、「別れたい」と言いました。 彼にとっては突然だったのだと思います。 別れたくないと言って、とりあえずあと３ヶ月付き合おうと言います。 今気になる彼とどうこうしようという気持ちはまだありません。 聞きたいことはつまり 現状で彼と別れることは酷いことでしょうか？ 私が悪いのでしょうか？ 支離滅裂な文ですみません、よろしければ回答、ご意見お願いいたします。

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

エクセル2002、OS＝WinXPです。エクセルので、特定セルに入力された文字列によってシート見出しの色を変えたいですが、VBA式がうまくいきません。 もし、セルB3の値がAAAの場合、シート見出しの色を緑（カラーNo=50）にする。 もし、セルB3の値がBBBの場合、シート見出しの色をピンク（カラーNo=7）にする。 もし、セルB3の値が上記以外の場合、シート見出しの色を白（カラーNo=2）にする。 というふうにしたいと考えています。マクロを用いていろ番号を調べたところ、上記Noでした。 Sub 会社名に合わせてシート見出し色を変更() ' ' ActiveSheet.Select If ActiveSheet.Range("B3").Value = AAA Then ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 50 ElseIf ActiveSheet.Range("B3").Value = BBB Then ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 7 Else: ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 2 End If End Sub 上記式で実行をクリックしても実行されません。無反応です。調べて直してもだめでした。上記の式の間違いを教えていただけませんでしょうか？？？ さらに、このマクロを今開いているブック全体に反映するためには、ActiveSheet　の文字を削除すればよいでしょうか？？すみませんが、詳しい方、あわせてご回答いただけますでしょうか？ 　　　

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

再質問　EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい QNo.6023986でEXCEL　データをコピーして別シートの最初の空白行に貼り付けたいと書き込んだものです。 質問内容は以下の通りです。 Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。 ----------------------------------------------------------------------------------- 回答で以下のマクロを教えていただき、テストではうまくいったのですが、 ひとつのブック内でsheet１をsheet2に、sheet3をsheet4に、sheet5をsheet6にと行いたいので、 以下のコードのシート名をそれぞれ書き換えてやってみました。 ところが、１を２にはできたのですが、３を４でやってみたところ、 なんどやっても『400』というエラーが出てしまいます。 シート名の他にも書き換えが必要なのか教えてください。 よろしくお願いします。 Sub Macro1() GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Sheet1").Select Range(Cells(2, 1), Cells(GYOU1, 18)).Copy Sheets("Sheet2").Select Range("A" & GYOU2).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

告白されて、社交辞令で「友達として…」と言うことはありますか？ 告白した相手には、未練と期待が残ってしまうと思うのですが、 告白された側はどんな心境なのでしょうか。 嫌われてはいないということでしょうか。 つきあっている人がいて、告白した人と友達づきあいってあまりないと思います。 その場合には、相手とつきあっている人との関係が壊れてしまうこともあると思います。 だから、つきあっている人と円満なら、きっぱり断ると思います。 相手も迷っていて、友達づきあいをしていく中で、心が変わることもあるのでしょうか？

Excelを立ち上げると構成が変化してしまいました。 サンプルのExcelを画像にして添付いたします。 ２枚の画像を竪に繋いで１枚にしてあります。 上がおかしくなってしまった状態、下が従来の状態です。違うパソコンで表示したものを繋ぎました。 本来の(画像下)に戻すにはどのようにすればよいのか、お教えください。

マクロを書き変えたいのですが、 現在使用してる　下記のマクロがあるのですが、 このマクロに　Sheet１～Sheet18までの　セル　E12・E14・F14データーを消す式を足したいのですが、 どのように書いたらよいでしょうか？ Sub 打ち出しデーター削除() ' ' 打ち出しデーター削除 Macro ' 打ち出しシートの時間・判定を　クリアーにする。 ' ' Sheets("打 ち 込 　用 ").Select Application.ScreenUpdating = False Selection.SpecialCells(xlCellTypeConstants, 1).Select Selection.ClearContents Sheets("★スタッフ一覧").Select Range("A1").Select End Sub あと　シート数を指定しない場合も知りたいのです。 どなたか　力を貸してください。