Results of 1 - 1 of about 295 for cell filename (0.001 sec.)
cell (1170), filename (1984)
- [[20120310233434]]
- #score: 11157
- @digest: e066fd61673dd44805c141b46c285463
- @id: 58075
- @mdate: 2012-03-11T00:56:48Z
- @size: 1921
- @type: text/plain
- #keywords: dname (21953), 数dn (7748), setwidename (7748), fileneme (7380), 角表 (5319), プ毎 (2011), 様( (1735), 張子 (1342), instrrev (1137), 拡張 (1098), ァベ (1041), で抜 (994), filename (953), cell (938), 合= (929), ベッ (928), トa (904), 実装 (892), 全角 (884), ク名 (840), jis (786), ルa1 (728), 数等 (713), ド内 (690), 変勉 (633), strconv (592), ルフ (576), アル (479), 関数 (445), テッ (402), left (393), 希望 (372)
- 『表示』（まつ）
ブック名をセル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)) で、 Book1 と表示されます。 ＞アルファベットAをつけて は & でつなげる。 ="A"&JIS(LEFT(A1,LEN(A1)-4)) (HANA) ---- (Mook)様 (HANA)様 ありがとうござます。 説明不足でした。すみません。初心者ですがマクロで希望しています。 関数の説明も大変勉強になりました。 教えていただいたマクロを張り付けてみましたが、シート1のセルA1は空のままです。 End Subの前にEnd IFをつけても空のままです。 どこに問題があるのでしょうか。よろしくお願いします。 （まつ） ---- >どこに問題があるのでしょうか。よろしくお願いします。 コード内の変数dNameがどの様な値になるか1ステップ毎に確認すれば自分で 出来ると思うが・・・ それから新たな質問をしましょう (PON) ---- あら、どこで抜けてしまったんでしょう。 修正しました。 (Mook)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201203/20120310233434.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608269 words.
訪問者：