Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7603 / 76732 ←次へ | 前へ→

【74715】Re:ヘッダー内容をテキストボックスに表示
発言  kanabun  - 13/9/2(月) 14:18 -

引用なし
パスワード
   ▼コクの微糖 さん:

>.LeftHeader ="&12□" & textBox1 & "▲▲▲"

これは正確には

 .LeftHeader ="&12□" & TextBox1.Text & "▲▲▲"

ですね?(TextBox1.Value でもいいですけど、とにかくプロパティを
省略しないほうが可読性がいいですよ)


>"&12□"と "▲▲▲"は固定の為、
>TextBox1の文字を、TextBox1に表示させたいです。
>
>InStr関数を使用するというのは分かったのですが、

LeftHeader にある文字列をいちど文字列変数に入れますと、

Dim ss As String
ss = ActiveSheet.PageSetup.LeftHeader

となります。
ここで ss 中の"▲▲▲"の位置をInStr関数を使って求めます。

Dim n As Long
n = InStr(ss, "▲▲▲")

n > 0 なら n桁目から "▲▲▲"が始まっている、ということですので、
 文字列を nより前に限定します。
 ss = Left$(ss, n)

つづけて、先頭の4文字分 "&12□" をカットしたいので、こう書きます。
 ss = Mid$(ss, 5)

以上をまとめて(変数の宣言はプロシージャの最初でまとめて行います)
コードにしてください。
3 hits

【74694】ヘッダー内容をテキストボックスに表示 コクの微糖 13/8/31(土) 10:08 質問
【74695】Re:ヘッダー内容をテキストボックスに表示 γ 13/8/31(土) 10:50 発言
【74696】Re:ヘッダー内容をテキストボックスに表示 コクの微糖 13/8/31(土) 11:04 発言
【74697】Re:ヘッダー内容をテキストボックスに表示 γ 13/8/31(土) 11:22 発言
【74698】Re:ヘッダー内容をテキストボックスに表示 コクの微糖 13/8/31(土) 11:46 発言
【74699】Re:ヘッダー内容をテキストボックスに表示 γ 13/8/31(土) 12:15 発言
【74700】Re:ヘッダー内容をテキストボックスに表示 コクの微糖 13/8/31(土) 12:40 発言
【74701】Re:ヘッダー内容をテキストボックスに表示 γ 13/8/31(土) 13:04 発言
【74702】Re:ヘッダー内容をテキストボックスに表示 コクの微糖 13/8/31(土) 13:09 発言
【74714】Re:ヘッダー内容をテキストボックスに表示 コクの微糖 13/9/2(月) 11:36 質問
【74715】Re:ヘッダー内容をテキストボックスに表示 kanabun 13/9/2(月) 14:18 発言
【74717】Re:ヘッダー内容をテキストボックスに表示 コクの微糖 13/9/2(月) 17:30 お礼

7603 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free