
No.7ベストアンサー
- 回答日時:
ChDir?
文字列確認してください
#5 フォルダでは無いですね いい加減でごめんなさい
\でなく全角スペース?見たいですね
folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\"
余計なお世話かも知れませんが
回答しちゃったから返信を回答しますけれど
コピペで使えるかどうかを繰り返しても・・・どうかな
出来る出来ないでなくちゃんと検証しないといけないと思いますよ
QAの参考プロシージャなんてやっつけコードだと思いますが・・
仕事に内容も分からず結果でVBA使うなんて 怖すぎると思います
回答ありがとうございました
連絡が遅くなり申し訳ありません
只今は会社のパソコンから離れてしまい
来週の月曜日の確認にしまいますので
ご迷惑をお掛けしする事になりますので
一旦ベストアンサーとさせて頂きます
No.4
- 回答日時:
一応、ご質問の回答ですが
モジュールに入っているVBAコードのすべてをシートに書き出す事や
特定の文字列をReplaceしたり、VBEコードを書き込む事など・・
VBEを介すとコードは単なる文字列なので 可能です
通常、必要に迫られるケースは無いはず
通常、コード自体を開発者が変更する場合 必要のない事柄だと思いますし
運用時、状況などでコード自体の変更が必要なケースは考えられませんね
(状況に合わせたコードを用意しておけば良いだけ)
可能との回答で興味がある場合は、VBEコードの操作について
以前の回答履歴にVBEのコード書き換えの回答があると思います
他のQAなどでも 存在しますし VBEコードの操作を解説した参考サイトもMsを含め複数ありますので自身で理解して試すなんてことも出来ます
補足部分
Constをやめて変数として構成する文字列の一部をセルのTextとして取得すれば良いだけ
Dim folder As String
folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("300").Range("A41").Text & "【担当】確認番号 建物名称\"
依存文字が気になる
No.3
- 回答日時:
こんにちは
プロテクトがかかっていないなど普通の状態であれば、VBAエディタを制御することで可能です。
1行の一部を変更することも可能ですが、解析する分面倒です。
(1行差し替えの方が簡単)
ただし、コードを変更するマクロなので、きちんと整理された条件下で実行しないとおかしなことになる可能性があります。
ですので、ここで簡単なご質問を繰り返しているような方には、使用することはお勧めできません。

No.2
- 回答日時:
セルの中身をコードとして使え無いか?と言う意味???
例えば、
If Sh1.Range("B" & Cnt2).Value = Sh2.Range("A" & Cnt2).Value Then
の様なコードのRange("A" & Cnt2).Valueの部分がセルに格納されていて、
それを読み込んでコードを組み立てる。
古いアーキテクチャーのマシンで、かつ、アセンブラなら可能かも知れないし、昔は良くやった。
が、今は自己書き換えを検出したらアンチウィルスソフトが止めてしまうから無理。
No.1
- 回答日時:
こんにちは。
基本、無理と思って下さい。
理由は、ウィルスを作成できてしまう可能性があるので、可能だとしても
コードのアップが不可になるかと思います。
因みに、1行目をどの様に変更したいのでしょうか?
それは、マクロの条件分岐などで対応できないのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excel 知恵を下さい。 下記表は、例です。本来の表のデータ量は、1000件以上あります… A列:
Excel(エクセル)
-
エクセルデータ。容量を減らすにはどうしたらいい?
Excel(エクセル)
-
excelについて。
Excel(エクセル)
-
-
4
Excelの入力規則にいれる関数について
Excel(エクセル)
-
5
Excelで過去の最大値より大の場合、塗りつぶすには
Excel(エクセル)
-
6
Excelでなぜこのような式をつかっているのでしょうか、行に1,2,3と連番を振るだけなのに
Excel(エクセル)
-
7
Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を
Excel(エクセル)
-
8
マクロか関数で処理したいのですが、教えて頂けませんか。
Excel(エクセル)
-
9
2から100までの自然数について素数であるか判定したいです。シートのA列には自然数の値、B列には判定
Excel(エクセル)
-
10
10円の誤差が分からない
Excel(エクセル)
-
11
Excelの50音順ソートを全ての行列に適用するには?
Excel(エクセル)
-
12
ExcelのVBAで再帰処理を使って、1〜10までの整数の和と10の階乗の計算をしたいです。どなたか
Excel(エクセル)
-
13
Excelにて、下記のようなデータを月だけ変えて下にドラックしていきたいです。どうすれば良いですか?
Excel(エクセル)
-
14
エクセルで
Excel(エクセル)
-
15
Excelです。 Excelしてたら 点線?みたいのが出て来ました これは何ですか?どうやったら消せ
Excel(エクセル)
-
16
エクセルの数式で教えてください。
Excel(エクセル)
-
17
Excelで数式またはマクロを使用してできるか教えてください。
Excel(エクセル)
-
18
ExcelのVBAコードについて教えてください。
Excel(エクセル)
-
19
Excelマクロの作成方法・コーディングをご教授ください。
Excel(エクセル)
-
20
CSVファイルでVBAを動かす方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
ワードからエクセルへ貼り付け...
-
5
Excelのワークシート上に検索窓...
-
6
エクセルのマクロ機能で前のシ...
-
7
Excelを開いた時に表示さ...
-
8
エラーになってないのにVBA...
-
9
マクロボタンを作ってのマクロ...
-
10
エクセルで土日列の非表示方法...
-
11
AccessのテーブルデータをExcel...
-
12
EXCELのセルへ、デジタル時計を...
-
13
Excelの改ページ 同シート内で...
-
14
Wordで「原稿用紙○枚」を換算す...
-
15
モジュール内のマクロを全て実...
-
16
EXCEL 複数のシートの同一の位...
-
17
Excelマクロでオプションボタン...
-
18
テキストボックスに入力したシ...
-
19
マクロ実行後元に戻すことは
-
20
エクセル グラフの軸の最小値最...
おすすめ情報
公式facebook
公式twitter
回答ありがとうございます。
例えば
マクロ:行政報告があります。
マクロコードの一部の保存先フォルダの
Const folder As String = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\2023年 【担当】確認番号 建物名称\"
の内「\2023年」を2023年度の終わりに手動で「2024年」と変更して保存をしておりますが、
シート名「300」のセルA41に「2024年」と毎年自動更新し表示されるようになっておりマクロを使用して「2023年」を「2024年」に変更したいのです。
やはり無理でしょうか。
回答ありがとうございます。
指示通りにコード設定を行いましたが
指定フォルダでは無く「ドキュメント」が保存先となっております。
解決方法を教えてください。
よろしくお願いいたします。
回答ありがとうございます。指示通りに
folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("300").Range("A41").Text & "\【担当】確認番号 建物名称\"
としましたが
前回と同じく保存先が「ドキュメント」になってしまいます。
何度も申し訳ありません、解決方法を教えてください。
よろしくお願いいたします。
folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("300").Range("A41").Text & " >> \【担当】確認番号 建物名称\"
と設定しましたが、やはり同じく「ドキュメント」が保存先になってしまいます。
何度も申し訳ありません
解決方法をお願いいたします。
よろしくお願いいたします。