mar00 の回答履歴

質問失礼します。 エクセル関数でROUNDUPを使い、数値を切りあげたいのですが、 ＝ROUNDUP(A1,-1) だと1の位が切り上げあれますが、たとえば、 1500という値を2000にするには ＝ROUNDUP(A1,-3)で出来ます。 これで、A1のセルに桁数関係なく切り上げるにはどのように関数を組んであげればいいのでしょうか？ 30だったら100 150だったら200 1500だったら2000 のように入力数値に合わせて切り上げしたのです。 宜しくお願いします。

質問失礼します。 エクセル関数でROUNDUPを使い、数値を切りあげたいのですが、 ＝ROUNDUP(A1,-1) だと1の位が切り上げあれますが、たとえば、 1500という値を2000にするには ＝ROUNDUP(A1,-3)で出来ます。 これで、A1のセルに桁数関係なく切り上げるにはどのように関数を組んであげればいいのでしょうか？ 30だったら100 150だったら200 1500だったら2000 のように入力数値に合わせて切り上げしたのです。 宜しくお願いします。

質問失礼します。 エクセル関数でROUNDUPを使い、数値を切りあげたいのですが、 ＝ROUNDUP(A1,-1) だと1の位が切り上げあれますが、たとえば、 1500という値を2000にするには ＝ROUNDUP(A1,-3)で出来ます。 これで、A1のセルに桁数関係なく切り上げるにはどのように関数を組んであげればいいのでしょうか？ 30だったら100 150だったら200 1500だったら2000 のように入力数値に合わせて切り上げしたのです。 宜しくお願いします。

質問失礼します。 エクセル関数でROUNDUPを使い、数値を切りあげたいのですが、 ＝ROUNDUP(A1,-1) だと1の位が切り上げあれますが、たとえば、 1500という値を2000にするには ＝ROUNDUP(A1,-3)で出来ます。 これで、A1のセルに桁数関係なく切り上げるにはどのように関数を組んであげればいいのでしょうか？ 30だったら100 150だったら200 1500だったら2000 のように入力数値に合わせて切り上げしたのです。 宜しくお願いします。

エクセルVBAで、シートをコピーした際、コピーされた新しいシートのほうを指定する言葉を知りたい。 コマンドボタンにて、(1)内訳用シートをコピーで増やす。(2)新しいシートの番号を連番になるよう1増やす。(3)新しいシートのほうは入力しやすいよう、入力欄を消去する。シート名も1.2.3...とふえていくようにしたい。 新しくコピーされたほうのシートを指定したい場合はどのようなVBA用語になりますか？ いまは、元のシート指定方法しかわからないため、元シートの前にコピー作成し、元シートのNoを1増やし、データ消去で対応していますが、これだと、シート名に表示される内訳（1）（2）・・という番号になるので、できれば、コピーしたほうのシートを指定して、Noを1増やし、データ消去できれば解決するとおもうので。。いま、使ってるVBAはこんな式です。 ちなみにK6はシートNo、("B10:H30")("J10:K30")は入力欄です。 Private Sub CommandButton1_Click() ActiveSheet.Copy Before:=ActiveSheet Range("K6").Value = Range("K6").Value + 1 Range("B10:H30").ClearContents Range("J10:K30").ClearContents ActiveSheet.Select ActiveSheet.Name = Range("K6").Value 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

自分で入力したセルを黄色のパターンで表示したいです。 Aセルで、 リンクしているセルと そうでない自分で入力したセルを パターンの色で分けたいのですが、 どうすればよいのですか? 自分で入力したセルを黄色のパターンで表示したいです。 よろしく、お願いいたします。

再質問　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

印刷範囲の設定方法ですが、現在Excel2007を使っています。 印刷範囲の設定で印刷プレビューからページ設定のダイアログボックスを開いてシートタブから印刷範囲を設定しようとすると、グレイアウトになって設定ができません。 ページレイアウトタブからページ設定のダイアログボックスを開くと、印刷範囲が設定できます。 Excel2003では印刷プレビューを開いて設定出来ていたと思うんですが。何か違いがあるのでしょうか

Excel2003で、データを重複削除したいと思っています。添付しますので、お分かりの方、教えてください。よろしくお願い致します。

再質問　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

新旧2つの名簿、旧名簿だけにある項目を新名簿へ表示したい 旧名簿、新名簿があります。 ※退職等があるため旧＝新ではありません。 名簿の中にはいくつか項目がありますが（名前　ID等） 新名簿にはない項目が旧名簿に存在しています。 旧名簿にしかない項目を新名簿に表示させたいです。 ------------------------------------ 例 旧名簿 Aさん　男　りんご Bさん　女　りんご Cさん　男　バナナ Dさん　男　バナナ 新名簿（Cさんは退職で名簿にはいない） Aさん　男 Bさん　女 Dさん　男 欲しい名簿 Aさん　男　りんご Bさん　女　りんご Dさん　男　バナナ ------------------------------------

再質問　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 VBA 空白セル以外のセルを罫線で囲む ここの質問箱をよく利用させて頂いている者ですが、また質問させていただきます。 あるシート（例：”Ｓｈｅｅｔ1”）の全セル内のうち、ランダムな文字が全セル内のどこかに記入されています。 また、記入される位置は常に変化します。 つまり、ある時は「Ａ1」に入力されていても、次ははそうでないということです。 この様な場合、文字が入力されているセルのみに罫線を引く処理を行いたいのですが、実現は可能でしょうか？ また、可能であれば、どの様なコードになるのでしょうか。教えてください。

再質問　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

エクセルで中央揃えのショートカット・キーは？ エクセル2003を使っています。エクセルで中央揃えのショートカット・キーはありませんでしょうか？いくつかのページを見てみますと「Ctrl＋Ｅ」が紹介されているのですが，うちのエクセルでは反応しません。（もちろん Word では問題なくセンタリングできませす）やり方がおかしいのでしょうか？