Q&A
正直なところ全てのコードを見ないとなんとも言えませんし、シート名であればExcelファイルにあるシートにそういう名前があるのでは？
としか言えません。
前任者からどれくらい引き継がれたのか分かりませんが、業務のことであればあまり公開できない事情などもあるのでしょう。
でしたら、あまり公の場で質問するのは微妙かもしれません。
前の質問から見ていると、VBA以前に覚えることが色々ありそうな気がします。つまり、ちょっと聞いてちょっともらって、では限界があるという意味です。
初心者の質問失礼いたします。
今現在
excelのマクロのVBAで
"平成" & Mid$(Menu_Sheet.TextBox1.Value, 3, 2)
と出力されている部分を”令和”と修正したいとおもっております。
前任者が作成した'給与PDFツール - テスト.xlsm'!Mail_List更新ボタン
とexcelでマクロが登録されていたので
Mail_List更新ボタン()を見ていて上記の平成と直接入っているものを見つけました。
そこで修正しようとしたのですが
同マクロの上部に
Dim Menu_Sheet As Object 'Menuシート
と定義されているのが見つかったのですがその
Menuシート が どこか分かりません……
見つける手法を伺ってよろしいでしょうか？
お忙しいところ大変申し訳無いのですが上記お問い合わせいたします。
Menu_Sheetは変数ですので、この変数に代入している箇所があると思います。
例えばMenu_Sheet＝右辺
この右辺を見ればわかるはずなので、それを明記しましょう。
Dim Menu_Sheet As Object
この間にあるはず
"平成" & Mid$(Menu_Sheet.TextBox1.Value, 3, 2)
ありがとうございます。
仰る通りですね……
本件はもう少し自分で追ってみます。
ご忠告ありがとうございました。
kikukikuさん
ありがとうございます。
仰る通り
Set Menu_Sheet = ThisWorkbook.Worksheets("Menu")
にありました。
なるほどです。ありがとうございました。
回答3件
0
自己解決
kikukikuさんの
Menu_Sheetは変数ですので、この変数に代入している箇所があると思います。 例えばMenu_Sheet＝右辺 この右辺を見ればわかるはずなので、それを明記しましょう。 Dim Menu_Sheet As Object この間にあるはず "平成" & Mid$(Menu_Sheet.TextBox1.Value, 3, 2)
との情報より
Set Menu_Sheet = ThisWorkbook.Worksheets("Menu")
が見つかりMenuのそれっぽいTextBoxがそうだと予想が付き解決しました。
＾＾＾＾＾
そのTextBox1が
処理年月yyyymmdd 【 】
↑のテキストボックスだと予想が付くのですが
どこに”TextBox1”と表記してあるのか謎ですが当面の問題は解決しました。
初心者の質問にご返答頂き誠にありがとうございました。
投稿2020/08/28 03:01
総合スコア159
0
- ウォッチ式を利用して、式の内容が変化した時に停止させる
"平成" & Mid$(Menu_Sheet.TextBox1.Value, 3, 2)の行にブレークポイントを当てて停止させる
上記いずれかを使用して停止した後、イミディエイトウィンドウなどで、Debug.Print(Menu_Sheet.Name)としてみてはいかがでしょうか？
投稿2020/08/28 02:43
総合スコア141
0
失礼しました。
本件は取り下げます。
それでもどうしても分からなかったらお問い合わせいたしますが
Excel初心者なので何が不明かも分からなくトピ汚し失礼しました。
投稿2020/08/28 02:38
編集2020/08/28 02:40総合スコア159
「取り下げる」のであれば回答するのではなく質問削除依頼を出してください。
回答ついてしまったら質問から削除依頼ができなくなるので、どうしても取り下げたいのでしたら、運営に相談してください。
ちなみに本件に限らず、プログラミングは「デバッグ」を覚えれば解決可能になる事象が多いです。
m.ts10806さん
ありがとうございます。
デバッグする所にまで行けずご迷惑おかけして申し訳ございませんでした。
あなたの回答
tips
プレビュー
