mar00 の回答履歴

マクロを書き変えたいのですが、 現在使用してる　下記のマクロがあるのですが、 このマクロに　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 あと　シート数を指定しない場合も知りたいのです。 どなたか　力を貸してください。

マクロを書き変えたいのですが、 現在使用してる　下記のマクロがあるのですが、 このマクロに　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 あと　シート数を指定しない場合も知りたいのです。 どなたか　力を貸してください。

マクロを書き変えたいのですが、 現在使用してる　下記のマクロがあるのですが、 このマクロに　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 あと　シート数を指定しない場合も知りたいのです。 どなたか　力を貸してください。

再質問　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１～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 あと　シート数を指定しない場合も知りたいのです。 どなたか　力を貸してください。

Excel97を会社で使用していますが、データの自動保存の設定はどうすればよいのでしょうか？ ぐぐってもこのバージョンの設定方法についての記述はありません。さすがに未だに97なんて使っている人いないですよね？

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

マイピクチャーから画像を引っ張る エクセルシートのA2セルに「125-1」と入れたら、マイピクチャーから「125-1」というタイトルのついた画像をB2セルに表示する、ということをA3-B3,A4-B4・・・と繰り返し表を作りたいです。 下記を参考にしましたが、A2-B2は出来ますが、それ以降をどう設定したらいいのか分りません。 ご指導ください。 http://okwave.jp/qa/q1500030.html

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

特定の文字列が入力されると、その文字列の列すべてを別のシートに抽出する方法について お世話になります。 エクセルについてのご相談なのですが、 「シート１に入力された内容を、表の一番左の番号を元に別シートに引用したい」 というご相談です。 条件として、 ・入力される内容は複数の項目 ・入力されるデータは文字列も数値もある ・シート１は任意の項目でソートをすることもあるが、一番左の番号も同様にソートされるので、データと番号がずれることはない という前提です。 サンプル画像にイメージデータを添付致しました。 このサンプルですと、A4～A12の数字が「左端の番号」になり、別シートでは「左端の番号」を元にB～Fのデータを引用するように作成をしたいと思っています。 説明がわかりにくいかとは思いますが、ご助力頂ければ助かります。 よろしくおねがいいたします。

特定の文字列が入力されると、その文字列の列すべてを別のシートに抽出する方法について お世話になります。 エクセルについてのご相談なのですが、 「シート１に入力された内容を、表の一番左の番号を元に別シートに引用したい」 というご相談です。 条件として、 ・入力される内容は複数の項目 ・入力されるデータは文字列も数値もある ・シート１は任意の項目でソートをすることもあるが、一番左の番号も同様にソートされるので、データと番号がずれることはない という前提です。 サンプル画像にイメージデータを添付致しました。 このサンプルですと、A4～A12の数字が「左端の番号」になり、別シートでは「左端の番号」を元にB～Fのデータを引用するように作成をしたいと思っています。 説明がわかりにくいかとは思いますが、ご助力頂ければ助かります。 よろしくおねがいいたします。

特定の文字列が入力されると、その文字列の列すべてを別のシートに抽出する方法について お世話になります。 エクセルについてのご相談なのですが、 「シート１に入力された内容を、表の一番左の番号を元に別シートに引用したい」 というご相談です。 条件として、 ・入力される内容は複数の項目 ・入力されるデータは文字列も数値もある ・シート１は任意の項目でソートをすることもあるが、一番左の番号も同様にソートされるので、データと番号がずれることはない という前提です。 サンプル画像にイメージデータを添付致しました。 このサンプルですと、A4～A12の数字が「左端の番号」になり、別シートでは「左端の番号」を元にB～Fのデータを引用するように作成をしたいと思っています。 説明がわかりにくいかとは思いますが、ご助力頂ければ助かります。 よろしくおねがいいたします。

特定の文字列が入力されると、その文字列の列すべてを別のシートに抽出する方法について お世話になります。 エクセルについてのご相談なのですが、 「シート１に入力された内容を、表の一番左の番号を元に別シートに引用したい」 というご相談です。 条件として、 ・入力される内容は複数の項目 ・入力されるデータは文字列も数値もある ・シート１は任意の項目でソートをすることもあるが、一番左の番号も同様にソートされるので、データと番号がずれることはない という前提です。 サンプル画像にイメージデータを添付致しました。 このサンプルですと、A4～A12の数字が「左端の番号」になり、別シートでは「左端の番号」を元にB～Fのデータを引用するように作成をしたいと思っています。 説明がわかりにくいかとは思いますが、ご助力頂ければ助かります。 よろしくおねがいいたします。

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

マイピクチャーから画像を引っ張る エクセルシートのA2セルに「125-1」と入れたら、マイピクチャーから「125-1」というタイトルのついた画像をB2セルに表示する、ということをA3-B3,A4-B4・・・と繰り返し表を作りたいです。 下記を参考にしましたが、A2-B2は出来ますが、それ以降をどう設定したらいいのか分りません。 ご指導ください。 http://okwave.jp/qa/q1500030.html

給料明細表の所得税をＶＬＯＯＫＵＰ関数などで出したいとかんがえてますが、 良い案がありますか、 ファイル名が、源泉徴収表　シート名が、平成20年4月移行分 の中に国税庁が出してる源泉徴収月額表があるので、これをコピーしてあるので 関数または、マクロなどで検索して表示させたいのですが、 下記は、国税局のＵＲＬです。 http://www.nta.go.jp/shiraberu/ippanjoho/pamph/gensen/zeigakuhyo2007/01.htm 給与明細のレイアウトは、セル　Ｋ４７に支払金額がでてます。Ｃ１４に所得税をだしたいのです。 給与明細は、加工が厳しい状態で、Ａ列しか空きが無くＡ７に不要人数を他から参照させようと おもってます。 本来ならば国税庁がわの表を提示するべきでしょうが、 現物を見ていただいた方が　確実かと思い書きませんでした。 給与明細は、現場別で複数あるので、同じファイル上に源泉徴収票をのせるのでなく 源泉徴収表と言う別ファイルを作り　そのデータから複数ある明細書の読ませようとかんがえています。 分かりにきくいのが、扶養の人数で変化する金額のよませかたなのです。 （　まあ　ほとんど分かりませんが・・・）　国税庁の表も加工した方が、よいでしょうか！ また、　マクロだとどのような式になりますか！ 分かりにくいでしょうが、　力を貸してください・ よろしくお願いします。

給料明細表の所得税をＶＬＯＯＫＵＰ関数などで出したいとかんがえてますが、 良い案がありますか、 ファイル名が、源泉徴収表　シート名が、平成20年4月移行分 の中に国税庁が出してる源泉徴収月額表があるので、これをコピーしてあるので 関数または、マクロなどで検索して表示させたいのですが、 下記は、国税局のＵＲＬです。 http://www.nta.go.jp/shiraberu/ippanjoho/pamph/gensen/zeigakuhyo2007/01.htm 給与明細のレイアウトは、セル　Ｋ４７に支払金額がでてます。Ｃ１４に所得税をだしたいのです。 給与明細は、加工が厳しい状態で、Ａ列しか空きが無くＡ７に不要人数を他から参照させようと おもってます。 本来ならば国税庁がわの表を提示するべきでしょうが、 現物を見ていただいた方が　確実かと思い書きませんでした。 給与明細は、現場別で複数あるので、同じファイル上に源泉徴収票をのせるのでなく 源泉徴収表と言う別ファイルを作り　そのデータから複数ある明細書の読ませようとかんがえています。 分かりにきくいのが、扶養の人数で変化する金額のよませかたなのです。 （　まあ　ほとんど分かりませんが・・・）　国税庁の表も加工した方が、よいでしょうか！ また、　マクロだとどのような式になりますか！ 分かりにくいでしょうが、　力を貸してください・ よろしくお願いします。

給料明細表の所得税をＶＬＯＯＫＵＰ関数などで出したいとかんがえてますが、 良い案がありますか、 ファイル名が、源泉徴収表　シート名が、平成20年4月移行分 の中に国税庁が出してる源泉徴収月額表があるので、これをコピーしてあるので 関数または、マクロなどで検索して表示させたいのですが、 下記は、国税局のＵＲＬです。 http://www.nta.go.jp/shiraberu/ippanjoho/pamph/gensen/zeigakuhyo2007/01.htm 給与明細のレイアウトは、セル　Ｋ４７に支払金額がでてます。Ｃ１４に所得税をだしたいのです。 給与明細は、加工が厳しい状態で、Ａ列しか空きが無くＡ７に不要人数を他から参照させようと おもってます。 本来ならば国税庁がわの表を提示するべきでしょうが、 現物を見ていただいた方が　確実かと思い書きませんでした。 給与明細は、現場別で複数あるので、同じファイル上に源泉徴収票をのせるのでなく 源泉徴収表と言う別ファイルを作り　そのデータから複数ある明細書の読ませようとかんがえています。 分かりにきくいのが、扶養の人数で変化する金額のよませかたなのです。 （　まあ　ほとんど分かりませんが・・・）　国税庁の表も加工した方が、よいでしょうか！ また、　マクロだとどのような式になりますか！ 分かりにくいでしょうが、　力を貸してください・ よろしくお願いします。