Adahm
Guest
全てに
紙工場の「必須入力」フィールドをvbaコードで記入する方法はありますか?
脂肪: アルコール:
紙工場の「必須入力」フィールドをvbaコードで記入する方法はありますか?
脂肪: アルコール:
odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1'otb1 は titleblocks を参照します。
svalue を文字列として
odrawdoc = このアプリケーション.activedocument
osheet = odrawdoc.activesheet
oborder = osheet.border の
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock
odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
tb.formattedtext.startswith("<prompt readonly") の場合、
svalue = otb1.getresulttext(tb)
messagebox.show("property field:"&tb.text&vbcrlf&"value:"&svalue&vbcrlf&"prompted entry:"&tb.formattedtext、"prompted entry")
otb1.setpromptresulttext(tb、 "test riuscito")
端 もし
次へ
サブメイン()
odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1 'otb1 は titleblocks を参照します
svalue を文字列として
stext を文字列として定義する
odrawdoc = thisapplication.activedocument を設定する
osheet = odrawdoc.activesheet を設定する
oborder = osheet を設定します。 ログイン
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock の設定
odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
テキスト = tb.formattedtext
strings.instr(stext) の場合、<prompt <="" readonly")=""> 0 それから
svalue = otb1.getresulttext(tb)
'messagebox.show("property field:"&tb.text&vbcrlf&"value:"&svalue&vbcrlf&"prompted entry:"&tb.formattedtext、"prompted entry")
コール otb1.setpromptresulttext(tb、 "test riuscito")
端 もし
次へ
エンドサブ</prompt>
dim otb1 'otb1 は titleblocks を参照します
コール otb1.setpromptresulttext(tb、 "test riuscito")
はい、構文の違いだけがあります: vba はオブジェクトの代入の set コマンドを望んでおり、呼び出しコマンドと最終的に(そう)検索関数文字列です。最後に、ilogicとvbaバージョンの2つのコードは等しいか間違っていますか?
お問い合わせ
サブメイン()
odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1 は titleblock の 'otb1 参照として titleblocks
svalue を文字列として
stext を文字列として定義する
odrawdoc = thisapplication.activedocument を設定する
osheet = odrawdoc.activesheet を設定する
oborder = osheet を設定します。 ログイン
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock の設定
odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
テキスト = tb.formattedtext
strings.instr(stext) の場合、<prompt <="" readonly")=""> 0 それから
svalue = otb1.getresulttext(tb)
'messagebox.show("property field:"&tb.text&vbcrlf&"value:"&svalue&vbcrlf&"prompted entry:"&tb.formattedtext、"prompted entry")
コール otb1.setpromptresulttext(tb、 "test riuscito")
端 もし
次へ
エンドサブ</prompt>
strings.instr(stext) の場合、<prompt <="" readonly")=""> 0 それから</prompt>
コール otb1.setpromptresulttext(tb、 "test riuscito")
メッセージボックス行を有効にすると(正しい構文のvbaの下、他の違い!)私はまた、明示的なステートメントを作るしようとしましたが、結果は同じです。
バージョン21を使用しています。
テキスト名を見ている線で「」を使う<prompt "<="" "foglio",="" che="" con="" ho="" io="" readonly"="" senza="" sostituito="">お問い合わせ
「<」を最初に入れたのはなぜですか? 理由はありますか?</prompt>
osheet.addtitleblock (onewtitleblockdef、spromptstrings) を呼ぶ
サブメイン()
odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1 は titleblock の 'otb1 参照として titleblocks
svalue を文字列として
stext を文字列として定義する
odrawdoc = thisapplication.activedocument を設定する
osheet = odrawdoc.activesheet を設定する
oborder = osheet を設定します。 ログイン
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock の設定
odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
テキスト = tb.formattedtext
'if strings.instr(stext), "<prompt <="" readonly")=""> 0 それから
strings.instr(stext, "prompt") <> の場合 0 それから
svalue = otb1.getresulttext(tb)
msgbox(プロパティフィールド: "&tb.text&vbcrlf&"値: "&svalue&vbcrlf&"入力エントリ: "&tb.formattedtext)
コール otb1.setpromptresulttext(tb、 "test riuscito")
端 もし
次へ
エンドサブ</prompt>