- ベストアンサー
VBAで同じ文字のシートを開きたい
ＶＢＡの超初心者です。 説明不足だと思いますが、申し訳ございません。 質問内容なのですが、 シート１にカレンダーを作成しています。 カレンダーの１をダブルクリックしたら”１”のシートというように、同じ数字のシートを参照したいのですが、参照する式が分かりません。 使っているエクセルは２００３です。 どなたか教えてください。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- hallo-2007
- ベストアンサー率41% (888/2115)
>同じ数字のシートを参照したいのですが、参照する式が分かりません。 質問の参照とは？ 参考までに シート名のタブを右クリック、コードの表示をクリック Vbエディターが起動しますので Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox Sheets(Target.Value).Range("A1").Value MsgBox Sheets(Target.Value & "").Range("A1").Value Sheets(Target.Value).Select End Sub をコピィしてみてください ダブルクリックしたセルに入っている数値のシート番号のA1セルの値 ダブルクリックしたセルに入っている文字と同じ名前のシートのA1セルの値 ダブルクリックしたセルに記述してある値と同じシート名のシートへ移動します。
お礼
やっぱり私の説明わかりにくかったですよね。 ありがとうございました。
関連するQ&A
- VBAで非表示にすると該当のシートが開けなくなる
ＶＢＡ超初心者です。 先ほど、 シート１にカレンダーを作成しています。 カレンダーの１をダブルクリックしたら”１”のシートというように、同じ数字のシートを開くようにしたいのですとの質問にご回答頂きまして、解決できたのですが… 式は Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets(CStr(Target.Value)).Activate End Sub を入れ、カレンダーの”１”をダブルクリックしたら、見出しが”１”のシート、 カレンダー”２”をダブルクリックしたら見出しが”２”のシートが開くようになったのですが、見出し”１””２”のシートを非表示にすると見出し”３”のシートが開くようになってしまいます。 非表示にしてもダブルクリックしたら隠れている見出し”１”や”２”のシートが出てくるようには出来ないのでしょうか？ 超初心者なので、式の組み立て方がうまくいきません。 言いたい事も上手に説明できてないと思います。 申し訳ございません。 どのように式を入れたらよいのでしょうか。 そもそも１つのブック内にまとめてるのがよくないのでしょうか？ この３連休中に作成したいのですが、思うように進みません。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- excel vba について
お世話になります。 excel vba 初心者です。office2003使用しています。 コードの書き方が分からないのでご教授していただけないでしょうか？ やりたいことは、 セルのC5をダブルクリックしたときに、カレンダーコントロールを表示させ、カレンダーの日付をクリックした時にその日付をC5へ渡しカレンダーコントロールを閉じたいです。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 複数条件を別シートへ転記
現在Excelにてカレンダーを作成中です。 シート1のカレンダーの内容は 2022 年 6 月 1 2 3 4 5 5件 3件 2件 5件 と日付にあった合計数を表示しています。 この合計数の元はシート2に一覧が有ります カレンダーの日付をダブルクリックした際に シート3へ抽出したいのですがいい方法が思い浮かびません。 A1セル”2022”、A3セル”6”、B1セル”1”が一致させたい為 シート2には抽出出来るようYEAR/MONTH/DAYでセルは分かれています。 ワークシートのVBAにしたいのですが教えて頂けます様お願いいたします。
- 締切済み
- デスクトップPC
- エクセルVBA アクティブのシートによって処理を変える方法
エクセルの勉強をしていて行き詰まってしまったので相談させて下さい。 現在アクティブになっているシートによって処理を変えるVBAを作っています。 IFを使うことになるかと思うのですが”シート１がアクティブの場合”という 条件をうまく付けることが出来ません。 If "アクティブシートがsheet1" Then <<指定の処理>> ElseIf"アクティブシートがsheet2"Then <<指定の処理>> Else EndIf うまく説明できず申し訳ありませんが条件式の" "の中に入るコードを教えて下さい。 不足部分については補足させて頂きますのでよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelのシート間の参照
エクセル初心者です。 エクセルでシートが2枚あるものを作成しました。 一枚目のシートのA1のセルの内容(言葉）を 二枚目のシートのB3のセルの内容に参照させたいと思い B3を選択し、セルのなかに =を入力して 一枚目のシートのセルA1をクリックしようと思ってもクリックができません。 二枚目のシートのセルB3を同じ二枚目のシートのB10にあてようとして =を入力してB１０をクリックすると参照ができます。 =B10 セル内は↑のようになります。 どうしてできないのでしょうか？ 困っています.教えてください。
- 締切済み
- オフィス系ソフト
- excel VBA フォームを使って
初歩的な質問だと思いますが、教えていただけますでしょうか。 excelのVBAを使って、ユーザフォームを作ります。 そこにカレンダーコントロールでいわゆる「カレンダー」を作成し、 その下にテキストボックス（ちょっと大きめ）を作ります。 カレンダーをクリックし、テキストボックスにスケジュールが表示されるというものを作りたいです。 現在ワークシートには、scheduleというものだけを作成し、そこには日付とスケジュールを書き込んでいる状況です。 スケジュールは1行のみとは限りません。複数行のほうが多いです。 お忙しいところ申し訳ありませんが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- excel97のVBAについて
始めまして、ＭＶ3307と申します。 さて下記内容を、VBAでコードを書くつもりですが、マクロ初心者で記載 方法が分からないので是非ご教授お願いいたします。 記 (1)EXCELの"Sheet1"の数式バーに式が表示してあります。 (2)VBAの"コマンドボタン"をクリックして、数式バーの式をTexBoxに取得する。 以上です、宜しくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBA 複数シートからのデータ取得
質問失礼します。 現在エクセルＶＢＡを用いてマクロを作成しているのですが、 ３０ものシートから複数のデータを取得する方法がわかりません。 Sheet1.Cells(○,□).value とすれば、Sheet1の○□のセルからの データは取得できるのですが、それをSheet30まで書き続けると 結構な行数になってしまいます。 そこで、Sheet1～Sheet30まで1～30の数字をループで変更させながら 参照していく方法はありませんか？ 自分でも色々試してみたのですが、どれも成功しなかったので。。 回答の程よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA ' " ! & の使い方
エクセル VBA ' " ! & の使い方 VBAを独学で勉強している、超初心者です。 同じシート内でのVBAを作るのはなんとなくできるようになったのですが、別のシートのデータを参照したいときなど、(シート名を変数にしています)うまく動作できません。 ' " ! & の使い方をやさしく解説してください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA シート１だけを保存する
VBA シート１だけを保存する こんにちは、ＶＢＡ初めてまもない初心者です よろしくお願いします 動作環境として、OS:XP excel:excel2007 を使用しています VBA で CSV データを取込む際にCSV データのとある項目以降から ２行目にして更にセルを結合しようと思っていたのですが どうやら、ＶＢＡだとワンアクションじゃ出来ないことに気がつきました。 例： ※１行の例です。実際にはこのＣＳＶデータが１０００行近く有ります (CSV data) "AAA","BBB","CCC","DDD","EEE","FFF" ↓ （VBAのみではワンアクションでは出来ませんでした） (excel) Ａ Ｂ Ｃ Ｄ １行目 ＡＡＡ ＢＢＢ ＣＣＣ ＤＤＤ ２行目 ＥＥＥ ＦＦＦ //ＥＥＥは[2A,2B]のセル、 ＦＦＦは[2C,2D]のセル ですので、やり方を切り替えて １・１度ＣＳＶデータをエクセルシート１に取込む ２・シート２でセルの枠の結合やサイズ等を変更しながら、シート１の内容を参照する (注意：コピーではなく参照です) ３・シート２の部分だけを保存する、もしくはシート１の内容を削除する １－３のような手順で、処理を行う事が出来るのでしょうか？ アドバイス頂けたらと思います。<(_ _)>
- 締切済み
- Visual Basic
- 突然無線プリントができない問題に直面しましたか？ブラザー製品のDCP-L2550DWプリンタで印刷できない場合の対処方法を知りたいと思いませんか？この記事では、無線プリントができない原因とその対処方法について詳しく解説します。
- DCP-L2550DWは、高速で高品質な印刷ができるブラザー製品のプリンタですが、突然無線プリントができないという問題が発生することがあります。この問題の原因は様々ですが、設定の問題やネットワークの不具合が考えられます。本記事では、その解決方法について詳しく説明します。
- 無線プリントができない場合、まずはネットワーク設定を確認しましょう。Wi-Fiに正しく接続されているか、IPアドレスやSSIDなどの設定が正しいかを確認します。また、ファームウェアのアップデートやプリンタドライバの再インストールも試してみる価値があります。これらの対処方法を試してみても問題が解決しない場合は、専門のサポートセンターに相談しましょう。
お礼
ありがとうございます。 この式で該当するシートを開くことができました。