人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルの質問です。
エクセルでコピーしたものを貼り付けると通常は縦ですが横に貼り付けたいのですがやり方を教えてください。よろしくお願いします。
E-mailの一括変換。e-mailをクリックするとアウトルックがでてきて処理できる状況にすることができるようになるやり方。(以前はアドインなどを入れてみたんですがハイパーリンクは付いたのですがアウトルックのほうとの連携をうまくする事ができませんでした。)
最後にファイル名や番号などを指定した範囲内で連続してエクセルが数を表記してくれるやり方(マクロ、プログラム!?よくわかりません。。。。)を探しています。例えばA3?C6までの範囲を選択してその中にあるA3の最初の名前がA0001.jpgとすれば順番にA0002.jpg,A0003jpgとA6のところまで行ったら次はB3のところに自動的に行ってA0004.jpgというようにC6(A0009.jpg)までズラーッと一気に書いてくれるプログラムのようなものを探しています。
やり方など参考になるページやそういったものが既にある場合はこの3つの中のどれでもよろしいですのでどうぞ教えてください。
よろしくお願いいたします。

●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:.jpg A3 E-MAIL アウトルック エクセル
○ 状態 :終了
└ 回答数 : 6/6件

▽最新の回答へ

1 ● virtual
●19ポイント

エクセルでコピーしたものを貼り付けると通常は縦ですが横に貼り付けたいのですがやり方を教えてください。

  1. コピーする範囲を選んで、右クリック(又は「編集」)、コピー。
  2. 貼り付ける場所の一番左上のセルを選んで、右クリック(又は「編集」)、形式を選択して貼り付け、「行列を入れ替える」にチェック、OK。

というようなことでいいでしょうか?

◎質問者からの返答

ありがとうございます。実際にやってみます。


2 ● kaiton
●19ポイント

コピーして[編集]・[形式を選択して貼り付け]で[行列を入れ替える]にチェックでOK


これであっているのか?

エクセルがメールアドレスと認識したものは、自動でハイパーリンクになると思います。

そのハイパーリンクで起動するソフトは、通常ならInternetExplorerの[ツール]・[インターネットオプション]の「プログラム」タブの電子メールで指定したプログラムです。


関数なら

A1 ="A"&TEXT((COLUMN()-1)*3+ROW(),"000")&".JPG"

これを縦横にコピーしてください。

COLUMN関数は列の位置を、ROW関数は行の位置を表す関数です。

そして、TEXT関数で数字3桁にしています。


ただ、9個のセルぐらいなら私はA1に A001.jpg B1に A004.jpg といれてフィルをつかって操作します。

http://www.excel-jiten.net/data_entry_edit/concective_data.html

http://www.eurus.dti.ne.jp/~yoneyama/Excel/nyumon/seiseki/sei-n0...

あたりを参考に

A1:B1を選択し、B1セル右下のフィルハンドル(黒十字カーソル)をC1へ、これでC1にA004.jpgとなる。

今度は、A1の右下のフィルハンドルをA3まで、これでA003.jpgまで

B1セルの右下のフィルハンドルでダブルクリック、C1セルのフィルハンドルでもダブルクリック

手抜き(もっと操作の早い)の方法は他にあるかもしれませんが...

◎質問者からの返答

いろいろ参考になります。ありがとうございます。後9個とありましたがこれが大体1000個ぐらいだったらどのようにすれば効率がよろしいか教えてください。よろしくお願いいたします。


3 ● SALINGER
●18ポイント

>エクセルでコピーしたものを貼り付けると通常は縦ですが横に貼り付けたいのですがやり方を教えてください。

貼り付けるときに形式を選択して貼り付けから行列を入れ替えるでは駄目でしょうか。


連番の方ですが、マクロで一括で連番を入れるコードも書こうと思えば書けますがExcelの機能でできることはExcelで。

連番を入れる左上の4つのセルにこのように入れて、4つのセルを選択して右下でカーソルが十字になるようにしてドラッグします。

A0001.jpg A0002.jpg
A0004.jpg A0005.jpg
◎質問者からの返答

理解できました。ありがとうございます。


4 ● hiko3karasu
●18ポイント

連番のやりかた

A3にA0001.jpgを入れます。A3を選択して

右下でカーソルが十字になるようにしてA10までドラッグします。

A0001.jpg

A0002.jpg

A0003.jpg

A0004.jpg

A0005.jpg

A0006.jpg

A0007.jpg

A0008.jpg

A7からA10を選んでB3に移動

A0001.jpg A0005.jpg

A0002.jpg A0006.jpg

A0003.jpg A0007.jpg

A0004.jpg A0008.jpg

A3-B6を選択して

右下でカーソルが十字になるようにして好きなだけ横にドラッグします。

A0001.jpg A0005.jpg A0009.jpg A0013.jpg ・・・・・・

A0002.jpg A0006.jpg A0010.jpg A0014.jpg ・・・・・・

A0003.jpg A0007.jpg A0011.jpg A0015.jpg ・・・・・・

A0004.jpg A0008.jpg A0012.jpg A0016.jpg ・・・・・・

◎質問者からの返答

理解できました。ありがとうございます。


5 ● SALINGER
●18ポイント

私のは縦横間違ってましたね。

一括して4桁の連番を入れるマクロです。

先に入れる場所の左上のセルにA0001.jpgやABC1234.txtなど入れて、連番を入れる範囲を選択して次のマクロを実行させてください。

Sub renban()
 Dim p1 As Long
 Dim p2 As Long
 Dim i As Long
 Dim j As Long
 Dim str1 As String
 Dim str2 As String
 Dim str3 As String
 Dim sRow As Long
 Dim sColumn As Long
 Dim sRows As Long
 Dim sColumns As Long
 Dim count As Long
 
 sRow = Selection.Row
 sColumn = Selection.Column
 sRows = Selection.Rows.count
 sColumns = Selection.Columns.count
 
 str1 = Cells(sRow, sColumn).Value
 
 p2 = InStrRev(str1, ".")
 For p1 = p2 - 1 To 1 Step -1
 If IsNumeric(Mid(str1, p1, 1)) = False Then
 p1 = p1 + 1
 Exit For
 End If
 Next p1
 
 count = 0
 For i = 0 To sColumns - 1
 For j = 0 To sRows - 1
 str3 = Format(Val(Mid(str1, p1, p2 - p1)) + count, "0000")
 Cells(sRow + j, sColumn + i).Value = Left(str1, p1 - 1) & str3 & Right(str1, Len(str1) - p2 + 1)
 count = count + 1
 Next j
 Next i
End Sub
◎質問者からの返答

マクロまでありがとうございます。

やってみたいと思います。

ありがとうございました。


1-5件表示/6件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ