- 締切済み
エクセル VBA)) CheckBox_Clickでちょっとわからないことがあるのですが。
すいません、VBAかなり初心者ですごい簡単な質問かもしれません。 VB.netやVB６を触っていればわかるとおもうのですが、 シート内でCheckBox_Clickイベントの実行文のなかでセルを参照する記述を書いているのですが、 1) Dim a as String 2) a = WorkSheets("？？").Range(E9) 2)の場所でエラー（アプリケーション定義またはオブジェクト定義エラーです。）とセル位置を参照できないのですが、シート内で記述しており他のSUB ??() のプロシージャーでは問題なく参照できるのですが、なぜなんでしょうか？
- makiii4649
- お礼率37% (3/8)
- その他([技術者向] コンピューター)
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- エクセルVBAのエラー
よろしくお願いします。 VBA初心者のものです。 下記のコードを作成しましたが、 アプリケーション定義?がされていません というエラーが出ます。 わかりやすく教えていただけないでしょうか。 修正方法を教えてください。 0901名簿.xlsという名前の ファイルAのsheet1の 情報（ファイルBのセルBD1に日付4桁が記入されている）を ファイルBのセルA1の情報を元にファイルBのセルB１に抽出したい Sub 関数の挿入() Dim i As Long Dim あ As String Dim い As String Dim う As String あ="=VLOOKUP(A1,[" い=Range("BD1") う="名簿.xls]Sheet1!$F:$I,1,0)" For i = 2 To 50 Range("A" & i )= あ & い & う Next i End Sub
- ベストアンサー
- オフィス系ソフト
- vba ワークシートを変数を用いて開くには
初歩的な質問ですが、 ワークシートの書式が新しくなったことで、書き換えをすることになりました。 現在のエクセルファイルから、新しいエクセルファイルへ、セルの値を参照しながら VBAにて作業をしたいのですが、 Sub changesheet() Dim iname As String Dim wbname As String iname = InputBox("ブック名を入力", "対象ブックを入力") wbname = "シート2012（" & iname & ").xls" ActiveSheet.Range("P4").Value = Workbooks(wbname).Worksheets("Sheet1").Range("P4").Value End Sub この記載で実行すると、インデックスが有効範囲にありません とエラーになってしまいます。 変数（inputbox）を用いたセルの参照はどのように記述すればよろしいでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Setステートメントをまとめて記述する方法 （エクセル2000VBA）
お世話になります。 Setステートメントで以下のように書いて、シート名を省略して使っています。 Set a = ThisWorkbook.Worksheets("い") Set b = ThisWorkbook.Worksheets("ろ") Set c = ThisWorkbook.Worksheets("は") これをプロシージャ毎に書くとコードが長くなるので、先頭かどこかに1回書くだけで、全てのプロシージャで使えるようにしたいのですがどうしたら良いでしょうか？ このようなプロシージャを実行したいのですが、 Private Sub CommandButton1_Click() a.Range("A2").Value = "データ1" b.Range("B4").Value = "データ2" c.Range("C9").Value = "データ3" End Sub （他にもコマンドボタンやチェックボックス用のプロシージャがあります） Setステートメントだけを先頭に書くと、 「プロシージャの外では無効です」というエラーが出ましたので、 Public Sub hensuu() Set a = ThisWorkbook.Worksheets("い") Set b = ThisWorkbook.Worksheets("ろ") Set c = ThisWorkbook.Worksheets("は") End Sub のようにしたら、「実行時エラー"424"：オブジェクトが必要です」というエラーが出てしまいました。 どのようにしたらエラーが出ず正しく動くようになりますでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル チェックボックスの解除について（VBA)
YES/NOを入力させる為の下記のVBAにおいて、チェックボックス１をチェックすると、アの部分でチェックボックス２の解除を行う関係で？、シート上でチェックボックス２を操作していないのにもかかわらず、勝手にCheckBox2_Click()に入り、命令文イを実行してしまいます。 ただ単にSub CheckBox1_Click()のルーチンの最後までの処理で終わりたいのですが、どうしたらよいのでしょうか。 Private Sub CheckBox1_Click() If CheckBox1 = True Then Sheets("sheet1").Range("A1") = 1 Sheets("sheet1").Range("A2") = 0 CheckBox2 = False・・・ア Else Sheets("sheet1").Range("A1") = "" End If End Sub Private Sub CheckBox2_Click() If CheckBox2 = True Then Sheets("sheet1").Range("A1") = 0 Sheets("sheet1").Range("A2") = 1 CheckBox1 = False Else Sheets("sheet1").Range("A2") = ""・・・イ End If End Sub
- ベストアンサー
- オフィス系ソフト
- ２００７エクセルVBが２０１３エクセルで動かない
よろしくお願いします。 エクセル２００７VBをエクセル２０１３に移行して動かしたところ ＞＞＞＞の部分でエラーが出ました ２００７では動いていたのですが、なぜエラーになったのかわかりません。 プログラムは下記の通りです。 Dim iti1 As String Dim ITI2 As String Dim ITI3 As String Dim ITI4 As String Dim ITI5 As String Dim ITI6 As String Dim ITI7 As String Dim ITI8 As String Dim myRange As Range Dim myrange1 As Range Dim answer As Integer Dim c As Double Dim n As Double Workbooks(book1).Activate Sheets("A").Select ITI4 = Range("D65536").End(xlUp).Address '----D列の最終行から上方向の終端セルを選択 Set myRange = Worksheets("A").Range("d6", ITI4) answer = Application.WorksheetFunction.Count(myRange) Set myrange1 = Worksheets("A").Range("g5") For c = 1 To answer 'データー個数のカウント If myrange1.Offset(c) = myday Then n = n + 1 Next Workbooks(book1).Activate Sheets("A").Select 'コピー座標の取得 iti1 = Range("D65536").End(xlUp).Address '----D列の最終行から上方向の終端セルを選択 ITI7 = Range(iti1).Offset(, 9).Address Range("a5", ITI7).AutoFilter FIELD:=7, Criteria1:=myday ITI2 = Range("M65536").End(xlUp).Address '----M列の最終行から上方向の終端セルを選択 'コードコピー ITI5 = Range(ITI2).Offset(-n + 1, -10).Address '左上のセル＞＞＞＞＞＞＞＞＞ここでアプリケーション定義又はオブジェクトの定義エラーがおこります。 ITI6 = Range(ITI2).Offset(, -9).Address '右下のセル Range(ITI5, ITI6).Copy 'ｓｃと銘柄コード貼り付け Workbooks(book3).Activate Sheets("記入").Select ITI3 = Range("c65536").End(xlUp).Address '----C列の最終行から上方向の終端セルを選択 ITI8 = Range(ITI3).Address '終端セルの次を選択 Range(ITI8).Offset(1).PasteSpecial Paste:=xlPasteValues よろしくお願いします。 まだ何本かVBのプログラムがあるのですが移行に際しての注意などがあるサイトがあったら教えてください。
- ベストアンサー
- Excel（エクセル）
- EXCEL 名前の定義 VBA参照の方法
EXCELの名前の定義を、VBAから参照する方法を教えていただきたいのですが 名前を定義する シートA 名前：TEST 範囲：シートA シートB 名前：TEST 範囲：シートB シートC 名前：Pass 範囲：ブック それぞれをVBAから参照する場合 Range("TEST").Value： シートA内のVBA Range("Pass").Value では、参照できず。 Worksheets("シートA").Range("TEST").Value Worksheets("シートC").Range("Pass").Value にて、参照できました。 明示的なシート名入力が必要なのでしょうか？ よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- VBAでシートの選択について
初心者です。教えて下さい。 メールという名前のシートのA1のセルに入っている数字と同じ数字のシートのB1:E22までをコピーしてメールという名前のシートのB2に貼りつけたいです。 今のところ、 Dim str As string Str=Worksheets("メール用").Range("B2") Range("B1:E22").copy worksheets("メール用"),Range("B2") というところまでは入力したのですが、明らかに何か足りないというか、間違えているというか。 どなたかご教授ください。
- ベストアンサー
- その他(OS)
- Excel VBAでエラーが出てしまう
Excel VBAで今現在選択しているシートから"春"というワークシートに移動して"A1"セルを選択しようとするプログラムを作ろうとしています。 Worksheets("春").Select Range("A1").Select ならできるんですけど、 Worksheets("春").Range("A1").Select ならエラーになります。 なぜなのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルVBA,シート間転記でエラー1004
皆様宜しくお願いします。 以下の記述で 「実行時エラー1004アプリケーション定義 またはオブジェクト定義のエラーです」が 出てきます。 やりたい作業としては「週入力」シートの Ｄ５セルから下に入力されている内容を 「転記」シートの同じセル範囲へ転記したいです。 現在、転記先開始位置としてＤ５セルを決め打ちしています。 Ｄ行は固定ですが 列は変更になる可能性があるので ゆくゆく変数で書きたいと思っています。 以前はfor next で1行ずつ転記していてたのですが データが多すぎて時間がかかるので すこしでも時間短縮できればと 思いコードをあれこれ考えています。 どうかよろしくお願いします。 Sheets("週入力").Select Dim aa As Long 'A行の最終取得 aa = Range("A" & Rows.Count).End(xlUp).Row Dim 人数 As Long '変数「人数」を定義 人数 = aa - 4 Dim wsデータ As Worksheet Dim ws結果 As Worksheet Set wsデータ = ActiveWorkbook.Worksheets("週入力") Set ws結果 = ActiveWorkbook.Worksheets("転記") ws結果..Range(Cells(5, "D"), Cells(人数 + 5 - 1, "D")) =ws結果.Range(Cells(5, "D"), Cells(人数 + 5 - 1, "D")).Value
- ベストアンサー
- Excel（エクセル）
- Excel VBA 定数にオブジェクトを指定したい
Excel VBA 定数にオブジェクトを指定したい いつもお世話になりますm(__)m Excel VBAで、定数としてオブジェクトの指定はできないのでしょうか？ 例えば、WorkSheets("Sheet1")を定数「Srt1」として設定したいのですが、 Public Const Srt1 As Object = Worksheets("Sheet1") としても「定数のデータ型が不正です」とエラーがでます。 例えば、セルに値をセットする時に Worksheets("Sheet1").Range("A1").Value="あああ" Worksheets("Sheet1").Range("A2").Value="いいい" Worksheets("Sheet1").Range("A3").Value="ううう" と書きますが、これを Srt1.Range("A1").Value="あああ" Srt1.Range("A2").Value="いいい" Srt1.Range("A3").Value="ううう" と書ければプログラムも見やすく、書きやすくなると思いました。 プログラムの最初に Dim Srt1 As Object Set Srt1 = Worksheets("Sheet1") とすれば使えるのですが、複数のシート名をまずは定数として登録したいと思っていますが、オブジェクト(ワークシート名)は定数として登録することは出来ないのでしょうか？ お詳しいかた、是非ともご教授お願い致しますm(__)m
- 締切済み
- Visual Basic
