[[20060530085630]]　『シート名をセルの内容から反映させたい』（こんすけ）　ページの最後に飛ぶ

『シート名をセルの内容から反映させたい』（こんすけ）
またわからないことがあるので質問させてください。

セルに写真と番号を載せて整理しているのですが、写真の番号の最初と最後の番号を
シート名に反映させることは出来るのでしょうか？

写真　No,1

写真　No,2

　　・

写真　No,10

シート名　「No,1～No,10」

としたいのです。「それくらい名前の変更でやれよ」とつっこまれそうですが、勉強のためにアドバイスをお願いします。

 「シート名　セル」のキーワードで全文検索しますと、↓がありました。　　(SEARCHMAN)
[[20040930180016]]『セルの内容をシートタグに反映させるには』(bun565)

返信遅くなり申し訳ありません。
過去の情報をもとに試行錯誤してみます。
bun565さん有り難うございます。
また解らないことがあったら教えてください。

 これは、昔作成したものです。
 sub test()
 dim r as range, msg as string, ws as worksheet
 dim mItem, m
 with sheets("sheet1")
    for each r in .range("a1",.range("a" & rows.count).end(xlup))
    if not isempty(r) then
       if len(r.text)>31 then _
          msg=r.text & " は文字数が多すぎます"
       with createobject("vbscript.regexp")
         .pattern:="[:\/\\\?\*]"
         .global=true
         if .test(r.text) then
           set mItem=.execute(r.text)
           for each m in mitem
             msg=msg & m.value & ", "
           next
           msg=r.text & " は以下の使用できない文字が含まれています" & vblf & _
               left(msg,len(msg)-2)
         end if
       end with
      on error resume next
      set ws=sheets(r.text)
      on error goto 0
      if not ws is nothing then _
         msg="シート " & r.text & " は既に存在しています."
      if len(msg) then
         msgbox msg:msg=empty
      else
        set ws=sheets.add(,sheets(sheets.count))
        ws.name=r.text
      end if
      set ws=nothing
   end if
   next
 end with
 end sub
 (seiya)
 ミスタイプがあるかもしれません

seiyaさんありがとうございます。また何かありましたらお願いします。

 こっそり・・・
 検索先を回答くださったのはSEARCHMANさんですよ～・・・
 bun565さんは質問者ですよ～

 (／0･)（ぷーのすけ）

すみません。SEARCHMANさんありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20060530085630]] 『シート名をセルの内容から反映させたい』（こんすけ） ページの最後に飛ぶ

[[20060530085630]]　『シート名をセルの内容から反映させたい』（こんすけ）　ページの最後に飛ぶ