Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

　JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談室－その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言は過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

143 / 1500 ←次へ　｜　前へ→

Re:いっちさんへの返答

村

- 24/5/10(金) 15:14 -

▼いっちさんありがとうございます。

>>jwwフォルダの jw_win.JWF を Desktopでも任意場所にコピー。
>Desktop にコピーした jw_win.JWF を右クリック～「パスのコピー」を行うと " " が付き、
>そのまま Application.InputBox に貼り付けても現状ではダメなので、
>「パスのコピー」をそのまま貼り付けても大丈夫にしたほうが、使い勝手が上がりそう。

確かに、両方に対応できる機能は便利ですね。
実装自体は簡単にできますが、とりあえず手動で。
そこより、別の指摘が欲しかったり。。。(T_T) 致命的な欠陥等。

下記バッチファイルを作成し、D&D
----------------------------------------

@echo off

:: ドラッグアンドドロップされたファイルのフルパスを取得
set "FilePath=%~1"

:: フルパスをクリップボードにコピー
echo %FilePath%| clip

:: メッセージを表示
echo フルパスがクリップボードにコピーされました。
pause

----------------------------------------

もし使えそうだと感じていただけるのであれば、

----------------------------------------
' ファイルのフルパスをユーザーに入力してもらう、デフォルト値を設定
filePath = Application.InputBox("ファイルのフルパスを入力してください:", Type:=2, Default:="C:\jww\jw_win.JWF")
If filePath = "" Then Exit Sub ' 入力がなければ終了

----------------------------------------

Read Write 共書換え。

--------------------------------------------------------------------------------

質問：提案頂いたマクロは、必要なコードを一括選択できると言う事で
宜しいでしょうか？

当方のコードは選択した範囲のみを更新するようになっており、不必要な書き換えを防ぐことができます。Ctrl+Alt+↓キーを使用して全体を選択し、その後でRead Write操作を実行すると、同様の結果が得られるはず？違います？

更に、C列、D列どの列の、どの範囲でも書き込みができるので、
列毎に、納品先の環境設定を保存できたりします。
メモ列を作ったり、よく使う部分だけ強化したり人によってカスタマイズが自由です。
ショートカットキー割り当てがわかりにくいので、Aの割り当て→B列に「文字」と表示されるようにWorksheet.Change イベント等も人によっては実装し、進化していくベースにならないかと考えています。

他に良い環境設定を管理ソフトがあれば、教えて欲しいです。