• ベストアンサー

エクセルのマクロのセルの範囲指定

エクセルのマクロで、うまくセルの範囲を指定できません。 例えば、 Range(Cells(5.6), Cells(8, 7)) = "AAA" と、指定した時は、F5：G8のセルにAAAという文字を代入するつもりで書いています。 ところが、マクロを実行すると、F1：G8まで、AAAの文字が代入されます。 どうしてでしょうか。 宜しくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

誤記： Cells(5.6) 正解： Cells(5, 6) cells(6).selectのようにするとＦ１を取得する様子を確認できます。

promet
質問者

お礼

ありがとうございます。 まだVBA初心者のため、基本的な間違えに気づかず、また、あまりに基本的な間違い過ぎて、本やネットにも載っていないので、大変助かります。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • Excelのマクロ 指定した範囲のセルの処理方法

    Excel2000のマクロを使って以下のマクロを作っています。 ■指定した範囲のセルの値が80以上だったら色をつける そこで質問なのですが、 range("","").select でセルの範囲を指定して、そこから選択したセルだけを対象に処理を実行するにはどうしたらいいのか方法がわかりません。どうすればいいでしょうか？ どなたかご解答よろしくお願いします。

  • マクロ　セルコピーを指定範囲先に張り付ける

    セルコピーを指定範囲先に張り付けループさせるマクロを作成したいと 思います。 調べたところ以下のように指定範囲をコピーしてセルに貼り付けは できるみたいですが、指定範囲先に貼り付けができません。 Sub CopyCell() Range(Cells(1,2),Cells(3,4)).Copy Destination:=Cells(5,6) End Sub 　　↓ 最終的に以下のように実行を考えています。 Dim p As Integer For p = 1 To 10 Range(5,6).Copy Destination:=Range(Cells(10*p+2,2),Cells(10*p+15,4)) Next p セル値を等間隔に連続して貼り付けは可能でしょうか？ よろしくお願いします。

  • マクロのセルの範囲指定

    こんにちは。マクロ初心者です。 今エクセルの業務でマクロを作成しようとしているのですが マクロ実行時にセルの範囲でマウスでセルを選んだところから マクロを実行させたいのですが（マクロを実行する際毎回場所が変わるので）そのようなセル指定方法はあったりしますでしょうか？ 項目に関しては（BW4～BX4）は固定です。 関数に関しては（BW10～BW10）は月によっては BW20になったりと行が変わります。 Range("BW10").Selectのカッコ内を毎回変更すればいいのですが 項目が20以上ある為面倒です。 なにか良い方法がありますでしょうか？ よろしくお願いいたします。 Range("BW4").Select ActiveCell.FormulaR1C1 = "商談明細NO桁数" Range("BX4").Select ActiveCell.FormulaR1C1 = "商談明細NO桁数2" Range("BW10").Select ActiveCell.FormulaR1C1 = "=CONCATENATE(0,RC[-70])" Range("BX10").Select 　　ActiveCell.FormulaR1C1 = "=RIGHTB(RC[-1],2)"

  • EXCEL VBA----離れたセル範囲の指定

    こんにちは。初歩的なことで困っています。 Range("A3:A19,F3:F19").Select のように、離れたセル範囲を選択したいのですが 上の例の19行目が不定であるため、変数を使ったCellsプロパティを使用し i=Range("A3").End(xldown).Row Range("Cells(3, 1).Cells(i, 1), Cells(3, 6).Cells(i, 6)").Select と書いてみたのですが、エラーになってしまいました。 正しい指定の仕方を教えて下さい。よろしくお願いします。

  • Excelマクロ　範囲指定について教えて下さい。

    ソフトから書き出したテキスト形式のファイルを、エクセルで読み込んで範囲を指定し、 他のブックのシートに貼り付けるという、いつもの作業をマクロで簡素化しようと、 マクロ初心者の私は、マクロの自動記録と、インターネットで調べたりで作っているのですが、 範囲指定でつまづいています。 読込んだファイルには、A列からH列までデータがあります。 行のほうは、その都度変わります。 A列を下に見ていくと、途中＜小計＞という文字が何度か出てきます。 左上端がA4として、そこから初めての＜小計＞がある行の1段上の行までで 範囲指定させることは出来るのでしょうか？ 例えば、A20に＜小計＞があるなら、指定範囲を　A1:H19　という具合に するのはどうしたらいいですか？ 下のマクロでは、H列の右下端まで全部範囲指定するので、ダメですね。 Dim 左上端 As String, 右下端 As String Windows("aaa.txt").Activate Worksheets("aaa").Select 左上端 = "A4" 右下端 = Range(左上端).SpecialCells(xlLastCell).Address Range(左上端 & ":" & 右下端).Select Selection.Copy Windows("bbb.xls").Activate Sheets("bbb").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Excel2003を使っています。 よろしくお願いします。

  • VBAマクロ_セル範囲を行列番号で指定

    エクセルマクロで、ある範囲を指定してコピーし、別の場所を指定してそこへ貼付たいのです。 個別に指定するなら、例えばこんな感じで 　　Range("B18:C32").Select 　　Selection.Copy 　　Range("B67").Select 　　ActiveSheet.Paste B18:C32　のように、セル番号で指定すれば出来ます。 このコピー範囲を、行列番号で指定したいのです。 「セル（i,j)～(k,l)までの範囲」というふうに、4つの変数で表現したいのです。 cells(i,j)を使えばできそうと思ったのですが、どうもうまくいきません。 良いやり方があれば教えてください。

  • マクロでのセルの選択範囲について

    マクロのセル範囲の指定でうまくできなくて困っています。 マクロでB3：B5を選択するように、コードを次のように Range(Cells(3.2), Cells(5, 2)).Select 書くと、B1：C5を選択します。 試しに、 Cells(3, 2).Select と書くと、B3を選択します。 次に、マクロを Cells(5, 2).Select と書くと、B5を選択します。 どうしてでしょうか。 宜しくお願い致します。

  • マクロのセルの範囲指定

    お世話になります。マクロ初心者です。エクセルの業務でマクロを作成しようとしているのですが、マクロ実行で、セルの範囲が指定される方法はありますか？例えば シート名　　開始　　終了　 Sheet1　　　Ａ１　　Ｄ１０ を入力して、ボタンを押したらＡ１からＤ10までのセルが選択されることです。説明不足ですみません。宜しくお願いします。

  • エクセルのマクロで範囲指定をセルに番号を入れて、範囲指定したセルの字の

    エクセルのマクロで範囲指定をセルに番号を入れて、範囲指定したセルの字の色を白にして消したいのですが、番号を入れるマクロがわかりません。マクロに記録でＡ２からＢ１２までのセル内の字の色を白 にする方法は Sub 字を消す() ' ' 字を消す Macro ' ' Range("A2:B11").Select With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End SubでできるのですがＤ３に開始番号、Ｅ３に終了番号を指定する方法がわかりません。ご教授お願いします

  • ifの条件であるセル範囲と別の範囲が完全に一致するとしたい

    エクセルのマクロで、 if **** then の部分の ****にある範囲のセルとある範囲のセルが完全に一致しているという If Range(Cells(2, 3), Cells(60, 3)) = Range(Cells(2, 4), Cells(60, 4)) Then みたいなかんじにしたいのですが、これだとエラーになります。 どうしていけばいいでしょうか？ 宜しく御願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する