- ベストアンサー
【エクセルVBA】WorksheetsのSelec
Worksheets(AA).Select を行って、それ以下のプログラムは シートを指定しなくても Worksheets(AA)からデータを取ってくるわけではないのでしょうか? アクティブシートから情報を取ってくることがあるので シートの指定の標準的な記述(手法?)を知りたいです。
- mougmoug
- お礼率99% (225/226)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
参照変数を用意し、それに Set します。 Dim ws As Excel.Worksheet Dim wsName As String wsName = "Sheet2" Set ws = ThisWorkbook.Worksheets(wsName) ws.Range("$A$1").Value = "test"
その他の回答 (1)
- mu2011
- ベストアンサー率38% (1910/4994)
登録プロシージャが標準モジュール、シートモジュールでRange,Cells等のシート省略時の引用は以下の通りです。 ・標準モジュールはアクティブシート ・シートモジュールは常にそのシート 例えば、標準モジュールならシート選択すると以下のコードはその選択したシートが引用され、シートモジュールではプロシージャ登録シートなるという事です。 意識的にするなら、シートオブジェクト変数に設定やWithステートメントでしょうか。 シートオブジェクト例 Set st1 = Sheets("AA") st1.Cells(1,1) = "aa" With例 With Sheets("AA") .Cells(1,1) = "aa" End With
お礼
セットの方が今回は使い勝手良いのでそちらにします! ありがとうございます
関連するQ&A
- sheets() と worksheets() の違い
基本的な内容になるのかもしれませんが、ヘルプや他の方のプログラムなどを読んでも、いまひとつ理解できないので、質問させていただきました。 EXCELのVBAの記述で、仮に Worksheets("sheet1").Select Worksheets("sheet1").Visible = False としても Sheets("sheet1").Select Sheets("sheet1").Visible = False としても同じ結果になります。私は普段後者のSheets()という記述をしているのですが、人によってはWorksheets()を使用されている方も見受けられます。 この2つどのような違いがあるか教えていただければ、とてもうれしいのでが。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 1つのシートで出来ますか?
説明が下手で申し訳ございませんが、宜しくお願い致します。 sheet(1)に20個のボタンがあります。 ボタンをクリックすると、別のシートが開きます。 開いたシートにも複数のボタンがあり、そのうちの任意のボタンをクリックすると、そのボタンの値がsheet(1)のそれぞれのボタンに対応したセルに入力される、という動作を実現したいと思っています。 現状、下記のようなコードで目的の動作は実現できてはいるのですが、各ボタンそれぞれにシートを作っているような状況です。(データ自体は全く同じ内容のものが、計20シート) たぶん、もの凄く頭の悪い事をやっているんだろうと思います。 sheet(1)を除いた各シートの入力データ自体は全く同じなので、シート一枚で出来るんじゃないのかなと思い、ネットや本で調べながら色々試してみたのですが、どうも上手く行きません。データが同じでも、sheet(1)のクリックしたボタンによって入力するセルを変えなければならないのが問題です。 sheet(1)のボタンとセルの関連付けや、sheet(1)のどのボタンを押したのかの判別ができればいいのかなと思って調べてみても、初心者にはよく理解できず、もう何週間もチャレンジしているのですがお手上げです。 上級者の方の知恵をお借りできれば幸いです。 Sub sheet2を開く() Worksheets(2).Select End Sub Sub 入力1() Worksheets(1).Range("F8") = "データ1" Worksheets(1).Select End Sub Sub 入力2() Worksheets(1).Range("F8") = "データ2" Worksheets(1).Select End Sub Sub 入力3() Worksheets(1).Range("F8") = "データ3" Worksheets(1).Select End Sub Sub sheet3を開く() Worksheets(3).Select End Sub Sub 入力1() Worksheets(1).Range("H8") = "データ1" Worksheets(1).Select End Sub Sub 入力2() Worksheets(1).Range("H8") = "データ2" Worksheets(1).Select End Sub Sub 入力3() Worksheets(1).Range("H8") = "データ3" Worksheets(1).Select End Sub Sub sheet4を開く() Worksheets(3).Select End Sub Sub 入力1() Worksheets(1).Range("M8") = "データ1" Worksheets(1).Select End Sub Sub 入力2() Worksheets(1).Range("M8") = "データ2" Worksheets(1).Select End Sub Sub 入力3() Worksheets(1).Range("M8") = "データ3" Worksheets(1).Select End Sub ・ ・ ・ ・ ・
- ベストアンサー
- Excel(エクセル)
- Excel VBA Worksheets(())
Excel2016をWindows10で使用しています。 以下のマクロが実行できません。 Option Explicit Sub raco() Worksheets("Sheet(3)").Range("$B$2:$D$4").FormulaR1C1 = "=Sheet(2)!RC" End Sub Sheet(3)をSheet3,Sheet(2)をSheet2 と書くとSheet3にSheet2の内容がコピーできます。 Sheet(3)のままだと、アプリケーションの定義またはオブジェクトの定義のエラーです。 と出ます。 Sheet(3)のままで、コピーできるようにする方法を教えてください。お願いします。
- ベストアンサー
- Excel(エクセル)
- excelのvbaでのシート指定が時々おかしい
時々なんですが、excelのVBAでシート指定をしているにもかかわらず、その指定がされてない時があります。 たとえば sheets("sheet1").select sheets("sheet2").select RANGE("A1") = "aa" とした時に、sheet1にaaが入ってしまうような感じです。 毎回なるわけではないので、指定の方法が間違ってるとかではない気がするんですが…。 なぜこのようなことがおきるのでしょうか?
- ベストアンサー
- オフィス系ソフト
- VBA Worksheetsはプロパティなの?
(株)C&R研究所発行 Excel VBA逆引きハンドブック 著者 蒲生睦男 234ページを引用します。 ----- ワークシートを参照するには「Worksheets」プロパティを使います。「Worksheets」プロパティは、指定されたブックのすべてのワークシートを表す「Sheets」コレクションを返します。 ----- 私は今までWorksheetsはコレクションだと思ってました。つまりワークシートの集合であると。違うのですか?さらにプロパティはオブジェクトの性質を表わすもので、例えばCellのプロパティであればValue, Colour等です。では、Worksheetsは何のプロパティなのでしょうか?Workbookのプロパティですか?もしそうなら、他にはどんなプロパティがあるのですか?さらに上記引用で「返す」とありますが、返すってなんですか?ファンクションプロシージャの戻り値を返す、みたいな表現はありますがここでの「返す」の意味がよくわかりません。 私の現状認識は以下のものです。どこか誤ってますか? Worksheetsはワークシートの集合体つまりコレクションであり、ワークシートオブジェクトでもある。オブジェクトであるので、性質を表わすプロパティではない。 VBAの構文で Workbook.Worksheet.Range のような表現はよく使いますが、ひょっとして後ろにくっつくのは全部プロパティなのですか?ちょっとよくわかりません。
- ベストアンサー
- Excel(エクセル)
- Excel VBA グラフチャート名で指定するには
ExcelのVBAでグラフを作成した後 ActiveChartでアクティブなチャートを指定するのではなく ActiveChart.Nameなどで取得したチャート名で指定するには どのように記述すればよいでしょうか。 例えば、以下のtest()のコードの中の ActiveChart.SetSourceData Source:=Range("Sheet1!A1:B2"), PlotBy:=xlRows ActiveChart.SetElement (msoElementPrimaryCategoryAxisNone) ActiveChart.PlotArea.Select ActiveChart.Parent.Copy の部分をActiveChartを使わずチャート名(chart_nameなど)で指定するには どのように記述すればよいでしょうか。 よろしくお願いします。(Windows7,Excel2016) --------------------------------------- Sub test() Dim chart_name As String ThisWorkbook.Worksheets("Sheet1").Select ThisWorkbook.Worksheets("Sheet1").Range("A1") = "A" ThisWorkbook.Worksheets("Sheet1").Range("A2") = "B" ThisWorkbook.Worksheets("Sheet1").Range("B1") = "75" ThisWorkbook.Worksheets("Sheet1").Range("B2") = "25" ThisWorkbook.Worksheets("Sheet1").Range("A10").Select ThisWorkbook.Worksheets("Sheet1").Shapes.AddChart2(297, xlBarStacked100).Select ThisWorkbook.Worksheets("Sheet1").Select ActiveChart.SetSourceData Source:=Range("Sheet1!A1:B2"), PlotBy:=xlRows chart_name = ActiveChart.Name chart_name = Trim(Right(chart_name, Len(chart_name) - Len(ActiveSheet.Name))) ThisWorkbook.Worksheets("Sheet1").ChartObjects(chart_name).Activate ActiveChart.SetElement (msoElementPrimaryCategoryAxisNone) ActiveChart.PlotArea.Select ActiveChart.Parent.Copy End Sub
- 締切済み
- Excel(エクセル)
- Excel Selectは使わない? VBA
おはようございます。 ExcelのVBAを独学しております。 いまさらな質問だとは思いますが、 そこで、色々調べていたところ 「Select」はあまり使うな! ということが良く出てきました。 selectを使わず、上手くシート移動などができるのでしょうか? 私が組んでいるものは、色んなシートを切り替えなければならなく、 毎回Selectしています。 Activateを使ったこともありますが、 エラーが多発し、良く分からなかったためSelectを使用しています。 出来れば、シートをアクティブにすることなく 操作ができれば良いのですが・・・ 例)「データ」「コピー」のシートがあります。 「データ」シートのAからD列を「コピー」シートにコピー しようとするものです。 WorkSheets(データ).select Range("A1").select Range("A:D").select selection.copy Worksheets("コピー").select Range("A1").select ActiveSheet.Paste どうしてもSelectを多様してしまいます。 ●Selectを使わないデータの入力方法 ●Selectを使わず、シートをアクティブにしなくても良い参照方法 ●どうしてもSelectを使わないといけない場面 ●Selectを使うのを回避するためには・・・ などなど、ご存知でしたら回答お願い致します。
- ベストアンサー
- Excel(エクセル)
- Excel VBAでエラーが出てしまう
Excel VBAで今現在選択しているシートから"春"というワークシートに移動して"A1"セルを選択しようとするプログラムを作ろうとしています。 Worksheets("春").Select Range("A1").Select ならできるんですけど、 Worksheets("春").Range("A1").Select ならエラーになります。 なぜなのでしょうか?
- ベストアンサー
- オフィス系ソフト
- Excel vba selectが効かない
2と3の2つのエクセルファイルがあります。縦の列を新しいファイルの横の行に コピーしていきたいプログラムです。 2のファイルの1シート目の"C8:C25" 3のファイルの1シート目の"C9:C65" を新しい1のファイルの1シート目の1行目にコピーするプログラムを 作っていますが1シート目はpasteされるのですが 3のファイル2シート目からselectの指定が"C9:C65"ではなく、B9からQ65の指定になってしまい思ったコピーができません(★のところ)、1シート目はうまくいっているのでどうして3のファイルの2シート目のからうまくいかないかわかりません。 5シートまででテストをしているのですが実際は各々255シートありもってくる列も 12列あります。とりあえずCの列だけ5シートで試してみています。 Dim i As Long Dim N As Long i = 1 N = 1 Do While i <= 5 ''C列''' Workbooks(2).Worksheets(i).Activate '2のファイル Worksheets(i).Range("C8:C25").Select 'もってくるところ Selection.Copy Workbooks(1).Worksheets(1).Activate '1新しいファイル Range("C" & N).Select '貼り付けるところ Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=True Workbooks(3).Worksheets(i).Activate '3のファイル Workbooks(3).Worksheets(i).Range("C9:C65").Select '★もってくるところ Selection.Copy Workbooks(1).Worksheets(1).Activate '1新しいファイル Range("U" & N).Select '貼り付けるところ Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=True i=i+1 N=N+1 LOOP
- ベストアンサー
- Visual Basic
- エクセルVBA ウィンドウ左上になるセルを指定する
いつもお世話になっております。 以下のようなマクロを書きました。 Sub test() Worksheets("Sheet2").Select Range("A1").Value = "☆" Worksheets("Sheet1").Select Range("AG100").Activate End Sub 上記マクロでは、最後にAG100セルが見えるようになりますが AG100セルがウインドウ一番左上でアクティブになるように するためにはどのように記述すればよいか ご教示ください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
セットの例文ありがとうございます。 使わせてもらいます