ベストアンサー

エクセルVBA

2011/03/27 14:04

例えば、 Range("A1").Formula = "=$B$1+$C$1" は可能なのですが、シートが違う場合の書き方を教えてください。 A1は（AAAシート） B1とC1は（BBBシート）マクロを登録するシートはAAAシートの方です。

atk18
お礼率13% (143/1041)

Microsoft ASP
回答数1
ありがとう数3

みんなの回答 （1）
専門家の回答

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

ベストアンサー

web2525
ベストアンサー率42% (1219/2850)

2011/03/27 15:26 回答No.1

Sheets("AAA").Range("A1").Formula = "=BBB!$B$1+BBB!$C$1" こうでしょうかね?

質問者

お礼 2011/03/27 19:12

ありがとうございます！できました！！

関連するQ&A

VBA　実行時エラー　1004　の表示が出る

下記のVBAを作成していてエラーが出てしまいますやりたいこととしてはボタンを選択すると特定のシート[AAA]の最終行を取得して別シート[BBB]の2行目をシート[AAA]との最終行までコピーすることです --- Private Sub CommandButton_Click() Sheets("AAA").Range("A1", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Resize(, 3).Formula = Sheets("BBB").Range("B2:D2").Formula End Sub
【エクセル】　VBAでエラーが出てわかりません。。

やりたいことは、関数をマクロでセルに記入してオートフィルで指定した行数まで伸ばしたいのです。（すでに関数で作成したファイルがあるのですが、行数が多いため、とても重い。。＾＾；）まずマクロの記録で次のマクロを取得しました。 Sub Macro4() Range("C4").Select ActiveCell.Formula = "=SUM(A2:A10)" Range("C4").Select Selection.AutoFill Destination:=Range("C4:C12"), Type:=xlFillDefault Range("C4:C12").Select Range("D11").Select End Sub そして、 Sheet2に貼り付けて > ActiveCell.Formula = "=SUM(A2:A10)" の"=SUM(A2:A10)"部分をちょっと長い関数ですが、 "=IF(ISERROR(INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1)),"",INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1))" と書き換えてマクロを実行すると「アプリケーション定義またはオブジェクト定義エラーです。」というエラーが出てしまうんですが、どこを直せばわからないです。。おかしいところを教えてください、よろしくお願いします。わかり図らい説明かと思いますが。。この件（１行目の文）について似たようなことを解説しているサイトがありましたら、教えて欲しいです。
EXCELマクロでの formula の使用に関して

マクロ内で、 Range(c1).formula = "=A1+B1" と記述すればセルＣ１に「=A1+B1」という式が入ります。これはいいのですが・・・・セルＣ１に「=CONCATENATE(A1,"～",B1)」というような「"」を使った数式を入れる場合、どうにように formula文を作成すればいいのでしょうか？ Range(C1).formula = "=CONCATENATE(A1,"～",B1)" ではダメです。「"」の前に何か記号でもつけるのでしょうか？
エクセルVBAで重複する名前に（2）、（3）等をつける方法は？

こんにちは。お世話になります。以下のようなデータ（約1500件）があります。データは分類と名称でソート済みです。同じ分類のなかで同じ「名称」があった場合、B列の名称の直後に同一セル内で（2）や（3）を順に振っていくマクロを教えていただきたいのです。（1）は不要です。下記の例では、ううう(2)、ううう(3)といった具合です。よろしくお願いします。 A列 B列 C列分類名称データ1 aaa あああ a aaa いいい b aaa ううう a aaa ううう a aaa ううう a aaa えええ b bbb かかか a bbb かかか a bbb ききき a bbb くくく b ccc さささ a ccc ししし b ccc すすす a ccc すすす a ccc すすす a ccc すすす a ccc せせせ a
エクセルで色付けのVBAを作成してるのですが・・。

エクセルでレンジ値の大きさにより色付けをする（下の条件）VBAを作りたいのですがうまく走りません。お手数とは思いますがご教授お願いします。シート "aaa" のレンジ "A3<A2<A1" とだんだん大きくなれば、シート "bbb" のレンジ "B1" の文字を黄色にして、シート "bbb" のレンジ "C1" の文字を赤色へシート "aaa" のレンジ "A3<A2<A1" とだんだん大きくなれば、シート "bbb" のレンジ "B1" の文字を緑色にして、シート "bbb" のレンジ "C1" の文字を赤色へシート "aaa" のレンジ "A3，A1" が空白の場合、シート "bbb" のレンジ "C1" の文字を赤色へシート "aaa" のレンジ "A3，A2，A1" が上の条件に合わなければ、シート "bbb" のレンジ "B1" の文字を黒色にし、シート "bbb" のレンジ "C1" の文字を赤色にして終わる。というようなプログラムで下記のように作りました。（"A1，A2，A3"に入る値は50～100まで） ----------------------------------------------- Sub 注意() Dim v506Hi, v506Lo, v506a, v506b As Single v506a = Worksheets("aaa").Range("A3") v506b = Worksheets("aaa").Range("A1") If Worksheets("aaa").Range("A3") <> "" Then GoTo Sub1 ElseIf Worksheets("aaa").Range("A1") <> "" Then GoTo Sub1 Else Worksheets("bbb").Range("B1").Font.Color = RGB(0, 0, 0) GoTo sub2 Sub1: Select Case v506a Case Is < Worksheets("aaa").Range("A2") v506Hi = Worksheets("aaa").Range("A2") v506Lo = 0 Case Is > Worksheets("aaa").Range("A2") v506Lo = Worksheets("aaa").Range("A2") v506Hi = 500 Case Is = Worksheets("aaa").Range("A2") v506Hi = 500 v506Lo = 0 End Select Select Case v506b Case Is > v506Hi Worksheets("bbb").Range("b1").Font.Color = RGB(255, 255, 0)黄色 Case Is < v506Lo Worksheets("bbb").Range("b1").Font.Color = RGB(0, 255, 0)緑 Case Else Worksheets("bbb").Range("b1").Font.Color = RGB(0, 0, 0) End Select sub2: Worksheets("bbb").Range("c1").Font.Color = RGB(255, 0, 0)赤 End If End Sub ----------------------------------------------------------- プログラム初心者で間違いだらけとは思いますが、よろしくお願いいたします。
エクセルVBAで困っています。

Excell2003でマクロを作成したのですが、思うような結果が出なくて困っています。どなたかお力をお貸しください。お願いします。【作成したマクロ】 Sub テスト() 　　myPath = ThisWorkbook.Path 　　buf = Dir(myPath & "￥データ￥" & "*.xls") 　　Do While buf <> "" 　　　　Target = "'" & myPath & "[" & buf & "]Sheet1'!R1C1" 　　　　i = i + 1 　　　　Cells(i, 1) = buf 　　　　Cells(i, 2) = ExecuteExcel4Macro(Target) 　　　　buf = Dir() 　　Loop End Sub 【設定状況】・デスクトップ上に "サンプル.xls" があり、ThisWorkBookに上記マクロを書きました。・デスクトップ上に "データ" というフォルダがあり、その中に、"Book1.xls" と "Book2.xls" があります。・"Book1.xls" のSheet1のRange("A1")には "あいうえお" が入力されています。・"Book2.xls" のSheet1のRange("A1")には "かきくけこ" が入力されています。【マクロ実行結果】・Range("A1") ・・・ Book1.xls ・Range("B1") ・・・ #REF! ・Range("A2") ・・・ Book2.xls ・Range("B2") ・・・ #REF! となってしまいます。【求めたい結果】・Range("A1") ・・・ Book1.xls ・Range("B1") ・・・あいうえお・Range("A2") ・・・ Book2.xls ・Range("B2") ・・・かきくけこよろしくお願いします。
エクセル　ＶＢＡ　シートの選択　

windows XP でエクセル２０００を使っています。 Sub aaa() Sheets("Sheet1").Select Dim a As String a = Cells(2, 4) Sheets(a).Select Range("A1").Select End Sub というマクロだと　セルに入っている値のシート名を探してくれます。ですが Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Intersect(Target, Range("B11:b683")) Is Nothing Then Exit Sub Worksheets("Sheet1").Range("C2").Value = Target.Value Dim b As String b = Range("C2).value （←ここをcellsにしてもダメ） Sheets(b).Select Range("A1").Select End Sub これだとsheets(b)を選びません。Sheets(b).Selectのところが黄色くなります。何処が間違えているのでしょうか。全くの素人ですが、仕事で必要に迫られています。わかりやすく回答・解説くれると助かります。
エクセルＶＢＡ、他のファイルからのコピー

ＢＢＡ初心者です aaa.xlsのマクロで aaa.xls にbbb.csvのデータを貼り付けたいのですが Sub () Windows("bbb.csv").Activate…ここのbbbってところをセル参照にしたいのです ActiveCell.Range("A1:A10").Select Selection.Copy Windows("aaa.xls").Activate ActiveSheet.Paste End Sub １つ上のセルにbbbと入力されていればbbb.csvのデータを１つ上のセルにcccと入力されていればccc.csvのデータを貼り付けれるようなマクロはどう書けばいいのでしょうかよろしくお願いします
EXCELマクロで数行おきに繰り返す場合

初歩的な質問なんでしょうが宜しく尾お願いします。 SHEET1上で、他のシートを参照して数式を入力するマクロですが数行おきに入力していき、かつ参照するシートも数行おきとなる場合の記述がよく分かりません。 Range("A2").Formula ="=IF($K$1>=3,SHEET2!H7,""-"")" Range("B2").Formula ="=IF($K$1>=6,SHEET2!IF7,""-"")" Range("A4").Formula ="=IF($K$1>=3,SHEET2!H12,""-"")" Range("B4").Formula ="=IF($K$1>=6,SHEET2!I12,""-"")" ・・という感じで、2行おきのセルにシート「SHEET2」のセルを5行おきに参照していきます。50回くらい（100行目迄繰り返すので簡単に記述できないかと前半のRange("Ax").はForToで指定すればいいのかなとなんとなく想像はできるのですが、さらに入力する数式の行も異なる間隔で可変させるという場合の記述が分かり分かりません。素人で恐縮ですが教えて頂けませんか？
Excel VBAで…。

データーシート(1)のデータをレイアウトシート(2)に転記するのに例えば sheets(1).range("A1").value=sheets(2).range("C5").value sheets(1).range("B1").value=sheets(2).range("C6").value sheets(1).range("C1").value=sheets(2).range("C7").value と言うように配置しているのですがもし、シート(1)セルB1の値が空白ならばシート(1)セルC1の値はシート(2)のセルC6に配置・・・と言うようにデータがない場合は、転記後の配置は詰めて配置したいのです。どうすればよろしいでしょうか？
Excel VBAで、Averageの範囲を変数を使って記述したい。

VBA初心者です。例えば、 n=1～26 n=1の時 Range(A1:Z1).Formula=("=average(A2:A5)") n=2の時 Range(B1:Z1).Formula=("=average(B2:B5)") n=3の時 Range(C1:Z1).Formula=("=average(C2:C5)") （以下、n=26まで続く）これを変数を使って、すっきり記述するにはどうすればよいのでしょうか？よろしくお願いします。
エクセルVBA　ワークシート関数の使用について

エクセル2003VBA　ワークシート関数の使用についての質問ですよろしくお願いします。４桁の数字を、千の位・百の位・十の位・一の位に分解する関数ですが例えば A1に４桁の数字があり、B1に千の位を表示する場合ですがワークシート関数の場合 B1=MOD(INT($A$1/1000),10)　となりますが VBAにてそのまま使用し Range("B1").value=Application.WorksheetFunction.MOD(INT(Range("A1")/1000),10)とするとエラーになります。エラーになる原因は、いろいろ調べたら分かったのですがこの様に、一発でB1に計算結果を入れたいのですが、どうしたらよろしいでしょうか現在は、 Range("C1").Formula = "=MOD(INT(A1/1000),10)" Range("B1").value=Range("C1").value 一旦、C1に置き換えてから行っています。よろしくお願いします
【Exceｌ2010】VBAのFormuｌaの意味

エクセル2010を使っている者です。離れたセルの数字を置き換えられたらなと思ってその方法を探していたら、以下のマクロが見つかりました。 VBAは少しだけかじっているのでFormulaってなんだろうと思って、Formulaを消した状態でマクロを実行してみたのですが、消す前と同様にうまく動きました。 Formulaとはどういったものなのでしょうか？また、この場合、使う意味はあったのでしょうか？ Sub swap() Dim w, x As Range, y As Range If Selection.Areas.Count <> 2 Then Exit Sub Set x = Selection.Areas(1) Set y = Selection.Areas(2) w = x.Formula x.Formula = y.Formula y.Formula = w End Sub それと、formulaのことを自分で調べようと思って検索していたら以下の式が見つかりました。理解できなかったのですが、この場合もFoumulaと書く意味はあるのでしょうか？ Range("A1").Formula = "=TODAY()" Range("B1").Formula = "=NOW()" Range("A5").Value = "合計" Range("B5").Formula = "=$B$2+$B$3+$B$4" よろしくお願いいたします。
EXCEL VBA Worksheet_Chang

お世話になります。 EXCEL VBAで以下の処理をしています。 C6の内容に応じて、セルに式を設定するだけなのですがこのシートの全然関係ないセルで[Delete]キーを押下した際に実行時エラー　13 型が一致しませんというエラーが発生します。どういう理由でエラーとなるのでしょうか？また、どのような対処をすればいいでしょうか？以下、実際のコードです Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("C6") Then If Range("C6").Value = "する" Then Range("I11").Formula = "=C7" Range("I12").Formula = "=C7" Range("I13").Formula = "=C7" Range("I14").Formula = "=C7" Range("J11").Formula = "=C8" Range("J12").Formula = "=C8" Range("J13").Formula = "=C8" Range("J14").Formula = "=C8" Else Range("I11").Formula = "" Range("I12").Formula = "" Range("I13").Formula = "" Range("I14").Formula = "" Range("J11").Formula = "" Range("J12").Formula = "" Range("J13").Formula = "" Range("J14").Formula = "" End If Else End If End Sub
VBA(重回帰分析)

以下のプログラムが動かないのですがなぜでしょうか？ Sub Macro2() Application.Run "ATPVBAEN.XLAM!Regress", _ Worksheets("aaa").Range("$A$1:$A$5"), _ Worksheets("aaa").Range("$B$1:$C$5"), True, False, , _ Worksheets("bbb").Range("$A$1"), False, False, False, False, , False End Sub 具体的には、シート「aaa」のA1～A5を説明変数、B1～C5を被説明変数として、重回帰分析の結果を「bbb」のA1に表示させようとしているのですが、うまくいきません。ちなみにexcel2007を使っています。
複数のｅｘｃｅｌファイルの置換について

AAA.xlsというファイルの中の情報を複数のｅｘｃｅｌファイル（A.xls、B.xls、C.xls、D.xls）でリンク付けしてあるとします。 AAA.xlsをBBB.xlsに名前を変更するとリンクが成り立たなくなってしまいます。そこで、一括でリンクを変更する方法を教えてください。マクロでもいいです。 =[AAA.xls]Sheet1!$A$1 これを =[BBB.xls]Sheet1!$A$1 に一括変更したいのです。よろしくお願いします。
EXCEL VBA を教えて下さい。

EXCEL VBA で　業務毎に（A業務、B業務、C業務）、担当者のメールアドレスを抽出するツールを作りたいです。＜Sheet1＞　　　A列　　　B列　　　C列　　　D列　　　E列　　　氏名　　メアド　　A業務　　B業務　　C業務　　　111　　　111@aaa　　　to　　　cc　　　bcc 　　　222　　　222@bbb　　　cc　　　bcc　　to 　　　333　　　333@ccc　　　bcc　　to　　　cc 　　　444　　　444@ddd　　　to　　　cc　　　bcc もしも、A業務のセルををクリックしたら、、、 Sheet２に下記のように表示するものを作りたいです。＜Sheet2＞ to：　　　 111@aaa,444@ddd cc：　　　 222@bbb bcc：　　　333@ccc なんとか下記まで書いてまましたが、知識が未熟な為、行き詰っています。 Sub Macro03() With Worksheets("Sheet1").Range("A1") .AutoFilter Field:=3, Criteria1:="to" 　　（　B列の対象メアドをカンマで連ねてコピーしたいのですがわからないです） .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("Sheet2").Range("B2").PasteSpecial Paste:=xlValues, Transpose:=True .AutoFilter End With Worksheets("Sheet2").Activate End Sub VBAの優秀な方、どうか教えて下さいますよう、宜しくお願い致します。
Sheet2にある情報をSheet1のA1に１列で

マクロを作りたいのですが、以下のようなものをどうすればできるかで詰まっています。 Sheet2にある情報をSheet1のA1に１列（A列B列C列の順）で並ぶようにしたいです。 Sheet2の内容は変わることがあるので、データがどの行まで入っているかはマクロを走らせるときにチェックしないとわからないかと思います。 [Sheet1] 111 222 333 aa bb aaa bbb ccc ddd eee -------------------------- [Sheet2] A B C 1 111 aa aaa 2 222 bb bbb 3 333 ccc 4 ddd 5 eee 素人な質問かもしれないですが、調べてもわからなかったので、教えていただけると幸いです。
Excelでマクロを使いセルの内容をコピー貼り付け

A1セルに111と入力してあるとします。この時B1にaaa111aaaと入力するマクロを作りたいです。 A1に222があるとB1はaaa222aaaと入力したいです。これをマクロで作ったのですが、次のようになり、A1の内容にかかわらず常にaaa111aaaとなってしまいます。 Sub Macro1() Range("A1").Select ActiveCell.FormulaR1C1 = "111" Range("B1").Select ActiveCell.FormulaR1C1 = "aaa111aaa" Range("B2").Select Application.Goto Reference:="Macro2" End Sub これのいらない行を削除し、コピーはA1の内容となるように修正して次のようにしました。 Sub Macro1() ActiveCell.FormulaR1C1 = Range("A1") Range("B1").Select ActiveCell.FormulaR1C1 = "aaa111aaa" Application.Goto Reference:="Macro2" End Sub まだペーストするときにA1の内容とならず直接入力となっています。これをどう変更すればいいでしょうか？
エクセル：別のシートへ抽出したデータをリンクさせたい。

次のようなシートがあります。（シートＡとします。）　　　Ａ　　　　Ｂ　　　　Ｃ　　… [1] ００１　　ＡＡＡ [2] ００２　　ＢＢＢ　あああ [3] ００３　　ＣＣＣ [4] ００４　　ＤＤＤ　 [5] ００５　　ＥＥＥ　　いいいＣ列の空欄データは除外して、Ｃ列にデータが記入されているものだけ別のシートに（シートＢ）に行ごとリンクさせたいと考えています。（この場合だと２列と５列です。）シートＡには今後もデータが追加される想定で、新しいデータで当てはまるものは自動的にシートＢに反映されるようにさせたいのですが…。マクロ等は詳しくありません。できるだけ簡単にできる方法があればご教授していただきたいと思います。よろしくお願いいたします。

エクセルVBA

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

お礼 2011/03/27 19:12

関連するQ&A

VBA　実行時エラー　1004　の表示が出る

【エクセル】　VBAでエラーが出てわかりません。。

EXCELマクロでの formula の使用に関して

エクセルVBAで重複する名前に（2）、（3）等をつける方法は？

エクセルで色付けのVBAを作成してるのですが・・。

エクセルVBAで困っています。

エクセル　ＶＢＡ　シートの選択

エクセルＶＢＡ、他のファイルからのコピー

EXCELマクロで数行おきに繰り返す場合

Excel VBAで…。

Excel VBAで、Averageの範囲を変数を使って記述したい。

エクセルVBA　ワークシート関数の使用について

【Exceｌ2010】VBAのFormuｌaの意味

EXCEL VBA Worksheet_Chang

VBA(重回帰分析)

複数のｅｘｃｅｌファイルの置換について

EXCEL VBA を教えて下さい。

Sheet2にある情報をSheet1のA1に１列で

Excelでマクロを使いセルの内容をコピー貼り付け

エクセル：別のシートへ抽出したデータをリンクさせたい。

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

エクセルVBA

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

お礼 2011/03/27 19:12

関連するQ&A

VBA 実行時エラー 1004 の表示が出る

【エクセル】 VBAでエラーが出てわかりません。。

EXCELマクロでの formula の使用に関して

エクセルVBAで重複する名前に（2）、（3）等をつける方法は？

エクセルで色付けのVBAを作成してるのですが・・。

エクセルVBAで困っています。

エクセル ＶＢＡ シートの選択

エクセルＶＢＡ、他のファイルからのコピー

EXCELマクロで数行おきに繰り返す場合

Excel VBAで…。

Excel VBAで、Averageの範囲を変数を使って記述したい。

エクセルVBA ワークシート関数の使用について

【Exceｌ2010】VBAのFormuｌaの意味

EXCEL VBA Worksheet_Chang

VBA(重回帰分析)

複数のｅｘｃｅｌファイルの置換について

EXCEL VBA を教えて下さい。

Sheet2にある情報をSheet1のA1に１列で

Excelでマクロを使いセルの内容をコピー貼り付け

エクセル：別のシートへ抽出したデータをリンクさせたい。

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

VBA　実行時エラー　1004　の表示が出る

【エクセル】　VBAでエラーが出てわかりません。。

エクセル　ＶＢＡ　シートの選択　

エクセルVBA　ワークシート関数の使用について

カテゴリ
一覧

専門家に質問してみよう
専門家登録