Jw_cad 情報交換室−その３
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
 |
 |
[投稿者削除] |
|
 |
[投稿者削除] |
|
 |
[投稿者削除] |
|
|
[投稿者削除] |
|
|
[投稿者削除] |
|
|
[投稿者削除] |
|
|
Re:いっちさんへの返答 村 24/5/10(金) 15:14 |
|
|
Excelツールについて いっち 24/5/12(日) 11:51 |
|
|
Re:Excelツールについて 村 24/5/12(日) 15:54 |
|
|
Re:Excelツールについて いっち 24/5/12(日) 17:07 |
|
|
Re:Excelツールについて 村 24/5/12(日) 21:29 |
|
|
Re:Excelツールについて いっち 24/5/12(日) 22:26 |
|
|
Re:Excelツールについて 村 24/5/12(日) 23:14 |
|
|
Re:Excelツールについて いっち 24/5/13(月) 5:45 |
|
- - |
この書き込みは投稿者によって削除されました。（24/5/11(土) 20:58）
<
|
- - |
この書き込みは投稿者によって削除されました。（24/5/11(土) 21:44）
<
|
- - |
この書き込みは投稿者によって削除されました。（24/5/11(土) 21:45）
<
|
- - |
この書き込みは投稿者によって削除されました。（24/5/12(日) 11:31）
<
|
- - |
この書き込みは投稿者によって削除されました。（24/5/12(日) 11:31）
<
|
- - |
この書き込みは投稿者によって削除されました。（24/5/12(日) 11:31）
<
|
村
- 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 イベント等も人によっては実装し、進化していくベースにならないかと考えています。
他に良い環境設定を管理ソフトがあれば、教えて欲しいです。
>>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 イベント等も人によっては実装し、進化していくベースにならないかと考えています。
他に良い環境設定を管理ソフトがあれば、教えて欲しいです。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
|
いっち - 24/5/12(日) 11:51 - |
村さんへ
>新しいブックを作成し、Sheet1にSample.jwfよりコピペしてください。
なら、
>標準モジュール1に read追加
で、下記のコマンドが、エクセルのシートに書き出される事は無いです。
なぜなら、If dict.Exists(cellKey) Then にならないからです。
───────────────────────────────────────
#LD2_RV = 1 1 1 1 1 1 1 1 1 1 1 1
#RD2_RV = 1 1 1 1 1 1 1 1 1 1 1 1
#COM_RV01= 0 3 3 3 3 3 3 3 3 3
#COM_RV11= 3 0 0 3 0 3 3 3 3 3
#COM_RV21= 3 3 3 3 0 3 0 0 3 0
#COM_RV31= 0 0 0 0 3 0 0 3 0 0
#COM_RV41= 0 3 3
#COM_RV_C= 23
# 記述例「AutoSaveDir=C:\JWW*50」
# 記述例「OldVerSave =600」V6.00
# （最大線数:30 「CROSS_ST1」 〜 「CROSS_ST30」 で記述）
# P_dpi = 600
#TNKZ_SET= 25 1 0 3 302 20 11 201 100
#TNK3_NM1=基準建物用
#TNK3_NM2=計画建物用
#TNKN_SET={,},(,),[,],<,> と #TNKN_SET=□^w,,○^w,,[,],<,> のところ
#REF_FILE=参照ファイル(.拡張子)
───────────────────────────────────────
但し、
>標準モジュール2に write追加
は、もともと記載のあるコマンドで、変更の無いものは、そのまま残るので、
.jwf から消える事はないですが、編集も出来ないです。
尚、Sheet1にSample.jwfよりコピペした後、その中身を変更しておくなら、話は別ですが、
どう直しておくか、考えないとダメですね。
───────────────────────────────────────
下記は、= がありませんが、どのように扱うつもりなのでしょう？
A-Read
A-Read0
END
───────────────────────────────────────
下記のレスが欲しいなら、そんなに早く削除せず、待っててくれないと、誰も投稿出来ないと思います。
>そこより、別の指摘が欲しかったり。。。(T_T) 致命的な欠陥等。
私のパソコン（のみ？）で生じる
>cellKey = Trim(Split(cell.Value, "=")(0))
の部分のエラーを対処するついでに、コードの全てを見直していて、気が付いたことを書きました。
私以外にも、削除前にコードをコピペされた方は、いると思いますので。
今更かな。
>新しいブックを作成し、Sheet1にSample.jwfよりコピペしてください。
なら、
>標準モジュール1に read追加
で、下記のコマンドが、エクセルのシートに書き出される事は無いです。
なぜなら、If dict.Exists(cellKey) Then にならないからです。
───────────────────────────────────────
#LD2_RV = 1 1 1 1 1 1 1 1 1 1 1 1
#RD2_RV = 1 1 1 1 1 1 1 1 1 1 1 1
#COM_RV01= 0 3 3 3 3 3 3 3 3 3
#COM_RV11= 3 0 0 3 0 3 3 3 3 3
#COM_RV21= 3 3 3 3 0 3 0 0 3 0
#COM_RV31= 0 0 0 0 3 0 0 3 0 0
#COM_RV41= 0 3 3
#COM_RV_C= 23
# 記述例「AutoSaveDir=C:\JWW*50」
# 記述例「OldVerSave =600」V6.00
# （最大線数:30 「CROSS_ST1」 〜 「CROSS_ST30」 で記述）
# P_dpi = 600
#TNKZ_SET= 25 1 0 3 302 20 11 201 100
#TNK3_NM1=基準建物用
#TNK3_NM2=計画建物用
#TNKN_SET={,},(,),[,],<,> と #TNKN_SET=□^w,,○^w,,[,],<,> のところ
#REF_FILE=参照ファイル(.拡張子)
───────────────────────────────────────
但し、
>標準モジュール2に write追加
は、もともと記載のあるコマンドで、変更の無いものは、そのまま残るので、
.jwf から消える事はないですが、編集も出来ないです。
尚、Sheet1にSample.jwfよりコピペした後、その中身を変更しておくなら、話は別ですが、
どう直しておくか、考えないとダメですね。
───────────────────────────────────────
下記は、= がありませんが、どのように扱うつもりなのでしょう？
A-Read
A-Read0
END
───────────────────────────────────────
下記のレスが欲しいなら、そんなに早く削除せず、待っててくれないと、誰も投稿出来ないと思います。
>そこより、別の指摘が欲しかったり。。。(T_T) 致命的な欠陥等。
私のパソコン（のみ？）で生じる
>cellKey = Trim(Split(cell.Value, "=")(0))
の部分のエラーを対処するついでに、コードの全てを見直していて、気が付いたことを書きました。
私以外にも、削除前にコードをコピペされた方は、いると思いますので。
今更かな。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
|
村
- 24/5/12(日) 15:54 -
|
▼いっちさん：
ありがとうございます。ご指摘を感謝いたします。
ヘビーユーザーの方々は、通常、こんなツールを使用せずに、他の手段で行っていると考えています。
数字だけの環境設定ファイルに関して、初心者の方でも簡単に操作できる方法があれば良いなレベルです。
登録方法やVBEの質問が何もなかったことから、このようなツールは必要ないのかなぁと思いました。スレも汚れるかなとか。
私はJWに関して素人ですが、外部変形をショートカットキーで登録し、それをアイコン化してオリジナルアイコンを実行することで、外部変形を簡単に利用しています。
私はヘビーユーザーではないので、ショートカットキーを覚えるのが難しいですし、さらにCtrl+Shiftまで使う予定です。
外変メニュー G+ for Jwwも拝見しましたが、文字を読むよりもアイコンを使う方が好みです。
また、図形、線記号変形も、ハンコ形式を外部変形に変換するつもりです。
ツリー形式が苦手で、それよりも直感的なアイコン操作が好みです。
そんなレベルの人間なので、お許しください。
通常のショートカットキーは覚えていますが。。。
ありがとうございます。ご指摘を感謝いたします。
ヘビーユーザーの方々は、通常、こんなツールを使用せずに、他の手段で行っていると考えています。
数字だけの環境設定ファイルに関して、初心者の方でも簡単に操作できる方法があれば良いなレベルです。
登録方法やVBEの質問が何もなかったことから、このようなツールは必要ないのかなぁと思いました。スレも汚れるかなとか。
私はJWに関して素人ですが、外部変形をショートカットキーで登録し、それをアイコン化してオリジナルアイコンを実行することで、外部変形を簡単に利用しています。
私はヘビーユーザーではないので、ショートカットキーを覚えるのが難しいですし、さらにCtrl+Shiftまで使う予定です。
外変メニュー G+ for Jwwも拝見しましたが、文字を読むよりもアイコンを使う方が好みです。
また、図形、線記号変形も、ハンコ形式を外部変形に変換するつもりです。
ツリー形式が苦手で、それよりも直感的なアイコン操作が好みです。
そんなレベルの人間なので、お許しください。
通常のショートカットキーは覚えていますが。。。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
|
いっち - 24/5/12(日) 17:07 - |
▼村さん：
返信、ありがとうございます。
エクセルでのツールの作成、継続されればいいのにと、思っています。
（その時は、スレッドを新たにして）
私も仕事で、jw_cadとエクセルを利用しない日は、ほとんど無いです。
返信、ありがとうございます。
エクセルでのツールの作成、継続されればいいのにと、思っています。
（その時は、スレッドを新たにして）
私も仕事で、jw_cadとエクセルを利用しない日は、ほとんど無いです。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
|
村
- 24/5/12(日) 21:29 -
|
▼いっち様
お疲れ様です。
バッチファイルもたくさん作るので、
こんな便利な物が自己満足だけって本当に勿体ないと思います。
ここだと、迷惑掛けるので、どこかに共有でき、安易に発言が出来るところあれば
嬉しいです。私以外の今までの実績を、死を迎えただけでゼロになるのは
勿体ないです。
お疲れ様です。
バッチファイルもたくさん作るので、
こんな便利な物が自己満足だけって本当に勿体ないと思います。
ここだと、迷惑掛けるので、どこかに共有でき、安易に発言が出来るところあれば
嬉しいです。私以外の今までの実績を、死を迎えただけでゼロになるのは
勿体ないです。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
|
いっち - 24/5/12(日) 22:26 - |
▼村さん：
>ここだと、迷惑掛けるので、
>たくさん作るので、
それなら、ホームページ作られたらいかがですか。
村さんなら、つくれそうだから。
──────────────────────
カスペルスキーをインストールしている私のパソコンでは、最近、jw_cad関連のホームページでも、見ることが出来ないホームページがあります。
それでも、スマホからなら見れるんですが、スマホだけだと、ダウンロードとかはしないので、見るだけになってしまいますし、あまり見ません。
そうならないホームページにして欲しいとは思います。
>ここだと、迷惑掛けるので、
>たくさん作るので、
それなら、ホームページ作られたらいかがですか。
村さんなら、つくれそうだから。
──────────────────────
カスペルスキーをインストールしている私のパソコンでは、最近、jw_cad関連のホームページでも、見ることが出来ないホームページがあります。
それでも、スマホからなら見れるんですが、スマホだけだと、ダウンロードとかはしないので、見るだけになってしまいますし、あまり見ません。
そうならないホームページにして欲しいとは思います。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
|
村
- 24/5/12(日) 23:14 -
|
▼いっちさん：
>>ここだと、迷惑掛けるので、
>>たくさん作るので、
>
>それなら、ホームページ作られたらいかがですか。
コメントありがとうございます。
ホームページ３つ管理しています。
全て自作
二つはビジネスでもう一つはお客様と業者の共有連絡用。
連絡サイトが、お客様にとても評判は良いです。
プレゼン資料もお客様が見る気になれば、完璧な内容です。
LINEや、メールで送信しても内容は日々更新されます。その都度送るより
最新のファイル( サイト内容 )が最も新しいからです。
職人も、そこを閲覧すれば、工程表、仕様書等の言うた言わないの問題にもなりません。
出先でアップロードできますし、品番変われば即スマホで更新。
3つドメイン払っているので、これ以上はという感じです。
フリーの物も考えましたが、広告が出たり、セキュリティの問題がありますね。
>>ここだと、迷惑掛けるので、
>>たくさん作るので、
>
>それなら、ホームページ作られたらいかがですか。
コメントありがとうございます。
ホームページ３つ管理しています。
全て自作
二つはビジネスでもう一つはお客様と業者の共有連絡用。
連絡サイトが、お客様にとても評判は良いです。
プレゼン資料もお客様が見る気になれば、完璧な内容です。
LINEや、メールで送信しても内容は日々更新されます。その都度送るより
最新のファイル( サイト内容 )が最も新しいからです。
職人も、そこを閲覧すれば、工程表、仕様書等の言うた言わないの問題にもなりません。
出先でアップロードできますし、品番変われば即スマホで更新。
3つドメイン払っているので、これ以上はという感じです。
フリーの物も考えましたが、広告が出たり、セキュリティの問題がありますね。
<Mozilla/5.0 (iPad; CPU OS 17_4 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) CriOS/124.0.6367.111 Mobile/15E148 Safari/604.1
|
いっち - 24/5/13(月) 5:45 - |
▼村さん：
>ここだと、迷惑掛けるので、
>たくさん作るので、
>そこより、別の指摘が欲しかったり。。。(T_T) 致命的な欠陥等。
↑ つまり、ホームページを訪れる方と、やり取りをする。
>3つドメイン払っているので、これ以上はという感じです。
>フリーの物も考えましたが、広告が出たり、セキュリティの問題がありますね。
ごめんなさい。
上記全ての条件を満足する方法というのは、（私には）思いつきません。
>ここだと、迷惑掛けるので、
>たくさん作るので、
>そこより、別の指摘が欲しかったり。。。(T_T) 致命的な欠陥等。
↑ つまり、ホームページを訪れる方と、やり取りをする。
>3つドメイン払っているので、これ以上はという感じです。
>フリーの物も考えましたが、広告が出たり、セキュリティの問題がありますね。
ごめんなさい。
上記全ての条件を満足する方法というのは、（私には）思いつきません。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36