Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

111 / 1496 ←次へ　｜　前へ→

Excelツールについて

いっち - 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))
の部分のエラーを対処するついでに、コードの全てを見直していて、気が付いたことを書きました。
私以外にも、削除前にコードをコピペされた方は、いると思いますので。

今更かな。