| |
▼コクの微糖 さん：
>.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)
以上をまとめて（変数の宣言はプロシージャの最初でまとめて行います）
コードにしてください。
|
|
kanabun
- 13/9/2(月) 14:18 -
