ka_na_de の回答履歴

お世話になります [現状] 実行させると 1列目を残して2列づつ処理をさせています Sub Macro1() Dim idxR, idxC, ptr As Integer Dim ws As Worksheet Set ws = ActiveSheet Worksheets.Add after:=ws ptr = 2 With ws .Rows(1).Copy Destination:=Range("A1") For idxR = 2 To .Range("A65536").End(xlUp).Row Cells(ptr, "A").Value = .Cells(idxR, "A").Value For idxC = 2 To 255 Step 2 If .Cells(idxR, idxC) = "" Then Exit For Else .Cells(idxR, idxC).Resize(1, 2).Copy Destination:=Cells(ptr, "B") ptr = ptr + 1 End If Next idxC Next idxR End With End Sub [判らないこと] 前７列を残して（A:G) 8列目から（H列）より9列づつ処理をさせたいのですが判らなく大変困っております。 どなたかご教授よろしくお願いします。

オートフィルタ後の範囲選択で教えてください。 １行目にタイトルがある表で Range("a1").AutoFilter Field:=2, Criteria1:="ＰＣ" Range("A1").CurrentRegion.Select と実行すると１行目のタイトル行を含めて商品がＰＣの行が セレクトされます。 オートフィルタを何度も実行した結果を別シートにまとめる為 ２回目以降はタイトル行を含めずにセレクトしたいのですが やり方がわかりません。お知恵をお貸しください。

　あるエクセルファイル名をセルに書くことでその中のデータを呼び出したいと思ってVLOOKUPを使ってみたのですが… 　セルB1にaaa.xlsと書いて ＝VLOOKUP(a,[=B1.xls]c!,$A$1:$F$50,1)と書くとファイルが見つかりませんといわれます。ファイル名を書くことでその中のデータを呼び出すことは可能でしょうか？ 　すいません全然分かってないので質問もよく分からないのですがなんとか大量のエクセルファイルをまとめたいです。宜しくお願い致します。

エクセルでセル内に4-3と入力すると、2007年4月3日または2007/04/03と出てしまいます。 どうしたらよいでしょうか？4-3とだけ入力したいです。

オートフィルタ後の範囲選択で教えてください。 １行目にタイトルがある表で Range("a1").AutoFilter Field:=2, Criteria1:="ＰＣ" Range("A1").CurrentRegion.Select と実行すると１行目のタイトル行を含めて商品がＰＣの行が セレクトされます。 オートフィルタを何度も実行した結果を別シートにまとめる為 ２回目以降はタイトル行を含めずにセレクトしたいのですが やり方がわかりません。お知恵をお貸しください。

オートフィルタ後の範囲選択で教えてください。 １行目にタイトルがある表で Range("a1").AutoFilter Field:=2, Criteria1:="ＰＣ" Range("A1").CurrentRegion.Select と実行すると１行目のタイトル行を含めて商品がＰＣの行が セレクトされます。 オートフィルタを何度も実行した結果を別シートにまとめる為 ２回目以降はタイトル行を含めずにセレクトしたいのですが やり方がわかりません。お知恵をお貸しください。

オートフィルタ後の範囲選択で教えてください。 １行目にタイトルがある表で Range("a1").AutoFilter Field:=2, Criteria1:="ＰＣ" Range("A1").CurrentRegion.Select と実行すると１行目のタイトル行を含めて商品がＰＣの行が セレクトされます。 オートフィルタを何度も実行した結果を別シートにまとめる為 ２回目以降はタイトル行を含めずにセレクトしたいのですが やり方がわかりません。お知恵をお貸しください。

オートフィルタ後の範囲選択で教えてください。 １行目にタイトルがある表で Range("a1").AutoFilter Field:=2, Criteria1:="ＰＣ" Range("A1").CurrentRegion.Select と実行すると１行目のタイトル行を含めて商品がＰＣの行が セレクトされます。 オートフィルタを何度も実行した結果を別シートにまとめる為 ２回目以降はタイトル行を含めずにセレクトしたいのですが やり方がわかりません。お知恵をお貸しください。

たとえば、 A1→空欄 B1→あ C1→い D1→う E1→え 上記の様になっている時に、A1セルに特定の文字列が入力された時だけ い（C1)う（D1)え（E1)を空欄にしたいのですがその様な関数ってあるのでしょうか？ わかる方がいらっしゃいましたら、是非おしえて下さい。 よろしくお願いします。

　あるエクセルファイル名をセルに書くことでその中のデータを呼び出したいと思ってVLOOKUPを使ってみたのですが… 　セルB1にaaa.xlsと書いて ＝VLOOKUP(a,[=B1.xls]c!,$A$1:$F$50,1)と書くとファイルが見つかりませんといわれます。ファイル名を書くことでその中のデータを呼び出すことは可能でしょうか？ 　すいません全然分かってないので質問もよく分からないのですがなんとか大量のエクセルファイルをまとめたいです。宜しくお願い致します。

初心者ですので、よろしくお願いいたします。 早速ですが、日常点検の表を作成しております。 A1セルに2007年、B1セルに1月と入力。 A2セルに日付表示のDATE関数設定【=DATE(A1,B1,1)】 A3セルに曜日設定【ユーザー定義aaa】 個々のセルに日付・曜日を表示した場合 『日曜日の場合（日付と曜日）の色変更』の仕方がわかりません。 一つのセルに月・日・曜日表示の場合（WEEKDAY設定・・）は 出来るのですが・・ 条件付き書式もうまくいきません。（設定方法が間違っているのかわかりませんが・・） 説明が不器用ですみません。 どなたかご存知の方、よろしくご伝授ください。

エクセルで任意の順番にて入力（テンキー使用でenterで移動）をしたいです。 自分で調べてやったのですがうまくできないので教えてください。 ctrlキー+セル選択で名前BOXに登録は、セルを４０個ほどしか登録できない？でしょうか・・・？ 全部で３００個ほど有るのですが、ちまちまやっても４０個くらいのところで先頭に戻ります。 何か他の設定がおかしいのでしょうか？ マクロも簡単そうなやつ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D10").Select End If End Sub をやってみました。 今一解らず、 If Target.Address = "$A$1" Then Range("D10").Select End If のセルの位置を変えてやりましたが、こちらも数に制限があるのか 全部を登録して順番どうりに入力することができません。 数個分の枠で妙な位置に移動します・・・ 中の式を複数作ってやりました・・・ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D10").Select 　　　　　　・ 　　　　　　・ 　　　　　　・ If Target.Address = "XXXX" Then Range("XXX").Select End If End Sub （＄A$1とD10の値を変えたものを多数使用して・・・） 何か良い方法があれば教えてください。 よろしくお願いします。

　あるエクセルファイル名をセルに書くことでその中のデータを呼び出したいと思ってVLOOKUPを使ってみたのですが… 　セルB1にaaa.xlsと書いて ＝VLOOKUP(a,[=B1.xls]c!,$A$1:$F$50,1)と書くとファイルが見つかりませんといわれます。ファイル名を書くことでその中のデータを呼び出すことは可能でしょうか？ 　すいません全然分かってないので質問もよく分からないのですがなんとか大量のエクセルファイルをまとめたいです。宜しくお願い致します。

棒グラフと折れ線グラフの複合グラフを作っています。 縦軸の主軸に棒グラフの目盛、第２軸に折れ線グラフの目盛があります。 この目盛を主軸に折れ線グラフの目盛、第２軸に棒グラフの目盛に代えたいのですが方法を教えてください。 横軸の順番は入れ替えたくありません。

エクセルで任意の順番にて入力（テンキー使用でenterで移動）をしたいです。 自分で調べてやったのですがうまくできないので教えてください。 ctrlキー+セル選択で名前BOXに登録は、セルを４０個ほどしか登録できない？でしょうか・・・？ 全部で３００個ほど有るのですが、ちまちまやっても４０個くらいのところで先頭に戻ります。 何か他の設定がおかしいのでしょうか？ マクロも簡単そうなやつ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D10").Select End If End Sub をやってみました。 今一解らず、 If Target.Address = "$A$1" Then Range("D10").Select End If のセルの位置を変えてやりましたが、こちらも数に制限があるのか 全部を登録して順番どうりに入力することができません。 数個分の枠で妙な位置に移動します・・・ 中の式を複数作ってやりました・・・ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D10").Select 　　　　　　・ 　　　　　　・ 　　　　　　・ If Target.Address = "XXXX" Then Range("XXX").Select End If End Sub （＄A$1とD10の値を変えたものを多数使用して・・・） 何か良い方法があれば教えてください。 よろしくお願いします。

エクセル2000なんですが、 シートA、シートB、シートC・・・・と、様々なデータを 作成したのですが、全てのシートの右上に日付、時刻を一括挿入 したいのですが、可能でしょうか？ １シート、１シートに個々に設定するのは時間がかかるもので・・・。 どなたか分かる方いましたら教えてください。 又、説明不足でしたら何なりと書き込みしてください。 以上、よろしくお願いします。

エクセル2000なんですが、 シートA、シートB、シートC・・・・と、様々なデータを 作成したのですが、全てのシートの右上に日付、時刻を一括挿入 したいのですが、可能でしょうか？ １シート、１シートに個々に設定するのは時間がかかるもので・・・。 どなたか分かる方いましたら教えてください。 又、説明不足でしたら何なりと書き込みしてください。 以上、よろしくお願いします。

Excel2003を使用しています。 ある表の行数を増やして、数式もコピーしたいのですが、その数式は別シートを参照していて、行・列が連続していないので、単純にコピー → 貼り付けでは、正しい数式を貼り付けることができません。 現在は、とりあえず、コピー＆貼り付けした後に、数式を修正しているのですが、規則性があるので、手作業で数式を修正する以外に何か良い方法はないでしょうか？ よろしくお願いします。

初心者ですので、よろしくお願いいたします。 早速ですが、日常点検の表を作成しております。 A1セルに2007年、B1セルに1月と入力。 A2セルに日付表示のDATE関数設定【=DATE(A1,B1,1)】 A3セルに曜日設定【ユーザー定義aaa】 個々のセルに日付・曜日を表示した場合 『日曜日の場合（日付と曜日）の色変更』の仕方がわかりません。 一つのセルに月・日・曜日表示の場合（WEEKDAY設定・・）は 出来るのですが・・ 条件付き書式もうまくいきません。（設定方法が間違っているのかわかりませんが・・） 説明が不器用ですみません。 どなたかご存知の方、よろしくご伝授ください。

あるExcelデータ（クライアント側）を起動時に自動的にサーバーにバックアップしようと思ってマクロを組んでいますが、なかなかウマくいきません。 何かいい方法はありませんか？ マクロはこんな感じです。 ***************************** Public Sub Auto_Open() Dim ThisName As String 'バックアップ元ファイル名 Dim ThisPath As String 'バックアップ元パス名 Dim BackupName As String 'バックアップ先ファイル名 Dim BackupPath As String 'バックアップ先パス名 ThisPath = ThisWorkbook.Path ThisName = ThisWorkbook.Name BackupPath = "\\sv1\職員用\Backup" BackupName = Left(ThisName, Len(ThisName) - 4) & Format(Now, "-yyyymmddhhmmss") & ".xls" ThisWorkbook.SaveAs Filename:=BackupPath & "\" & BackupName End Sub ***************************** これだとバックアップした方のExcelが起動してしてしまうのですが・・・