ushi2015 の回答履歴

いつもお世話になります。 作表をしていて、項目に色をつけたいのですが VBA 実行時エラー1004　Rangeメソッドは失敗しました。Globalオブジェクト というエラーが If Range(Cells(5, n - 4)).Interior.Color = RGB(252, 213, 180) Then のところででます。 If Range("Z5").Interior.Color = RGB(252, 213, 180) Then とすると、実行できます。 Sub カラー() Dim n As Long '列番号取得 '最終列取得 n = Cells(5, Columns.Count).End(xlToLeft).Column MsgBox "最終列は" & n　　　'＝　今回は30です。 'セルの色を変える If Range(Cells(5, n - 4)).Interior.Color = RGB(252, 213, 180) Then Range(Cells(3, n - 3), Cells(5, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(39, n - 3), Cells(41, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(68, n - 3), Cells(70, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(104, n - 3), Cells(106, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(133, n - 3), Cells(135, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(169, n - 3), Cells(171, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(198, n - 3), Cells(200, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(234, n - 3), Cells(236, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(263, n - 3), Cells(265, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(299, n - 3), Cells(301, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(329, n - 3), Cells(331, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(365, n - 3), Cells(367, n)).Interior.Color = RGB(230, 184, 183) Else Range(Cells(3, n - 3), Cells(5, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(39, n - 3), Cells(41, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(68, n - 3), Cells(70, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(104, n - 3), Cells(106, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(133, n - 3), Cells(135, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(169, n - 3), Cells(171, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(198, n - 3), Cells(200, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(234, n - 3), Cells(236, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(263, n - 3), Cells(265, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(299, n - 3), Cells(301, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(329, n - 3), Cells(331, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(365, n - 3), Cells(367, n)).Interior.Color = RGB(252, 213, 180) End If End Sub どこが間違っているのか教えていただけないでしょうか？ あと、スマートなコードの書き方もお願いします。

access２００３ 迄はオートナンバー型も数値型もフィールドサイズは倍精度浮動小数点型が規定値と記憶しております。 access２０１０ではオートナンバー型は長整数型、数値型は整数型となっています。 周りの環境はAccess2000～Access2010まで混在しています。 規定値を一つにしたいのですが（できれば倍精度浮動小数点型）

いつもお世話になっております。 libreofficeのcalcを使って表を作っております。 見やすいように偶数行と奇数行で色を変えてシマシマにしました。 出来上がった表にいざ文字を入力すると、色つきの行と色なしの行ではフォントが異なってしまいます。 どうしたらフォントを統一できるでしょうか。 宜しくお願いします。 ちなみに =IF(ROW(M1)=1,FALSE,IF(MOD(ROW(M1),2)=0,TRUE,FALSE)) でグレーと色なしでシマシマにしています。

下記のようなデータがあります。 19行目から製品番号が重複しているのですが、「重複の削除」では削除されません。 そこでNo 1-18までを削除して、「重複の削除」を行うと削除することができます。 なぜ1-18があると削除できないのでしょうか。 下のデータをエクセルに貼り付けても自分のPCでは再現します。 よろしくお願いします。 No , 製品番号 , 日付 1 , 0203 , 2003/1/2 2 , 203 , 2003/1/2 3 , 00303 , 2003/1/3 4 , 303 , 2003/1/3 5 , 404 , 2004/1/4 6 , 404 , 2004/1/4 7 , 00603 , 2003/1/6 8 , 603 , 2003/1/6 9 , 00703 , 2003/1/7 10 , 703 , 2003/1/7 11 , 00803 , 2003/1/8 12 , 803 , 2003/1/8 13 , 00903 , 2003/1/9 14 , 903 , 2003/1/9 15 , 01003 , 2003/1/10 16 , 1003 , 2003/1/10 17 , 01103 , 2003/1/11 18 , 1103 , 2003/1/11 19 , 18006D2 , 2006/6/29 20 , 18006D2 , 2006/6/29 21 , 18904D , 2004/7/7 22 , 18904D , 2004/7/7 23 , 18905A2 , 2005/7/8 24 , 18905A2 , 2005/7/8 25 , 19405D1 , 2005/7/13 26 , 19405D1 , 2005/7/13 27 , 19407D2 , 2007/7/13 28 , 19407D2 , 2007/7/13 29 , 19506D2 , 2006/7/14 30 , 19506D2 , 2006/7/14 31 , 19704D , 2004/7/15 32 , 19704D , 2004/7/15 33 , 2004D , 2004/1/20 34 , 2004D , 2004/1/20 35 , 20206A2 , 2006/7/21 36 , 20206A2 , 2006/7/21

家に迷い猫が来ました。毛がフサフサで、体重は7kgほど。足が太くて、人懐っこい感じです。さすがに日本猫ではない気がします。雑種かもしれませんが、「この種類の猫に似てる」というのを教えていただけると助かります。お願いいたします。

いつもお世話になっております。 libreofficeのcalcを使って表を作っております。 見やすいように偶数行と奇数行で色を変えてシマシマにしました。 出来上がった表にいざ文字を入力すると、色つきの行と色なしの行ではフォントが異なってしまいます。 どうしたらフォントを統一できるでしょうか。 宜しくお願いします。 ちなみに =IF(ROW(M1)=1,FALSE,IF(MOD(ROW(M1),2)=0,TRUE,FALSE)) でグレーと色なしでシマシマにしています。

添付ファイル　Excel拡張子xlsx が開きません。フォルダオプションで　関連付けてください。と表示されます。関連付け　方法をご指導ください。

アクセスにはクエリにクロス集計がありますが エクセルにもクロス集計と言う機能があるのでしょうか？ エクセル２０１０を持っています。 ピボットテーブルの事を クロス集計と呼ぶのでしょうか？

お世話になります。 あるA3～Z20(可変)までの全セルにシングルコーテーションをつけたいのです。 シングルコーテーションをつけると左上に緑色の三角を表示させたいのです。 (理由はこの三角がないと別システムへExcelを取り込めないのです) 1セルずつやるのはとても手間ですので一括で出来る方法を探しています。 どなたかご教授いただけますでしょうか？ よろしくお願い致します。 Excel2013

Dlookupをつかって検索する方法です。 以下のようなテーブルがあります <仕入れ伝票> 商品番号：数値型 種類；テキスト型 商品番号.種類 1,リンゴ 2,バナナ 3,なし <在庫表> 種類：テキスト型 番号：数値型 番号,種類 1 2 3 在庫表の商品名を示すために、次のようなクエリを書きましたがエラーになります。想像するにcriteriaの書き方が間違っており、探している値（数値）を見つけられていないのだと思います。 UPDATE 在庫表 SET 在庫表.種類 = (DLookUp("種類","仕入れ伝票","初品番号='" & [番号] & "'")); どのように直したらいいのか教えてください。

猫って別に相手を傷つけるつもりがなくても 猫パンチする時って爪を出すのでしょうか？

１０００行の表の３０行ごとに小計行を入れたいのです。 マクロが全く出来ない場合は、手入力していくしかないでしょうか。

１０００行の表の３０行ごとに小計行を入れたいのです。 マクロが全く出来ない場合は、手入力していくしかないでしょうか。

お世話になります。 あるA3～Z20(可変)までの全セルにシングルコーテーションをつけたいのです。 シングルコーテーションをつけると左上に緑色の三角を表示させたいのです。 (理由はこの三角がないと別システムへExcelを取り込めないのです) 1セルずつやるのはとても手間ですので一括で出来る方法を探しています。 どなたかご教授いただけますでしょうか？ よろしくお願い致します。 Excel2013

Excel2010のVBAで、別のExcelブックを非表示で開いて、 シートをコピーすると、 「実行時エラー'1004':WorksheetクラスのCopyメソッドが失敗しました。」 というエラーが出て、正しくシートをコピーすることができません。 (1)のように自分のブックへはシートをコピーすることはできるのですが、 (2)のように別のExcelブック上でシートをコピーする場合と (3)のように別のExcelブック上にシートをコピーする場合の いずれも同様のエラーになります。 どのように記述すれば(2)と(3)でもコピーすることができるのでしょうか。 ------------------------------------------------------------- Sub test() 　Dim newEx As Excel.Workbook 　Dim newFile As String 　newFile = ThisWorkbook.Path & "\New_Book.xlsx" 　Set newEx = Workbooks.Open(newFile, UpdateLinks:=0) 　Application.Windows("New_Book.xlsx").Visible = False 　'(1)New_BookのSheet3を自分のブックにコピーする (正常) 　newEx.Worksheets("Sheet3").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 　'(2)New_BookのSheet3をNew_Bookにコピーする (エラー) 　newEx.Worksheets("Sheet3").Copy after:=newEx.Sheets(newEx.Sheets.Count) 　'(3)自分のブックのSheet3をNew_Bookにコピーする (エラー) 　ThisWorkbook.Worksheets("Sheet3").Copy after:=newEx.Sheets(newEx.Sheets.Count) 　Application.Windows("New_Book.xlsx").Visible = True 　Application.DisplayAlerts = False 　newEx.Save 　newEx.Close 　Application.DisplayAlerts = True 　Set newEx = Nothing End Sub -------------------------------------------------------------

Excel2010のVBAで、別のExcelブックを非表示で開いて、 シートをコピーすると、 「実行時エラー'1004':WorksheetクラスのCopyメソッドが失敗しました。」 というエラーが出て、正しくシートをコピーすることができません。 (1)のように自分のブックへはシートをコピーすることはできるのですが、 (2)のように別のExcelブック上でシートをコピーする場合と (3)のように別のExcelブック上にシートをコピーする場合の いずれも同様のエラーになります。 どのように記述すれば(2)と(3)でもコピーすることができるのでしょうか。 ------------------------------------------------------------- Sub test() 　Dim newEx As Excel.Workbook 　Dim newFile As String 　newFile = ThisWorkbook.Path & "\New_Book.xlsx" 　Set newEx = Workbooks.Open(newFile, UpdateLinks:=0) 　Application.Windows("New_Book.xlsx").Visible = False 　'(1)New_BookのSheet3を自分のブックにコピーする (正常) 　newEx.Worksheets("Sheet3").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 　'(2)New_BookのSheet3をNew_Bookにコピーする (エラー) 　newEx.Worksheets("Sheet3").Copy after:=newEx.Sheets(newEx.Sheets.Count) 　'(3)自分のブックのSheet3をNew_Bookにコピーする (エラー) 　ThisWorkbook.Worksheets("Sheet3").Copy after:=newEx.Sheets(newEx.Sheets.Count) 　Application.Windows("New_Book.xlsx").Visible = True 　Application.DisplayAlerts = False 　newEx.Save 　newEx.Close 　Application.DisplayAlerts = True 　Set newEx = Nothing End Sub -------------------------------------------------------------

手順どおりに可視セルの貼付をしているのですが、成功しません。 貼り付け元のデータを４列可視セルコピーしました。 そして貼り付け先のデータはＡ～Ｅ列までデータがあり、Ｄ列を非表示にしています。 Ａ～Ｅ列（非表示のＤ列には計算式がはいっています）４列にコピーしたデータを 入れたいのですが、非表示のＤ列にＥ列に入れたいデータが入ってしまいます。 御教授お願い致します。

Excel2007のADOを使ってCSVファイルのデータを集計する方法を習得中です ある業務アプリからエクスポートしたデータなのですが、 売上伝票データ： 伝票日付、伝票番号、取引先名、明細番号、商品名、数量、単価、金額、取引区分、納入先コード 納入先コードテーブル： 納入先コード、納入先名 取引区分が0なら売上、1なら入金（入金伝票の場合納入先コードがNULL） これを集計して売上明細表をつくるとして、 伝票毎に伝票合計額、および納入先名を挿入するようなことが SQL文だけで可能でしょうか？

Excel2007のADOを使ってCSVファイルのデータを集計する方法を習得中です ある業務アプリからエクスポートしたデータなのですが、 売上伝票データ： 伝票日付、伝票番号、取引先名、明細番号、商品名、数量、単価、金額、取引区分、納入先コード 納入先コードテーブル： 納入先コード、納入先名 取引区分が0なら売上、1なら入金（入金伝票の場合納入先コードがNULL） これを集計して売上明細表をつくるとして、 伝票毎に伝票合計額、および納入先名を挿入するようなことが SQL文だけで可能でしょうか？

Excel2007のADOを使ってCSVファイルのデータを集計する方法を習得中です ある業務アプリからエクスポートしたデータなのですが、 売上伝票データ： 伝票日付、伝票番号、取引先名、明細番号、商品名、数量、単価、金額、取引区分、納入先コード 納入先コードテーブル： 納入先コード、納入先名 取引区分が0なら売上、1なら入金（入金伝票の場合納入先コードがNULL） これを集計して売上明細表をつくるとして、 伝票毎に伝票合計額、および納入先名を挿入するようなことが SQL文だけで可能でしょうか？