[[20120310233434]]　『表示』（まつ）　ページの最後に飛ぶ

『表示』（まつ）

 ブック名をセルA1に表示させています。
 関数で=MID（CELL("fileneme",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)とすると拡張子まで入ってしまいます。
 拡張子なしでブック名の前にアルファベットAをつけてすべて全角表示させることはかのうでしょうか？

全角表示だけでしたら

    With Worksheets("sheet1").Range("A1")     
        .Value = Application.Dbcs(.Cells)
    End With
で表示することができました。
 よろしくお願いします。

 関数だけでやりたいのか、マクロも使えるのか説明が欲しいところですが、
 マクロでできるのであれば下記でもよさそうです。

 Sub SetWideName()
    Dim dName As String
    dName = "A" & ThisWorkbook.Name
    If InStr(dName, ".") > 0 Then
        dName = Left(dName, InStrRev(dName, ".") - 1)
    End If    
    Worksheets("Sheet1").Range("A1") = StrConv(dName, vbWide)
 End Sub

 関数だけでの実装をご希望でしょうか。
 (Mook)

 関数で全角にするのは、JIS関数が有ります。

 拡張子は決まっていると思いますので、LEFT関数等で抜き出すか
 SUBSTITUTE関数で置換してしまうのはどうでしょう？

 A1セルに Book1.xls と有った場合
 =JIS(LEFT(A1,LEN(A1)-4))
 で、 Ｂｏｏｋ１ と表示されます。

 ＞アルファベットAをつけて
 は & でつなげる。
 ="A"&JIS(LEFT(A1,LEN(A1)-4))

 (HANA)

 (Mook)様
 (HANA)様
 ありがとうござます。

 説明不足でした。すみません。初心者ですがマクロで希望しています。
 関数の説明も大変勉強になりました。

 教えていただいたマクロを張り付けてみましたが、シート1のセルA1は空のままです。
 End Subの前にEnd IFをつけても空のままです。
 どこに問題があるのでしょうか。よろしくお願いします。
 （まつ）

 >どこに問題があるのでしょうか。よろしくお願いします。
コード内の変数dNameがどの様な値になるか1ステップ毎に確認すれば自分で
出来ると思うが・・・
それから新たな質問をしましょう
(PON)

 あら、どこで抜けてしまったんでしょう。
 修正しました。
 (Mook)

コメント返信：

[ 一覧(最新更新順) ]

[[20120310233434]] 『表示』（まつ） ページの最後に飛ぶ

[[20120310233434]]　『表示』（まつ）　ページの最後に飛ぶ