- 締切済み
エクセルの関数について
http://homepage3.nifty.com/finaltida10807/1.jpgというURLがございます。 この1.jpgという部分を2.jpg 3.jpgというふうに、.jpgのまえを1つづづ増やすという関数を A1からA8にやりたいのですが、どういうふうにすればよいでしょうか。
- みんなの回答 (4)
- 専門家の回答
みんなの回答
- keithin
- ベストアンサー率66% (5278/7941)
=HYPERLINK("http://homepage3.nifty.com/finaltida10807/"&ROW(A1)&".jpg") という関数を記入し、下向けにコピーします。
- tom04
- ベストアンサー率49% (2537/5117)
No.2です。 投稿したあとURLの部分が途中で切れているのに気付きました。 前回は >ROW( で切れていますが、その続きがあります。 >ROW()&".jpg" が正解ですので )".jpg" を追加入力してください。 どうも失礼しました。m(_ _)m
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! 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
http://homepage3.nifty.com/finaltida10807/ と 1 と .jpg に分解して、真ん中を1ずつ増えるもの、たとえば行数を表すROW関数などを使って増やし、 あとで「&」を使ったりCONCATENATE関数を使って3つのセルの文字列を結合させればいいですね