• 締切済み

エクセルの関数について

http://homepage3.nifty.com/finaltida10807/1.jpgというURLがございます。 この1.jpgという部分を2.jpg 3.jpgというふうに、.jpgのまえを1つづづ増やすという関数を A1からA8にやりたいのですが、どういうふうにすればよいでしょうか。

みんなの回答

  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.4

=HYPERLINK("http://homepage3.nifty.com/finaltida10807/"&ROW(A1)&".jpg") という関数を記入し、下向けにコピーします。

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.3

No.2です。 投稿したあとURLの部分が途中で切れているのに気付きました。 前回は >ROW( で切れていますが、その続きがあります。 >ROW()&".jpg" が正解ですので  )".jpg" を追加入力してください。 どうも失礼しました。m(_ _)m

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.2

こんばんは! A1セルに ="http://homepage3.nifty.com/finaltida10807/"&ROW()&".jpg" という数式を入れA8セルまでフィルハンドルでコピーしてみてください。 表示されている結果は単に文字列で「ハイパーリンク」は設定できません。 ハイパーリンクを設定したい場合は、VBAになってしまいますが一例です。 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに ↓のコードをコピー&ペースト → Excel画面に戻り、 ハイパーリンク設定したいセルを範囲指定し(←必須です) マクロを実行してみてください。 (Alt+F8キー → マクロ → マクロ実行です) Sub Sample1() 'この行から Dim c As Range For Each c In Selection With c .Value = .Value .Hyperlinks.Add Anchor:=c, Address:=.Value End With Next c End Sub 'この行まで ※ わざわざマクロでやるのであれば 最初からすべてマクロの方が簡単だと思います。 Sub Sample2() Dim i As Long For i = 1 To 8 With Cells(i, "A") .Value = "http://homepage3.nifty.com/finaltida10807/" & i & ".jpg" .Hyperlinks.Add anchor:=Cells(i, "A"), Address:=Cells(i, "A") End With Next i End Sub このSample2のマクロを実行すれば数式そのものも不要になります。m(_ _)m

noname#200078
noname#200078
回答No.1

http://homepage3.nifty.com/finaltida10807/ と 1 と .jpg に分解して、真ん中を1ずつ増えるもの、たとえば行数を表すROW関数などを使って増やし、 あとで「&」を使ったりCONCATENATE関数を使って3つのセルの文字列を結合させればいいですね

関連するQ&A